Angemeldeten User an der Maschine auslesen?

26/11/2007 - 08:14 von leslie eldrige | Report spam
Guten Morgen NG,

Gibt es eine Möglichkeit über Netzwerk eine entfernte Workstation nach
angemeldeten User abzufragen?
Ich hàtte bereits alle Workstations, einzig fehlen mir Users damit ich dann
nachvollziehen kann welche Maschine welchem User gehört.

PS: Über Active Directory (2003) geht das scheinbar nicht so einfach, sonst
würde ich die Information aus AD auslesen. Es gebe eine Möglichkeit über
Protokolldateien, aber aus technischen Gründen habe ich keinen Zugriff auf
die. Daher suche ich einen anderen Weg herauszufinden wer sich an welche
Station angemeldet hat.

Danke schon mal im Voraus.

les
 

Lesen sie die antworten

#1 Martin Resch
26/11/2007 - 08:32 | Warnen spam
leslie eldrige schrieb:
Guten Morgen NG,

Gibt es eine Möglichkeit über Netzwerk eine entfernte Workstation nach
angemeldeten User abzufragen?
Ich hàtte bereits alle Workstations, einzig fehlen mir Users damit ich dann
nachvollziehen kann welche Maschine welchem User gehört.



Jo, per Skript.
schnipp--
function GetUserName(Host)
dim wmireg, result, strsid, Anzahl, name

const HLM = &H80000002
GetUserName = "Offline"
on error resume next
IF IsOnline(Host) THEN
Set WMIreg = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" &
Host & "oot\Default:StdRegProv")

IF err.Number = 0 THEN
Result = WMIreg.GetStringValue(HLM, "Software\Microsoft\Windows
NT\CurrentVersion\Winlogon", "DefaultUserName", name)

IF Result <> 0 THEN
exit function
end if
END IF
END IF

END function


function IsOnline(host)
DIM wshShell, temp
DIM dummy
set WshShell = CreateObject("Wscript.Shell")
set temp = wshshell.Exec ("ping.exe -n 1 -w 100 "&host)
dummy = temp.StdOut.ReadAll
IF instr(1,dummy,"Antwort") >0 THEN
isonline = true
ELSE
isonline = false
END IF
end function


HTH Martin

Ähnliche fragen