Discussion :

[guenfood]

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.

[l_autodidacte]

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 :

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

[Cachlab]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

++

[l_autodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.