Hi all,
Below, part of code I used on my HTA files. Code works fine on I8, but on IE10, registry isn't updated.It would be verynice ifsomeone hadan idea tohelp me out.
<HTML><HEAD><TITLE>TEst</TITLE><META http-equiv="Content-Script-Type" content="text/vbscript"/><HTA:APPLICATION ID="oHTA"
APPLICATIONNAME="TEstmoi"
BORDER="yes"
CAPTION="yes"
ICON=""
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
SCROLL="auto"
SCROLLFLAT="yes"
VERSION="1.0"
WINDOWSTATE="normal"/></HEAD><SCRIPT Language="VBScript">
On Error Resume Next
Err.clear
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_USERS = &H80000003
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
Set objSHELL = CreateObject("WScript.Shell")
If (Err.Number <> 0) Then
strTitle = "WU-Report : Unable to load object WScript.Shell"
strText = "Error Number : " & Err.Number & VbCrLf _& "Error Description : " & Err.Description
MsgBox strText,vbOK + vbExclamation, strTitle
WScript.Quit
End If
Set objWMIRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:stdRegProv")
If (Err.Number <> 0) Then
strTitle = "WU-Report : Unable to load object winmgmts\stdRegProv"
strText = "Error Number : " & Err.Number & VbCrLf _& "Error Description : " & Err.Description
MsgBox strText,vbOK + vbExclamation, strTitle
WScript.Quit
End If
strKey = "Test1"
strRegKey = "Test01"
strValue = "Value1"
errSetRegKey = objWMIRegistry.CreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ESRF" & "\" & strKey)
msgbox "HKLM\SOFTWARE\ESRF\" & strKey & "\" & strRegKey
objSHELL.RegWrite "HKLM\SOFTWARE\ESRF\" & strKey & "\" & strRegKey, strValue, "REG_SZ"
If (Err.Number <> 0) Then
strTitle = "WU-Report : Unable to load object winmgmts\stdRegProv"
strText = "Error Number : " & Err.Number & VbCrLf _& "Error Description : " & Err.Description
MsgBox strText,vbOK + vbExclamation, strTitle
WScript.Quit
End If</SCRIPT><BODY></BODY></HTML>Thank & Regards,
Arnaud