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

【问题标题】：HTA how do I get the username for the current user?HTA 如何获取当前用户的用户名？
【发布时间】：2012-05-24 04:16:17
【问题描述】：

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

链接看起来像

http://localhost/?id=username

我试过了

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

但它在 HTA 应用程序中不受支持

【问题讨论】：

标签： vba vbscript hta

【解决方案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>

附：查看here 是否有同样的错误。对于 VBScript 的这个特性来说，这似乎是糟糕的一天。

【讨论】：

如何将其插入链接？