Was macht dieses Passwortskript?

561
Alex

Fand diese Datei auf einer Einheit bei der Arbeit ... 

Set WshShell = CreateObject("WScript.Shell") PINGFlag = Not CBool(WshShell.run("ping contoso.com -n 1 " & vSystemIdentifier,0,True)) If PINGFlag = True Then 'Successful ping 'WScript.Echo "Connectivity to domain confirm." Call Password Else 'Unsuccessful ping 'WScript.Echo "No Connectivity to domain password check cancelled." End If    Function Password()  '======================================== ' First, get the domain policy. '======================================== Dim oDomain Dim oUser Dim maxPwdAge Dim numDays Dim warningDays  warningDays = 15  Set LoginInfo = CreateObject("ADSystemInfo")  Set objUser = GetObject("LDAP://" & LoginInfo.UserName & "")  strDomainDN = UCase(LoginInfo.DomainDNSName)  strUserDN = LoginInfo.UserName   Set oDomain = GetObject("LDAP://" & strDomainDN) Set maxPwdAge = oDomain.Get("maxPwdAge")  '======================================== ' Calculate the number of days that are ' held in this value. '======================================== numDays = CCur((maxPwdAge.HighPart * 2 ^ 32) + _ maxPwdAge.LowPart) / CCur(-864000000000) 'WScript.Echo "Maximum Password Age: " & numDays  '======================================== ' Determine the last time that the user ' changed his or her password. '======================================== Set oUser = GetObject("LDAP://" & strUserDN)  '======================================== ' Add the number of days to the last time ' the password was set. '======================================== whenPasswordExpires = DateAdd("d", numDays, oUser.PasswordLastChanged) fromDate = Date daysLeft = DateDiff("d",fromDate,whenPasswordExpires)  'WScript.Echo "Password Last Changed: " & oUser.PasswordLastChanged  if (daysLeft < warningDays) and (daysLeft > -1) then Msgbox "Password Expires in " & daysLeft & " day(s)" & " at " & whenPasswordExpires & chr(13) & chr(13) & "Press CTRL-ALT-DEL and" & chr(13) & "select the 'Change a password' option" & chr(13) & "Please allow enough time for password change to take effect," & chr(13) & "minimum of 15 minutes before disconnecting", 0, "PASSWORD EXPIRATION WARNING!" End if  '======================================== ' Clean up. '======================================== Set oUser = Nothing Set maxPwdAge = Nothing Set oDomain = Nothing End Function
0
Haben Sie Ihre lokalen IT-Mitarbeiter nach dem Zweck des Skripts gefragt? Oder sind Sie lokale IT-Abteilung und fragen sich, warum sich dieses Skript auf den von Ihnen unterstützten Computern befindet? music2myear vor 5 Jahren 2
Es scheint nur ein Skript zu sein, um Benutzer darüber zu informieren, wenn ihr Passwort bald abläuft, damit sie es möglicherweise ändern können, bevor sie von ihren Konten gesperrt werden. Meine Vermutung ist, dass es geplant ist, das Skript entweder beim Login oder ständig im Hintergrund auszuführen. Jesse P. vor 5 Jahren 1
Frage mich, warum es auf den Computern ist. Es gibt keine Anmeldung für diese Einheiten, da sie immer ausgeführt werden. Der Versuch, sie ein bisschen aufzuräumen, war nicht so viel Durcheinander und stieß darauf. Schätzen Sie die Informationen. Alex vor 5 Jahren 0
@Alex - Wenn die Konten kein Kennwort haben, haben sie ein Kennwort. Das bedeutet, dass das Kennwort wie jedes Konto abläuft. Das Lustigste an dem Skript ist die Tatsache, dass Windows bereits eine Benachrichtigung sendet, wenn das Kennwort abläuft Ramhound vor 5 Jahren 0
@Alex Der Grund für das Skript ist, dass diese Computer immer angemeldet sind. Windows benachrichtigt einen Benutzer nur darüber, dass sein Kennwort abläuft, wenn er sich anmeldet. Twisty Impersonator vor 5 Jahren 1
@Ramhound: Wie TwistyImpersonator sagt, kann dies jeden Tag von einer geplanten Aufgabe gestartet werden, so dass der Benutzer benachrichtigt wird, dass sein Kennwort abläuft, auch wenn sein Konto ständig angemeldet bleibt. Auch wenn Sie sich nicht in einer Situation befanden, in der Benutzerkonten unbegrenzt angemeldet bleiben und Sie als Anmeldeskript festlegen, kann sich dies dennoch als hilfreich erweisen, da ein Popup-Fenster erst dann angezeigt wird, wenn Sie dies tun etwas (klicken Sie auf OK) wird wahrscheinlicher wahrgenommen und behandelt als eine Ballon- oder Toastbenachrichtigung. Es enthält auch grundlegende Anweisungen für weniger technisch versierte. 3D1T0R vor 5 Jahren 0

1 Antwort auf die Frage

5
3D1T0R

Dieses Skript erstellt ein Popup, um einen Benutzer zu warnen, wenn sein Kennwort abläuft.

Es wurde ursprünglich von MarkK / Mark-K als Antwort auf Beiträge in Server Fault und in den TechNet-Foren von Microsoft veröffentlicht. Beide haben seit der veröffentlichten Version Updates erhalten. Die Version, die Sie in Ihre Frage aufgenommen haben, enthält auch einige Änderungen, die in den von Mark K veröffentlichten Versionen nicht vorhanden sind.

Hier finden Sie einen Link zur entsprechenden Server Fault-Antwort und zu den Original & Update- Beiträgen in den TechNet-Foren.

Außerdem habe ich einen Screenshot des Popup- Fensters gefunden, das von JitenSh in den Spiceworks-Foren gepostet wird :
Password Expiration Warning:   ( i )   Your password will expire in 4 day(s) at 4/10/2014 2:03:42 PM   Press CTRL + ALT + DEL and select the "Change a password" option.   [OK]

Hinweis: Ich habe alle diese Informationen mit einer einfachen Websuche nach einem kurzen Abschnitt des Codes gefunden. 3D1T0R vor 5 Jahren 0

Verwandte Probleme