UserObj fioco
GroupObj fioco
UserString = InputBox (“il nome di utente che vorreste controllare„)
arrDomains = allineamento (“CSC„, “CS„)
Per ogni DomainString nei arrDomains
'DomainString= " CSC "
Lista = lista & “********************************************** “& VbCrLf
Lista = lista & composizione di gruppo “& di DomainString„ & VbCrLf
Lista = lista & “********************************************** “& VbCrLf
Lista = lista & VbCrLf
Sul riassunto di errore dopo
Regolare UserObj = GetObject (“WinNT: /„ & DomainString & “/„ & UserString)
Se Err.Number = 0 allora
Sull'errore 0 di avanzamento
Per ogni GroupObj in UserObj.Groups
Lista = lista & GroupObj.Name & VbCrLf
Dopo
Altrimenti
Err.Clear
Sull'errore 0 di avanzamento
La lista = la lista & “l'utente non esiste di„ & DomainString
Concluder se
Dopo
Lista di WScript.Echo
|