个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
25
4
我正在尝试制作一个简单的 HTA 以在 Active Directory 上运行查询，然后输出将是可选择的选项。我无法弄清楚的部分是如何进行选择部分。
Sub User
set objExec = objshell.Exec(dsquery user -name "UserName")
set objStdOut = objExec.StdOut
strLine = objStdOut.ReadAll
Results.value = StrLine
End Sub
此代码将输出到文本区域。
<textarea name="Results">
然后我想成为可选择的选项。因此，例如，如果我有多个名为“Smith”的用户，那么我可以选择我想要的用户并使用该信息运行另一个查询。
如果有比 textarea 更好的解决方案，我愿意接受建议。我只是不希望它成为下拉菜单或单选按钮。
感谢任何帮助
最佳答案
这是来自 How Can I Dynamically Populate a List Box in an HTA ? 的示例
<html>
<head>
<title>Local Users</title>
<HTA:APPLICATION
ID="objHTAHelpomatic"
APPLICATIONNAME="LocalUsers"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize"
>
</head>
<SCRIPT Language="VBScript">
Sub Window_Onload
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
Set objOption = Document.createElement("OPTION")
objOption.Text = objUser.Name
objOption.Value = objUser.Name
LocalUsers.Add(objOption)
Next
End Sub
'*********************************************************************
Sub Execute()
Dim UserVar,ws
UserVar = LocalUsers.value
Command = "cmd /k Title Execution of NET USER for "& DblQuote(UserVar) &" & net user "& UserVar &""
set ws = CreateObject("wscript.shell")
ws.run Command
End Sub
'*********************************************************************
Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
End Function
'*********************************************************************
</SCRIPT>
<body>
Command Net User<br><br>
<select name="LocalUsers"></select>
<input type="button" value="Execute Command Net User" onclick="Execute()">
</body>
</html>
关于html - 如何在 HTA 中使输出可选，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/38000391/
25
4
0
我有一个运行良好的 HTA 文件，但我的问题是我希望在文件运行时隐藏 HTA 控制台。 这是我的代码: var myVar = setInterval(function(){ myTimer() }
我写了一个 HTML 应用程序(hta 文件)，想知道是否有办法将图标文件嵌入到 hta 文件本身中。 我见过包含嵌入式图形文件的 html 电子邮件，有没有办法用 html 应用程序和图标来做到这一
我有一个 HTA，我总是希望它具有相同的尺寸。我已经通过使用 注意 - 如果您想允许用户滚动，请将 SCROLL 字符串从 NO 更改为 >是 关于hta - 防止 HTA 窗口调整大小，我们在St
有什么方法可以更改 HTA 应用程序的大小吗？ 谢谢 最佳答案 window.resizeTo(300,290); 关于hta - 更改 HTA 应用程序窗口大小，我们在Stack Ove
我正在尝试创建一个允许用户将数据添加到文本文件的 HTA 文件。我在该领域相当缺乏经验。 我需要完成一些事情: 将输入的数据写入文本文件(我的代码就是这样做的) 让用户从可用文件的下拉列表中选择要写入
全新的 HTA。我有 HTML 页面，允许用户为我们的一个应用程序提交密码请求。在机器升级到 Windows 10 之前一切正常，我不再有权获取对象电子邮件和用户帐户。好消息，如果我将文件另存为 HT
我想构建一个可以像 Web 浏览器一样加载 Web 的应用程序。但我希望它看起来像应用程序或像 .exe。当我双击时，它将运行应用程序并加载网络。 我的目标是: 应用程序加载全屏。 有否 工具栏、地址
我有两个选择下拉菜单。当我从第一个下拉列表中选择时，第二个下拉列表中的条目应该更改。此功能在浏览器中运行良好，但在 HTA(HTML 应用程序)中运行不正常 我的代码 function chan
如何最小化窗口？ 我正在制作 HTA 应用程序，我想用我的自定义标题栏替换窗口标题栏。我已通过 HTA 的“caption=no”选项禁用了它，并放置了我自己的最小化/最大化/关闭按钮。 我找到了两种
我想获取当前用户的用户名，然后在我的应用程序名称中创建一个链接 链接看起来像 http://localhost/?id=username 我试过了 Dim objNetworkSet objNetwo
批处理文件中的以下代码通过 HTA 对话框从用户处获取密码。它工作正常。我想传递一个变量值 !user[%%a]!显示在弹出的 HTA 对话框中，这样我就可以看到输入用户 ID 的密码:“BATCH
我有一个 HTML 应用程序，我想保留在所有窗口的顶部(也就是说，如果打开/切换到另一个窗口，我希望这个窗口覆盖它)。 JavaScript 解决方案在 Windows 7/IE9 模式下不起作用(不
我有一个 JavaScript 函数，它首先获取标签元素的值，该元素是数据库条目的 ID。然后，这些 ID 被发送到 ASP 页面，该页面从数据库中获取图像保存位置。 然后将每个选定图像的保存位置信息
在我创建的几个 .HTA 脚本中，我需要 VBScript WScript.Sleep 命令，它只是等待几毫秒而不使用 CPU。当我浏览网页时，似乎我不是唯一一个在寻找这个的人: https://ww
是否可以向 hta 添加自定义图标？我的意思是更改默认的 hta 文件图标，即“系统应用程序图标”。可以在不为扩展分配新图标并且不使用文件快捷方式的情况下完成吗？像这样 最佳答案 WinRAR 可以帮
每次当我尝试使用 vbscript 在 hta 文件中添加 javascript 时，当我单击提交按钮时，都会出现一条错误消息: object doesn't support this propert
第一次发帖，网站的长期读者。我搜索了整个 Internet，找不到可行的解决方案，而且我尝试了很多重写，但无法修复它。 我为工作编写 HTA 文件。通常是部门特定的笔记工具，使他们的工作更轻松。除了复
所以我尝试为我的 .bat 文件使用 ScriptGUI(来自 here)，但它没有文件选择器，所以我尝试添加一个。 我只是复制并重命名了一些代码，它似乎可以工作，除了为子函数添加另一个变量。
我的任务是创建几个数据库供办公室本地使用，一个用于记录病假电话，另一个用于记录员工出租车。 我无法在将用于开发应用程序的机器或将使用该应用程序的机器上安装新软件，因此不幸的是没有基于 xAMP 的应用
我有一个主要用 VBScript 编写的 HTML 应用程序。 应用程序每 10 分钟刷新一次，刷新的一部分是正在重新定位的窗口。但是，我不想通过重新定位窗口并使其在当前窗口前弹出(赋予它焦点)来打扰
我是一名优秀的程序员,十分优秀！