2

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

链接看起来像

http://localhost/?id=username

我试过

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

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

4

1 回答 1

3

正如它的前缀所示，“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>

PS在这里寻找同样的错误。对于 VBScript 的这一特性来说，这似乎是糟糕的一天。

于 2012-05-23T17:59:13.347 回答