Czasem chcemy poszukać użytkownika który ma komórkę, dzwonił do nas ale nie pamiętamy nazwiska....
działa tylko wtedy gdy pola te są wypełnione w AD,
On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
