Bonjour à tous,

Novice dans le domaine, j'utilise des scripts pour effectuer des opérations basiques sur des postes de travail en réseau.

Il s'agit le plus souvent de vérification d’existence de fichiers et répertoires et de copie de ceux-ci.

Actuellement, je répète les instructions dans mon script en modifiant les noms de machines.

J'aimerais pouvoir m'appuyer sur un fichier de type .txt (liste_pc.txt)

Pouvez-vous me guider un peu ?

Merci pour votre aide.

Voici le script que j'utilise actuellement (exemple pour 2 postes de travail) :

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
43
44
45
46
47
48
'*** Déclaration des variables
Dim ObjetNetwork
Dim WshShell, BtnCode
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set ObjetNetwork = CreateObject("WScript.Network")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 
'*** Permet de continuer le script même s'il y a une erreur
On Error Resume Next
 
'***********************************Poste 1 ****************************************************
'*** Connection des lecteurs réseaux
ObjetNetwork.MapNetworkDrive "Z:", "\\Poste1\C$", True, "Login@AD", "Password"
 
'*** Copie du répertoire Cours
If fso.FolderExists("Z:\Cours") Then
	Else
		fso.CopyFolder "C:\temp\Cours","Z:\", True
End If
 
'*** Copie du Répertoire Bureau vers profil Public
fso.CopyFolder "c:\temp\Desktop", "Z:\Users\Public\", True
 
'*** => Déconnection des anciens lecteurs réseaux
ObjetNetwork.RemoveNetworkDrive "Z:", True, True
 
'***********************************Poste 2 ****************************************************
'*** Connection des lecteurs réseaux
ObjetNetwork.MapNetworkDrive "Z:", "\\Poste2\C$", True, "Login@AD", "Password"
 
'*** Copie du répertoire Cours
If fso.FolderExists("Z:\Cours") Then
	Else
		fso.CopyFolder "C:\temp\Cours","Z:\", True
End If
 
'*** Copie du Répertoire Bureau vers profil Public
fso.CopyFolder "c:\temp\Desktop", "Z:\Users\Public\", True
 
'*** => Déconnection des anciens lecteurs réseaux
ObjetNetwork.RemoveNetworkDrive "Z:", True, True
 
BtnCode = WshShell.Popup("fin de script", 5)
 
'*** Destruction des objets
Set ObjetNetwork = Nothing
 
WScript.Quit