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

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

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

http://localhost/?id=username

Я попытался

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

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

источник

2012-05-23 Cocoa Dev

Как указывает префикс, «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>

P.S. Посмотрите here за ту же ошибку. Кажется, это плохой день для этой функции VBScript.

источник

2012-05-23 17:59:13

Как его вставить в ссылку? –

@Cocoa Dev см. Обновленный ответ –

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

ответ

Смежные вопросы