Frage : Kann Index nicht erhalten, auf Dateiserver zu verursachen oder zu schreiben UsersToDisable.txt

Ich kann den Index nicht erhalten, um auf den Dateiserver zu verursachen oder zu schreiben UsersToDisable.txt. Ich benutze das abgeschnittene Datum von 18-Jul-2010, um ihn zu prüfen. Es gibt keinen Wert im wWWHomePage Attribut. Was fehle ich?


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

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

intDaysLeft = DateDiff („d“, jetzt, dteCutOffDate)

If intDaysLeft > 0 Then
'Test der Wert im variable
wenn strwWWHomePage = "" Then
gesetztes ppt = CreateObject („PowerPoint.Application")
strMbox = MsgBox („haben Sie“ u. sind das intDaysLeft u. „Tage, zum dieses vorgeschriebenen Trainings oder Ihres Kontos abzuschließen verschlossen. O.K. anklicken, um PowerPoint-Darstellung“)
ppt zu beginnen. Sichtbar = True
ppt. Presentations.Open“ \ \ serverxx \ Spurhaltung \ ppt.ppsx "
Else
gesetztes objFSO = CreateObject („Scripting.FileSystemObject“)
Const, das = 8
strDisableAccountsFile ist =“ \ \ serverxx \ Spurhaltung \ UsersToDisable.txt "
intForAppending ist, einstellten objFile = objFSO.CreateTextFile (strDisableAccountsFile, das intForAppending, zutreffend)
objFile.WriteLine strUserDN
objFile.Close
'objUser.AccountDisabled = True
'objUser.SetInfo
wscript.quit
Ende If
End If

Antwort : Kann Index nicht erhalten, auf Dateiserver zu verursachen oder zu schreiben UsersToDisable.txt

Hallo, herstellt der Index nur die Akte wenn dort *is* etwas im wwwHomePage Attribut s.

Wenn ich richtig erinnere, wenn der Benutzer beendet, das PPT anzusehen, schreiben Sie einen Wert in das wwwHomePage Attribut.

So ist hier, was der Index z.Z. tut:
1) Wenn das Tagesdatum Vergangenheit das abgeschnittene Datum ist, nichts tun.
2) Wenn das Stichdatum nicht erreicht worden und es keinen wwwHomePage Wert (das heißt, angesehen der Benutzer NICHT das PPT), gibt, dann das PPT zeigen.
3) Wenn das Stichdatum nicht erreicht worden und es einen wwwHomePage Wert (das heißt, angesehen der Benutzer das PPT), gibt, dann zur Akte schreiben, um Admins zu informieren, um das Konto zu sperren.

Das lesend, denke ich nicht, der wirklich ist, was Sie benötigen.  Ist hier, was ich denke, dass Sie brauchen:
1) Wenn es NICHT gibt, zeigen ein Wert im wwwHomePage, und das Stichdatum nicht erreicht worden, das PPT
2) Wenn es NICHT gibt, schreiben ein Wert im wwwHomePage, und das Stichdatum erreicht worden, zur Akte, um das Konto zu sperren.
3) Wenn es einen Wert im wwwHomePage GIBT, nichts tun, weil das PPT angesehen worden

So neugeordnet ich den Index ch, um dem zu entsprechen.

Was ich verwirklicht, dass Sie tun müssen, laufen gelassen dem Index, den ich Sie gab, um Konten die des Behinderten Benutzers zu lesen, auf einer täglichen Basis, oder möglicherweise können mehr, wenn Sie mögen, weil die Benutzerkonten nicht dort geschrieben, bis jeder Benutzer anmeldet, und dieses nehmen wann, wenn Sie Benutzer weg für eine Weile haben.

Auch frei fühlen, dieses zu prüfen, bevor Sie die Frage schließen.  Sie sind willkommen, um Erklärung und Verlegenheiten zu bitten, wenn dieses nicht tut, was Sie benötigen.

Respekt,

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: 6: 37:

Schwaches objSysInfo, objUser, strwWWHomePage, strUserDN, ppt, strMbox objSysInfo = CreateObject („ADSystemInfo“) einstellen strUserDN = objSysInfo.UserName objUser = GetObject einstellen („LDAP: /“ u. strUserDN) 'Der Fehlerbehandlung ermöglichen Auf Störung zunächst wieder.aufnehmen 'Erster Befehl zurückstellt den Wert der Variable zum "" riable 'Versucht an zweiter Stelle, ihn mit dem Wert von der ANZEIGE einzustellen 'Wenn die Sekunde ausfällt, eingestellt die Variable noch auf "" le strwWWHomePage = "": strwWWHomePage = objUser.Get („wWWHomePage“) 'SperrungsFehlerbehandlung Auf Störung Goto- 0 dteCutOffDate = CDate („18-Jul-2010“) intDaysLeft = DateDiff („d“ jetzt dteCutOffDate) 'Den Wert in der Variable prüfen Wenn strwWWHomePage = "" dann Wenn intDaysLeft > 0 dann Ppt = CreateObject („PowerPoint.Application“) einstellen strMbox = MsgBox („Sie haben“ u. sind das intDaysLeft u. „Tage, zum dieses vorgeschriebenen Trainings oder Ihres Kontos abzuschließen verschlossen. Klicken O.K., zum der PowerPoint-Darstellung zu beginnen“) ppt. Sichtbar = ausrichten ppt. Presentations.Open „\ \ serverxx \ Spurhaltung \ ppt.ppsx“ Sonst objFSO = CreateObject („Scripting.FileSystemObject“) einstellen Const, das = 8 intForAppending ist strDisableAccountsFile = „\ \ serverxx \ Spurhaltung \ UsersToDisable.txt“ Gesetztes objFile = objFSO.CreateTextFile (strDisableAccountsFile, intForAppending, zutreffend) objFile.WriteLine strUserDN objFile.Close 'objUser.AccountDisabled = ausrichten en 'objUser.SetInfo Beenden wenn Beenden wenn