[R] Modifier une adresse IP et le nom de la machine

[camil]

Bonjour,

Je souhaite une aide pour crée un prog qui recupere le nom de la machine et la config IP pour la mettre de coté.
NOM : XXXXX
IP : X.X.X.X
MASQUE : X.X.X.X

et modifier par ces valeurs (pour une connexion reseau temporaire) :
NOM : test
IP : 192.168.8.10
MASQUE : 255.255.255.0

une fois finie remettre les enciennes valeur du PC.

Merci d'avance pour l'aide

[jbnh]

Bonsoir,

Merci de lire les règles de présentation d'un message (ou voir ma signature) et d'éditer votre titre.

[camil]

Bjr,

Je sais afficher l'ip et le nom de la marchine.

Code : Tout sélectionner

; Affiche IP address et Nom UC:
$ip = @IPAddress1
If $ip <> "0.0.0.0" Then
   If $ip <> "127.0.0.1" Then
      MsgBox (64, "test", "Nom de l'UC : " &@LogonDomain &@CRLF & "Adresse IP : " &$ip)
  EndIf 
EndIf

Mais je connais pas la syntaxe pour modifier ces information ?

MErci d'avance...

[sylvanie]

Bonsoir,
concernant les adresses ip/masque passerelles il y a qq posts dédiés à netsh (outil en ligne de commande)

par exple :
http://www.autoitscript.fr/forum/viewto ... etsh#p1667

Je pense qu'il y a de quoi commencer un prog pour régler les aspect réseaux. Pour le nom de la machine par contre faudra charcher ailleurs.
Bonne continuation.

[Tlem]

Pour le nom de la machine, voici une fonction de ken82m du forum Anglais :

Message d'origine : http://www.autoitscript.com/forum/index ... t&p=689369

► Afficher le texte

Code : Tout sélectionner

#cs ===============================================================================
 Function:      _RenameComputer( $iCompName , $iUserName = "" , $iPassword = "" )

 Description:   Renames the local computer

 Parameter(s):  $iCompName: The new computer name
 
                Required Only if PC is joined to Domain:
                    $iUserName: Username in DOMAIN\UserNamefFormat
                    $iPassword: Password of the specified account

 Returns:       1 - Succeeded (Reboot to take effect)
 
                0 - Invalid parameters
                    @error 2 - Computername contains invalid characters.
                    @error 3 - Current account does not have sufficient rights
                    @error 4 - Failed to create COM Object
                    
                Returns error code returned by WMI
                    Sets @error 1

 Author(s):  Kenneth Morrissey (ken82m)
#ce ===============================================================================

Func _RenameComputer($iCompName, $iUserName = "", $iPassword = "")
    $Check = StringSplit($iCompName, "`~!@#$%^&*()=+_[]{}\|;:.'"",<>/? ")
    If $Check[0] > 1 Then
        SetError(2)
        Return 0
    EndIf
    If Not IsAdmin() Then
        SetError(3)
        Return 0
    EndIf

    $objWMIService = ObjGet("winmgmts:\root\cimv2")
    If @error Then
        SetError(4)
        Return 0
    EndIf
    
    For $objComputer In $objWMIService.InstancesOf("Win32_ComputerSystem")
        $Return = $objComputer.rename($iCompName,$iPassword,$iUserName)
        If $oReturn <> 0 Then
            SetError(1)
            Return $oReturn
        Else
            Return 1
        EndIf
    Next
EndFunc

Comme il est dit dans le sujet d'origine :
Il faut redémarrer la machine pour que ca fonctionne.

[camil]

Bjr,

Merci de vos reponse
Pour passer en dhcp ca marche bien mais pour mettre en ip statique je n'arrive pas a modifier ce code.


Merci pour l'aide.

[Tlem]

Lisez ceci http://fr.wikipedia.org/wiki/Netsh et adaptez le code.

[camil]

Voila j'ai un peu avancer.

► Afficher le texte

Nom de la connexion au réseau local.
$Cx = "rj45"

;entrer des valeurs ip static
$ip = InputBox("", "Enter IP")
$subnet  = InputBox("", "Enter Subnet")
$gateway = InputBox("", "Enter Gateway")     
$DNS1    = InputBox("", "Enter DNS 1")
$DNS2    = InputBox("", "Enter DNS 2")

SplashTextOn("Configuration STATIC","Configuration STATIC en cours ...", 400, 50, -1, -1, 33, -1, 18)
Sleep(3000)

; static pour l'IP du PC.
RunWait(@ComSpec & ' /c ' & 'netsh interface ip set address name=' & '"' & $Cx & '"' & ' static 192.168.222.10 255.255.255.0 192.168.222.254 1' & '', "", @SW_HIDE)

; static pour les DNS du PC.
RunWait(@ComSpec & ' /c ' & 'netsh interface ip set dns name=' & '"' & $Cx & '"' & ' static 212.27.40.241', "", @SW_HIDE)
RunWait(@ComSpec & ' /c ' & 'netsh interface ip add dns name=' & '"' & $Cx & '"' & ' static 212.27.40.240', "", @SW_HIDE)


SplashTextOn("Configuration STATIC","Configuration STATIC terminée.", 400, 50, -1, -1, 33, -1, 18)
Sleep(3000)
SplashOff()

Je voudrais que les variables ip, subnet.. s'integre dans la cmd netsh mais je connais pas bien la syntaxe et le DNS2 ne passe pas.

merci.

[Tlem]

Cela devrait être dans ce genre :

Code : Tout sélectionner

; static pour l'IP du PC.
RunWait(@ComSpec & ' /c ' & 'netsh interface ip set address name=' & '"' & $Cx & '"' & ' static ' & $ip & ' ' & $subnet & ' ' & $gateway & ' 1' & '', "", @SW_HIDE)

; static pour les DNS du PC.
RunWait(@ComSpec & ' /c ' & 'netsh interface ip set dns name=' & '"' & $Cx & '"' & ' static ' & $DNS1, "", @SW_HIDE)
RunWait(@ComSpec & ' /c ' & 'netsh interface ip add dns name=' & '"' & $Cx & '"' & ' static ' & $DNS2, "", @SW_HIDE)

Cela dit, je vous conseil de créer une fonction qui contrôlera la validité de l'adresse rentré afin de ne pas mettre n'importe quoi.

Sinon, au lieu d'utiliser des InputBox, créez une GUI avec 5 contrôles spécifiques à une adresse IP.
Regardez dans la doc, l'exemple fournit dans la commande _GUICtrlIpAddress_Get .

[camil]

Bjr,

Merci beaucoup pour le code et pour le control de l'ip, je ne suis pas encore assé bon donc il me faut du temp et des exemples de code pour comprendre la syntaxe.

Tu veux que je test l'ip pour voire si il est valide, sinon qu'il redemande de l'ecrire ?

a+

[Yindoo]

voici pour exemple un petit prog qui me permet de basculer l'ip de ma machine en fonction du lieu ou je l'utilise (maison et boulot). Quant à modifier le nom de la machine, cela necessite obligatoirement un reboot de la machine renommée.
j'espère que ca t'aidera.

[ricky]

Yindoo, il y a un petit problème avec ton script, j'ai des erreurs :

C:\Documents and Settings\RC\Bureau\tESTcODE\switch.au3(6,79) : WARNING: $BS_ICON: possibly used before declaration.
Global $Apply = GUICtrlCreateButton("(Not allowed)", 173, 14, 78, 64, $BS_ICON)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\RC\Bureau\tESTcODE\switch.au3(6,79) : ERROR: $BS_ICON: undeclared global variable.
Global $Apply = GUICtrlCreateButton("(Not allowed)", 173, 14, 78, 64, $BS_ICON)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\RC\Bureau\tESTcODE\switch.au3 - 1 error(s), 1 warning(s)

[Yindoo]

normal, je fais appel, dans le code, à des fichiers que tu n'as surement pas dans ta machine....ce sont les icones que j'utilise dans mes pushbuttons....j'ai donné ce script uniquement a titre d'exemple de code...maintenant si le prog t'intéresse je peux fournir les fichiers manquant.

[ricky]

Ben volontiers

[cris]

Bonjour,

Yindoo pourriez vous me fournir les icônes manquants de votre programme.
Merci d'avance

[Yindoo]

voici les fichiers dans un zip. Pour adpater, il vous suffit de modifier les adresses ip du fichier source. Cordialement