이 스크립트는 다음의 URL에서 다운로드받을 수 있습니다.

http://www.windowsitpro.com/articles/download/listguid.zip

도메인의 DN(Distinguished Name)을 가져와 GUID(Globally Uniqe Identifier)의 목록을 반환합니다.


' Check that all arguments required have been passed.
If Wscript.Arguments.Count < 1 Then
Wscript.Echo "Arguments required. For example:" & vbCrLf _
& "cscript searchgpo.vbs dc=savilltech,dc=com"
Wscript.Quit(0)
End If

strRootSearch = Wscript.Arguments(0)

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
";(&(objectCategory=groupPolicyContainer))" & _
";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 listgpo.vbs dc=savilltech,dc=com

GUID: {31B2F340-016D-11D2-945F-00C04FB984F9} Name: Default Domain Policy
GUID: {6AC1786C-016F-11D2-945F-00C04fB984F9} Name: Default Domain Controllers Policy
GUID: {A9AB07C1-5EAA-4E60-9507-F33524933E7A} Name: Restrict Account Rights
GUID: {CE948635-2E6E-4AAB-8F46-5CA7581528AF} Name: Remove Service Account Rights
GUID: {01D59D61-5417-45A7-96B3-9F694CC686C0} Name: Auto Enrollment
GUID: {BA7E1B25-7341-471E-8FEC-17B9E761DB35} Name: Autoenrollment
Posted by NTFAQ

트랙백 주소 :: http://ntfaq.co.kr/trackback/2299 관련글 쓰기

댓글을 달아 주세요