Приветствую!
Необходимо программно удалить групповую политику. Никак не могу найти, как это сделать. Нашел как ее включить/выключить
типа того:
Const GUID = "GPO_GUID"
Const DOMAIN = "mydomain.mycorp.com"
Dim gpm, gpmDomain, gpmGPO
Set gpm = CreateObject("GPMGMT.GPM")
Set gpmDomain = gpm.GetDomain (DOMAIN, "", 0)
Set gpmGPO = gpmDomain.GetGPO (GUID)
If gpmGPO.IsUserEnabled Then
gpmGPO.SetUserEnabled FALSE
End If
If gpmGPO.IsComputerEnabled Then
gpmGPO.SetComputerEnabled FALSE
End If
MSDN не помог (плохо смотрел?). В винде я действительно newbie, поэтому не пинайте сильно, если что...
Добавлено:
забыл написать ОС: Windows Server 2003 R2
Добавлено:
блин....
все оказалось настолько просто, что даже и не врубился сразу, что это то, что мне нужно...
http://techtasks.com/code/viewbookcode/1676
если кому интересно
Необходимо программно удалить групповую политику. Никак не могу найти, как это сделать. Нашел как ее включить/выключить
типа того:
Const GUID = "GPO_GUID"
Const DOMAIN = "mydomain.mycorp.com"
Dim gpm, gpmDomain, gpmGPO
Set gpm = CreateObject("GPMGMT.GPM")
Set gpmDomain = gpm.GetDomain (DOMAIN, "", 0)
Set gpmGPO = gpmDomain.GetGPO (GUID)
If gpmGPO.IsUserEnabled Then
gpmGPO.SetUserEnabled FALSE
End If
If gpmGPO.IsComputerEnabled Then
gpmGPO.SetComputerEnabled FALSE
End If
MSDN не помог (плохо смотрел?). В винде я действительно newbie, поэтому не пинайте сильно, если что...
Добавлено:
забыл написать ОС: Windows Server 2003 R2
Добавлено:
блин....
все оказалось настолько просто, что даже и не врубился сразу, что это то, что мне нужно...
http://techtasks.com/code/viewbookcode/1676
если кому интересно