Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Const som intForReading = 1
Const som intForAppending = 8
strDisableAccountsFile = ”\ \ serverxx \ spårning \ UsersToDisable.txt”,
strDisabledReportFile = ”\ \ serverxx \ spårning \ DisabledUsers.txt”,
Fastställd objOutput = objFSO.OpenTextFile (strDisabledReportFile, intForAppending som är riktig)
Fastställdt objFile = objFSO.OpenTextFile (strDisableAccountsFile, intForReading som är riktig)
Stunder inte objFile.AtEndOfStream
strUserDN = objFile.ReadLine
Om "" för klippning (strUserDN <> ) därefter
Fastställd objUser = GetObject (”LDAP: /” & strUserDN)
objUser.AccountDisabled = True
objUser.SetInfo
Fastställd objUser = ingenting
objOutput.WriteLine-strUserDN
Avsluta om
Wend
objFile.Close
objOutput.Close
Fastställdt objFile = ingenting
Fastställd objOutput = ingenting
Fastställdt objFile = objFSO.CreateTextFile (strDisableAccountsFile, riktigt)
objFile.Close
Fastställdt objFile = ingenting
MsgBox ”konton, som har varit rörelsehindrada har varit skriftlig”, & VbCrLf & strDisabledReportsFile & VbCrLf & ”och spara av användare till disalbe har görats klar” & strDisableAccountsFile
|