[Michael_C]

Hi,

Do any of you have a script that extract users + description
from windows 2003 Local users and groups.

This post has been edited by Michael_C: 13 December 2006 - 08:41 AM

[cluberti]

This might help you (script is about halfway down the page):
http://www.planet-source-code.com/vb/scrip...03&lngWId=1

Next time, consider posting this question in the Programming section of the forums for a quicker answer. Moving post there.

[Michael_C]

Iam not that god to vb.

i cant get it to work i recive this.

C:\Documents and Settings\Administrator\Desktop>cscript top.vbs
Microsoft ® Windows Script Host Version 5.6
Copyright © Microsoft Corporation 1996-2001. All rights reserved.

C:\Documents and Settings\Administrator\Desktop\top.vbs(1, 9) Microsoft VBScript
compilation error: Expected identifier

????

[Michael_C]

I have found this at it work

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 "Account Type: " & objItem.AccountType
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Disabled: " & objItem.Disabled
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "Full Name: " & objItem.FullName
Wscript.Echo "Local Account: " & objItem.LocalAccount
Wscript.Echo "Lockout: " & objItem.Lockout
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Password Changeable: " & objItem.PasswordChangeable
Wscript.Echo "Password Expires: " & objItem.PasswordExpires
Wscript.Echo "Password Required: " & objItem.PasswordRequired
Wscript.Echo "SID: " & objItem.SID
Wscript.Echo "SID Type: " & objItem.SIDType
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo
Next