1

私は3つのファイルを持っています:

test.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

<html>
	<head>
		<title>Test HTA</title>
		<HTA:APPLICATION
		APPLICATIONNAME="My TEST"
		SCROLL="no"
		VERSION="1.0"/>
	</head>

	<script type="text/vbscript">
		Sub Window_OnLoad
			Set oShell = Createobject("WScript.Shell")
			oShell.Run "test.vbs",,True
			Self.Close
		End Sub
	</script>

	<body>
		<b>My TEST</b>
	</body>
</html>

MyTEST2.vbs

Set oShell = Createobject("WScript.Shell")
oShell.Run "test.vbs",,True

新しくインストールした Windows 7 でファイルを起動します。MyTEST2.vbs を実行すると、予測可能な結果が得 られます。

ただし、MyTEST1.htaを実行すると、別の結果が生成されます: MyTEST1.hta: FileExists fails on Sysprep.exe

この違いの理由を説明できる人はいますか？私の目標は、HTA から呼び出される VBScript からSysprep.exeを呼び出すことです。私はそれで立ち往生しており、あなたの助けに感謝します.

よろしくお願いします！

4

0 に答える 0