Bonsoir,

J'ai le script ci-dessous qui me permet de récupérer tous les comptes users présents dans C:\utilisateurs sur un parc de machine (dans un fichier Computer_list.csv)
Le problème est que si le pc est éteint ou déconnecté du réseau au moment où le script se lance, celui-ci s'arrête.

Que dois-je rajouter, et où, pour que le script continue de fonctionner si un pc est éteint ?

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
Dim oFilesys
computerlist_path = "computer_list.csv"
ResultFile = "result.csv"
 
Set oFilesys = CreateObject("Scripting.FileSystemObject")
 
'### création objet fichier sortie ###
Set oFiletxt = oFilesys.CreateTextFile(ResultFile,True)
   oFiletxt.WriteLine "Machine;Dossier Profile;Path"
 
Set Ws = CreateObject("Wscript.Shell")
Set stdout = oFilesys.GetStandardStream (1)
 
'### ouverture du fichier liste computer ###
set readfile = oFilesys.OpenTextFile(computerlist_path, 1, false) 
 
do while readfile.AtEndOfStream=false 
str_computer = readfile.ReadLine 
 
if (left(str_computer,1) = "#" ) then
else
 
'### accès au dossier users de la machine via partage c$ ###
Set fsoFolder = CreateObject("Scripting.FileSystemObject")
Set folder = fsoFolder.GetFolder("\\" & str_computer & "\c$\users")
Set subfolders = folder.SubFolders
for each objFolder in subfolders
   oFiletxt.WriteLine str_computer & ";" & objFolder.Name & ";" & objFolder.Path
next    
 
end if
 
loop
Merci par avance pour votre aide.