对象在我的HTA App中不支持此属性或方法

Question

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不支持此属性或方法。

Answer 1

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

Set objNetwork = CreateObject("WScript.Network")