Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

commande Shell = RegRead , erreur automation !

2 réponses
Avatar
laetitia
bonjour
j'ai un programme vb qui va lire dans la base de registre
mon code est le suivant :

Dim WshShell, Serial As String, i As Integer
'permet de lire une valeur dans la base de registre
Set WshShell = CreateObject("Wscript.Shell")
Serial = WshShell.RegRead("HKLM\SOFTWARE\TOTO\3.0\Serial")

sur certaine machine cela fonctionne
sur d'autre j'ai 'Erreur Automation'
c'est sur la commande RegRead qu'il fais l'erreur

manque t'il une librairie sur la machine cliente ???

merci pour votre aide

Laetitia

2 réponses

Avatar
ng
Salut,

Je te déconseille l'utilisation de Wscript.Shell en VB (a utiliser en VBS
uniquement de préférence..) utilise plutot les APIs Registres, pour cela
regarde ds la FAQ (?), l'API-Guide ou cherche dans Google Groups.

Nicolas.

"laetitia" a écrit dans le message de news:
4f4601c37d07$82ca3980$
bonjour
j'ai un programme vb qui va lire dans la base de registre
mon code est le suivant :

Dim WshShell, Serial As String, i As Integer
'permet de lire une valeur dans la base de registre
Set WshShell = CreateObject("Wscript.Shell")
Serial = WshShell.RegRead("HKLMSOFTWARETOTO3.0Serial")

sur certaine machine cela fonctionne
sur d'autre j'ai 'Erreur Automation'
c'est sur la commande RegRead qu'il fais l'erreur

manque t'il une librairie sur la machine cliente ???

merci pour votre aide

Laetitia


Avatar
Sundowne
"laetitia" a écrit dans le message de
news:4f4601c37d07$82ca3980$
bonjour
j'ai un programme vb qui va lire dans la base de registre
mon code est le suivant :

Dim WshShell, Serial As String, i As Integer
'permet de lire une valeur dans la base de registre
Set WshShell = CreateObject("Wscript.Shell")

merci pour votre aide

Laetitia



'Jour
Effectivement l'usage de Wscript est très déconseillé. Si tu es
allergique aux API tu peux utiliser un ocx de MS regObj.dll free à
télécharger à l'adresse

http://msdn.microsoft.com/vbasic/downloads/components/default.aspx

@+