'*** v3.A*** www.dieseyer.de ******************************* 

' 

' Datei:  wmi-userislogon.vbs 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

' gibt den gerade angemeldeten User zurück 

' 

'************************************************************ 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

Dim PCName 

 

PCName = "." 

 

If PCName = "" Then 

  MsgBox "Servername oder IP-Adresse angeben!" & vbCRLF & vbCRLF & ". . . das ist das Ende" , , WScript.ScriptName 

  WScript.Quit 

End If 

 

MsgBox UserIsLogon ( PCName ), , WScript.ScriptName 

MsgBox UserIsLogon ( "192.168.1.19" ), , WScript.ScriptName 

 

WScript.Quit 

 

 

 

'*** v3.A*** www.dieseyer.de ******************************* 

Function UserIsLogon ( PC ) 

'*********************************************************** 

Dim objWMIService, colItems, objItem 

 

On Error Resume Next 

 

  Set objWMIService = GetObject("winmgmts:\\" & PC & "\root\cimv2") 

  if not err.Number = 0 then  

    If err.Number = -2147217405 Then err.Description = "Access Denied" 

      UserIsLogon = PC & " ==>" & err.Description & "  - Fehlernr. " & err.Number 

    WScript.Quit 

  End If  

 

  Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) 

 

  For Each objItem in colItems 

    if not objItem.UserName = "" then 

      UserIsLogon = PC & " ==> " & objItem.UserName & vbTab & " ist angemeldet" 

    Else 

      UserIsLogon = PC & " ==> kein angemeldeter User" 

    End If  

  Next 

 

On Error GoTo 0 

 

End Function ' UserIsLogon ( PC )