Hi there,
I like this project very much. I use these scripts to document my servers. My reccomendations are to put in the document local administrators, and maybe ODBC DSN.
This is my add to the script:
'******************************LocalAdmins************************************************
If (bWMILocalAdminsGroup) Then
ReportProgress " Gathering Local Administrators"
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser WHERE GroupComponent = " & _
chr(34) & "Win32_Group.Domain='" & strComputerSystem_Name & "',Name='Administrators'" & chr(34),,48)
Set objDbrLocalAdminsGroup = CreateObject("ADOR.Recordset")
objDbrLocalAdminsGroup.Fields.Append "Name", adVarChar, MaxCharacters
objDbrLocalAdminsGroup.Open
For Each objItem in colItems
objDbrLocalAdminsGroup.AddNew
objDbrLocalAdminsGroup("Name") = split(objItem.PartComponent, chr(34))(1) & "\" _
& split(objItem.PartComponent, chr(34))(3)
objDbrLocalAdminsGroup.Update
Next
objDbrLocalAdminsGroup.Sort = "Name"
End If
'******************************LocalAdmins************************************************
You also need to define: bWMILocalAdminsGroup, objDbrLocalAdminsGroup, and print objDbrLocalAdminsGroup in doc and xml output.
Have a greate day
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Hi there,
I like this project very much. I use these scripts to document my servers. My reccomendations are to put in the document local administrators, and maybe ODBC DSN.
This is my add to the script:
'******************************LocalAdmins************************************************
If (bWMILocalAdminsGroup) Then
ReportProgress " Gathering Local Administrators"
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser WHERE GroupComponent = " & _
chr(34) & "Win32_Group.Domain='" & strComputerSystem_Name & "',Name='Administrators'" & chr(34),,48)
Set objDbrLocalAdminsGroup = CreateObject("ADOR.Recordset")
objDbrLocalAdminsGroup.Fields.Append "Name", adVarChar, MaxCharacters
objDbrLocalAdminsGroup.Open
For Each objItem in colItems
objDbrLocalAdminsGroup.AddNew
objDbrLocalAdminsGroup("Name") = split(objItem.PartComponent, chr(34))(1) & "\" _
& split(objItem.PartComponent, chr(34))(3)
objDbrLocalAdminsGroup.Update
Next
objDbrLocalAdminsGroup.Sort = "Name"
End If
'******************************LocalAdmins************************************************
You also need to define: bWMILocalAdminsGroup, objDbrLocalAdminsGroup, and print objDbrLocalAdminsGroup in doc and xml output.
Have a greate day
I will be including local group members in the next version of SYDI, but it will be for all groups not just the Administrators.