Vraag : Kan geen manuscript ertoe brengen om aan UsersToDisable.txt op dossierserver te creëren of te schrijven

Ik kan niet het manuscript ertoe brengen om aan UsersToDisable.txt op de dossierserver te creëren of te schrijven. Ik gebruik de afgesneden datum van 18-juli-2010 om het te testen. Er is geen waarde in de wWWHomePageattributen. Wat mis I? objSysInfo


Dim, objUser, strwWWHomePage, strUserDN, ppt, strMbox

Set = CreateObject („ADSystemInfo“)
strUserDN = objSysInfo.UserName
Set objUser = GetObject („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 fouten handling
On Fout Goto 0

dteCutOffDate onbruikbaar = CDate („18-juli-2010“)

intDaysLeft = („D“, nu, dteCutOffDate)/>If intDaysLeft > Then
'Test 0/>
als strwWWHomePage = "" Then
ppt = CreateObject („PowerPoint.Application“)
strMbox = MsgBox („plaatste u hebt“ & intDaysLeft & de „dagen om deze verplichte opleiding of uw rekening te voltooien zullen worden gesloten. Klik O.K. om de presentatie van PowerPoint“)
te beginnen ppt. Zichtbaar = True
ppt. Presentations.Open die“ \ \ serverxx \ \ ppt.ppsx "
Geplaatste Else
volgen objFSO = CreateObject („Scripting.FileSystemObject“)
Const = 8
strDisableAccountsFile =“ \ \ die serverxx \ \ UsersToDisable.txt "
Vastgestelde objFile volgen = (strDisableAccountsFile, Waar intForAppending,) intForAppending
objFile.WriteLine objFSO.CreateTextFile strUserDN
objFile.Close
'objUser.AccountDisabled het Eind If
End If


 = van True
'objUser.SetInfo
wscript.quit

Antwoord : Kan geen manuscript ertoe brengen om aan UsersToDisable.txt op dossierserver te creëren of te schrijven

Hallo, zal het manuscript slechts tot het dossier als daar *is* iets in de wwwHomePageattributen leiden.

Als ik me correct herinner, wanneer de gebruiker klaar is met het bekijken van PPT, zult u een waarde in de wwwHomePageattributen schrijven.

Zo, hier is wat het manuscript momenteel:
1) Als de huidige datum voorbij de afgesneden datum is, doe niets.
2) Als de scheidingsdatum niet is bereikt, en er geen wwwHomePagewaarde (namelijk heeft de gebruiker niet PPT bekeken) is, dan toon PPT.
3) Als de scheidingsdatum niet is bereikt, en er een wwwHomePagewaarde (namelijk heeft de gebruiker PPT bekeken) is, dan schrijf aan het dossier om Admins te informeren om de rekening onbruikbaar te maken.

Lezend dat, ik niet denk die ben eigenlijk wat u nodig hebt.  Hier is wat ik denk u nodig hebt:
1) Als er Geen waarde in wwwHomePage is, en de scheidingsdatum niet is bereikt, toon PPT
2) Als er Geen waarde in wwwHomePage is, en de scheidingsdatum is bereikt, schrijf aan het dossier om de rekening onbruikbaar te maken.
3) Als er een waarde in wwwHomePage IS, doe niets, omdat PPT is bekeken

Zo, heb ik het manuscript weer in orde gebracht om dat aan te passen.

Wat zal ik u heb gerealiseerd moeten doen, wordt in werking gesteld het manuscript ik u gaf om de Gehandicapte gebruikersrekeningen, op een dagelijkse basis te lezen, of misschien meer als u houdt van, omdat de gebruikersrekeningen niet daar zullen geschreven worden tot elke gebruiker het programma opent, en dit kan een tijdje nemen als u weg gebruikers voor een tijdje hebt.

Ook, voel vrij om dit te testen alvorens de vraag te sluiten.  U bent welkom om om verduidelijking en moeilijke situaties te vragen, als dit doet wat niet u nodig hebt.

Achting,

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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

Schemerige objSysInfo, objUser, strwWWHomePage, strUserDN, ppt, strMbox

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

'Laat fout behandeling toe
Op Fout hervat daarna
Het 'eerste bevel stelt de waarde van de variabele aan "" terug
De 'seconde probeert om het met de waarde van ADVERTENTIE te plaatsen
'Als de tweede ontbreekt zal de variabele nog geplaatst worden aan ""
strwWWHomePage = "": strwWWHomePage = objUser.Get („wWWHomePage“)
'Maak fout behandeling onbruikbaar
Op Fout Goto 0

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

intDaysLeft = DateDiff („D“, nu, dteCutOffDate)

'Test de waarde in de variabele
Als strwWWHomePage = "" toen
	Als intDaysLeft > 0 toen
		Reeks ppt = CreateObject („PowerPoint.Application“)
		strMbox = MsgBox („u hebt“ & intDaysLeft & de „dagen om deze verplichte opleiding of uw rekening te voltooien zullen worden gesloten. Klik O.K. om de presentatie van PowerPoint te beginnen“)
		ppt. Zichtbaar = Waar
		ppt. Presentations.Open „\ die \ serverxx \ \ ppt.ppsx“ volgen
	Anders
		Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
		Const die = 8 intForAppending
		strDisableAccountsFile = „\ \ die serverxx \ \ UsersToDisable.txt“ volgen
		Vastgestelde objFile = objFSO.CreateTextFile (strDisableAccountsFile, Waar intForAppending,)
		objFile.WriteLine strUserDN
		objFile.Close
		'objUser.AccountDisabled = Waar
		'objUser.SetInfo
	Eind als
Eind als
Andere oplossingen  
 
programming4us programming4us