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 :

Script vbs pour lecture base de registre


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2
    Par défaut Script vbs pour lecture base de registre
    Bonjour,

    J'ai mis un place dans le logon script un .bat qui permet de modifier une clé de registre.

    Afin de checker régulièrement la valeur de cette clé sur les postes de travail, je souhaite créer un script qui lira la clef sur tous les postes de travail (liste des postes disponibles à travers un fichier excel).


    Mon script est presque finalisé.
    Toutefois, je n'arrive pas à utiliser une colonne depuis une feuille excel.

    En effet, dans la rubrique '==Liste des postes à scanner ==, j'ai mis le nom des postes en dur >> je souhaire utiliser une liste depuis une feuille excel.

    Comment appeler cette feuille ?
    Comment utliser la colonne pour que chaque ligne soit utilisée ?




    Merci pour votre aide.

    Mon script:

    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
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    On error Resume Next
     
    Const HKEY_LOCAL_MACHINE = &H80000002 
     
    '==Liste des postes à scanner ==
    arrComputers = Array("poste1","poste3","poste4")
     
    '==Déclaration et emplacement du fichier de sortie txt==
     
    Set fso = CreateObject("Scripting.FileSystemObject" ) 
    Set f = fso.OpenTextFile("c:\Vérification_Registre\Résultat.txt", 2,True) 
     
    '==Vérication de la présence du poste==
     
    For Each strComputer In arrComputers
     
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
     
     
    '==Gestion de l'erreur pour une ip non attribuée==
     
    If err.number <> 0 Then
     
       f.Write strComputer & "= poste introuvable" & vbcrlf
    Else
    Set colItems = objWMIService.ExecQuery ("Select Name from Win32_ComputerSystem")
    For Each objItem in colItems
     
    Next
     
    '==Lecture de la clef de registre si le poste est présent ==
     
     
    Set oReg=GetObject( _
        "winmgmts:{impersonationLevel=impersonate}!\\" &_ 
        strComputer & "\root\default:StdRegProv")
    strKeyPath = "SYSTEM\CurrentControlSet\Services\USBSTOR"
    strValueName = "Start"
    oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
    f.Write strComputer & "=" & dwValue & vbcrlf
     
     
     
    For Each objComputer in colSettings 
     
    Next
     
     
    End If
    err.clear 
    Next
     
    '==Message pour avertir que la vérification est finie ==
     
    WScript.Echo "Vérification OK"

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    pour lire un fichier excel tu peu t'inspirer de :

    Comment piloter Excel pour créer un classeur.xls ?


    mais stocker ta liste dans un fichier excel ... c'est peu-être sortir la grosse cavalerie pour pas grand chose ...
    un fichier texte c'est beaucoup plus simple et moins gourmand...

    Comment lire le contenu d'un fichier texte ?

Discussions similaires

  1. Script VBS pour copier "Mes documents"
    Par DiabloZizi dans le forum Windows
    Réponses: 1
    Dernier message: 06/03/2006, 22h49
  2. Script VBS pour connaitre taille d'une image
    Par fredoh dans le forum Windows
    Réponses: 2
    Dernier message: 24/02/2006, 14h27
  3. Réponses: 4
    Dernier message: 19/01/2006, 14h35
  4. problème de lecture base de registre
    Par pafounet3 dans le forum MFC
    Réponses: 10
    Dernier message: 31/12/2003, 14h06

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