23 lines
913 B
Plaintext
23 lines
913 B
Plaintext
Set PolicySvc = GetObject("winmgmts:{impersonationlevel=Impersonate}!root\policy")
|
|
Set GPO = CreateObject("WmiGpo.WmiGpoHelper")
|
|
|
|
' Create GPO object and link it to entire domain
|
|
path = GPO.Create( "DogfoodManagedNodeGPO", "LDAP://DC=pkennydom,DC=microsoft,DC=com" )
|
|
GPO.Link path, "LDAP://DC=pkennydom,DC=microsoft,DC=com"
|
|
|
|
|
|
' Create the WMIGPO object
|
|
Set WMIGPOClass = PolicySvc.Get( "MSFT_WMIGPO" )
|
|
Set WMIGPO = WMIGPOClass.SpawnInstance_
|
|
|
|
' have to add a RDN to the path..
|
|
|
|
splitpath = Split( path, "//" )
|
|
newpath = "LDAP://CN=MACHINE," + splitpath(1)
|
|
|
|
WMIGPO.DsPath = newpath
|
|
WMIGPO.PolicyTemplate = Array( "MSFT_SimplePolicyTemplate.DsContext='LOCAL',ID='DogfoodManagedNodeForwardingPolicy'", "MSFT_SimplePolicyTemplate.DsContext='LOCAL',ID='DogfoodManagedNodeNTEventPolicy'","MSFT_SimplePolicyTemplate.DsContext='LOCAL',ID='DogfoodManagedNodeProcessEventPolicy'" )
|
|
WMIGPO.Put_
|
|
|
|
|