Windows XP运行 xxx.vbs 800A0046错误求助

[yeshang]

我自己的电脑。 xxx.vbs运行很正常， 然后把这个脚本放到别的电脑上，运行就提示800A0046错误，换了几台电脑，都是一样。 百度查找了N个办法 还是没能解决
所以来这里向V友们求助。
我觉得是我的windows少安装了什么程序导致的。不是代码本身的问题

具体错误是：
行： 18
错误：没有权限
代码：800A0046


下面贴代码
'功能: 监视剪贴板内容并将之记录到脚本所在目录下的"clipboardlog.txt"文件
'说明: 本脚本后台运行,没有显示,进程中会出现"wscript.exe"和"IEXPLORER.EXE"这两个进程
'当需要结束脚本时结束上述两个进程就行了
'
'sonic_andy 2007.1.27

'定义常量
Const ForWriting = 2
Const ForAppending = 8
Const TristateUseDefault = -2

'创建一个ie对象
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")

'创建一个文件系统对象,并以追加方式打开文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile("clipboardlog.txt",ForAppending,True,TristateUseDefault)

While True
'得到剪切板的内容
newContent = objIE.document.parentwindow.clipboardData.GetData("Text")
'判断是否改变,是否为空
If newContent<>strClipBoard And newContent<>"" Then
strClipBoard = newContent
'objLogFile.Write "[" & Date & " " & Time & "] ***********************************************" & vbCrLf
objLogFile.Write strClipBoard & vbCrLf
End If
'时间间隔为1秒
wscript.sleep(1)
Wend