Filter results of existing script and modify look of output in CSV

[lerrus]

Hey,

below is a script to export security settings from GPO, most important for me is filter result to see only "PasswordComplexity" don't care about other security settings,

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\rsop\computer")
Set colItems = objWMIService.ExecQuery("Select * from RSOP_GPO")
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "GUID Name: " & objItem.GUIDName
Wscript.Echo "ID: " & objItem.ID
Wscript.Echo "Access Denied: " & objItem.AccessDenied
Wscript.Echo "Enabled: " & objItem.Enabled
Wscript.Echo "File System path: " & objItem.FileSystemPath
Wscript.Echo "Filter Allowed: " & objItem.FilterAllowed
Wscript.Echo "Filter ID: " & objItem.FilterId
Wscript.Echo "Version: " & objItem.Version
Wscript.Echo
Next

after execution result are one after another :

Key Name: PasswordComplexity
Precedence: 1
Setting: True

Key Name: ClearTextPassword
Precedence: 1
Setting: False

Key Name: ForceLogoffWhenHourExpire
Precedence: 1
Setting: False

Key Name: RequireLogonToChangePassword
Precedence: 1
Setting: False

Key Name: LSAAnonymousNameLookup
Precedence: 1
Setting: False

would be great to have it in this order:

columne 1 columne 2 columne3 columne3
row a: server name key name: Precedence: Setting:

 

[guitarzan]

Your code does not match your sample results. Anyhow, to filter you can use a WHERE statement:

Set colItems = objWMIService.ExecQuery("Select * from RSOP_GPO [highlight #FCE94F][b]WHERE Name = 'PasswordComplexity'[/b][/highlight]")

 

[lerrus]

Dear God, sorry I posted wrong script, anyway guitarzan big thanks your way to filter it works perfect

correct script with filter:

strComputer = "."
Set wshShell = WScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\rsop\computer")
Set colItems = objWMIService.ExecQuery _
    ("Select * from RSOP_SecuritySettingBoolean [highlight #EF2929]Where KeyName='Passwordcomplexity'[/highlight]")
For Each objItem in colItems
    WScript.Echo "Computer Name: " & strComputerName
    Wscript.Echo "Key Name: " & objItem.KeyName
    Wscript.Echo "Setting: " & objItem.Setting
    Wscript.Echo
Next

so only one thing left to do, get output in CSV where column1 is Computer Name, next column is Password complexity and last column is value for password complexity, I will be grateful for share how this should be done

peace

 

[guitarzan]

You can create and build the CSV file using the FileSystem Object... In particular using the OpenTextFile and WriteLine methods. The link below has a simple sample:

http://www.devguru.com/technologies/vbscript/14075