Pytanie : Jakaś sposób lista the użytkownik który notować dalej Windows XP SP3

Cześć,

I am działający Aktywny Książka telefoniczna na Windows 2003. Być tam  jakaś sposób lista the użytkownik który notować dalej Windows XP SP3?

Thank you.

Odpowiedź : Jakaś sposób lista the użytkownik który notować dalej Windows XP SP3

Cześć llrava,

I myśleć the aktualny nazwa użytkownika użytkownik w sieć

Ale i mieć pismo the currect użytkownik notować dalej system

Znajdować the pismo pismo:

Otucha,
Prem
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
strComputer = inputbox ("Zadawalać wchodzić do the imię the komputer: ")

'Sprawdzać że użytkownik wchodzić do wartość
jeżeli strComputer = "" wtedy
	wscript.quit
kończyć jeżeli

NA BŁĄD ŻYCIORYS NASTĘPNIE 'Rękojeść błąd the komputerowy (Dalej, pozwolenie błąd etc)
ustawiać objWMI = GetObject ("winmgmts: {impersonationLevel=impersonate}! /" & strComputer & "")

jeżeli błądzić <> (0) wtedy 'Sprawdzać dla błąd
	wscript.echo "Błąd precyzować komputer: " & err.description
	wscript.quit
kończyć jeżeli
NA BŁĄD ROZPOCZYNAJĄCY (0) 'Zwrot z życiorys następny błąd

ustawiać colOS = objWMI.ExecQuery ("Wybiórka * od Win32_ComputerSystem")

Dla ColOS objItem W colOS
	jeżeli strUsers <> "" wtedy
		strUsers = strUsers & "," & objItem.UserName
	inny
		strUsers = objItem.UserName
	Kończyć Jeżeli
Następnie

wscript.echo "The następujący użytkownik notować dalej" & strComputer & ": " & strUsers
Inne rozwiązania  
 
programming4us programming4us