IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

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


Sujet :

VBScript

  1. #1
    Futur Membre du Club
    Inscrit en
    Avril 2007
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 3
    Par défaut acces a la base de registre d'un autre ordinateur via le resaux
    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.

  2. #2
    Nouveau membre du Club
    Inscrit en
    Décembre 2006
    Messages
    7
    Détails du profil
    Informations forums :
    Inscription : Décembre 2006
    Messages : 7
    Par défaut
    voir la fonction reg dans windows\system32

  3. #3
    Nouveau membre du Club
    Inscrit en
    Décembre 2006
    Messages
    7
    Détails du profil
    Informations forums :
    Inscription : Décembre 2006
    Messages : 7
    Par défaut
    voir la fonction reg dans windows\system32

Discussions similaires

  1. Oracle 9i : Comment importer ma base de données vers un autre ordinateur
    Par sofiane_bfm007 dans le forum Import/Export
    Réponses: 2
    Dernier message: 13/05/2008, 10h03
  2. [Windows]accès base de registre windows
    Par Greg01 dans le forum API standards et tierces
    Réponses: 27
    Dernier message: 05/06/2007, 15h14
  3. Intervenir sur la base de registre d'un autre PC
    Par olive_le_malin dans le forum Autres Logiciels
    Réponses: 6
    Dernier message: 15/05/2007, 09h22
  4. une astuce pour ouvrir la base de registre d'un autre disque
    Par bouassouille dans le forum Windows XP
    Réponses: 4
    Dernier message: 07/10/2005, 00h53
  5. Accès à la base de registre windows à distance
    Par xavame dans le forum Sécurité
    Réponses: 4
    Dernier message: 13/07/2005, 15h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo