Question

我想获取当前用户的用户名，然后在我的应用程序名称中创建一个链接

链接看起来像

http://localhost/?id=username

我试过

Dim objNetworkSet 
objNetwork = CreateObject("WScript.Network")

但HTA应用程序不支持

Answer 1

正如它的前缀所示，“objNetwork”是一个对象。因此，使用“Set”分配给变量。

   Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")
   MsgBox objNetwork.UserName

假设您想在运行时/动态设置链接：

<html>
 <head>
  <title>SetLink HTA</title>
  <HTA:APPLICATION
    APPLICATIONNAME="SetLink HTA"
  >
  <SCRIPT Language="VBScript">
   Sub SetLink()
     Dim oWNet : Set oWNet = CreateObject("WScript.Network")
     MsgBox oWNet.UserName
     LinkToBeDone.href = "http://gent/~" & oWNet.UserName
   End Sub
  </SCRIPT>
 </head>
  <body onLoad="SetLink">
   <a id="LinkToBeDone" href="!somewhere!">To your home at a real computer</a>
 </body>
</html>

P.S。看here同样的错误。对于VBScript的这个功能来说，这似乎是糟糕的一天。

HTA如何获取当前用户的用户名？

1 个答案: