2012-05-23 2 views
2

은 내가 HTA 현재 사용자의 사용자 이름은 어떻게 얻습니까?

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

을 시도

http://localhost/?id=username 
처럼

링크가 보일 것이다 현재 사용자의 사용자 이름을 얻을하고 내 응용 프로그램 이름에서 링크를 만들려하지만 지원되지 않는 HTA 응용 프로그램에서

답변

3

접두어가 나타내는대로 "objNetwork"는 개체입니다. 따라서 "Set"을 사용하여 변수에 할당하십시오.

<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> 

추신 :

Dim objNetwork : Set objNetwork = CreateObject("WScript.Network") 
    MsgBox objNetwork.UserName 

당신이 즉시 실행에있는 링크를/설정하려는 가정 같은 실수를 했으므로 here을 (를) 봐주십시오. VBScript의이 기능에 나쁜 날인 것으로 보입니다.

+0

링크에 어떻게 삽입합니까? –

+0

@ 코코아 개발자 업데이트 답변보기 –