Überprüfen Sie auf Kennwörter, die nie ablaufen

Ist hier ein handlicher Index, der Marken es einfach, Benutzerkonten mit nonexpiring Kennwörtern zu finden.

Die Benutzerkonten, die eingestellt werden, um nie abzulaufen, werden manchmal für dauerhafte Angestellte einer Firma verwendet, während temporären Angestellten Konten zugewiesen werden, die nach einem spezifizierten Zeitabschnitt ablaufen. Überhaupt Wunsch konnten Sie schnell und, dem Benutzerkonten ihre Kennwörter, die, um nie haben abzulaufen eingestellt werden, zusammen mit den Daten einfach herauszufinden wurden die Markierungsfahnen eingestellt? Ist hier ein Beispielindex, der dieses und mehr vollendet.

Dieser Index verlangt das gewünschte Gebiet, überprüft alle Benutzerkonten im Gebiet, um zu sehen, wenn ihre Kennwörter eingestellt werden, um nie abzulaufen, und berichtet über das Datum, welches die Markierungsfahnen eingestellt wurden. Er schreibt dann den Ausgang zu einer CSV Akte, die PWDNeverExpired.csv genannt wird und stellt diese Akte in das gleiche Verzeichnis her, in dem der Index selbst lokalisiert wird. Wenn das Kennwort nicht eingestellt wird, um abzulaufen, notiert der Index anstatt ein Nr. und das Datum läuft das Kennwort ab.

Der Code

Um den Index zu benutzen, schreiben Sie ihn in Notizblock (wenn der Zeilenumbruch abgestellt ist) und speichern Sie ihn mit einer vbs Verlängerung als PWDNeverExpired.vbs:

' Stellen Sie WshShell Ein

Stellen Sie WshShell = 
WScript.CreateObject("WScript.Shell") Ein

strVer = "Ver 1.0"

Stellen Sie FileSystem = 
WScript.CreateObject("Scripting.FileSystemObject") Ein

Stellen Sie oFile = 
FileSystem.CreateTextFile("PWDNeverExpired.csv", zutreffendes) ein

' ziehen Sie Klimavariablen für domain/user

strDomain = 
WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")

strUserName = 
WshShell.ExpandEnvironmentStrings("%USERNAME%")

strOS = WshShell.ExpandEnvironmentStrings("%OS%")

strMessage = strMessage u. "Erfolg Löschen oder 
trägt einen freien Raum ein, um zu beendigen" 

strTitle = "Gebiet zum Suchen"

' erhalten Sie Hilfsmitteldomain Name, Gebiet 
Rückstellung

UserDomain = InputBox(strMessage, strTitle, 
strDomain)

strMessage = ""

strTitle = ""

' strMessage = "tragen bitte den BENUTZER LOGON 
Identifikation" u. vbCrLf u. vbCrLf u. _ ein

' "Rückstellung ist: "u. strUserName u. 
vbCrLf u. vbCrLf

' strMessage = strMessage u. "Erfolg Löschen oder
trägt einen freien Raum ein, um zu beendigen"

' strTitle = "BENUTZER LOGON Identifikation"

' erhalten Sie Hilfsmitteldomain Name, Gebiet 
Rückstellung über Eingang Kasten

' objUserName = InputBox(strMessage, strTitle, 
strUserName)

' Anzeige gerade eine Minute!

strMessage = "dieses kann einige Sekunden dauern. . 
"

WshShell.Popup strMessage,2, "ein Moment bitte. . 
"

strMessage = ""

Stellen Sie ObjDomain = GetObject("WinNT://" Ein 
u. UserDomain)

ObjDomain.Filter = Array("User")

Für Jedes ObjUser In ObjDomain

' Versuch, an den Benutzer zu binden

' stellen Sie objUser = GetObject("WinNT://"& 
UserDomain &"/"& objUser.Name, Benutzer) ein

Stellen Sie Username = GetObject("WinNT://" Ein 
U. UserDomain U. "/" U. ObjUser.Name U. _ ", Benutzer")

' wird Kennwort eingestellt, um NIE abzulaufen?

objPwdExpires = UserName.Get("UserFlags")

Wenn (objPwdExpires und &H10000) < > 0 dann

objPwdExpiresTrue = "ja"

strPwdExpires = "Datum eingestellt: "

msgPwdExpires = "Kennwort-Satz, zum nie 
abzulaufen: "

Sonst objPwdExpiresTrue = "nicht"

strPwdExpires = "Kennwort läuft ab: "

msgPwdExpires = "Kennwort-Satz, zum nie 
abzulaufen: "

Beenden Sie Wenn

oFile.WriteLine (UserName.fullname u. "," u. 
UserName.name u. "," 

u. _ msgPwdExpires u. objPwdExpiresTrue u. "," u. 
strPwdExpires u. _

objUser.PasswordExpirationDate)

' Wscript.Echo "Voller Name: "u. 
UserName.fullname u. vbCrlf u. _

' "Konto-Name: "u. UserName.name u. vbCrlf 
u. _

' msgPwdExpires u. objPwdExpiresTrue u. vbCrlf u. 
_

' strPwdExpires u. objUser.PasswordExpirationDate 
u. vbCrlf

Stellen Sie Username = Nichts Ein

Zunächst

Wscript.Echo "Getanes Cheking Erklärt"
 

Laufen lassen der Kerbe

Um diese Kerbe laufen zu lassen, verursachen Sie einfach eine Abkürzung zum Index und Doppeltklicken auf der Abkürzung. Resultiert eine Ausgabedatei des Beispiel CSV für den Index, innen angesehen übertreffen.

Verzicht: Unsere Web site ist nicht zu der Information verantwortlich, die durch diesen Artikel enthalten wird. Dieser Artikel reflektiert keineswegs die Ansichten, die Meinungen, die Gedanken oder den Glauben des Artikelverzeichnisstabes.

Übersetzung Nachricht: Der Artikel "Überprüfung auf Kennwörter, die nie" ablaufen, wurde mit einem automatisierten Übersetzungsdienst übersetzt. Wir entschuldigen herzlichst uns für alle mögliche Übersetzung Störungen, die auftraten. Danke für das Verstehen.