regread et write ne fonctionne pas

Version imprimable

bonjour a tous
j'ai un soucis avec 2sub en vbs
en effet quand je les met dans un vbs elle fonctionnent
mais quand je les met dans une sub a l'intérieur des balise script d'un hta elle me renvoient des valeur"Null" je ne comprend pas pourquoi
quelqu'un a une idée
voila le code pour écrire les 2 valeurs dans le registre
Code:

1 2 3 4 5 6 7 8 HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") oReg.CreateKey HKEY_LOCAL_MACHINE,"SOFTWARE\appdis" oReg.SetStringValue HKEY_LOCAL_MACHINE,"SOFTWARE\appdis","identifiant","toto" oReg.SetStringValue HKEY_LOCAL_MACHINE,"SOFTWARE\appdis","MDP","trucmachin"
et voila le code pour lire les 2 valeurs
Code:

1 2 3 4 5 6 7 8 9 10 11 HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") cle= "SOFTWARE\appdis" oReg.GetStringValue HKEY_LOCAL_MACHINE,cle,"identifiant",strValue identifiant=strValue oReg.GetStringValue HKEY_LOCAL_MACHINE,cle,"MDP",strValue password=strValue msgbox identifiant &vbcrlf & password
toutes les deux fonctionnent très bien dans un ".vbs" c'est assez déroutant
help me !!!

Pourtant si pour ma machine(WIN XP SP3) avec ce :

Code:

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
<html> 
 <head><title>ManipReg</title> 
 
<HTA:APPLICATION ID="READ_WRITE_REG";
APPLICATIONNAME="READ_WRITE_REG"; 
SCROLL="Yes"; 
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<body bgcolor="#E8E8E8"> 
 
<Script language="VBScript" type="text/vbscript"> 
Sub Lire_Reg()
     HKEY_LOCAL_MACHINE = &H80000002
    strComputer = "."
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
 
    cle= "SOFTWARE\appdis"
    oReg.GetStringValue HKEY_LOCAL_MACHINE,cle,"identifiant",strValue
    identifiant=strValue
    oReg.GetStringValue HKEY_LOCAL_MACHINE,cle,"MDP",strValue
    password=strValue
    msgbox  identifiant &vbcrlf &  password
End Sub 
'====================
Sub Ecrire_Reg()
    HKEY_LOCAL_MACHINE = &H80000002
    strComputer = "."
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
 
    oReg.CreateKey HKEY_LOCAL_MACHINE,"SOFTWARE\appdis\"
  ' Ecriture 
    oReg.SetStringValue HKEY_LOCAL_MACHINE,"SOFTWARE\appdis\","identifiant","toto"
    oReg.SetStringValue HKEY_LOCAL_MACHINE,"SOFTWARE\appdis\","MDP","trucmachin"
  'Lecture 
     oReg.GetStringValue HKEY_LOCAL_MACHINE,"SOFTWARE\appdis\","identifiant",Ret
    ident=ret
    oReg.GetStringValue HKEY_LOCAL_MACHINE,"SOFTWARE\appdis\","MDP",Ret
    Ident1=Ret
    msgbox  ident &vbcrlf &  ident1
End Sub
</Script> 
 
<br><br> 
<input type=button name ="Lire" value="Lire les valeurs" OnClick="Lire_Reg()"><br><br>
<input type=button name ="Ecrire" value="Ecrire les valeurs" OnClick="Ecrire_Reg()">
</body>
</HTML>

25/08/2014, 23h59
patricktoulon

re

Bonjour l'autodidacte

moi je tourne avec W7 64 bits home premium ca change peut être a cause d'un problème d'autorisation
je n'ai rien trouvé sur la toile
bref je patauge
26/08/2014, 00h52
patricktoulon

re

bon j'ai trouvé
en fait ca me marquait bien les clef mais un hta fonctionnant d'office avec l'application mshta.exe qui est donc en 32 bit
donc utilise le vbcript.exe en 32 bit et donc adapte le chemin dans le hklm/sofware/wow6432node/appdis

purée ca fait depuis le début de l'après midi que je galère avec ca

merci c'est toi qui m'a mis sur la voie avec ton xp sp3 patin couffin

il va falloir que j'adapte