Feedback

VB - Angemeldeter User

Veröffentlicht von am 5/6/2011
(1 Bewertungen)
An einem Remotesystem angemeldeten User ermitteln
Private Function GetRemoteUser(ByVal Computer As String) As String

        Dim objWMIService As Object
        Dim objItems As Object
        Dim objItem As Object

        GetRemoteUser = ""
        objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
        objItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
        For Each objItem In objItems
            GetRemoteUser = objItem.Username
        Next

        objWMIService = Nothing
        objItems = Nothing
        objItem = Nothing

    End Function
Abgelegt unter WMI, System, Remote.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!