gpt4 book ai didi

vba - HTA 如何获取当前用户的用户名?

转载 作者:行者123 更新时间:2023-12-04 05:45:40 25 4
gpt4 key购买 nike

我想获取当前用户的用户名,然后在我的应用程序名称中创建一个链接

链接看起来像

http://localhost/?id=username

我试过了
Dim objNetworkSet 
objNetwork = CreateObject("WScript.Network")

但它在 HTA 应用程序中不受支持

最佳答案

正如它的前缀所示,“objNetwork”是一个对象。所以使用“Set”来分配给变量。

   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>

附言看 here对于同样的错误。对于 VBScript 的这个特性来说,似乎是糟糕的一天。

关于vba - HTA 如何获取当前用户的用户名?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10725000/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com