I have determined that VBScript processing is not happening at all in Win PE 3.0 x64. The HTA itself is working fine except you can't do anything with it. None of the functions that require VBScript will work properly. Is there perhaps a file missing that I need? For example, running this function (its launched by clicking an image link) does nothing at all:
Sub Unmount Dim Answer Answer = window.confirm("Click OK to install Vista apps") If Answer Then objshell.run("vista_pe_selector.exe"),0 Else End If End Sub
And it should create a msgBox to show an OK box. When you click OK, it runs the EXE shown there or else Cancel and it does nothing. I have recompiled the programs for x64, so its not that it can't launch the programs. Now, the following code does something different. For some reason (if I am reading the code properly), the var for myInput = 7 because the "Aborted" box shows up right away.
Sub doTask(doMe) Dim myInput Dim myError If doMe = "1" Then MsgBox "You must select image to apply first." Else If Instr(1, doMe, "1", 1) > 0 Then myInput = 1 If myInput = 7 Then MsgBox "Aborted" Else Call DiskPart() If objFso.FileExists(Sysfolder & "\1.txt") Then objShell.Run doMe,1,True Call confirmation2() On Error Resume Next Objfso.DeleteFile(Sysfolder & "1.txt") On Error Goto 0 Else End If End if Else myError = objShell.Run(doMe, 1, True) End if End if End Sub
However, the link object with the following code to open the Command Prompt DOES work properly, and it still uses the doTask sub.
So what could be the reason that VBScript is not functioning in this PE?
Edit: I forgot to add that I have tried the following as well. Each of them succeed but offer no change.