OVH Cloud OVH Cloud

RegRead -> Erreur Automation

1 réponse
Avatar
laetitia
Bonjour,
j'ai un programme vb qui lit dans la base de registre
le code est le suivant :

Set WshShell = CreateObject("Wscript.Shell")
Serial = WshShell.RegRead("HKLM\SOFTWARE\TOTO\Serial")

sur certain poste cela fonctionne
sur d'autre j'ai une erreur : "Erreur Automation"
sur la commande "WshShell.RegRead"
manque t-il une dll sur le poste client

merci pour votre aide

Laetitia

1 réponse

Avatar
Ledev
laetitia wrote:
Bonjour,



Salut,

j'ai un programme vb qui lit dans la base de registre
le code est le suivant :

Set WshShell = CreateObject("Wscript.Shell")
Serial = WshShell.RegRead("HKLMSOFTWARETOTOSerial")

sur certain poste cela fonctionne
sur d'autre j'ai une erreur : "Erreur Automation"
sur la commande "WshShell.RegRead"
manque t-il une dll sur le poste client

merci pour votre aide



Pourquoi ne pas utiliser les APIs, sa serra bien plus légèe, et en plus sa
marchera partout ;-).

Utilise un complément dont je ne me souviens plus le nom qui te fournie un
module tous prêt(pour l'instant chez moi VB est casser, je ne peut donc pas
le retrouvée), puis tu l'appelle comme ceci:

debug.print getkeyvalue(HKEY_CLASSES_ROOT,".txt","Content Type")
debug.print getkeyvalue(HKEY_CLASSES_ROOT,".txt","")
debug.Print getkeyvalue(HKEY_CLASSES_ROOT,"txtfileshellopencommand","")

a+