Discussion :

[auren]

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

[KoYzimus]

Bonjour,

En cherchant sur msdn : http://msdn2.microsoft.com/en-us/library/aa394600.aspx

Code :

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

1
2
3
strComputer = "Le nom de l'ordi"
Set objReg = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\default:StdRegProv")
objReg.GetStringValue ...

Bonne recherche

[auren]

bonjour KoYzimus
jai integrer le code dans mon scripte mais ca ne marche pas
voici mon 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
------------------------------------------------------
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.

[KoYzimus]

Hum... je ne suis peut être pas allé assez loin dans mon exemple pécédent puisque ta syntaxe de la méthode GetStringValue n’est pas bonne.
Les références : Oui MSDN est un vrai labyrinthe… ou le Microsoft Windows 2000 Scripting Guide, d’ailleurs si quelqu’un possède la version hors ligne (SagSAS.chm) de ce guide qui semble déjà avoir été disponible au téléchargement, je serai intéressé…

Ce qui donne quelque chose dans ce style :

Code :

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

1
2
3
4
5
6
Const HKEY_LOCAL_MACHINE = &H80000002
cleRegistre = "Software\Microsoft\Windows\CurrentVersion\Installer\UserData\s-1-5-18\Products\FE198D87D2E98CF47AF16E8F79ABB112\InstallProperties"
propriete1 = "DisplayName"
propriete2 = "DisplayVersion"
objReg.GetStringValue(HKEY_LOCAL_MACHINE, cleRegistre, propriete1, valeur1)
objReg.GetStringValue(HKEY_LOCAL_MACHINE, cleRegistre, propriete2, valeur2)

Plus loin tu accèdes au registre d’une autre manière (juste) avec la méthode RegRead. Je te conseille de choisir une des deux pour éviter le genre de confusion précédente.
RegRead méthode de WshShell est plus simple d’approche et uniquement utilisable avec WSH alors que GetStringValue est une méthode de StdRegProv, objet WMI spécialisé dans la manipulation du registre et qui offre donc plus de possibilités, mais peut être inutile dans ton cas...

Sinon consulte le Script Center qui répond à pas mal de question.
Version hors ligne moins récente (Fichier .chm donc recherche par mots clés très pertinente).


Bonnes lectures, recherches et corrections.