代码错误800A01A8 - 所需对象：Wscript

    <html>
<head>
<title>Files Sync </title>
<HTA:APPLICATION
  APPLICATIONNAME="Files Sync"
  ID="RY"
  VERSION="1.0"/>
</head>

<script language="vbscript">

Sub WriteTxt_OnClick()
    Dim fso, txt

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.CreateTextFile("\\fs-02\C$\ntfs3\scripts\MexSync\000.txt")

    txt.WriteLine document.Submitted_Link_To_Mex.body.value

    MsgBox "File Submitted",64,"Selection"


End Sub

Sub SYNC_onClick()

     Set WshShell = WScript.CreateObject("WScript.Shell")
     WshShell.Run "cmd.exe /c C:\work\RLTP_SYNC_MEX\RunChangePS1.bat", 0
            ' 0 => hide
     MsgBox("Success")

End Sub



</script>


<H2>Copy And Paste The Folder Path To Here </H2>
<body>


<form name="Submitted_Link_To_Mex">
<textarea name="body" cols="150" rows="20">

</textarea>
</form>




<br>
    <input type="button" value="1. SUBMIT" name="WriteTxt"> &nbsp; &nbsp; &nbsp;
    <input type="Button" value="2. SYNC" name="SYNC"> &nbsp; &nbsp; &nbsp;
    <input type="Button" value="3. CLOSE" name="button2" onClick="close" class="button">
</div>

</body>
</html>

我无法找出原因....做了一些研究但没有运气有什么建议吗？

Answer 1

WScript对象你的行

Set WshShell = WScript.CreateObject("WScript.Shell")

尝试使用HTA中不存在（由w | cscript.exe主机提供）。由于VBScript（语言本身）提供了自己的CreateObject函数，只需使用

Set WshShell = CreateObject("WScript.Shell")

Answer 2

您需要在替换文字上跟踪\，否则您有DataAppData

Replace(txt, "K:\", "D:\Data\")

同样response.write适用于ASP ......

代码错误800A01A8 - 需要对象

代码错误800A01A8 - 所需对象：Wscript

2 个答案: