IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Paramétrage IP réseau


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre chevronné Avatar de jbarreau-mainson
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    446
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 446
    Par défaut Paramétrage IP réseau
    Bonjour à tous,
    J'ai fait cela pour pouvoir configuré mon réseau en fonction de mon ip mais ca bug un peu ^^

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    <HTML><HEAD>
    <TITLE>Configuration d un poste informatique</TITLE>
    <HTA:APPLICATION
    	ID="oApp" 
    	APPLICATIONNAME="wpi" 
    	ICON="./wpi.ico"
    	CAPTION="no"
    	CONTEXTMENU = "yes"
    	INNERBORDER = "no"
    	MAXIMIZEBUTTON = "yes"
    	MINIMIZEBUTTON = "yes"
    	NAVIGABLE = "yes"
    	SCROLL = "no"
    	SCROLLFLAT = "no"
    	SELECTION="no"
    	SHOWINTASKBAR="no"
    	SINGLEINSTANCE="no"
    	SYSMENU="yes"
    	VERSION = "3.5.1"
    	BORDER="yes"
    	BORDERSTYLE = "thin"
    	WINDOWSTATE="maximize">
     
    <SCRIPT LANGUAGE="VBScript">
     
     
    Sub btnCommandez_Click
       'msgbox "Pour confirmer votre commande: " & vbCrLf & "Nom: " & Document.frmCommandes.txtCodeUsager.Value
     
     
     
    Dim IP				'Adresse IP de l'utilisateur pour le site
    Dim MasqueR			'Masque de l'adresse IP du site
    Dim Passerelle			'Passerelle pour l'ip
     
    Dim sChaine
    Dim bLancerCmdeNetSet		'boolean
    Dim bEcritureDeParamsMS_TCPIP	'bool
    Dim RepScript
     
    Dim tableau
    Dim P		'p -(p mod 4)
    Dim S_chaine1
    Dim S_chaine2
    Dim S_chaine3
    Dim S_chaine4
    Dim scmde1
    Dim DNS1
    Dim DNS2
    Dim DNS3
    Dim DNS4
    Dim WINS1
    Dim WINS2
     
    sChaine = ""
    MasqueR="255.255.252.0"
    Passerelle=""
     
    'Affichage de "parametrage en cours"
    wscript.echo "Paramétrage IP en cours"
     
    IP = Document.frmCommandes.txtCodeUsager.Value
    'msgbox IP
    Dim WShShell
    Set WshShell=CreateObject("WScript.Shell")
    'extraction de la partie n03 de l adresse IP et calcul de la passerelle correspondante
    tableau=Split(IP,".")
    S_chaine1=tableau(0)
    S_chaine2=tableau(1)
    S_chaine3=tableau(2)
    S_chaine4=tableau(3)
    P = S_chaine3 - (S_chaine3 mod 4)
    Passerelle = S_chaine1 & "." & S_chaine2 & "." &  P & ".1"
    'msgbox Passerelle
     
    scmde1 = "Netsh interface ip set address ""Connexion au réseau local"" static " & IP & " " & MasqueR & " " & Passerelle & " 1"
    'msgbox scmde1
    DNS1 = "Netsh interface ip set dns ""Connexion au réseau local"" static " & " " & "10.6.93.72"
    'msgbox DNS1
    DNS2 = "Netsh interface ip add dns ""Connexion au réseau local""" & " 10.6.93.76"
    'msgbox DNS2
    DNS3 = "Netsh interface ip add dns ""Connexion au réseau local""" & " 10.23.254.245"
    'msgbox DNS3
    DNS4 = "Netsh interface ip add dns ""Connexion au réseau local""" & " 10.23.251.208"
    'msgbox DNS4
    WINS1 = "Netsh interface ip add wins ""Connexion au réseau local""" & " 10.6.95.248"
    'msgbox WINS1
    WINS2 = "Netsh interface ip add wins ""Connexion au réseau local""" & " 10.6.95.80"
    'msgbox WINS2
     
    WshShell.run scmde1,0,true
    WshShell.run DNS1,0,true
    WshShell.run DNS2,0,true
    WshShell.run DNS3,0,true
    WshShell.run DNS4,0,true
    WshShell.run WINS1,0,true
    WshShell.run WINS2,0,true
     
    wscript.echo "Paramètres réseau configurés"
     
    'WshShell.run scmde1,4,false
    'WshShell.run DNS1,4,false
    'WshShell.run DNS2,4,false
    'WshShell.run DNS3,4,false
    'WshShell.run WINS1,4,false
    'WshShell.run WINS2,4,false
     
    set WshShell = nothing
     
    End Sub
     
    </SCRIPT>
    </HEAD>
    <BODY LANGUAGE="VBScript" BGCOLOR="#fffff0">
     
    <FORM NAME = "frmCommandes" METHOD = "Post">
    <div align="center">
    <PRE><u><i><font face="Tahoma" size="6">CONFIGURATION DES PARAMETRES RÉSEAU</font></i></u></PRE>
    </div>
    <div align="center">
    <PRE>&nbsp;</PRE>
    </div>
    <div align="center">
    <PRE><INPUT NAME="txtCodeUsager" size="27" tabindex="0" ></PRE>
    </div>
    <div align="center">
    <PRE><font face="Tahoma"><INPUT TYPE="Button" VALUE="Configurer" Name ="btnCommandez" Onclick="btnCommandez_Click"></font></PRE>
    </div>
    <div align="center">
    <PRE>&nbsp;</PRE>
    </div>
    <div align="center">
    </div>
    <div align="center">
    <div align="center">
    <PRE>&nbsp;</PRE>
    </div>
    <div align="center">
    <PRE>&nbsp;</PRE>
    </div>
    <div align="center">
    <PRE>&nbsp;</PRE>
    </div>
    <div align="center">
    <PRE><font face="Tahoma"><INPUT TYPE="button" VALUE="Quitter" Name ="btnQuitter" Onclick="window.close()";></font></PRE>
    </div>
    <div align="center">
    <PRE>&nbsp;</PRE>
    </div>
    <div align="center">
    <PRE></PRE>
    </div>
    &nbsp;</FORM>
    </P></BODY></HTML>

  2. #2
    Membre Expert
    Avatar de ArHacKnIdE
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    1 947
    Détails du profil
    Informations personnelles :
    Localisation : France, Gard (Languedoc Roussillon)

    Informations forums :
    Inscription : Janvier 2006
    Messages : 1 947
    Par défaut
    Salut,

    Et un peu plus en détail, c'est quoi le "bug" ?

  3. #3
    Membre chevronné Avatar de jbarreau-mainson
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    446
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 446
    Par défaut
    Désolé

    Voilà l'erreur en fichier joint !
    Images attachées Images attachées  

  4. #4
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Qu'elle est la ligne 60 ?

  5. #5
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    Salut,

    c'est sur que ca bloque ?
    Normal pour un HTA non ?
    Met un msgbox à la place ....

    A++

  6. #6
    Membre chevronné Avatar de jbarreau-mainson
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    446
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 446
    Par défaut
    Justement le fait est que je veux que ca écrive sur la page, pas que ca passe par un msgbox

Discussions similaires

  1. Paramétrage et édition QRY sur imprimante réseau
    Par arno06 dans le forum AS/400
    Réponses: 2
    Dernier message: 10/07/2010, 09h51
  2. paramétrage réseau préféré
    Par dirty_boy dans le forum Windows
    Réponses: 2
    Dernier message: 27/03/2009, 21h00
  3. Réponses: 2
    Dernier message: 29/02/2008, 12h18
  4. Paramétrage pour tous les postes d'un réseau
    Par Slyders dans le forum Windows Serveur
    Réponses: 4
    Dernier message: 06/07/2007, 16h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo