Frage : Sperrungs-Benutzer-Konto mit VBS Index im aktiven Verzeichnis

Das Benutzerkonto einstellt nicht ht, um zu sperren, wann das Datum abgelaufenes oder passed.

Dim objSysInfo, objUser, strwWWHomePage, strUserDN, ppt ist, strMbox

Set objSysInfo = CreateObject („ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject („LDAP: /“ u. strUserDN)

' Störung handling
On Störungs-Zusammenfassung Next
' erstes Befehlszurückstellen ermöglichen, die der Wert der Variable zum ""
' an zweiter Stelle versucht, es mit dem Wert von AD
' einzustellen, wenn die Sekunde die Variable noch eingestellt auf ""
strwWWHomePage = "" verlässt: strwWWHomePage = objUser.Get („wWWHomePage“)
' Sperrungsstörung handling
On Störung Goto- 0

dteCutOffDate = CDate („18-Jul-2010“)

intDaysLeft = DateDiff („d“, jetzt, dteCutOffDate)

If intDaysLeft > 0 Then
'Test der Wert im variable
wenn strwWWHomePage = "" Then
gesetztes ppt = CreateObject („PowerPoint.Application")
strMbox = MsgBox („haben Sie“ u. sind das intDaysLeft u. „Tage, zum dieses vorgeschriebenen Trainings oder Ihres Kontos abzuschließen verschlossen. O.K. anklicken, um PowerPoint-Darstellung“)
ppt zu beginnen. Sichtbar = True
ppt. Presentations.Open“ \ \ serverxx \ Spurhaltung \ ppt.ppsx "
Else
objUser.AccountDisabled = True
objUser.SetInfo
wscript.quit
Ende If
End If

Antwort : Sperrungs-Benutzer-Konto mit VBS Index im aktiven Verzeichnis

Dann lesen der Morgen, nachdem das abgeschnittene Datum, diesen Index laufen lassen und es die Textdatei und sperren die Konten.

Respekt,

Rob.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
Const, das = 1 intForReading ist
Const, das = 8 intForAppending ist
strDisableAccountsFile = „\ \ serverxx \ Spurhaltung \ UsersToDisable.txt“
strDisabledReportFile = „\ \ serverxx \ Spurhaltung \ DisabledUsers.txt“
objOutput = objFSO.OpenTextFile (strDisabledReportFile, das intForAppending, zutreffend) einstellen
objFile einstellen = objFSO.OpenTextFile (strDisableAccountsFile, das intForReading, zutreffend)
Während nicht objFile.AtEndOfStream
	strUserDN = objFile.ReadLine
	Wenn Ordnung (strUserDN) <> "" dann
		objUser = GetObject einstellen („LDAP: /“ u. strUserDN)
		objUser.AccountDisabled = ausrichten en
		objUser.SetInfo
		objUser einstellen = nichts
		objOutput.WriteLine strUserDN
	Beenden wenn
Wend
objFile.Close
objOutput.Close
objFile einstellen = nichts
objOutput einstellen = nichts
objFile einstellen = objFSO.CreateTextFile (strDisableAccountsFile, zutreffend)
objFile.Close
Einstellen objFile = nichts ts
MsgBox „zu den Konten, die Behinderte geschrieben worden“ gewesen u. VbCrLf u. strDisabledReportsFile u. VbCrLf u. „und die Akte der Benutzer zum disalbe gelöscht worden“ u. strDisableAccountsFile
Weitere Lösungen  
 
programming4us programming4us