regread et write ne fonctionne pas

**patricktoulon** · 25/08/2014, 14h04

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

**l_autodidacte** · 25/08/2014, 16h45

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

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
<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>

**patricktoulon** · 25/08/2014, 23h59

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

**patricktoulon** · 26/08/2014, 00h52

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

regread et write ne fonctionne pas

VBScript

Discussions similaires

Partager

Partager