Vbscript 使用Run方法从HTA启动Sysprep失败

我有三个文件：

测试.vbs

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
st = ""

windir = objShell.ExpandEnvironmentStrings("%windir%")
stCommand = windir & "\System32\sysprep\sysprep.exe"
CheckFile

progx86 = objShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
stCommand = progx86 & "\Internet Explorer\iexplore.exe"
CheckFile

MsgBox st

Sub CheckFile
    st = st & "File for test: " & stCommand & vbcrlf
    If objFileSystem.FileExists(stCommand) Then 
        st = st & "********** File exists!!!!!"
    Else
        st = st & "********** I cannot find the file :-("
    End If
    st = st & vbcrlf & vbcrlf & vbcrlf
    'objShell.Run chr(34) & stCommand & chr(34),,True
End Sub

MyTEST1.hta

测试HTA
子窗口加载
设置oShell=Createobject（“WScript.Shell”）
oShell.运行“test.vbs”，正确
自我封闭
端接头
我的测试

值得注意的是，所有文件都在同一个文件夹中。操作系统：Windows 7 64位，用户：本地内置管理员，UAC:已禁用。文件%windir%\system32\sysprep\sysprep.exe可以从Windows资源管理器以及命令promptI启动。我知道您说UAC已禁用，但这并不会停止对提升的限制。您是否尝试过通过提升（以管理员身份运行）命令提示符运行hta以确保您具有提升的管理员上下文？Lankymart，感谢您的评论。我非常希望有人能看到我的呼救声。。。再次感谢你。是的，我在提升的命令提示符下尝试了HTA，但它不太起作用。我很困惑，当从另一个脚本和HTA应用程序调用同一个脚本时，会得到不同的结果。除了IE设置，我无法解释这种行为。我还注意到，如果脚本从*%windir%\system32\sysprep*复制文件并从HTA调用，则会导致错误“找不到文件”。不必混淆，一个是从Web浏览器调用的，另一个是从MSHTA调用的。安全模型不同。值得注意的是，所有文件都位于同一文件夹中。操作系统：Windows 7 64位，用户：本地内置管理员，UAC:已禁用。文件%windir%\system32\sysprep\sysprep.exe可以从Windows资源管理器以及命令promptI启动。我知道您说UAC已禁用，但这并不会停止对提升的限制。您是否尝试过通过提升（以管理员身份运行）命令提示符运行hta以确保您具有提升的管理员上下文？Lankymart，感谢您的评论。我非常希望有人能看到我的呼救声。。。再次感谢你。是的，我在提升的命令提示符下尝试了HTA，但它不太起作用。我很困惑，当从另一个脚本和HTA应用程序调用同一个脚本时，会得到不同的结果。除了IE设置，我无法解释这种行为。我还注意到，如果脚本从*%windir%\system32\sysprep*复制文件并从HTA调用，则会导致错误“找不到文件”。不必混淆，一个是从Web浏览器调用的，另一个是从MSHTA调用的。安全模型不同。