Changer d'adresse IP en VBS/WSH Fermé

Question

Bonjour,
Je souhaiterai créer un script permettant de changer l'adresse IP de ma machine.
Par exemple changeip.vbs 192.168.1.55
Et cela sous 98.

Si la fonction n'existe pas sous 98, existe-il un programme qui le fasse en ligne de commande ?

Merci

fg03 · Answer

J'ai un pote qui utilise ca
Ilo a fait des fichiers REG (base de registre)
Il avait du trouver ca sur un site genre www.zebulon-fr.com de mémoire
Sinon moi je possede un Toshiba qui integre une appli geniale qui s'appelle onfigFree telechargeable dans les drivers sur le site Toshiba
Par contre je sais pas si ca marche avec tous les PC
Le principe, tu te connectes a un reseau filaire ou WiFi.. une fois la vconnection déterlinée, tu vas fdans Config Free et tu enregistre ce profil.. tu fais cà dans chaque cas ou tes parametres sont différents et puis apres une petite icone en bas a droite te permets d'un clck de basculer dans une config ou dans l'autre
Je crois meme que les profils sont exportables mais j'ai pas vérifié

brupala · Answer

salut,sous 98 , il ne faut pas trop y compter:on ne peut pas changer le paramétrage tcpip sans rebooter.sous 2K ou xp , oui.et ... Voili  Voilou  Voila !

Jean Pascal · Answer

En fait rebooter n'est pas génant.J'ai trouver la solution en passant par la base de registre.Si quelqu'un connait la référence en WSH, ça m'interresse aussi ;)

Otaki · Answer

Et un post qui ressort de derriere les fagots !!

Sous windows 98 :

////////////////////////////////////////////////////////////////////
Set registre = CreateObject("WScript.Shell") 
' ------------------------------------------------------------------
'    MASQUE 16 BITS POUR WIN98
' ------------------------------------------------------------------
registre.regwrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0001\IPMask" , "255.255.255.0"
registre.regwrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0002\IPMask" , "255.255.255.0"
registre.regwrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0003\IPMask" , "255.255.255.0"
msgbox "Changement de masque effectuer pour windows 98 !!"
//////////////////////////////////////////////////////////////////

Remarque : Sous windows 98 il y a une clé de créé a chaque installation, ou réinstallation de carte réseau (0001, 0002, 0003, ...). N'étant pas un AS de vbs j'evite les condition, pour savoir laquelle est utilisée. Bourrin, mais ca marche !! :) 

Je suis en ce moment sur une version pour faire la meme chose avec XP, mais actuellement, meme si j'arrive a éditer le registre, le masque de connexion ne change pas. 
AVIS AU ADMIN RESEAU : Si quelqu'un sait comment changer un masque de sous réseau XP via vbs, je suis preneur !! 

MERCI !!

PS : Pr les tags : Masque sous réseau, windows 98, vbscript, changer, modification

Otaki · Answer

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 & "oot\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