On error Resume Next

strSubnetCN = "CN=" & InputBox("Tapez l'adresse du sous-réseau à créer sous la forme adresseReseau/Masque (Ex : 192.168.0.0/24)" , "Sous-réseau")
strSiteCN = "CN=" & InputBox("Tapez le nom du site auquel appartient le sous-réseau" , "Site")
 
Set objRootDSE = GetObject("LDAP://RootDSE")
strConfigurationNC = objRootDSE.Get("configurationNamingContext")
 
strSiteDN = strSiteCN & ",cn=Sites," & strConfigurationNC
 
strSubnetsContainer = "LDAP://cn=Subnets,cn=Sites," & strConfigurationNC
 
Set objSubnetsContainer = GetObject(strSubnetsContainer)
 
Set objSubnet = objSubnetsContainer.Create("subnet", strSubnetCN)
objSubnet.Put "siteObject", strSiteDN
objSubnet.SetInfo

if Err.Number = 0 then
 WScript.Echo "Création effectuée avec succès"
else
 WScript.Echo "Echec de la création"
end if