对象在我的 HTA 应用程序中不支持此属性或方法

Object doesn't support this property or method in my HTA App

vbscript
hta

Sub UserID
    Dim objNetwork
    objNetwork = CreateObject("WScript.Network") 'This is where I get the message
    Dim struserid
    struserid = objNetwork.UserName
    If Len(Trim(struserid)) = 0 or struserid = "*" Then 
        MsgBox "Please enter a valid username.",48,"Invalid entry"
        Exit Sub
    End If

我在我的应用程序的另一个子例程中使用了这段代码，它工作正常。

然而，当我在这个子例程中使用它时，出现了这个错误：

Object doesn't support this property or method.

将对象分配给变量时，必须使用 Set 关键字：

<b>Set</b> objNetwork = CreateObject("WScript.Network")