' Ustawianie WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
strVer = "Ver 1.0 "
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set oFile = FileSystem.CreateTextFile("PWDNeverExpired.csv", true)

' Pobieranie zmiennych rodowiskowych dla domeny/uytkownika
strDomain = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")
strOS = WshShell.ExpandEnvironmentStrings("%OS%")

strMessage = strMessage & "Nacinij przycisk Anuluj lub wpisz pust warto, aby zakoczy"
strTitle = "Domena do przeszukania"
' pobieranie zasobw: nazwa domeny, domena domylna
UserDomain = InputBox(strMessage, strTitle, strDomain)
strMessage = ""
strTitle = ""

'strMessage = "Prosz poda identyfikator uytkownika" & vbCrLf & vbCrLf & _
'"Warto domylna: " & strUserName & vbCrLf & vbCrLf
'strMessage = strMessage & "Nacinij przycisk Anuluj lub wpisz pust warto, aby zakoczy"
'strTitle = "Identyfikator uytkownika"
'pobieranie zasobw: nazwa domeny, domena domylna za pomoc okna wprowadzania
'objUserName = InputBox(strMessage, strTitle, strUserName)

' Za chwil nastpi wywietlenie informacji!
strMessage = "To moe zaj kilka chwil. . ."
WshShell.Popup strMessage,2,"Prosz czeka. . . "
strMessage = ""

Set ObjDomain = GetObject("WinNT://" & UserDomain)
ObjDomain.Filter = Array("User")
For Each ObjUser In ObjDomain

' Tworzenie dowizania do uytkownika
'Set objUser = GetObject("WinNT://"& UserDomain &"/"& objUser.Name, user)
Set UserName = GetObject("WinNT://" & UserDomain & "/" & ObjUser.Name & ",User")

' Czy haso nigdy nie wygasa?
objPwdExpires = UserName.Get("UserFlags")
If (objPwdExpires And &H10000) <> 0 Then
objPwdExpiresTrue = "Tak"
strPwdExpires = "Data ustawienia: "
msgPwdExpires = "Haso nigdy nie wygasa: "
Else objPwdExpiresTrue = "Nie"
strPwdExpires = "Haso wygasa: "
msgPwdExpires = "Haso nigdy nie wygasa: "
End If
oFile.WriteLine (UserName.fullname & "," & UserName.name & "," & msgPwdExpires & objPwdExpiresTrue & "," & strPwdExpires & objUser.PasswordExpirationDate)
'Wscript.Echo "Pena nazwa: " & UserName.fullname & vbCrlf &
'"Nazwa konta: " & UserName.name & vbCrlf &
'msgPwdExpires & objPwdExpiresTrue & vbCrlf &
'strPwdExpires & objUser.PasswordExpirationDate & vbCrlf
Set UserName = Nothing
Next
Wscript.Echo "Zakoczono sprawdzanie kont"
