acces a une valeur de registre d'un ordinateur distant
Bonjour a tous
Je cherche un scripte que je peux exécuter sur ma machine et qui soit capable de lire une valeur de registre sur un ordinateur distant.
Merci les amis
valeur d'une base de registre sur un ordinateur distant
bonjour KoYzimus
jai integrer le code dans mon scripte mais ca ne marche pas
voici mon 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
| ------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
Dim machinename ,username ,Password ,shell ,objFSO ,valeura ,valeur1 ,valeur2 ,resultat1 ,resultat2 ,ordi
Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
machinename = inputbox("Entrer le nom ou l'adresse IP de la Machine")
username = inputbox("Entrer le nom de l'utilisateur")
Password = inputbox("Entrer le Mot De Passe")
strComputer = machinename
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objReg = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\default:StdRegProv",UserName,Password)
valeur1 = objReg.GetStringValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Installer\UserData\s-1-5-18\Products\FE198D87D2E98CF47AF16E8F79ABB112\InstallProperties\DisplayName")
valeura =objReg.GetStringValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Installer\UserData\s-1-5-18\Products\FE198D87D2E98CF47AF16E8F79ABB112\InstallProperties\DisplayVersion")
resultat1 = (valeur1 + " - version : " + valeura)
if valeur1 = "" and valeura = "" then
msgbox "Le Produit Symantec Norton n'est pas instalé sur cette machine"
else
MsgBox resultat1, vbInformation
end if
valeur2 = WshShell.RegRead("HKEY_LOCAL_MACHINE\Software\symantec\shareddefs\DEFWATCH_10")
resultat2 = Right(valeur2,12)
if resultat2 = "" then
msgbox "la mise a jour n'est pas instalé sur cette machine"
else
MsgBox "definition virale : (aaaa/mm/jj) " + resultat2, vbInformation
end if |
----------------------------------------------------------------------
aider moi svp.
