Felhasznalok listaja W2003 szerveren

[Balint BP. Pety]

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_UserAccount Where LocalAccount = True")

For Each objItem in colItems
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Full Name: " & objItem.FullName
Next

Rakd egy vbs-be
Azt hiszem pont azt teszi ami neked kéne.

-----Original Message-----
From: techinfo-bounces at lista.sulinet.hu [mailto:techinfo-bounces at lista.sulinet.hu] On Behalf Of Kovacs Marietta
Sent: Wednesday, September 21, 2005 2:22 PM
To: techinfo at lista.sulinet.hu
Subject: Felhasznalok listaja W2003 szerveren


Sziasztok!

Win2003+SP1 ADC szerveren hogyan lehet egy felhasznaloi nev + valodi 
nev tipusu szoveges listat kinyerni az AD-bol? Nincs nalam a WIN 
kisokosom...

-- 
Kovacs Marietta 


_______________________________________________
Techinfo mailing list
Techinfo at lista.sulinet.hu
http://lista.sulinet.hu/mailman/listinfo/techinfo
Illemtan: http://support.bkf.hu/illemtan.html
Ügyfélszolgálat FAQ: http://www.sulinet.hu/tart/cikk/sc/0/19789/1
###########################################

This message has been scanned by F-Secure Anti-Virus for Microsoft Exchange.
For more information, connect to http://www.f-secure.com/