Executer un script sur un pc distant, pour modifier ses parametres reseaux
Bonjour à tous...
J'ais développé un scripte qui permer de configurer l'adresse IP, le dns, la passerelle, les suffixes dns.... sur un pc en local.
Et j'aimerais fair évoluer ce script pour qu'il puisse l'éxecuter sur un pc distant, ou l'utilisateur n'a pas les permition de modifier ses parametres...
J'aimerais devoir entrer le login et pass d'administrateur du domain pour le fair tourner sur la machine distante, donc je ne veu pas entrer mon mot de pass dans une inputbox sauf si les caractere st maské par des étoiles( g kan mm essayer la méthode)
J'ai développer ce script avec l'aide de Cedric600 sur ce site...
vous pouvez visualiser le code d'origine ici
http://www.developpez.net/forums/showthread.php?t=207214
Pour effectuer ce traitement j'ai fait plusieurs recherches et je suis arrivé a cette méthode... (jen ai vu plein d'autre mais aucune na réussi)
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
|
Option Explicit
On Error Resume Next
Dim NomPC, Card, objWMIService, WSHShell, UserName
Dim objItem, colItems, ip, strComputer, Password
Dim strIPAddress, strSubnetMask, errEnable, strGateway, strDNS, strDNSDomain, strWins1, strWins2
strIPAddress = Array("192.18.203.122")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.18.203.1")
strWins1 = "192.22.1.8"
strWins2 = "192.22.1.5"
strDNS = array("192.21.1.5","192.21.1.8")
strComputer = InputBox ("Veuillez entrer le Nom de l'ordinateur distant: ")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)
For Each objItem in colItems
''Configure la passerelle
errEnable = objItem.setgateways(strGateway)
''Configure l'adresse du wins principale et secondaire
objItem.SetWINSServer strWins1 , strWins2
''configure les adresses DNS
errEnable = objItem.SetDNSServerSearchOrder(strDNS)
''Configure l'ip du poste avec sont masque ed sous réseau
errEnable = objItem.EnableStatic(strIPAddress, strSubnetMask)
Next
'Configure la liste des serveurs dns
SET WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\TCPIP\Parameters\SearchList","adrdns1.com,adrdns2.com","REG_SZ" |
Mais plus j'avance et plus je m'appercois que je m'éloigne de la solution alors je solicite votre aide.
merci d'avance.
