请教高手：ActiveX控件不能创建对象是怎么回事？

Question

Sub OpenTextFileTest()
  Const ForReading = 1, ForWriting = 2, ForAppending = 3
  Dim fs, f
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.OpenTextFile("c:\testfile.txt", ForWriting, TristateFalse)
  f.Write "Hello world!"
  f.Close
End Sub
在VB中引用了“Microsoft Scripting Runtime”我在自己的电脑上进行调试，都是通不过的，VB提示“实时错误‘429’ActiveX控件不能创建对象”，但是很奇怪，我在其他的机子上调试的时候都是可以顺利运行的，我一直找不到病因在哪？？希望有高手指点一下！！！！！！我的系统是win2000pro Sp4。。

Answer 1

更正一下：上面的是“ActiveX 部件不能创建对象”
急用，有高高高手指点一下吗？在线等。

Answer 2

VB提示“实时错误‘429’ActiveX控件不能创建对象”，是说到这一步:
  Set fs = CreateObject("Scripting.FileSystemObject") 出错么? 
会不会是其他地方的错误?

Answer 3

自己去看注册表
有可能FSO被管理员禁用了

Answer 4

去http://support.microsoft.com/kb/200271看看

Answer 5

Dim fs, f
  Set fs = CreateObject("Scripting.FileSystemObject")改成
Dim fs as new FileSystemObject
Dim f as new FileSystemObject接分

Answer 6

Dim fs, f
  Set fs = CreateObject("Scripting.FileSystemObject")如果把上面的代码改成
Dim fs as new FileSystemObject
Dim f as new FileSystemObject那么f.write 将会出错，没有此写入的方法？？？？？
没着？

Answer 7

有没有高手指教一下：
为什么一使用FSO对象，就会出现如上的问题？？？
难道我的VB出现故障了？？？

Answer 8

难道一用FSO都是会出现这样的问题吗？？？
是不是我自己的VB安装盘本身就有问题？？？