Vraag : VBS tellen onderaan het Manuscript van de Datum dat de Rekening van de ADVERTENTIE van de Gebruiker zal sluiten

Ik moet de code toevoegen die onderaan de datum van één zal tellen of twee weken in MsgBox dan de rekening van de gebruikersADVERTENTIE wanneer datumexpires.


Dim, objUser, strwWWHomePage, strUserDN, ppt, strMbox

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

' laat fouten handling
On Fout toe hervat Next
' de Eerste bevelterugstellen de waarde van de variabele aan/>' Tweede pogingen ""
' te plaatsen als de tweede de variabele nog zal geplaatst worden aan ""
strwWWHomePage = "" ontbreekt: strwWWHomePage = objUser.Get („wWWHomePage“)
' maakt de Test van Goto 0

On Fout/>' de onbruikbaar waarde in variable
If strwWWHomePage = "" Geplaatste Then
ppt = CreateObject („PowerPoint.Application“)
strMbox = MsgBox („u hebt de dagen van X om deze verplichte opleiding te voltooien of uw rekening zal worden gesloten. Klik O.K. om de presentatie van PowerPoint“)
te beginnen ppt. Zichtbaar = True
ppt. Presentations.Open die“ \ \ serverxx \ \ ppt.ppsx "

Else
wscript.quit

End If
volgen

Antwoord : VBS tellen onderaan het Manuscript van de Datum dat de Rekening van de ADVERTENTIE van de Gebruiker zal sluiten

Iemand heeft de eigendom van het dossier veranderd zodat het niet tot u meer behoort.  U hebt één van admins met „wortel“ voorrechten nodig om achter het te veranderen.