Forum du laboratoire des technologies Microsoft

Forum du laboratoire des technologies Microsoft

Accéder au contenu

Recherche avancée
  • Raccourcis
    • Sujets sans réponse
    • Sujets actifs
    • Rechercher
    • L’équipe
  • FAQ
  • Connexion
  • Inscription
  • Accueil du forum Aide Technique Programmation
  • Rechercher

Problème de lecture clé de registre en binaire

Modérateurs : Modérateurs, Modérateurs_Divers

Règles du forum
Répondre
  • Aperçu avant impression
Recherche avancée
2 messages • Page 1 sur 1
charnizay37
N00b
N00b
Messages : 1
Inscription : ven. 14 août 2020, 15:44
Problème de lecture clé de registre en binaire
  • Citer

Message par charnizay37 » ven. 14 août 2020, 15:49

Bonjour,

J'ai un souci, je n'arrive pas à récupérer la valeur d'une clé de registre de type Reg_binary afin de la convertir en string, mon code est le suivant :

Code : Tout sélectionner

     
                Const HKEY_CURRENT_USER = &H80000001
		Const HKEY_LOCAL_MACHINE  = &H80000002

   	
                ' ************ test 1 : lecture sous-clé dans  [B] HKEY_LOCAL_MACHINE[/B] ********************

		hDefKey = HKEY_LOCAL_MACHINE
		strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey"
		strValueName = "DigitalProductId"
 
                ' ************ test 2 : lecture sous-clé dans   [B]HKEY_CURRENT_USER [/B]********************
		hDefKey = HKEY_CURRENT_USER
		'strKeyPath = "\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging  Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\00000003"
		'strValueName = "Account Name"

	
		strComputer = "."
	
		Set oReg =GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
	
		oReg.GetBinaryValue hDefKey, strKeyPath, strValueName, arrBytes
	        strBytes = ""

						For Each uByte in arrBytes
							strBytes = strBytes & Hex(uByte) & " "
						Next
						wscript.echo "  " & strValueName & " (REG_BINARY) = " & strBytes
Si je récupère la valeur de la sous-clé DigitalProductId dans le tableau arrBytes via la méthode GetBinaryValue sur la clé : HKEY_LOCAL_MACHINE
, je n'ai pas de souci, j'obtiens bien une valeur en Hexa qui s'affiche du type : A4 0 0 0 3 0 0 0 35 35 30 33....

Maintenant, lorsque je souhaite récupérer la valeur d'une sous-clé en binaire à partir HKEY_CURRENT_USER, (voir valeurs transmises dans Test 2) j'obtiens systématiquement un message d'erreur du type :

erreur :" Cet objet n'est pas une collection"
code : 800A01C3

Sur l’exécution de la ligne 24 (boucle For) et j'avoue être bloqué

Merci pour votre aide

PS: j'ai testé sur d'autres valeurs binaire de sous-clé de HKEY_LOCAL_MACHINE, j'obtiens bien un résultat et les mêmes erreurs sur HKEY_CURRENT_USER
Haut

Avatar de l’utilisateur
kazer
First Lord
First Lord
Messages : 45981
Inscription : ven. 26 oct. 2001, 21:39
Localisation : Dans la grisaille de l'ile de france
Contact :
Contacter kazer
Site internet
Re: Problème de lecture clé de registre en binaire
  • Citer

Message par kazer » lun. 23 nov. 2020, 12:33

Ce n'est pas une string normalement mais une array si je me souviens bien
Guillaume DESFARGES Image Image Image
MCPTS Windows Server 2008/Virtualisation - MCITP: Enterprise Desktop Win7
MVP Directory Services (2004)/Security (2005-07)/Setup&Dep: Architecture (2008-15)/Cloud and Datacenter Management, Windows and Devices IT (2016)/Windows and Devices for IT (2017)
Profil MVP - Articles - Transcript (ID: 661703 Pass: Gdesfarges) - Bibliographie
Supinfo Promo 2001
Haut


Répondre
  • Aperçu avant impression

2 messages • Page 1 sur 1

Revenir à « Programmation »

Aller
  • Systèmes Microsoft
  • ↳   Serveurs Windows
  • ↳   Windows 2019
  • ↳   Windows 2016
  • ↳   Windows 2012 Server/2012 R2
  • ↳   Clients Windows
  • ↳   Windows 10
  • ↳   Windows 8/8.1
  • ↳   Active Directory
  • ↳   GPO/GPP
  • ↳   Gestion des Utilisateurs (et autres objets AD)
  • ↳   DNS
  • ↳   Controleur de Domaine Et Roles AD
  • ↳   Schema et Réplication
  • ↳   Autres Problèmes AD
  • ↳   Remote Desktop Services
  • ↳   Déploiement des systèmes d'exploitations Windows
  • ↳   Systèmes Windows Non Supportés
  • ↳   Windows Vista
  • ↳   Windows XP
  • ↳   Windows 2000
  • ↳   Autres (Windows NT,Me,98,95,3/2/1, Ms DOS)
  • ↳   SBS 2003
  • ↳   Windows 2003 Server (R2)
  • ↳   Windows 7
  • ↳   Windows 2008 R2 Server
  • ↳   Windows 2008 Server
  • ↳   SBS/EBS 2008
  • ↳   SBS 2011
  • Applicatifs Microsoft
  • ↳   Microsoft Azure/Office 365/Intune
  • ↳   Exchange Server
  • ↳   Exchange 2016
  • ↳   Exchange 2013
  • ↳   Exchange 2010
  • ↳   Exchange 2007/2003/2000/5.5
  • ↳   Communications Unifiées
  • ↳   SQL Server
  • ↳   Serveur Intranet/Internet
  • ↳   Internet Information serveur (IIS)
  • ↳   Sharepoint
  • ↳   System Center
  • ↳   Suite Microsoft Office
  • ↳   Word
  • ↳   Excel
  • ↳   Outlook
  • ↳   Autres Problèmes Suite Office
  • ↳   Office Info
  • ↳   Edge/Internet Explorer/Windows Mail/Onedrive
  • ↳   Patch/correctifs Ms et Windows Update Service (WSUS)
  • ↳   Serveurs Microsoft
  • ↳   Sécurité
  • Aide Technique
  • ↳   Intéropérabilité avec les Systèmes Alternatifs (Linux, Novell, Mac OS, etc.)
  • ↳   Programmation
  • ↳   Espace Certifications et Formations
  • ↳   Dépannage et Remarques divers
  • ↳   Réseaux et télécommunications
  • ↳   Virtualisation
  • ↳   Microsoft Virtualisation
  • ↳   VMware
  • ↳   Citrix/XEN
  • Divers
  • ↳   Emploi
  • ↳   Achat/Vente informatique
  • ↳   Pause Café
  • ↳   Site Du Forum
  • ↳   Demandes d'info/Modification du forum
  • Accueil du forum
  • Fuseau horaire sur UTC+01:00
  • Supprimer tous les cookies du forum
  • L’équipe
  • Nous contacter

Traduction française officielle © Miles Cellar