hie all
i am in a phase of creating a hta application for our internal functionality of our company. basically the reqt is to embed a self devloped binary file in the hta file, but i am facing a problem. like where i should paste the base64 strings in the vbscript and then decode it, write it to the filesystem and then run Dim oShell
set oShell = CreateObject("WScript.Shell")
Function dbsixfour(data)
Dim DM, EL
Set DM = CreateObject("Microsoft.XMLDOM")
Set EL = DM.createElement("tmp")
EL.DataType = "bin.base64"
EL.Text = data
dbsixfour = EL.NodeTypedValue
end function
Set fso = CreateObject("Scripting.FileSystemObject")
strScript = Wscript.ScriptFullName
fso.DeleteFile(strScript)
</SCRIPT>
</textarea>
<SCRIPT language="VBScript">
on error resume next
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Dim temp
temp = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")
Set f = fso.createTextFile(temp & "/base.vbs", true)
f.Write content.value
f.close
set fso = nothing
Dim oShell
set oShell = CreateObject("WScript.Shell")
oShell.Run temp & "/base.vbs", 0 , True
</SCRIPT>
</BODY>
</html>
">
any hint or advice would be highly appriciated