如何从网站执行vbscript

Question

我有一个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 

Answer 1

好吧,让我们假装我们生活在一个你想要的世界里:

1. 世界上的每个Web服务器都可以将代码转储到客户端计算机上并执行它
2. 您的机器将很乐意执行网络服务器想要的任何内容
3. 在没有用户知道的情况下默默地完成这一切.
4. 神奇地将世界上的每台机器变成Windows PC,以便可以执行这个VB脚本代码
5. 讽刺探测器在网络上变得司空见惯,之前的4个点将如此读取.

Web浏览器被锁定以防止您的snoop代码尝试执行的滥用行为的类型,因为您的代码试图从计算机检索的内容是您的业务.