On error Resume Next

strSubnetCN = "CN=" & InputBox("Tapez l'adresse du sous-réseau à effacer sous la forme adresseReseau/Masque (Ex : 192.168.0.0/24)" , "Sous-réseau")
 
Set objRootDSE = GetObject("LDAP://RootDSE")
strConfigurationNC = objRootDSE.Get("configurationNamingContext")
strSubnetsContainer = "LDAP://cn=Subnets,cn=Sites," & strConfigurationNC
 
Set objSubnetsContainer = GetObject(strSubnetsContainer)
objSubnetsContainer.Delete "subnet", strSubnetCN

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