HTA, как я могу получить имя пользователя для текущего пользователя?

Обновить

December 2018

Просмотры

4.7k раз

2

Я хочу, чтобы получить имя пользователя для текущего пользователя, а затем создать ссылку на мое имя приложения

ссылка будет выглядеть

http://localhost/?id=username

Я старался

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

Но это не поддерживается в приложениях HTA

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.