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 : 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
 
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.