joehuaba
Goto Top

Last Logged On User

Hallo Zusammen face-smile

Ich suche seit Stunden bei Dr. Google, aber nichts passt so richtig face-sad
Und zwar:

Ich entwickle ein kleines Tool, mit dem ich meine Clients im Netzwerk (Domäne) verwalten kann, also per Knopfdruck Befehle absetze.

Nun will ich per Knopfdruck den letzten angemeldeten User wissen.
z.B. von der IP
10.50.xxx.xxx

Ich möchte dass es irgendwann so aussieht, aber ich weiß nicht wie ich da am Besten rangehen soll, oder mit welchen Befehlen (Darf auch Shell mit WMI sein)
Private Sub btnGETUSER_Click(sender As Object, e As EventArgs) Handles btnGETUSER.Click
...
...
...
...
...
...
...
lblUser.Text = user

End Sub

in der lblUser.Text sollte der Username stehen, ohne "Domain\" also nur "user1"


Ich wäre dankbar wenn mir jemand helfen könnte face-smile

Content-ID: 265096

Url: https://administrator.de/contentid/265096

Ausgedruckt am: 27.11.2024 um 20:11 Uhr

114757
Lösung 114757 03.03.2015 aktualisiert um 14:41:22 Uhr
Goto Top
Dim strComputer = "10.50.100.10"  
Dim searcher As New ManagementObjectSearcher("\\" & strComputer & "\root\CIMv2", "Select Username from WIn32_Computersystem")  
For Each obj As ManagementObject In searcher.Get()
      lblUser.Text = obj("Username").ToString().Split("\")(1)  
Next
Gruß jode32
joehuaba
joehuaba 03.03.2015 um 14:12:27 Uhr
Goto Top
Das sieht schon mal sehr gut aus, jetzt wird mir nur noch
ManagementObject
und
ManagementObjectSearcher
unterringelt, warum ?
114757
Lösung 114757 03.03.2015 aktualisiert um 14:41:24 Uhr
Goto Top
Weil du die .NET Referenz
System.Management in den Projekteigenschaften unter Referenzen hinzufügen musst und dann noch den Namespace am Anfang des Projekts importieren musst.
Imports System.Management
Absolute Grundlagen in VS...
joehuaba
joehuaba 03.03.2015 um 14:41:17 Uhr
Goto Top
Oh das in den Projekteigenschaften hat mir gefehlt face-sad
Vielen Dank, klappt perfekt !!!! face-smile