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
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
Bonjour,
En cherchant sur msdn : http://msdn2.microsoft.com/en-us/library/aa394600.aspx
Bonne recherche
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 ...
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.
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 :
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.
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)
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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager