FiveTech Support Forums

#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
LPSTR hb_oleWideToAnsi( BSTR wString );
HB_FUNC( STRINGFROMCLSID )
   {
   LPOLESTR pOleStr;
   LPSTR * psz;
   StringFromCLSID( ( REFCLSID ) hb_parnl( 1 ), &pOleStr );
   hb_retc( psz = hb_oleWideToAnsi( pOleStr ) );
   hb_xfree( psz );
   }
#pragma ENDDUMP

#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>

LPSTR hb_oleWideToAnsi( BSTR wString );

HB_FUNC( STRINGFROMCLSID )
   {
   LPOLESTR pOleStr;
   LPSTR * psz;
   StringFromCLSID( ( REFCLSID ) hb_parnl( 1 ), &pOleStr );
   hb_retc( ( char * ) psz = hb_oleWideToAnsi( ( BSTR ) pOleStr ) );
   hb_xfree( psz );
   }
#pragma ENDDUMP

FUNCTION Retrieve_Ldap()
   ...
   cobjectSID := STRINGFROMCLSID( oRecordset:Fields( "objectSID" ) :Value
   ...
RETURN NIL

      cString    := "SELECT "                    + ;
                    " userPrincipalName,"        + ;
                    " displayName,"              + ;
                    " memberOf,"                 + ;
                    " distinguishedName,"        + ;
                    " mail,"                     + ;
                    " objectGUID,"               + ;
                    " objectSID,"                + ;
                    " telephoneNumber,"          + ;
                    " mobile,"                   + ;
                    " facsimileTelephoneNumber," + ;
                    " otherTelephone,"           + ;
                    " department,"               + ;
                    " userAccountControl,"       + ;
                    " sAMAccountname"

Dim X as IADs
Dim con As New Connection, rs As New Recordset
Dim MyUser As IADsUser
 
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider", "CN=Test,CN=Users,DC=Fabrikam,DC=COM,O=INTERNET", "Password"
Set rs = con.Execute("<LDAP://MyMachine/DC=MyDomain,DC=Fabrikam,DC=com>;(objectClass=User);ADsPath;onelevel")
 
While Not rs.EOF
    ' Bind to the object to make changes 
    ' to it because ADO is currently read-only.
    MyUser = GetObject(rs.Fields(0).Value)
    MyUser.AccountDisabled = True
    MyUser.SetInfo
    rs.MoveNext
Wend

oMyUser := GetObject(rs:Fields(0).Value)
cobjectSID := STRINGFROMCLSID( oMyUser:objecSID() )

FUNCTION WMI_Win32_Account()
   // The Win32_Account abstract WMI class contains information about user accounts and group accounts known to the Windows system. 
   // User or group names recognized by a Windows NT domain are descendents (or members) of this class. The Win32_Account class is not included in a default hardware inventory operation.
   LOCAL oWMI
   LOCAL objWMI
   LOCAL oAccounts
   LOCAL aAccounts := {}
   LOCAL objWMIService
   LOCAL objItem
   oWMI := WMI_Check()
   IF !HB_IsNIL( oWMI )
      objWMI:= oWMI:ConnectServer()
      CursorWait ()
      oAccounts:= objWMI:ExecQuery( "SELECT * FROM Win32_Account" )
      FOR EACH objItem IN oAccounts
         AAdd ( aAccounts, { cValToChar( objItem:NAME ), cValToChar( objItem:SID ) } )
      NEXT
      CursorArrow()
      ASort( aAccounts,,, { |x,y| x[ 1 ] < y[ 1 ] } )
   ELSE
      ? "WMI not installed"
   ENDIF
RETURN ( aAccounts )