Poursuivre script si erreur

Version imprimable

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:

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.

Bonjour;

- Il fallait indiquer le message d'erreur et la ligne correspondante.
- Pour plus de clarté, les variables utilisées devraient être déclarées pour éviter toute confusion.
- Une bonne indentation du code permet une bonne compréhension
- La variable stdout a été initialisée mais elle n'a été utilisée nulle part dans le code. A quoi sert-elle ?
- Un seul objet FileSystemObject aurait suffi pour le traitement, on n'a pas besoin d'en créer 2 ou plus.
- Dans la boucle Do While, Il y a création, inutilement, d'un grand nombre d'objets FileSystemObject.
Voici une ébauche du code

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
36
37
Option Explicit 
 
Const ForReading = 1, ForWriting = 2
Const computerlist_path = "computer_list.csv"
Const ResultFile = "result.csv"
Dim oFilesys, oFiletxt, WS, stdout, readfile, str_computer,  oFolder, oSubfolders, objFolder
 
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, ForReading, False) 
 
 'On Error Resume Next
 
Do While Not readfile.AtEndOfStream 
    str_computer = readfile.ReadLine 
    If left(str_computer, 1) <> "#"  Then
       '### accès au dossier users de la machine via partage c$ ###
        If Err.Number <> 0 Then 
           MsgBox "Erreur n° " & Err.Number & "   Desc : " & Err.Description
           Err.Clear
        End If
        Set oFolder = oFilesys.GetFolder( "\\" & str_computer & "\c$\users")
        Set oSubfolders = oFolder.SubFolders
        For Each objFolder In oSubfolders
           oFiletxt.WriteLine str_computer & ";" & objFolder.Name & ";" & objFolder.Path
        Next    
        On Error GoTo 0 
    End If
Loop

Bonjour,

Pour ma part, je gère le souci via un test d'accessibilité des machines :
Code:

1 2 3 4 5 6 Sub online Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & str_computer & "'") For Each objStatus in objPing If objStatus.Statuscode = 0 Then inaccessible = 1 else inaccessible = 0 Next End Sub
Avec juste l'appel de fonction et un test à ajouter sur ton script (ligne 23 et 24) :
Code:

1 2 call online If left(str_computer, 1) <> "#" and inaccessible = 0 Then
++

Citation:

Envoyé par Cachlab

Pour ma part, je gère le souci via un test d'accessibilité des machines

Très bonne idée.
Moi, je transformerais la sub en fonction booléenne et je l'appellerais pour pour chaque PC.
Code:

1 2 3 4 5 6 Function OnLine(strComputer) Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'") For Each objStatus in objPing OnLine = (objStatus.Statuscode = 1) Next End Function
et la ligne 24 devient : If Left(str_computer, 1) <> "#" And OnLine(str_Computer) Then.