http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** 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 )

http://dieseyer.de • all rights reserved • © 2011 v11.4