home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2007 April / PCpro_2007_04.ISO / files / usb / VMware-server-installer101.exe / sample2.vbs < prev    next >
Encoding:
Text File  |  2006-08-09  |  5.0 KB  |  132 lines
  1. ' 
  2. '  VmCOM VBScript Sample Script (sample2)
  3. '  Copyright 1998 VMware, Inc.  All rights reserved. -- VMware Confidential
  4. '  
  5. '  Permission is hereby granted, free of charge, to any person obtaining a
  6. '  copy of the software in this file (the "Software"), to deal in the
  7. '  Software without restriction, including without limitation the rights to
  8. '  use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  9. '  copies of the Software, and to permit persons to whom the Software is
  10. '  furnished to do so, subject to the following conditions:
  11. '  
  12. '  The above copyright notice and this permission notice shall be included in
  13. '  all copies or substantial portions of the Software.
  14. '  
  15. '  The names "VMware" and "VMware, Inc." must not be used to endorse or
  16. '  promote products derived from the Software without the prior written
  17. '  permission of VMware, Inc.
  18. '  
  19. '  Products derived from the Software may not be called "VMware", nor may
  20. '  "VMware" appear in their name, without the prior written permission of
  21. '  VMware, Inc.
  22. '  
  23. '  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  24. '  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  25. '  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  26. '  VMWARE,INC. BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
  27. '  IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  28. '  CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  29. '
  30. '  ------
  31. '
  32. '  This program is for educational purposes only.
  33. '  It is not to be used in production environments.
  34. '
  35. '  Description:
  36. '
  37. '  This script displays the virtual machines on the local server.
  38. '  It prints the configuration file path and current execution
  39. '  state of each VM. If a VM is in the stuck state, the current
  40. '  question and its choices are also printed.
  41. '  Additionally, if a VM is stuck on an undoable disk related
  42. '  question, the script automatically answers 'Keep' on a power-off
  43. '  and 'Append' on a power-on.
  44. '
  45. '  NOTE: the question-answering logic used is language and product
  46. '        dependent, and is only provided for illustration purposes only!
  47. '
  48. '  Instructions for Windows 2000 and later operating systems:
  49. '
  50. '  - save the contents of this file to a file named 'sample2.vbs'
  51. '    unless it's already named that way
  52. '
  53. '  - there should be an accompanying file named 'sample2.wsf'
  54. '    It is placed in the same directory as this file during
  55. '    product installation. This file is responsible for setting
  56. '    up the Windows Script Host environment and loading the
  57. '    VmCOM type library, thereby enabling this script to 
  58. '    reference symbolic constants such as vmExecutionState_On
  59. '
  60. '  - in a command line window, type:
  61. '    cscript //nologo sample2.wsf
  62. ' 
  63.  
  64.  
  65. Set cp = CreateObject("VmCOM.VmConnectParams")
  66. Set server = CreateObject("VmCOM.VmServerCtl")
  67.  
  68. server.Connect cp 
  69. Set vmCollection = server.RegisteredVmNames
  70.  
  71. for each vmName in vmCollection
  72.    Set vm = CreateObject("VmCOM.VmCtl")
  73.    s = "path=" & vmName
  74.    On error resume next  ' Clear error object
  75.    vm.Connect cp,vmName
  76.    if err.Number = vmErr_VMBUSY then
  77.       s = s & " UNAVAILABLE (controlled by local console)"
  78.    elseif err.Number <> 0 then
  79.       s = s & " ERROR CONNECTING desc='" & err.Description & "'"
  80.    else
  81.       On error goto 0  'Make errors fatal past this point
  82.       s = s & " state=" & State2Str(vm) & " os=" & vm.Config("guestos") 
  83.       if vm.ExecutionState = vmExecutionState_Stuck then
  84.          Set q = vm.PendingQuestion
  85.          Set choices = q.choices
  86.          s = s & " question= '" & q.text & "' choices="
  87.          for each choice in choices
  88.          s = s & "[" & choice & "] "
  89.          next
  90.    
  91.          ' If this looks like an undoable disk save question,
  92.          ' automatically answer 'Append' or 'Keep'
  93.          '
  94.          ' NOTE: this code makes alot of assumptions about the product
  95.          '       and the language used, and may break under some environments.
  96.          '       It is shown for illustration purposes only!
  97.  
  98.          Set r = new RegExp     
  99.          r.pattern = "undoable disk"
  100.          r.ignorecase = True
  101.          Set matches = r.Execute(q.text)
  102.  
  103.          if matches.count > 0 then
  104.             for i = 1 to choices.count
  105.            if choices(i) = "Append" or choices(i) = "Keep" then
  106.                   WScript.Echo(s)
  107.                   s = "   --> Automatically selecting '" & q.choices(i) & "' as answer"
  108.                   vm.AnswerQuestion q,i
  109.               exit for
  110.                end if
  111.             next
  112.          end if 
  113.       end if
  114.    end if
  115.    WScript.Echo(s)
  116. next
  117.  
  118. function State2Str(vm)
  119.    select case vm.ExecutionState
  120.       case vmExecutionState_On
  121.          State2Str = "ON"
  122.       case vmExecutionState_Off
  123.          State2Str = "OFF"
  124.       case vmExecutionState_Suspended
  125.          State2Str = "SUSPENDED"
  126.       case vmExecutionState_Stuck
  127.          State2Str = "STUCK"
  128.       case else
  129.          State2Str = "UNKNOWN"
  130.    end select
  131. end function
  132.