Bonjour
Je viens de faire des recherches mais ne trouve aucun sujet qui pourrais m'aider.
Je tiens a préciser que je suis un peu novice dans la création de script et mes connaissances sont très sommaire.
Je souhaite créer un script qui me permettrait de renommer un poste dans un premier temps et d'ensuite modifier l'adresse réseau.
Après de longue recherche sur le Web pour trouver des équivalents, je me retrouve bloquer et je ne vois pas d’où viens le problème.
Je vous sollicite donc pour m'éclairer et me permettre de mettre en place un script fonctionnel.
Je vous colle le script tel qu'il est actuellement.
Merci par avance
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
36
37
38
39
40
41
42 ' *************************************************************************************************************** ' Changer le nom de l'ordinateur ' *************************************************************************************************************** strComputer = "." ' Paramètres à saisir au clavier ************************ strNouveauNom = Inputbox ("Entrer le nouveau nom du PC : ") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem") For Each objComputer in colComputers err = objComputer.Rename(strNouveauNom) Next ' *************************************************************************************************************** ' Changement adresse IP ' *************************************************************************************************************** strComputer = "." ' Paramètres à saisir au clavier ************************** strIPAddress = Inputbox ("Entrer l'adresse IP : ") strSubnetMask = Inputbox ("Entrer le masque de sous reseau : ") strGateway = Inputbox ("Entrer la passerelle : ") strDNSServers = Inputbox ("Entrer le DNS : ") strGatewayMetric = Array(1) Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration whereIPEnabled=TRUE") For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress,strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway,strGatewaymetric) errDOM = objNetAdapter.SetDNSServerSearchOrder(strDNSServers) If errEnable = 0 Then WScript.Echo "L'addresse IP a été changée correctement." Else WScript.Echo "L'addresse n'a pas été changée il y a un Pb." End If Next
Partager