Frage : VBS Zählimpuls datieren unten Index, der Benutzer ANZEIGE Konto verriegelt

Ich muss den Code addieren, der hinunter herr5uhren von zählt, das, ein oder zwei Wochen im MsgBox dann das Benutzer ANZEIGEN-Konto verriegeln, wenn das Datum expires.


Dim objSysInfo, objUser, strwWWHomePage, strUserDN, ppt, 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 der Wertform AD
' einzustellen, wenn die Sekunde die Variable noch eingestellt auf ""
strwWWHomePage = "" verlässt: strwWWHomePage = objUser.Get („wWWHomePage“)
' Sperrungsstörung handling
On Goto- 0

' Test der Störungs-der Wert im variable
If strwWWHomePage = "" Then
gesetzten ppt = in CreateObject („PowerPoint.Application")
strMbox = MsgBox („haben Sie die x-Tage, zum dieses vorgeschriebenen Trainings abzuschließen, oder Ihr Konto ist verschlossen. O.K. anklicken, um PowerPoint-Darstellung“)
ppt zu beginnen. Sichtbar = True
ppt. Presentations.Open“ \ \ serverxx \ Spurhaltung \ ppt.ppsx "

Else
wscript.quit

End If

Antwort : VBS Zählimpuls datieren unten Index, der Benutzer ANZEIGE Konto verriegelt

Jemand geändert den Besitz der Akte, damit sie nicht Ihnen mehr gehört.  Sie benötigen eins der admins mit „Wurzel“ Privilegien, es umzusandern.