[R] RunAs avec un script VBS

[guillaume]

Bonjour,

j'ai un script VBS qui me permet de changer la passerelle d'une connection réseau :

Code : Tout sélectionner

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strGateway = Array("10.1.0.253")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next

Le problème c'est que pour fonctionner ce script doit être executé en admin

j'ai pensé à faire un RunAs ( $DomainUserName , $DomainName , $UserPassword , 0 , 'c:\script.vbs', '', @SW_HIDE )

Mais en ayant parcouru le forum il me semble qu'autoit ne permet pas cette fonction.

Y a t - il un moyen de lancer ce vbs avec les droits admin ?
(je ne pense pas être capable de convertir le vbs en autoit)

Merci à vous

[softwater]

Hello,

Il y a une solution ici
http://www.autoitscript.fr/forum/viewto ... 737#p18737

Voir 2ème code et utiliser RunAs au lieu de Run sur la première ligne

[guillaume]

Merci beaucoup je vais essayer de caler ça dans mon RunAs

[ani]

Bonjour,
Voici le code vbs transformé en AU3

Code : Tout sélectionner

Global $strGateway[1], $strGatewayMetric[1]
$strComputer = "."
Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
Global $colNetAdapters = $objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
$strGateway[0] = "10.1.0.253"
$strGatewayMetric[0] = 1
For $objNetAdapter in $colNetAdapters
    $errGateways = $objNetAdapter.SetGateways($strGateway, $strGatewaymetric)
    If $errEnable = 0 Then
        msgbox(0,"","The IP address has been changed.")
    Else
        msgbox(0,"","The IP address could not be changed.")
    EndIf
Next

On peut aussi imaginer une fonction
Func ChangeIP($ip,$Gateway,$subnet="255.255.255.0")
.....
Endfunc

Le script change toute les adresses de toute les cartes ?
il serait pas mieux de changer juste la carte qu'on désire ?
en regardeant le nom ? $objNetAdapter.caption
Func ChangeIP($Carte,$ip,$Gateway,$subnet="255.255.255.0")
.....
Endfunc

bonne continuation

[guillaume]

Alors là franchement merci beaucoup, c'est exactement ce qu'il me fallait !

Effectivement je change l'adresse de toutes les cartes (pour la bonne raison que je ne connais pas grand chose en VBS et que je me suis inspiré d'un script existant)
L'autre soucis c'est que sur certains PC le nom de la carte peut être différent, et donc là si je change pour tout je n'ai pas le soucis d'avoir le bon nom.

Merci !

[ar0ray]

Heum, désoler mon la question novice mais...Ca sert a quoi changer la passerelle?

Peace

[ani]

le subnet est un systeme de classe, A,B,C,D et E

Un petit lien qui m'a bien aidé pour comprendre l'adressage IP

[Polstar]

Bonjour,

Sinon on peut lancer directement un vbs avec le runAs en lui précisant le chemin vers wscript.exe

Ex :

Code : Tout sélectionner

Local $sUserName = "Administrateur"
Local $sPassword = "*****"
Local $Application = "C:\WINDOWS\system32\wscript.exe C:\scripts\admin_script.vbs"

RunAs($sUserName, @ComputerName, $sPassword, 0, $Application, @SystemDir)