Fråga : VBS-räkningen besegrar daterar skrivar att ska låsa användareANNONSkontot

Jag behöver att tillfoga kodifiera som ska räkning besegrar datera från en, eller två veckor i MsgBoxen då låser användareANNONSkontot, när objSysInfoen för datera expires.


Dim, objUser, strwWWHomePagen, strUserDN, ppt, objSysInfo för strMbox

Set = CreateObject (”ADSystemInfo”)
strUserDN = för objSysInfo.UserName
Set objUser = GetObject (”LDAP: /” &

' för strUserDN) möjliggöra meritförteckningen Next
' för felet för felhandling
On befaller först nollställer värdera av variabeln till ""
' understöder försök till uppsättningen som den med värdera bildar AD
', om understödja missar variabeln som fortfarande ska, är fastställd till ""
strwWWHomePage = "": strwWWHomePagen = felet Goto 0

' för handling
On för fel för Disable för
' för objUser.Get (”wWWHomePage”) testar strMboxen för värdera i strwWWHomePage- = "" Then
för variable
If den fastställda ppten = för CreateObject (”PowerPoint.Application”)
= MsgBox (”du har x-dagar som avslutar denna ombudutbildning, eller ditt ska konto låsas. Klicka REKO för att starta ppt för
för Powerpointpresentationen”). Synligt = för spårning för True
ppt. Presentations.Open” \ \
Else
wscript.quit

End If
för serverxx- \ \ ppt.ppsx "
" klar "

Svar : VBS-räkningen besegrar daterar skrivar att ska låsa användareANNONSkontot

Någon har ändrat äganderätten av spara, så att den inte gör tillhörde dig anymore.  Du behöver en av adminsna med ”rotar” privilegierar för att ändra den som är tillbaka.