Fråga : Kan inte få skrivar för att skapa, eller att skriva till UsersToDisable.txt spara på serveren

Jag kan inte få skriva för att skapa eller skriva till UsersToDisable.txt på sparaserveren. Förmiddag I using snittet daterar av av 18-Jul-2010 för att testa den. Det finns inget värderar i wWWHomePageattribut. Vilken förmiddag mig saknad? objSysInfo för


Dim, objUser, strwWWHomePage, 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 det med värdera från AD
', om understödja missar variabeln som fortfarande ska, är fastställd till ""
strwWWHomePage = "": strwWWHomePagen = felet Goto 0

On för fel för Disable för
' för objUser.Get (”wWWHomePage”)/>dteCutOffDate = CDate (”18-Jul-2010”)

intDaysLeft = intDaysLeft för DateDiff (”D”, nu, dteCutOffDate)

If > 0 Then
'testar värdera i variable om strwWWHomePage- = "" Then
fastställd ppt = strMbox för CreateObject (”PowerPoint.Application”)
= MsgBox (”du har”, & intDaysLeft & ”dagar som avslutar denna ska ombudutbildning eller ditt 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” \ \ fastställd objFSO för serverxx- \ \ ppt.ppsx "
Else
= CreateObject (”Scripting.FileSystemObject”)
Const som intForAppending = strDisableAccountsFile 8
=” \ \ serverxx \ spårning \ Users för/>ToDisable.txt " fastställdt = strUserDN
objFile.Close
för
objFile.WriteLine för objFSO.CreateTextFile (strDisableAccountsFile, intForAppending som är riktig) 'objUser.AccountDisabled = True
'objUser.SetInfo
wscript.quit
avslutar If
End If


 " klar "

Svar : Kan inte få skrivar för att skapa, eller att skriva till UsersToDisable.txt spara på serveren

Hi den ska skriva skapar endast spara om där *is* något i wwwHomePageattribut.

Om jag minns korrekt, när användaren avslutar sig att beskåda PPTEN, du ska skriver en värdera in i wwwHomePageattribut.

Så är här vad skriva gör för närvarande:
1) Om strömmen daterar är förgången snittet daterar, gör av ingenting.
2) Om avbrytanden daterar inte har netts, och det inte finns någon wwwHomePage värderar (som är, användaren INTE har beskådat PPTEN), då visar PPTEN.
3) Om avbrytanden daterar inte har netts, och det finns en wwwHomePage värderar (som är, användaren har beskådat PPTEN), då skriver till spara för att informera Admins för att inaktivera kontot.

Läsning som, mig inte gör funderare, som är faktiskt vad du behöver.  Är här vad I-funderare dig behöver:
1) Om det INTE finns en värdera i wwwHomePage och avbrytanden, datera har inte netts, visar PPTEN
2) Om det INTE finns en värdera i wwwHomePage och avbrytanden, datera har netts, skriver till spara för att inaktivera kontot.
3) Om det FINNS en värdera i wwwHomePage, gör ingenting, därför att PPTEN har beskådats

Så har jag sorterat om skriva för att passa det.

Vad jag har realiserat att du ska behov att göra, körs skriva som jag gav dig för att läsa den rörelsehindrada användareräkenskapen, på en dagstidningbas, eller kanske mer, om du gillar, därför att användareräkenskapen ska för att inte vara skriftlig där, tills varje användare loggar in, och detta kan ta en stund, om du har användare bort för en stund.

Också känselförnimmelsen frigör för att testa denna för bokslut ifrågasätta.  Du är välkommen att fråga för förklaring och knipor, om denna inte gör vad du behöver.

Hälsningar,

Råna.
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:

Dunkel objSysInfo, objUser, strwWWHomePage, strUserDN, ppt, strMbox

Fastställd objSysInfo = CreateObject (”ADSystemInfo”)
strUserDN = objSysInfo.UserName
Fastställd objUser = GetObject (”LDAP: /” & strUserDN)

'Möjliggöra felbruk
På felmeritförteckning därefter
'Befalla först nollställer värdera av variabeln till "",
'Understödja försök till uppsättningen det med värdera från ANNONS
'Om understödja missar, variabeln som fortfarande ska, är fastställd till "",
strwWWHomePage = "": strwWWHomePage = objUser.Get (”wWWHomePage”)
'Disablefelbruk
På fel Goto 0

dteCutOffDate = CDate (”18-Jul-2010”)

intDaysLeft = DateDiff (”D”, nu, dteCutOffDate)

'Testa värdera i variabeln
Om strwWWHomePage = "" därefter
	Om intDaysLeft > 0 därefter
		Fastställd ppt = CreateObject (”PowerPoint.Application”)
		strMbox = MsgBox (”du har”, & intDaysLeft & ”dagar som avslutar denna ska ombudutbildning eller ditt konto, låsas. Klicka REKO för att starta Powerpointpresentation”),
		ppt. Synligt = True
		ppt. Presentations.Open ”\ \ serverxx \ spårning \ ppt.ppsx”,
	Annars
		Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
		Const som intForAppending = 8
		strDisableAccountsFile = ”\ \ serverxx \ spårning \ UsersToDisable.txt”,
		Fastställdt objFile = objFSO.CreateTextFile (strDisableAccountsFile, intForAppending som är riktig)
		objFile.WriteLine-strUserDN
		objFile.Close
		'objUser.AccountDisabled = True
		'objUser.SetInfo
	Avsluta om
Avsluta om
Andra lösningar  
 
programming4us programming4us