Probiere das mal !
-------------------------------
'SYS: Mikrosoft (r) Script Runtime
Set fs = CreateObject("Scripting.FileSystemObject")
'SYS: Windows Script Host Runtime Library
Set wshshell = CreateObject("WScript.Shell")
'SYS: Windows Script Host Runtime Library
Set net = CreateObject("WScript.Network")
'Welcher Computer soll untersucht werden ?
computer = SERVER
computer = InputBox("Bitte geben Sie den Computernamen an!",,computer)
set c = GetObject("WinNT://" & computer & ",computer")
For Each u In c
if u.Class = "User" then
WScript.Echo u.Name & " " & u.Description
for each g in u.Groups
WScript.Echo " " & g.Name & " " & g.Description
next
end if
next
---------------------------
:-)
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
