acces a la base de registre d'un autre ordinateur via le resaux

**auren** · 14/04/2007, 14h48

bonjour a tous
voila je commance a faire mes premier pats dans la programmation du vbscript
. j ai fait un script qui est capable d'aller chercher dans la base de registre de l'ordinateur la verssion du produit norton + la version de la mise a jour du produit. ce que je ne sais pas faire c est de faire marcher ce script sur le reseaux. voici le 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
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 objWMIService = SWBemlocator.ConnectServer(strComputer,"\root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_Registry",,48)
 
valeur1 = WshShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Installer\UserData\s-1-5-18\Products\FE198D87D2E98CF47AF16E8F79ABB112\InstallProperties\DisplayName")
valeura = WshShell.RegRead("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 
----------------

------------------------------------------------------
j ai essaiyé ; ca marche ur une machine localement mais pas pour une machine distante sur le reseaux ca ne marche pas .

merci les amies pour votre aide.