Получить список всех учетных записей с домена

Option Explicit
Const ADS_SCOPE_SUBTREE = 2
Const ForAppending = 8
Const ForWriting = 2
Dim objConn
Dim objCommand
Dim objRS
Dim objUser
Dim objFso, objF
Dim str
Dim i
Set objConn = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
Set objFso = CreateObject("Scripting.FileSystemObject")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConn
objCommand.CommandText = "Select * from 'LDAP://otd.dto.ru' Where objectClass='user'" /*



Вернуться к обсуждению: 
Получить список всех учетных записей с домена

		




	

		
    
        
            
            0