找asp猛男

xuyanjian

嗯，话说某vbs脚本如下：

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\virtualization")
Set vmcollecion = objWMIService.ExecQuery("SELECT * FROM Msvm_ComputerSystem",,48)
Wscript.Echo VbCrLF
Wscript.Echo "Name                                    Description                        State "
Wscript.Echo "--------------------------------------- ---------------------------------- -------------"
' loop through all instances in collection
For each vm in vmcollecion
' decode system state, based on codes identified via trial and error
VMStateCode = vm.EnabledState
Select Case VMStateCode
         Case 2 VMState = "Running"
          Case 3      VMState = "PowerOff"
          Case 4      VMState = "ShuttingDown"
         Case 10    VMState = "Reset"
         Case 32768 VMState = "Paused"
         Case 32770 VMState = "Starting"
  Case 32771 VMState = "SnapshotInProgress"
         Case 32772 VMState = "Migrating"
         Case 32773 VMState = "Saving"
         Case 32774 VMState = "Stopping"
         Case 32776 VMState = "Pausing"
         Case 32777 VMState = "Resuming"
         Case 32769 VMState = "Saved"
  Case  Else  VMState = "Unclassified (so far)"
End Select
' print out VM info state
Wscript.Echo VbCrLF
Wscript.Echo  vm.ElementName & Space(40 - Len(vm.ElementName)) & _
    vm.Description & Space(35 - Len(vm.Description)) & _
   VMState & " (" & VMStateCode & ")"
' request state change if appropriate - the host should never be eligible
if ( VMState = "Running" or VMState = "Paused") and vm.Description <> "Microsoft Hosting Computer System" Then
  Wscript.Echo Space(40) & "Saving " & vm.ElementName
  RequestReturn = vm.RequestStateChange(32769)
  if RequestReturn = 4096 Then
   Wscript.Echo Space(40) & "Save request submitted"
  Else
   Wscript.Echo Space(40) & "Something goofy happened (" & RequestReturn & ")"
  End If
End If
Next
Wscript.Echo VbCrLF

找猛男做成asp的

kwx

Ho..目测这代码有点邪恶

fansfan

asp是什么

Kvm

把Wscript.Echo换成response.write
然后for循环里好像得改下

老刘

为什么不做成php？微软都放弃asp了。。。

xuyanjian

老刘 发表于 2012-10-24 15:05
为什么不做成php？微软都放弃asp了。。。

懒得再去装php
.net执行速度太慢了

zzzu

php.

niniwa

美女要不？

哈哈大侠

asp和vbs本来是一样的东西，但是有些对象要换一下，设置了下ContentType应该可以保持输出格式，语法什么喵了一下好像没什么问题，for那应该是这样的（循环数组）。GetObject在asp里没有要改下。调试无果，说字符无效，百度查了下发现是asp没有权限玩wmi，百度没找到调用wmi成功的例子，可以结贴了 给分吧，权限不够可是没办法的

1. <%
   
2.     Response.ContentType = "text/plain"
   
3.     strComputer = "."
   
4.         ' Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\virtualization")
   
5.         Set objWMIService = Server.CreateObject("winmgmts:\" & strComputer & "\root\virtualization")
   
6.     Set vmcollecion = objWMIService.ExecQuery("SELECT * FROM Msvm_ComputerSystem",,48)
   
7.     Response.Write VbCrLF
   
8.     Response.Write "Name                                    Description                        State "
   
9.     Response.Write "--------------------------------------- ---------------------------------- -------------"
   
10.     ' loop through all instances in collection
    
11.     For each vm in vmcollecion
    
12.     ' decode system state, based on codes identified via trial and error
    
13.     VMStateCode = vm.EnabledState
    
14.     Select Case VMStateCode
    
15.              Case 2 VMState = "Running"
    
16.               Case 3      VMState = "PowerOff"
    
17.               Case 4      VMState = "ShuttingDown"
    
18.              Case 10    VMState = "Reset"
    
19.              Case 32768 VMState = "Paused"
    
20.              Case 32770 VMState = "Starting"
    
21.       Case 32771 VMState = "SnapshotInProgress"
    
22.              Case 32772 VMState = "Migrating"
    
23.              Case 32773 VMState = "Saving"
    
24.              Case 32774 VMState = "Stopping"
    
25.              Case 32776 VMState = "Pausing"
    
26.              Case 32777 VMState = "Resuming"
    
27.              Case 32769 VMState = "Saved"
    
28.       Case  Else  VMState = "Unclassified (so far)"
    
29.     End Select
    
30.     ' print out VM info state
    
31.     Response.Write VbCrLF
    
32.     Response.Write  vm.ElementName & Space(40 - Len(vm.ElementName)) & _
    
33.         vm.Description & Space(35 - Len(vm.Description)) & _
    
34.        VMState & " (" & VMStateCode & ")"
    
35.     ' request state change if appropriate - the host should never be eligible
    
36.     if ( VMState = "Running" or VMState = "Paused") and vm.Description <> "Microsoft Hosting Computer System" Then
    
37.       Response.Write Space(40) & "Saving " & vm.ElementName
    
38.       RequestReturn = vm.RequestStateChange(32769)
    
39.       if RequestReturn = 4096 Then
    
40.        Response.Write Space(40) & "Save request submitted"
    
41.       Else
    
42.        Response.Write Space(40) & "Something goofy happened (" & RequestReturn & ")"
    
43.       End If
    
44.     End If
    
45.     Next
    
46.     Response.Write VbCrLF
    
47.     %>

复制代码