【发布时间】：2024-01-20 07:02:01
【问题描述】：
我不知道为什么，但我的子功能不起作用。我以为我已经遵循了它的工作原理，但它只会导致一个错误，声称我的函数未定义。
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="x-ua-compatible" content="IE=edge">
<title>Remote Registry</title>
<HTA:APPLICATION
APPLICATIONNAME="Remote Registry"
ID="RemReg"
VERSION="1.0.0.0"
SCROLL="no"
SINGLEINSTANCE="yes"
CONTEXTMENU="no"
NAVIGABLE="yes"
SELECTION="no"
/>
<style type="text/css">
body
{
margin: 0;
width: 130px;
height: 180px;
overflow: hidden;
font-family: arial;
font-weight: bold;
font-size: 12px;
}
</style>
</head>
<SCRIPT LANGUAGE="VBScript">
Sub CheckService
strComputer = txtBox.value
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name=""RemoteRegistry""")
For Each objService in colRunningServices
Output = objService.DisplayName & " is " & objService.State
Next
End Sub
</script>
<body>
<input type="text" name="TxTbox" size="30" value=DTP-> Computer to check<br />
<input id=checkservice type="button" value="Add Button" onClick="CheckService">
<div id="strComputer"></div>
</body>
</html>
我错过了什么？真的很简单吗？我已经尝试了函数的替代名称，移动到 VBScript 所在的位置。没有任何效果：sRem
【问题讨论】：
-
其他计算机是否在同一个域中？您的用户名/密码在其他电脑上是否有效？参考：msdn.microsoft.com/en-us/library/windows/desktop/…
-
是的，在同一个域上，我使用我的用户名和密码对所有其他 PC 具有完全的管理员访问权限 - 我将它作为 VBScript 工作，但希望在运行时自动检查更动态的东西。跨度>
-
我评论中的上述链接应该为您提供一些示例和如何进行的良好描述。我认为您缺少用户名/密码，但不确定。
-
谢谢，我会好好看看，但是，我的问题似乎是我的函数未定义，而不是函数的内部代码不起作用，只是当我点击按钮代码不起作用，因为它说“CheckService 未定义”——我假设如果 VBScript 中有错误，它会抛出一个不同的错误。