Eingeloggten User ermitteln

'=======================================================  
Const WbemAuthenticationLevelPktPrivacy = 6
strNamespace = "root\cimv2"  
'=======================================================  

'Verbindung zum WMI Namespace herstellen================  
    Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
    Set objWMIService = objwbemLocator.ConnectServer (strComputer, strNamespace, strUser, strPassword)
    objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
'=======================================================  

	Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", ,wbemFlagReturnImmediately + wbemFlagForwardOnly)  
	str = str & "<H2>Computer systems - Win32_ComputerSystem</H2>" & vbCRLF  
	For Each objComputer in colSettings
	    str = str & GetTableHeader()
	    str = str & GetRow("System Name", objComputer.Name)  
	    str = str & GetRow("Benutzername", objComputer.UserName)  
	    str = str & GetRow("System Manufacturer", objComputer.Manufacturer)  
	    str = str & GetRow("System Model", objComputer.Model)  
	    str = str & GetRow("Total Physical Memory", objComputer.TotalPhysicalMemory)  
	    str = str & GetTableFooter()
	Next

            Set objShell = CreateObject("WScript.Shell")  
                strCommand = "c:\script\iframe\psloggedon.exe \\" & strComputer & " -l"  
            Set objExecObject = objShell.Exec(strCommand)
            Do While Not objExecObject.StdOut.AtEndOfStream
                strText = objExecObject.StdOut.ReadAll()
            loop
        strText = split(strText,":")  
        msgbox  strText(1)

Const WbemAuthenticationLevelPktPrivacy = 6

strComputer = "PCX"   
strNamespace = "root\cimv2"  
strUser = "ADMINISTRATOR"  
strPassword = "ADMINPW"  

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
Set objWMIService = objwbemLocator.ConnectServer _
    (strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy

Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_ComputerSystem")  
For Each objItem in ColItems
    Wscript.Echo strComputer & ": " & objItem.UserName  

set wshshell = createobject("Wscript.shell")  
Const strBaseKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name"  

msgbox (wshshell.regread(strbasekey))

 [dynamic, provider("RegProv"),  
ProviderClsid("{fe9af5c0-d3b6-11ce-a5b6-00aa00680c3f}"),  
ClassContext
("local|HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer")  
] 
class logonuser {
   [key] string KeyName;
   [read, propertycontext("Logon User Name")] string LogonUserName;  
};

Const WbemAuthenticationLevelPktPrivacy = 6

strComputer = "."  
strNamespace = "root\DEFAULT"  
strUser = ""  
strPassword = ""  

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
Set objWMIService = objwbemLocator.ConnectServer (strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy

Set colItems = objWMIService.ExecQuery("Select logonusername From logonuser")  

For Each objItem in colItems
    Wscript.Echo strComputer & ": " & LogonUserName  
Next

>>> lastlogon.vbs <<< /<- das ist der Name
darf wohl nicht geposted werden ...