Bonsoir,
voila je travaille sur une application en C# qui gère l'active directory et les GPO , et mon probleme c que jai pas put coder des script qui gere les gpo en C# ou en VB.net tous ce que jai trouvé c en VBscript que je ne comprend rien du tou , je vous demande bien de m'aidé sur sa ou d'essay de me faire comprendre ce script que jai ramené de msdn qui fais la relation entre une OU et les gpo , tout aide mes indesponssable et favorable merci voici le script
. et si il ya une methode pr importe du vbscript en C# jaimerai bien la conn
etre
merci
This code links a GPO to an OU in the specified domain
' ------ SCRIPT CONFIGURATION -----
strDomainDN = "<DomainDN>
" ' e.g. dc=adatum,dc=com
strGPO = "<GPOName>
" ' e.g. WorkstationsGPO
strOUDN = "<OrgUnitDN>
" ' e.g. ou=Workstations,dc=adatum,dc=com
' ------ END CONFIGURATION --------
strBaseDN = "<LDAP://cn=policies,cn=system,dc=" & strDomainDN & ">;"
strFilter = "(&(objectcategory=grouppolicycontainer)" & _
"(objectclass=grouppolicycontainer)" & _
"(displayname=" & strGPO & "));"
strAttrs = "ADsPath;"
strScope = "OneLevel"
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
set objRS = objConn.Execute(strBaseDN & strFilter & strAttrs & strScope)
if objRS.EOF <> TRUE then
objRS.MoveFirst
end ifif objRS.RecordCount = 1 then
strGPOADsPath = objRS.Fields(0).Value
WScript.Echo "GPO Found: " & strGPOADsPath
elseif objRS.RecordCount = 0 then
WScript.Echo "Did not founding matching GPO for: " & strGPO
Wscript.Quit
elseif objRS.RecordCount > 1 then
WScript.Echo "More than 1 GPO found matching: " & strGPO
Wscript.Quit
end if
set objOU = GetObject("LDAP://" & strOUDN)on error resume next
strGPLink = objOU.Get("gpLink")
if Err.Number then
if Err.Number <> -2147463155 then
WScript.Echo "Fatal error while retrieving gpLink attribute: " & _
Err.Description
Wscript.Quit
end if
end if
on error goto 0
objOU.Put "gpLink", strGPLink & "[" & strGPOADsPath & ";0]"
objOU.SetInfo
WScript.Echo "GPO successfully linked"
' The following code segment will remove any GPOs that
' are linked to an OU
Const ADS_PROPERTY_CLEAR = 1
Set objContainer = GetObject _
("LDAP://<OU DN
>") ' i.e. "ou=Finance,dc=adatum,dc=com"
objContainer.PutEx ADS_PROPERTY_CLEAR, "gPLink", 0
objContainer.PutEx ADS_PROPERTY_CLEAR, "gPOptions", 0
objContainer.SetInfo