Script vbs pour lecture base de registre
Bonjour,
J'ai mis un place dans le logon script un .bat qui permet de modifier une clé de registre.
Afin de checker régulièrement la valeur de cette clé sur les postes de travail, je souhaite créer un script qui lira la clef sur tous les postes de travail (liste des postes disponibles à travers un fichier excel).
Mon script est presque finalisé.
Toutefois, je n'arrive pas à utiliser une colonne depuis une feuille excel.
En effet, dans la rubrique '==Liste des postes à scanner ==, j'ai mis le nom des postes en dur >> je souhaire utiliser une liste depuis une feuille excel.
Comment appeler cette feuille ?
Comment utliser la colonne pour que chaque ligne soit utilisée ?
Merci pour votre aide.
Mon script:
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
| On error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
'==Liste des postes à scanner ==
arrComputers = Array("poste1","poste3","poste4")
'==Déclaration et emplacement du fichier de sortie txt==
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile("c:\Vérification_Registre\Résultat.txt", 2,True)
'==Vérication de la présence du poste==
For Each strComputer In arrComputers
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'==Gestion de l'erreur pour une ip non attribuée==
If err.number <> 0 Then
f.Write strComputer & "= poste introuvable" & vbcrlf
Else
Set colItems = objWMIService.ExecQuery ("Select Name from Win32_ComputerSystem")
For Each objItem in colItems
Next
'==Lecture de la clef de registre si le poste est présent ==
Set oReg=GetObject( _
"winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Services\USBSTOR"
strValueName = "Start"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
f.Write strComputer & "=" & dwValue & vbcrlf
For Each objComputer in colSettings
Next
End If
err.clear
Next
'==Message pour avertir que la vérification est finie ==
WScript.Echo "Vérification OK" |
