Route add en vbscript sous Vista
Bonjour,
Désolé par avance si je ne me situe pas dans la bonne branche du forum.
Je me permets de vous exposer mon problème.
Mes utilisateurs en raisons de la grippe A vont être amenés à travailler depuis leur domicile.
Pour ce faire, une connexion VPN s'instaure. Seul souci, c'est qu'il faut ajouter une route dans le PC de chaque utilisateur. (pour faire tourner certaines applications).
Donc, j'ai tenté, tant bien que de mal, d'écrire un vbscript de connexion vpn + l'ajout d'une route.
Ci-dessous mon script :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| >>
on error resume next
Set oWshShell = CreateObject("WScript.Shell")
strCommand = "rasdial delcroix * *"
oWshShell.Run strCommand, 1, TRUE
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE AND ServiceName like '%WAN%'")
If Err.Number<>0 Then
wscript.echo " - non accessible -"
Else
for each IPConfig in IPConfigSet
Set oWshShell = CreateObject("WScript.Shell")
dim ip
strCommand = "route add 192.168.11.0 mask 255.255.255.0 "& IPConfig.IPAddress(0)
oWshShell.Run strCommand, 1, TRUE
Next
End If
<< |
Seul souci, ce script ne fonctionne pas sous Vista, car sous Vista il faut ouvrir l'invite de commande en mode administrateur.
Si quelqu'un peut m'aider, ça serait très gentil.
Cordialement,
Despret samuel
