如何从网站执行vbscript

我有一个 VBScript 文件。当它在计算机上时，它工作正常。我想将它放在一个 php 站点上，以便通过单击按钮来执行它。但我还没有成功。它实际上获取计算机信息。希望它能在用户的机器上运行。任何想法将不胜感激。如果或者如果有人知道如何用 jscript 做到这一点

这是代码：

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colSettings 
    Wscript.Echo "OS Name: " & objOperatingSystem.Caption
    Wscript.Echo "Version: " & objOperatingSystem.Version  
    Wscript.Echo "Available Physical Memory: " & _
        objOperatingSystem.FreePhysicalMemory
Next

Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings 
        Wscript.Echo "Total Physical Memory: " & _
        objComputer.TotalPhysicalMemory
Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colSettings= objWMIService.ExecQuery _
    ("SELECT * FROM Win32_DiskDrive")
For Each objItem In colSettings
      WScript.Echo "Disk Size: " & objItem.Size 
   Next

Dim WSHShell 
Dim objAdr 
On error resume next 
Set WSHShell = WScript.CreateObject("WScript.Shell") 
test = wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names") 
If err.number > 0 Then 
msgbox "SQL Server not found" 
else msgbox "SQL Server found" 
end if 

好吧，让我们假设我们生活在一个你想要的都可能实现的世界：

1. 世界上的每个网络服务器都可以将代码转储到客户端计算机上并执行它
2. 您的机器将愉快地执行网络服务器想要的任何内容
3. 这一切都是在用户不知情的情况下默默进行的。
4. 神奇地将世界上的每一台机器变成Windows PC，以便可以执行此VB脚本代码
5. 讽刺检测器在网络上变得司空见惯，前面 4 点也将如此解读。

Web 浏览器被锁定，以防止您的窥探代码尝试执行的滥用行为，因为您的代码尝试从计算机检索的内容与您无关。