Ændre i regdata. via HTA
HejJeg står og skal have lavet et program i HTA der ka ændre lidt i registreringsdatabasen. Jeg er kommet op med følgende :
<head>
<title>Mit Program</title>
<HTA:APPLICATION
APPLICATIONNAME="Djurs test"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize"
>
</head>
<script language="VBScript">
Sub TestSub
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\minside.dk\https",2, "REG_DWORD"
objShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow\https://*.minsidedk",0,"REG_BINARY"
objShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Set objShell = nothing
End Sub
</script>
<body>
<input type="button" value="Run Script" name="run_button" onClick="TestSub"><p>
</body>
Hvis jeg køre det som et normalt vbscript, køre det faktisk som det skal. Der bliver tilføjet de ting som der skal, til registreringsdatabasen.
Men så straks jeg "wrapper" det over i HTA, køre det ikke som det skal.
Nogle skarpe hoveder der kan hjælpe?
