> MrKramer w dniu 2006-04-11 07:04 pisze:
>> strComputer = "."
>>
>> Set objWMIService = GetObject("winmgmts:" _
>> & "{impersonationLevel=impersonate}!\\" & strComputer &
>> "\root\cimv2")
>> Set colComputer = objWMIService.ExecQuery _
>> ("Select * from Win32_ComputerSystem")
>>
>> For Each objComputer in colComputer
>> Wscript.Echo "Zalogowany Użytkownik: " & objComputer.UserName
>> Wscript.Echo " ... no i MrKramer GL&BE!;-)"
>> Next
> Uuuu, wyzsza skola jazdy jak dla mnie.
> Zapomnialem tez dodac ze chodzilo mi o sprawdzenie uzytkownika na innym
> koputerze w LAN.
Pomyśl dobrze nad pierwszą linią tego skryptu :)
>> strComputer = "."
i zastanów się jak ją zmienić :-p
hint: pamiętaj że użytkownik na którym jesteś zalogowany na
jednej maszynie musi mieć odpowiednie uprawnienia także na drugiej
odpytywanej maszynie - jeśli środowisko bez domeny AD to
login i hasło identyczne na obu peckach...
-- .---------- -------- ------ ---- ---- --- - -- - | Bartek `saphire` Siebab http://bartek.siebab.netReceived on Tue Apr 11 09:20:09 2006
To archiwum zostało wygenerowane przez hypermail 2.1.8 : Tue 11 Apr 2006 - 09:42:03 MET DST