![]() |
为 Script 对象设定内建对象
Script.AddNameItem(strName, object)
下面的例子创建一个 Script 对象,装载 Sub.Box,将自己 Shell.Console 对象以 "MyConsole" 为名称设定为它的内建对象,然后执行:
Set Script = CreateObject("NetBox.Script") Script.Load "Sub.Box" Script.AddNameItem "MyConsole", Shell.Console
Sub.Box 的代码如下:
MyConsole.WriteLine "Sub.Box: I'am here!!!"
程序运行将在控制台显示一段文字:
Sub.Box: I'am here!!!