Bon après pas mal de recherche, j'ai réussi à avoir un script fonctionnel pour changer le masque d'un pc XP
>>> Le problème principale était que le masque est dans une clé REG_MULTI_SZ dans le registre, et regwrite ne permet pas l'ecriture de ce type de données.

code :
///////////////////////////////////////////////////////////////////////////

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

IF numindex = true Then
else
For each objNicConfig In colNicConfigs
'on récupère l'ip
strIPAddresses = Join(objNicConfig.IPAddress)
'on recupere le numero d'index lié a l'ip
numindex = objNicConfig.Index
'on affiche l'adresse IP pour verifier!!
'WScript.Echo " IP Address(es): " & strIPAddresses
next
end if


'on a ici récuperer l'adresse IP du poste client.
'on change maintenant le masque
'msgbox numindex

Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration="&numindex)
ipaddr = Array(strIPAddresses)
subnet = Array("255.255.0.0")

Adapter.EnableStatic(ipaddr,subnet)

msgbox Changement OK !!
////////////////////////////////////////////////////////////////////////
Désolé pour le peu de commentaires, mais je maitrise pas spécialement le vbs.
Si ce code permet d'aider quelqu'un...
Crdlt.

PS : On doit pouvoir changer l'ip avec ce script également --> Pas tester