'v3.4***************************************************
' File:   LastLogon.VBS
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
' Programm ermittelt den zuletzt angemeldeten Benutzer
'*******************************************************

Option Explicit

Dim WshShell, WSHNet, fso, ObjReg, ObjRemote, KeyX, Text, RootKey, oVal 

Set WSHShell  = WScript.CreateObject("WScript.Shell")
Set FSO       = CreateObject("Scripting.FileSystemObject")
Set WSHNet    = WScript.CreateObject("WScript.Network")

If (fso.FileExists("REGOBJ.DLL")) Then                              ' Regobj.dll registrieren (erfordert AdminRechte)
   Text = "REGSVR32.EXE  " & "REGOBJ.DLL" & " /S"                   ' damit läßt sich besser auf die registry zugreifen
   WshShell.Run (Text),,TRUE                                        ' muß im gleichen Verzeichnis wie das Script stehen
Set ObjReg    = WScript.CreateObject("RegObj.Registry")
Else
   MsgBox "REGSVR32.EXE  " & "REGOBJ.DLL" & " /S" & vbTab & " konnte nicht aufgerufen werden!", , WScript.ScriptName
   WScript.Quit
End If

Text =        "Von welchem Computer soll ermittelt werden, " & vbCRLF
Text = Text & "wer als letzter angemeldet war bzw. aktuell angemeldet ist?"

Text = InputBox (Text, WScript.ScriptName, "rs")

   Set ObjRemote = objReg.RemoteRegistry(wshnet.ComputerName)       ' Objekt zeigt auf aktuellen PC (REGOBJ.DLL)
   Set ObjRemote = objReg.RemoteRegistry( Text )                    ' Objekt zeigt auf (Remote-) PC (REGOBJ.DLL)
   KeyX  = "\HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon"

Text = "Am Computer   " & Text & "   war zuletzt folgender Benutzer angemeldet:" & vbCRLF & vbCRLF & vbTab & vbTab & vbTab

   On Error Resume Next
      Set RootKey = objRemote.RegKeyFromString(KeyX)
      if not err.Number = 0 then Text = Text & "   ==> konnte nicht abgefragt werden!"
      For Each oVal In RootKey.Values  ' Auflistung Werte
         if oVal.Name = "DefaultUserName"    then 
           if not oVal.Name = "DefaultUserName" = "" then Text = Text & oVal.Value 
         End If
      Next
   On Error GoTo 0


MsgBox "   " & Text , , WScript.ScriptName

Set ObjReg    = nothing
WshShell.Run ("REGSVR32.EXE  " & "REGOBJ.DLL" & " /U /S"),,TRUE     ' REGOBJ.DLL - Registrierung aufheben