KioskeaKioskeaCommentCaMarcheInscrivez-vous, c'est gratuit !
Mercredi 14 mai 2008 - 05:34:56

Changer d'adresse IP en VBS/WSH

Rechercher : dans
Changer d'adresse IP en VBS/WSH
par Jean Pascal
 Fil de Discussions
Statut : Non résolu
vendredi 4 juin 2004 à 12:43:04
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
Répondre à Jean Pascal  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par fg03, le vendredi 4 juin 2004 à 13:13:12 Fil de Discussions
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é
Répondre à fg03

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par brupala, le vendredi 4 juin 2004 à 15:15:53 Fil de Discussions
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 !
Répondre à brupala

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par Jean Pascal, le vendredi 4 juin 2004 à 16:10:57 Fil de Discussions
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 ;)
Répondre à Jean Pascal

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par Otaki, le jeudi 28 juin 2007 à 10:52:10 Fil de Discussions
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
Répondre à Otaki

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par Otaki, le jeudi 28 juin 2007 à 10:54:13 Fil de Discussions
Petit edit : rempalcer IPMask par IPAdresse (de mémoire) pour modifier l'adresse IP !

Crdlt.
Répondre à Otaki

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par Otaki, le vendredi 29 juin 2007 à 14:58:21 Fil de Discussions 
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
Répondre à Otaki
Discussions pertinentes trouvées dans le forum
01/11 12h59Changer adresse IP imprimante réseauRéseaux26/06 12h147
16/03 14h53Changement adresse IP avec la freeInternet16/03 15h024
20/02 13h38changer adresse ip à cause d'un hackeurRéseaux20/02 13h432
16/02 21h33Changement adresse IPRéseaux16/03 14h492
04/02 11h25Changer adresse ip fixeWindows02/04 10h0520
Plus de discussions sur « Changer d'adresse IP en VBS/WSH » Discussion en cours Discussion fermée Problème résolu
Répondre
Titre du message :
Votre pseudo:
Votre email :
Message: 
  •  
  •  
Options: Recevoir les réponses par mail.
 

Aide