В. Как найти конкретный глобально уникальный идентификатор (GUID) для объекта групповой политики (GPO)?

О. 

' Убедитесь, что указаны все необходимые аргументы.
If Wscript.Arguments.Count < 2 Then 
Wscript.Echo "Arguments   required." & vbCrLf _  
& "cscript searchgpo.vbs dc=savilltech,dc=com {31B2F340-016D-11D2-945F- 
00C04FB984F9}" 
Wscript.Quit(0) 
End If 
  
strRootSearch = Wscript.Arguments(0) 
strGUIDToFind = Wscript.Arguments(1) 
  
Set objConnection = CreateObject("ADODB.Connection") 
objConnection.Open "Provider=ADsDSOObject;" 
  
Set objCommand = CreateObject("ADODB.Command") 
objCommand.ActiveConnection = objConnection 
  
objCommand.CommandText = _ 
"
">;(&(objectCategory=groupPolicyContainer)" & _ 
"(name=" & strGUIDToFind & "));name,displayName;subtree" 
  
Set objRecordSet = objCommand.Execute 
  
If objRecordset.RecordCount = 0 Then 
    WScript.Echo "No Group Policy Objects Found" 
Else 
    objRecordSet.MoveFirst 
    Do Until objRecordSet.EOF 
        Wscript.Echo "GUID: " & objRecordSet.Fields("name").Value & " 
Name: " & objRecordSet.Fields("displayName").Value 
        objRecordSet.MoveNext 
    Loop 
End If 
  
objConnection.Close 
Образец выполнения и результаты:
D:Temp>cscript searchforgpo.vbs dc=savilltech,dc=com *b5*
  
GUID: {9A0C4F9C-C079-4929-AED0-BBBEB590EAA8} Name: Service Delegation
GUID: {E48AF63C-F8EE-41C6-B943-175B1B5EAF93} Name: DisplaySetting1
GUID: {D5BB4DC1-3270-4992-B5BC-E9B55A874347} Name: DisplaySetting2