Batch qui s'exécute en fonction de l'IP

Version imprimable

29/07/2011, 17h11
remi82

Batch qui s'exécute en fonction de l'IP

Bonjour,

Je souhaite faire un batch qui se lance uniquement si l'adresse IP du PC est "192.168.2"

Pour cela, en cherchant, j'ai trouvé cette commande.

Dans un premier batch, je met cette commande :

Code:

for /f "tokens=1,2,3 delims=.: " %%a in ('arp -a') do if %%a.%%b.%%c==192.168.2 call "c:\batch2.bat"

Si mon IP est en "192.168.2", le batch2 se lance bien, mais il s’exécute 5 fois d’affilé

Auriez vous une idée, car là, je sèche complètement.

Merci d'avance.
02/08/2011, 08h58
Drizzt [Drone38]

As-tu au moins lancé la commande arp -a pour voir ce que ça faisait ?

Ca te renvoie plusieurs lignes qui vont répondre à ton test, c'est donc normal que ton batch s'exécute plusieurs fois.

bonjour,
bcp plus simple et sans boucle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
@echo off 

ipconfig | find /i "192.168.2" > nul
if %errorlevel%==0 goto :ok

goto :no
:ok
echo bonne tranche ip
goto :out
:no
echo mauvaise tranche ip
goto :out
:out
pause

03/08/2011, 10h49
remi82

Bonjour gretch,

Merci pour ta solution. Ca fonctionne très bien.

Encore merci
18/08/2011, 16h54
lyon0691

Bonjour,

Je me permets de reprendre ce post pour une demande supplémentaire.
Je suis aussi à la recherche d'un script me permettant de lancer une commande ou un autre script en fonction de l'adresse IP du poste.
Par exemple :
Si mon poste a une @IP comprise entre 192.168.1.1 et 192.168.1.254 je lance la commande A
Si mon poste à une @IP comprise entre 192.168.2.1 et 192.168.2.254 je lance la commande B
et ainsi de suite

Merci beaucoup pour votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
@echo off 
FOR /L %%i IN (1,1,254) DO (
set ii=%%i
call :ok
)
goto out
:ok
ipconfig | find /i "192.168.%ii%">nul
if %errorlevel%==0 call :script%ii%
goto :default
:script1
echo ip 192.168.1.xxx
goto :out
:script7
echo ip 192.168.7.xxx
goto :out
:default
rem ici un script par defaut s'appliquant à toutes les machines ayant  une ip 192.168.%ii% ne correspondant pas à une zone script%ii% ... ou pas ^^
:out

mais si tu as 254 sous réseau il faudrait peut etre l'envisager autrement

23/08/2011, 15h02
lyon0691

Bonjour,

Merci pour votre aide.
J'ai finalement réussi à écrire un bout de script en vbs qui réponds à mes besoins.

Merci encore pour votre aide.
24/08/2011, 14h48
gretch

il aurait été intéressant que tu mette ton code au cas ou cela servirai à qq :ccool:

Voici le script que j'ai fait.
Le but du script est de mapper des printers en fonction du site sur lequel se trouve l'user. Ainsi si une personne se déplace il aura les printers locaux directement.

Code:

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
'-------------------------------------------------------------------------------
' DELETTE ALL THE NETWORK PRINTERS
'-------------------------------------------------------------------------------

Set oNet = CreateObject ("Wscript.Network")
Set oPrt = oNet.EnumPrinterConnections
For i = 0 to oPrt.Count - 1 Step 2
If Left (oPrt.Item(i+1), 1) = "\" Then
oNet.RemovePrinterConnection oPrt.Item(i+1)
End If
Next

'-------------------------------------------------------------------------------
' LOCAL NETWORK IP
'-------------------------------------------------------------------------------

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2" )
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True" )
For Each objAdapter in colAdapters

    IPdebut = LBound(objAdapter.IPAddress)
    IPfin = UBound(objAdapter.IPAddress)
    If (objAdapter.IPAddress(IPdebut) <> "" ) then


        For i = IPdebut To IPfin
                strIPAddress = objAdapter.IPAddress(i) & vbCrLf
        Next

    End If
Next

Public Function ip2num(IP) 'ipv4-only
	Dim i, a, N
	a = Split(ip, ".")
	N = CDbl(0)
	For i = 0 To UBound(a)
	       N = N * 256 + a(i)
Next
ip2num = N

End Function

'-------------------------------------------------------------------------------
' MAP LOCAL NETWORK PRINTERS
'-------------------------------------------------------------------------------

If ip2num(strIPAddress) >= ip2num("10.10.10.1")_
And ip2num(strIPAddress) <= ip2num("10.10.10.254") Then

Set WshNetwork = CreateObject ("WScript.Network")
on error resume next
PrinterPath = "\\server_name\printer_name"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
WshNetwork.AddwindowsPrinterConnection (PrinterPath)
PrinterPath = "\\server_name\printer_name"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
WshNetwork.AddwindowsPrinterConnection (PrinterPath)

'Else
' other fonction
End If

25/08/2011, 10h36
lyon0691

J'ai cependant un nouveau souci.
Mon script regarde la première carte réseau.
Certains utilisateurs ont plusieurs connexion réseaux type VPN, WIFI et RESEAU.
Le souci que je rencontre c'est qu'en premier je retrouve le VPN qui n'étant pas connecté il me retourne une IP 0.0.0.0 et la mon script ne fonctionne plus.

Quelqu'un pourrais m'aider à écrire un bour qui me permettrait de vérifier si l'adresse retournée est vide alors passer à la suivante connexion jusqu'à ce que je me retrouve avec une IP non vide.
Sinon de pouvoir filtrer sur une connexion de carte dont je connais le nom ?

Merci d'avance pour votre aide.
Je bloque sur ce point !
25/08/2011, 11h27
gretch

heuuu... t'es sur de vouloir faire ça par script ??? parce que (sauf erreur de ma part) par GPO en utilisant les site active directory ça te donne la meme chose mais la maintenance sera plus facile...

sincèrement, envisage plutôt une solution par l'AD, pense à l'ajout et la suppression d'imprimante et au poste inter site...

jette un oeil à ça, je crois que cela conviendrais (à vérifier...) :
http://technet.microsoft.com/fr-fr/l...8WS.10%29.aspx

sinon un if pour vérifier si l'adresse n'est pas 0.0.0.0 mais tu aura encore des problèmes si le poste à 2 IP (ex : rj45 + WIFI)
25/08/2011, 11h38
lyon0691

Malheureusement je suis obligé de passer par script.
En effet la GPO c'est plus facile mais l'application est beaucoup plus contraignante (ex. connexion limitée type VPN).
De plus l'AD sur lequel on veut implementer n'est pas si propre et les travaux de remise en état prendrons des mois.

Nous avons besoin d'une solution rapide pour répondre à un besoin pressant.

Par la suite il est certain que nous allons déployer des solution plus "professionnelles".

Pour ce qui est du IF j'ai pensé aussi mais comment faire pour que, dans le cas de mon script, si le premier retour soit = au 0.0.0.0 il aille chercher la 2nde connexion.

Pour ce qui est des 2 adresses IP ce n'est pas un gros problème car je sais comment je gérer.

Merci.
25/08/2011, 11h59
gretch
bon je suis pas franchement doué en vbs mais en "pseudo langage" ça serait
Code:

1 2 3 4 5 6 7 :debut boucle tant que $i=0 if $ipmachine différent de 0.0.0.0 then $i = 1 and "application de ton script" else recherche l'itération suivante de ip et on touche pas à $i... fin de boucle
mefie toi si i est toujours = à 0 ça boucle à vide... donc peut etre limité le nombre de bouclage

a greffer sur mon batch c'est pas trop dur mais en vbs... :roll:

ps (si tu utilise mon script et des adresses en 10.x.x.x,
il faut aussi le modifier pour pas qu'en cas de recherche d'ip " 10.0.1.x "
il percute un routeur en 10.0.1.x alors que l'ip pourrais etre 10.0.2.x )

Code:

ipconfig | find /i "Adresse IPv4"| find /i "10.0.1"

edit : m****e ça prends aussi les x.10.0.1 :bug:

bon enfin t'as des pistes quoi :aie: