home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2007 April / PCpro_2007_04.ISO / files / usb / VMware-server-installer101.exe / sample3.vbs < prev    next >
Encoding:
Text File  |  2006-08-09  |  5.1 KB  |  102 lines
  1. ' 
  2. '  VmCOM VBScript Sample Program 3
  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 gets a list of virtual machines registered on
  38. '  the local server.  It attempts to power-on each VM that
  39. '  is not already running and has a line in the config file:
  40. '
  41. '  autostart=true
  42. '
  43. '
  44. '  Instructions for Windows 2000 and Windows XP host:
  45. '
  46. '  - save the contents of this file to a file named 'sample3.vbs'
  47. '
  48. '  - there should be an accompanying file named 'sample3.wsf'
  49. '    It is placed in the same directory as this file during
  50. '    product installation. This file is responsible for setting
  51. '    up the Windows Script Host environment and loading the
  52. '    VmCOM type library, thereby enabling this script to 
  53. '    reference symbolic constants such as vmExecutionState_On
  54. '
  55. '  - in a command line window, type:
  56. '    cscript //nologo sample3.wsf
  57. ' 
  58.  
  59. Set connect_params = CreateObject("VmCOM.VmConnectParams")
  60.  
  61. ' By default, connects to the local server.
  62. ' To connect to a remote server, uncomment these lines and set
  63. ' the values appropriately.
  64. '
  65. ' connect_params.hostname = "<host>"
  66. ' connect_params.username = "<user>"
  67. ' connect_params.password = "<password>"
  68. '
  69. ' And use this if your port number is different
  70. ' connect_params.port = 902
  71.  
  72. Set vm_server = CreateObject("VmCOM.VmServerCtl")
  73.  
  74. ' Handle errors non-fatally from here on
  75. On Error Resume Next
  76.  
  77. '
  78. ' Try connecting to server a few times. It's possible the VMware services
  79. ' are still in the process of starting up. We'll wait a maximum of
  80. ' 12 * 10 = 120 seconds = 2 minutes
  81. '
  82. connected = false
  83. for tries = 1 to 12
  84.    vm_server.Connect connect_params
  85.    if Err.number = 0 then
  86.       = 2 minutes
  87. DN-ree w"l"+Pncluded in
  88. //  sample3.IxG
  89. //
  90. //  ------tC2863C385E30}#1.0#0"; "MSFLXGRD.OCX --Btion VB.Form MiniMUIForm t_parCa OR OTTTTTTTTT= ew RegExp Mini-MUI  thi s = s & " UNA -----CliuctHe     TTT= ew8280-----CliuctLeftTTTTTT= ew60-----CliuctTopTTTTTTT= ew345-----CliuctWidervTTTT= ew6960-----LinkTopionTTTTTT= ew MiniMUI -----ShiseHe     TTTT= ew8280-----ShiseWidervTTTTT= ew6960-----word>UpPosie", norew3 Ree, to anDe is
  91. -----Btion VB.C copy,Butt, ne confiLso, Cmdfrom hereCa OR OTTTTTTTTT= ew cript gets  so, subjectVmNames
  92. He     TTTTTTTTT= ew255mNames
  93. LeftTTTTTTTTTTTT= ew504the proceTabIramxTTTTTTTT= ew52he proceTopTTTTTTTTTTTTT= ew36the proceWidervTTTTTTTTTT= ew1815mNameEnd-----Btion VB.TnecBox VMwaInfo mNames
  94. He     TTTTTTTTT= ew285mNames
  95. LeftTTTTTTTTTTTT= ewRRAhe proceTabIramxTTTTTTTT= ew50he proceTopTTTTTTTTTTTTT= ew588the proceWidervTTTTTTTTTT= ew1815mNameEnd-----Btion VB.C copy,Butt, nbuildCmdfrom hereCa OR OTTTTTTTTT= ew BuildVmNames
  96. He     TTTTTTTTT= ew255mNames
  97. LeftTTTTTTTTTTTT= ew588the proceTabIramxTTTTTTTT= ew49he proceTopTTTTTTTTTTTTT= ew588the proceWidervTTTTTTTTTT= ew975mNameEnd-----Btion VB.C copy,Butt, nplatloamCmdfrom hereCa OR OTTTTTTTTT= ew PlatloamVmNames
  98. He     TTTTTTTTT= ew255mNames
  99. LeftTTTTTTTTTTTT= ew444the proceTabIramxTTTTTTTT= ew48he proceTopTTTTTTTTTTTTT= ew588the proceWidervTTTTTTTTTT= ew1335mNameEnd-----Btion VB.C copy,Butt, npMware Cmdfrom hereCa OR OTTTTTTTTT= ew PMware VmNames
  100. He     TTTTTTTTT= ew255mNames
  101. LeftTTTTTTTTTTTT= ew3n the proceTabIramxTTTTTTTT= ew47he proceTopTTTTTTTTTTTTT= ew588the proceWidervTTTTTTTTTT= ew1335mNameEnd-----Btion VB.C copy,Butt, nlt,crip connCmdfrom hereCa OR OTTTTTTTTT= ew G  copies oo the locVmNames
  102. He     TTTTTTTTT= ew255mNames
  103. LeftTTTTTTTTTTTT= ew49RAhe proceTabIramxTTTTTTTT= ew46he proceTopTTTTTTTTTTTTT= ew648the proceWidervTTTTTTTTTT= ew1935mNameEnd-----Btion VB.C copy,Butt, n filLegacySrvCmdfrom hereHe