2

現在のユーザーのユーザー名を取得してから、アプリケーション名にリンクを作成したい

リンクは次のようになります

http://localhost/?id=username

私は試した

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

ただし、HTAアプリケーションではサポートされていません

4

1 に答える 1

3

プレフィックスが示すように、「objNetwork」はオブジェクトです。したがって、「設定」を使用して変数に割り当てます。

   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 に答える