Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Const che intForReading = 1
Const che intForAppending = 8
strDisableAccountsFile = “\ \ serverxx \ seguire \ UsersToDisable.txt„
strDisabledReportFile = “\ \ serverxx \ seguire \ DisabledUsers.txt„
Regolare il objOutput = objFSO.OpenTextFile (strDisabledReportFile, intForAppending, allineare)
Regolar objFile = objFSO.OpenTextFile (strDisableAccountsFile, intForReading, allineare)
Mentre non objFile.AtEndOfStream
strUserDN = objFile.ReadLine
Se "" della disposizione (strUserDN <> ) allora
Regolare il objUser = GetObject (“LDAP: /„ & strUserDN)
objUser.AccountDisabled = allineano
objUser.SetInfo
Regolare il objUser = niente
strUserDN di objOutput.WriteLine
Concluder se
Wend
objFile.Close
objOutput.Close
Regolar objFile = niente
Regolare il objOutput = niente
Regolar objFile = objFSO.CreateTextFile (strDisableAccountsFile, allineare)
objFile.Close
Si regolano objFile = niente
I clienti di MsgBox “che sono stati disabili sono stati scritti„ & VbCrLf & strDisabledReportsFile & VbCrLf & “e la lima degli utenti a disalbe è stato eliminato„ & strDisableAccountsFile
|