Jump to content

angemeldete Benutzer herausfinden


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Wie kann ich feststellen, welche Benutzer an einem Win2k3 SBS-Server angemeldet sind (nicht lokal sondern via Netzwerk) und welche Dateien von Ihnen gesperrt sind? Unter NT4 gab es noch die Serververwaltung, gibt es sowas auch unter Win2k3.

Gibt es analog dazu auch die Möglichkeit herauszufinden, welcher Benutzer lokal an einem WIn2k-PC angemeldet ist?

 

Gruss

 

Joe

Link zu diesem Kommentar

hi, vielleicht hiermit

'**************************************************************  
'
' gibt den gerade angemeldeten User zurück
'**************************************************************  

Option Explicit

Dim Server

Server = "SERVER" 

If Server = "" Then
 MsgBox "Servername oder IP-Adresse angeben!" & vbCRLF & vbCRLF & ". . . das ist das Ende" , , WScript.ScriptName
 WScript.Quit
End If

MsgBox WMIinfo ( Server        ), , WScript.ScriptName
MsgBox WMIinfo ( "192.168.0.1" ), , WScript.ScriptName

WScript.Quit
'**************************************************************  



'**************************************************************  
Function WMIinfo ( Server ) ' Anfang
'**************************************************************  
Dim objWMIService, colItems, objItem

On Error Resume Next

 Set objWMIService = GetObject("winmgmts:\\" & Server & "\root\cimv2")
 if not err.Number = 0 then 
   If err.Number = -2147217405 Then err.Description = "Access Denied"
     WMIinfo = Server & " ==>" & 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
     WMIinfo = Server & " ==> " & objItem.UserName & vbTab & " ist angemeldet" 
   Else
     WMIinfo = Server & " ==> kein angemeldeter User"
   End If 
 Next

On Error GoTo 0

End Function ' WMI ( Server ) 
'**************************************************************

Link zu diesem Kommentar
  • 1 Jahr später...
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...