現在のユーザーのユーザー名を取得してから、アプリケーション名にリンクを作成したい
リンクは次のようになります
http://localhost/?id=username
私は試した
Dim objNetworkSet
objNetwork = CreateObject("WScript.Network")
ただし、HTAアプリケーションではサポートされていません
プレフィックスが示すように、「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 のこの機能にとって悪い日と思われます。