> Lou,
>
> I use this link which gives various options when programming or scripting
> against Virtual Server and Virtual Machines:
> http://msdn.microsoft.com/library/default.asp?url=/library/en-us/msvs/msvs/ivmvirtualserver.asp
>
> --
> Rick Barber
>
> http://www.orcsweb.com
> Managed Complex Hosting
> #1 in Service and Support
>
> "LouWho" <(email address - cut out)> wrote in message
> news:(email address - cut out)...
> >I am using a test machine to automate the installation of our product build
> > every night.
> > Every night my script will get the latest build and install it on clean
> > copys of multiple vm's, (as our product requires ar least three different
> > installations on at least three different physical machines)
> >
> > Here is the code that I use to shutdown the VM, copy the saved disk over,
> > and then restart it...
> >
> > "stop the VM here
> > set virtualserver = createobject("virtualserver.application")
> > set curvm = virtualserver.findvirtualmachine(VMName)
> > set CurOSint = curvm.GuestOS
> > set vmtask1 = CurOSint.shutdown
> > vmtask1.WaitForCompletion(-1)
> > LogMessage now() & " The Virtual Machine has been stopped", false
> >
> > "restore the disk
> > result = Fso.copyFile(SavedfilePath, RestoreFilePath, True)
> > LogMessage now() & " The Virtual Machine has been restored", false
> >
> > "start the VM again
> > set vmVar = VirtualServer.FindVirtualMachine("Win2003_VM1")
> > vmVar.Startup
> > wscript.sleep(60000)
> > LogMessage now() & " The Virtual Machine has been started", false
> >
> > Not wanting to take for granted that the VM, and\or the Virtual Server is
> > up, how to determine what the statis of both the vm's, and the Virtual
> > server?
> >
> > The code above will fail if the VM is not running, and\or the virtual
> > Server
> > is not running, will it not? I do not seem to be able to find any code
> > that
> > related to determing whether or not the virtual server is up and running.
> > How much wait time should be allowed for any stop or start, before
> > continuing
> > with the vbscript?
> >
> > What is the properties to examine for the VM's, and, and the VS?
> >
> > Thanks for any help.
> >
> > Lou
>
>
>

> I did look at the link that I was just pointed to, and have looked at it
> previously. Either what I am looking for is not there, or I do not recognize
> it.
>
> Being new to Virtual Server, I may not be using the correct terminology.
> Let me try this again. If I click on start\programs\MS Virtual
> Server\Virtual Server Administration Website, it starts the virtual Server.
> From there I can start individual virtual Machines.
>
> First, how do I determine that the Virtual Server Administration Website is
> up and running. I know that by using the following code, that if it shows me
> a status of "1", that the virtual machine is down...but it does not tell me
> that the Virtual Server Administration Website may also be down. In fact,
> the following code works whether or not the website is up.
> -----------------------------
> on Error Resume Next
> Set objVS = CreateObject("VirtualServer.Application")
>
> Wscript.Echo "Name: " & objVS.Name
> Set objVMColl = objVS.VirtualMachines
> If objVMColl.Count = 0 Then
> Wscript.Echo " Virtual machines: [none]"
> Else
> Wscript.Echo "Virtual machines: " & objVMColl.Count
> For Each objVM in objVMColl
> Wscript.Echo " Name: " & objVM.Name
> Wscript.Echo " state: " & objVM.state
> Next
> End If
> ---------------------------------------
> Second, is the "state" property the correct property to check to determine
> if the VM is running?
>
> I do not care if there are no particular VBScript examples of what I am
> looking for, just point me to the correct objects and properties and I will
> figure it out how to do it in VBScript.
>
> thanks
>
> Lou
>
>
> "Rick Barber" wrote:
>
> > Lou,
> >
> > I use this link which gives various options when programming or scripting
> > against Virtual Server and Virtual Machines:
> > http://msdn.microsoft.com/library/default.asp?url=/library/en-us/msvs/msvs/ivmvirtualserver.asp
> >
> > --
> > Rick Barber
> >
> > http://www.orcsweb.com
> > Managed Complex Hosting
> > #1 in Service and Support
> >
> > "LouWho" <(email address - cut out)> wrote in message
> > news:(email address - cut out)...
> > >I am using a test machine to automate the installation of our product build
> > > every night.
> > > Every night my script will get the latest build and install it on clean
> > > copys of multiple vm's, (as our product requires ar least three different
> > > installations on at least three different physical machines)
> > >
> > > Here is the code that I use to shutdown the VM, copy the saved disk over,
> > > and then restart it...
> > >
> > > "stop the VM here
> > > set virtualserver = createobject("virtualserver.application")
> > > set curvm = virtualserver.findvirtualmachine(VMName)
> > > set CurOSint = curvm.GuestOS
> > > set vmtask1 = CurOSint.shutdown
> > > vmtask1.WaitForCompletion(-1)
> > > LogMessage now() & " The Virtual Machine has been stopped", false
> > >
> > > "restore the disk
> > > result = Fso.copyFile(SavedfilePath, RestoreFilePath, True)
> > > LogMessage now() & " The Virtual Machine has been restored", false
> > >
> > > "start the VM again
> > > set vmVar = VirtualServer.FindVirtualMachine("Win2003_VM1")
> > > vmVar.Startup
> > > wscript.sleep(60000)
> > > LogMessage now() & " The Virtual Machine has been started", false
> > >
> > > Not wanting to take for granted that the VM, and\or the Virtual Server is
> > > up, how to determine what the statis of both the vm's, and the Virtual
> > > server?
> > >
> > > The code above will fail if the VM is not running, and\or the virtual
> > > Server
> > > is not running, will it not? I do not seem to be able to find any code
> > > that
> > > related to determing whether or not the virtual server is up and running.
> > > How much wait time should be allowed for any stop or start, before
> > > continuing
> > > with the vbscript?
> > >
> > > What is the properties to examine for the VM's, and, and the VS?
> > >
> > > Thanks for any help.
> > >
> > > Lou
> >
> >
> >

>I am using a test machine to automate the installation of our product build
> every night.
> Every night my script will get the latest build and install it on clean
> copys of multiple vm's, (as our product requires ar least three different
> installations on at least three different physical machines)
>
> Here is the code that I use to shutdown the VM, copy the saved disk over,
> and then restart it...
>
> "stop the VM here
> set virtualserver = createobject("virtualserver.application")
> set curvm = virtualserver.findvirtualmachine(VMName)
> set CurOSint = curvm.GuestOS
> set vmtask1 = CurOSint.shutdown
> vmtask1.WaitForCompletion(-1)
> LogMessage now() & " The Virtual Machine has been stopped", false
>
> "restore the disk
> result = Fso.copyFile(SavedfilePath, RestoreFilePath, True)
> LogMessage now() & " The Virtual Machine has been restored", false
>
> "start the VM again
> set vmVar = VirtualServer.FindVirtualMachine("Win2003_VM1")
> vmVar.Startup
> wscript.sleep(60000)
> LogMessage now() & " The Virtual Machine has been started", false
>
> Not wanting to take for granted that the VM, and\or the Virtual Server is
> up, how to determine what the statis of both the vm's, and the Virtual
> server?
>
> The code above will fail if the VM is not running, and\or the virtual
> Server
> is not running, will it not? I do not seem to be able to find any code
> that
> related to determing whether or not the virtual server is up and running.
> How much wait time should be allowed for any stop or start, before
> continuing
> with the vbscript?
>
> What is the properties to examine for the VM's, and, and the VS?
>
> Thanks for any help.
>
> Lou

> I'm not an expert on this but here's my two cents...
>
> STATE is the correct and as far as I know the only property to check in
> order to determine the running state of a virtual machine. (I've never been
> able to find all the possible values of state and what they mean.)
>
> Whether or not the admin web site is up/down has nothing to do with the
> virtual server service itself. You can start and stop virtual server using:
> net stop "virtual server"
> net stop "virtual machine helper"
>
> net start "virtual server"
>
> Hope that helps,
> Joe
>
> "LouWho" wrote:
>
> > I did look at the link that I was just pointed to, and have looked at it
> > previously. Either what I am looking for is not there, or I do not recognize
> > it.
> >
> > Being new to Virtual Server, I may not be using the correct terminology.
> > Let me try this again. If I click on start\programs\MS Virtual
> > Server\Virtual Server Administration Website, it starts the virtual Server.
> > From there I can start individual virtual Machines.
> >
> > First, how do I determine that the Virtual Server Administration Website is
> > up and running. I know that by using the following code, that if it shows me
> > a status of "1", that the virtual machine is down...but it does not tell me
> > that the Virtual Server Administration Website may also be down. In fact,
> > the following code works whether or not the website is up.
> > -----------------------------
> > on Error Resume Next
> > Set objVS = CreateObject("VirtualServer.Application")
> >
> > Wscript.Echo "Name: " & objVS.Name
> > Set objVMColl = objVS.VirtualMachines
> > If objVMColl.Count = 0 Then
> > Wscript.Echo " Virtual machines: [none]"
> > Else
> > Wscript.Echo "Virtual machines: " & objVMColl.Count
> > For Each objVM in objVMColl
> > Wscript.Echo " Name: " & objVM.Name
> > Wscript.Echo " state: " & objVM.state
> > Next
> > End If
> > ---------------------------------------
> > Second, is the "state" property the correct property to check to determine
> > if the VM is running?
> >
> > I do not care if there are no particular VBScript examples of what I am
> > looking for, just point me to the correct objects and properties and I will
> > figure it out how to do it in VBScript.
> >
> > thanks
> >
> > Lou
> >
> >
> > "Rick Barber" wrote:
> >
> > > Lou,
> > >
> > > I use this link which gives various options when programming or scripting
> > > against Virtual Server and Virtual Machines:
> > > http://msdn.microsoft.com/library/default.asp?url=/library/en-us/msvs/msvs/ivmvirtualserver.asp
> > >
> > > --
> > > Rick Barber
> > >
> > > http://www.orcsweb.com
> > > Managed Complex Hosting
> > > #1 in Service and Support
> > >
> > > "LouWho" <(email address - cut out)> wrote in message
> > > news:(email address - cut out)...
> > > >I am using a test machine to automate the installation of our product build
> > > > every night.
> > > > Every night my script will get the latest build and install it on clean
> > > > copys of multiple vm's, (as our product requires ar least three different
> > > > installations on at least three different physical machines)
> > > >
> > > > Here is the code that I use to shutdown the VM, copy the saved disk over,
> > > > and then restart it...
> > > >
> > > > "stop the VM here
> > > > set virtualserver = createobject("virtualserver.application")
> > > > set curvm = virtualserver.findvirtualmachine(VMName)
> > > > set CurOSint = curvm.GuestOS
> > > > set vmtask1 = CurOSint.shutdown
> > > > vmtask1.WaitForCompletion(-1)
> > > > LogMessage now() & " The Virtual Machine has been stopped", false
> > > >
> > > > "restore the disk
> > > > result = Fso.copyFile(SavedfilePath, RestoreFilePath, True)
> > > > LogMessage now() & " The Virtual Machine has been restored", false
> > > >
> > > > "start the VM again
> > > > set vmVar = VirtualServer.FindVirtualMachine("Win2003_VM1")
> > > > vmVar.Startup
> > > > wscript.sleep(60000)
> > > > LogMessage now() & " The Virtual Machine has been started", false
> > > >
> > > > Not wanting to take for granted that the VM, and\or the Virtual Server is
> > > > up, how to determine what the statis of both the vm's, and the Virtual
> > > > server?
> > > >
> > > > The code above will fail if the VM is not running, and\or the virtual
> > > > Server
> > > > is not running, will it not? I do not seem to be able to find any code
> > > > that
> > > > related to determing whether or not the virtual server is up and running.
> > > > How much wait time should be allowed for any stop or start, before
> > > > continuing
> > > > with the vbscript?
> > > >
> > > > What is the properties to examine for the VM's, and, and the VS?
> > > >
> > > > Thanks for any help.
> > > >
> > > > Lou
> > >
> > >
> > >

> Joe thanks for the info.
>
> Not being an admin type person, and being toally new to VS, I have only just
> begun my understanding. I thought that the website had to be up and running.
> I have since discovered otherwise. So...this is what I have put together...
>
> This is the code to copy the new\saved disk over...
>
> "------------------------------------------------------------------------
> "Stop the virtual Machine, (if running), and refresh the VM disk with the
> saved VM disk
> "------------------------------------------------------------------------
>
> Check_VM_State VMName,"Off"
>
> "restore the disk
> LogMessage now() & " Starting the disk copy", false
> result = Fso.copyFile(SavedfilePath, RestoreFilePath, True)
> LogMessage now() & " The Virtual Machine disk has been restored", false
>
> Check_VM_State VMName,"On"
> --------------------------------------------------------------
>
> Here is the code for Check_VM_State
>
> " ***********************************************************************
> "
> " Check_VM_State
> "
> " Check the state of the VM, and change it to the desired state, if necessary
> "
> " ***********************************************************************
> Sub Check_VM_State(vmname,dostate)
>
> LogMessage now() & " Check_VM_State: Set the VM: " & vmname & " state, to:
> " & dostate, false
>
> dim virtualserverApp, curvm, CurOSint, vmtask1, vmVar, SleepSeconds
>
> set virtualserverApp = createobject("virtualserver.application")
> set curvm = virtualserverApp.findvirtualmachine(VMName)
>
> err.clear
> if curvm.state <> 5 and curvm.state <> 1 then "???
> LogMessage now() & "The VM " & vmname & " has an unknown state of: " &
> curvm.state & " This script will now stop", false
> wscript.quit
> end if
>
> if curvm.state = 5 then
> LogMessage now() & " The VM: " & vmname & " current state is "On"", false
> else
> LogMessage now() & " The VM: " & vmname & " current state is "Off"",
> false
> end if
>
> if dostate = "Off" then
> if curvm.state = 5 then "running
> set CurOSint = curvm.GuestOS
> LogMessage now() & " Starting the Shut down of the VM: " & vmname & "
> now.", false
> set vmtask1 = CurOSint.shutdown
> vmtask1.WaitForCompletion(-1)
> LogMessage now() & " The Shut down of the VM: " & vmname & " has
> completed.", false
> end if
> exit sub "nothing to do here
> end if
>
>
> if dostate = "On" then
> if curvm.state = 1 then "Not running
> set vmVar =
> VirtualServerApp.FindVirtualMachine("Win2003_Core_and_Adapter")
> LogMessage now() & " Starting the VM " & vmname & " now.", false
> vmVar.Startup
> do until curvm.state = 5 or SleepSeconds >= 300
> "giving it 5 minutes now, this can be adjusted either way later
> sleep 30
> SleepSeconds = SleepSeconds + 30
> loop
> if SleepSeconds >= 360 then
> LogMessage now() & " Could not start the VM: " & vmname & " within
> six minues. This script will now stop", false
> wscript.quit
> else
> LogMessage now() & " The VM: " & vmname & " was started", false
> end if
> "Even though it has a state of 5\On, it still might not be available
> to the network, give it more time
> sleep 90
> end if
> end if
>
> End sub
>
> ++++++++++++++++++++++++++++++++++++++++++++++++
>
>
> "Joe from WI" wrote:
>
> > I'm not an expert on this but here's my two cents...
> >
> > STATE is the correct and as far as I know the only property to check in
> > order to determine the running state of a virtual machine. (I've never been
> > able to find all the possible values of state and what they mean.)
> >
> > Whether or not the admin web site is up/down has nothing to do with the
> > virtual server service itself. You can start and stop virtual server using:
> > net stop "virtual server"
> > net stop "virtual machine helper"
> >
> > net start "virtual server"
> >
> > Hope that helps,
> > Joe
> >
> > "LouWho" wrote:
> >
> > > I did look at the link that I was just pointed to, and have looked at it
> > > previously. Either what I am looking for is not there, or I do not recognize
> > > it.
> > >
> > > Being new to Virtual Server, I may not be using the correct terminology.
> > > Let me try this again. If I click on start\programs\MS Virtual
> > > Server\Virtual Server Administration Website, it starts the virtual Server.
> > > From there I can start individual virtual Machines.
> > >
> > > First, how do I determine that the Virtual Server Administration Website is
> > > up and running. I know that by using the following code, that if it shows me
> > > a status of "1", that the virtual machine is down...but it does not tell me
> > > that the Virtual Server Administration Website may also be down. In fact,
> > > the following code works whether or not the website is up.
> > > -----------------------------
> > > on Error Resume Next
> > > Set objVS = CreateObject("VirtualServer.Application")
> > >
> > > Wscript.Echo "Name: " & objVS.Name
> > > Set objVMColl = objVS.VirtualMachines
> > > If objVMColl.Count = 0 Then
> > > Wscript.Echo " Virtual machines: [none]"
> > > Else
> > > Wscript.Echo "Virtual machines: " & objVMColl.Count
> > > For Each objVM in objVMColl
> > > Wscript.Echo " Name: " & objVM.Name
> > > Wscript.Echo " state: " & objVM.state
> > > Next
> > > End If
> > > ---------------------------------------
> > > Second, is the "state" property the correct property to check to determine
> > > if the VM is running?
> > >
> > > I do not care if there are no particular VBScript examples of what I am
> > > looking for, just point me to the correct objects and properties and I will
> > > figure it out how to do it in VBScript.
> > >
> > > thanks
> > >
> > > Lou
> > >
> > >
> > > "Rick Barber" wrote:
> > >
> > > > Lou,
> > > >
> > > > I use this link which gives various options when programming or scripting
> > > > against Virtual Server and Virtual Machines:
> > > > http://msdn.microsoft.com/library/default.asp?url=/library/en-us/msvs/msvs/ivmvirtualserver.asp
> > > >
> > > > --
> > > > Rick Barber
> > > >
> > > > http://www.orcsweb.com
> > > > Managed Complex Hosting
> > > > #1 in Service and Support
> > > >
> > > > "LouWho" <(email address - cut out)> wrote in message
> > > > news:(email address - cut out)...
> > > > >I am using a test machine to automate the installation of our product build
> > > > > every night.
> > > > > Every night my script will get the latest build and install it on clean
> > > > > copys of multiple vm's, (as our product requires ar least three different
> > > > > installations on at least three different physical machines)
> > > > >
> > > > > Here is the code that I use to shutdown the VM, copy the saved disk over,
> > > > > and then restart it...
> > > > >
> > > > > "stop the VM here
> > > > > set virtualserver = createobject("virtualserver.application")
> > > > > set curvm = virtualserver.findvirtualmachine(VMName)
> > > > > set CurOSint = curvm.GuestOS
> > > > > set vmtask1 = CurOSint.shutdown
> > > > > vmtask1.WaitForCompletion(-1)
> > > > > LogMessage now() & " The Virtual Machine has been stopped", false
> > > > >
> > > > > "restore the disk
> > > > > result = Fso.copyFile(SavedfilePath, RestoreFilePath, True)
> > > > > LogMessage now() & " The Virtual Machine has been restored", false
> > > > >
> > > > > "start the VM again
> > > > > set vmVar = VirtualServer.FindVirtualMachine("Win2003_VM1")
> > > > > vmVar.Startup
> > > > > wscript.sleep(60000)
> > > > > LogMessage now() & " The Virtual Machine has been started", false
> > > > >
> > > > > Not wanting to take for granted that the VM, and\or the Virtual Server is
> > > > > up, how to determine what the statis of both the vm's, and the Virtual
> > > > > server?
> > > > >
> > > > > The code above will fail if the VM is not running, and\or the virtual
> > > > > Server
> > > > > is not running, will it not? I do not seem to be able to find any code
> > > > > that
> > > > > related to determing whether or not the virtual server is up and running.
> > > > > How much wait time should be allowed for any stop or start, before
> > > > > continuing
> > > > > with the vbscript?
> > > > >
> > > > > What is the properties to examine for the VM's, and, and the VS?
> > > > >
> > > > > Thanks for any help.
> > > > >
> > > > > Lou
> > > >
> > > >
> > > >

> I did not desk check your script but a quick glance through it and I noticed
> that you appear to be copying one file.
>
> Just so you know, a virtual machine is comprised of at least two files:
> *.vhd and *.vmc. And if someone does a "save state", there's a *.vsv file.
> Plus, differencing disks, etc.
>
> Just my two cents,
> Joe
>
> "LouWho" wrote:
>
> > Joe thanks for the info.
> >
> > Not being an admin type person, and being toally new to VS, I have only just
> > begun my understanding. I thought that the website had to be up and running.
> > I have since discovered otherwise. So...this is what I have put together...
> >
> > This is the code to copy the new\saved disk over...
> >
> > "------------------------------------------------------------------------
> > "Stop the virtual Machine, (if running), and refresh the VM disk with the
> > saved VM disk
> > "------------------------------------------------------------------------
> >
> > Check_VM_State VMName,"Off"
> >
> > "restore the disk
> > LogMessage now() & " Starting the disk copy", false
> > result = Fso.copyFile(SavedfilePath, RestoreFilePath, True)
> > LogMessage now() & " The Virtual Machine disk has been restored", false
> >
> > Check_VM_State VMName,"On"
> > --------------------------------------------------------------
> >
> > Here is the code for Check_VM_State
> >
> > " ***********************************************************************
> > "
> > " Check_VM_State
> > "
> > " Check the state of the VM, and change it to the desired state, if necessary
> > "
> > " ***********************************************************************
> > Sub Check_VM_State(vmname,dostate)
> >
> > LogMessage now() & " Check_VM_State: Set the VM: " & vmname & " state, to:
> > " & dostate, false
> >
> > dim virtualserverApp, curvm, CurOSint, vmtask1, vmVar, SleepSeconds
> >
> > set virtualserverApp = createobject("virtualserver.application")
> > set curvm = virtualserverApp.findvirtualmachine(VMName)
> >
> > err.clear
> > if curvm.state <> 5 and curvm.state <> 1 then "???
> > LogMessage now() & "The VM " & vmname & " has an unknown state of: " &
> > curvm.state & " This script will now stop", false
> > wscript.quit
> > end if
> >
> > if curvm.state = 5 then
> > LogMessage now() & " The VM: " & vmname & " current state is "On"", false
> > else
> > LogMessage now() & " The VM: " & vmname & " current state is "Off"",
> > false
> > end if
> >
> > if dostate = "Off" then
> > if curvm.state = 5 then "running
> > set CurOSint = curvm.GuestOS
> > LogMessage now() & " Starting the Shut down of the VM: " & vmname & "
> > now.", false
> > set vmtask1 = CurOSint.shutdown
> > vmtask1.WaitForCompletion(-1)
> > LogMessage now() & " The Shut down of the VM: " & vmname & " has
> > completed.", false
> > end if
> > exit sub "nothing to do here
> > end if
> >
> >
> > if dostate = "On" then
> > if curvm.state = 1 then "Not running
> > set vmVar =
> > VirtualServerApp.FindVirtualMachine("Win2003_Core_and_Adapter")
> > LogMessage now() & " Starting the VM " & vmname & " now.", false
> > vmVar.Startup
> > do until curvm.state = 5 or SleepSeconds >= 300
> > "giving it 5 minutes now, this can be adjusted either way later
> > sleep 30
> > SleepSeconds = SleepSeconds + 30
> > loop
> > if SleepSeconds >= 360 then
> > LogMessage now() & " Could not start the VM: " & vmname & " within
> > six minues. This script will now stop", false
> > wscript.quit
> > else
> > LogMessage now() & " The VM: " & vmname & " was started", false
> > end if
> > "Even though it has a state of 5\On, it still might not be available
> > to the network, give it more time
> > sleep 90
> > end if
> > end if
> >
> > End sub
> >
> > ++++++++++++++++++++++++++++++++++++++++++++++++
> >
> >
> > "Joe from WI" wrote:
> >
> > > I'm not an expert on this but here's my two cents...
> > >
> > > STATE is the correct and as far as I know the only property to check in
> > > order to determine the running state of a virtual machine. (I've never been
> > > able to find all the possible values of state and what they mean.)
> > >
> > > Whether or not the admin web site is up/down has nothing to do with the
> > > virtual server service itself. You can start and stop virtual server using:
> > > net stop "virtual server"
> > > net stop "virtual machine helper"
> > >
> > > net start "virtual server"
> > >
> > > Hope that helps,
> > > Joe
> > >
> > > "LouWho" wrote:
> > >
> > > > I did look at the link that I was just pointed to, and have looked at it
> > > > previously. Either what I am looking for is not there, or I do not recognize
> > > > it.
> > > >
> > > > Being new to Virtual Server, I may not be using the correct terminology.
> > > > Let me try this again. If I click on start\programs\MS Virtual
> > > > Server\Virtual Server Administration Website, it starts the virtual Server.
> > > > From there I can start individual virtual Machines.
> > > >
> > > > First, how do I determine that the Virtual Server Administration Website is
> > > > up and running. I know that by using the following code, that if it shows me
> > > > a status of "1", that the virtual machine is down...but it does not tell me
> > > > that the Virtual Server Administration Website may also be down. In fact,
> > > > the following code works whether or not the website is up.
> > > > -----------------------------
> > > > on Error Resume Next
> > > > Set objVS = CreateObject("VirtualServer.Application")
> > > >
> > > > Wscript.Echo "Name: " & objVS.Name
> > > > Set objVMColl = objVS.VirtualMachines
> > > > If objVMColl.Count = 0 Then
> > > > Wscript.Echo " Virtual machines: [none]"
> > > > Else
> > > > Wscript.Echo "Virtual machines: " & objVMColl.Count
> > > > For Each objVM in objVMColl
> > > > Wscript.Echo " Name: " & objVM.Name
> > > > Wscript.Echo " state: " & objVM.state
> > > > Next
> > > > End If
> > > > ---------------------------------------
> > > > Second, is the "state" property the correct property to check to determine
> > > > if the VM is running?
> > > >
> > > > I do not care if there are no particular VBScript examples of what I am
> > > > looking for, just point me to the correct objects and properties and I will
> > > > figure it out how to do it in VBScript.
> > > >
> > > > thanks
> > > >
> > > > Lou
> > > >
> > > >
> > > > "Rick Barber" wrote:
> > > >
> > > > > Lou,
> > > > >
> > > > > I use this link which gives various options when programming or scripting
> > > > > against Virtual Server and Virtual Machines:
> > > > > http://msdn.microsoft.com/library/default.asp?url=/library/en-us/msvs/msvs/ivmvirtualserver.asp
> > > > >
> > > > > --
> > > > > Rick Barber
> > > > >
> > > > > http://www.orcsweb.com
> > > > > Managed Complex Hosting
> > > > > #1 in Service and Support
> > > > >
> > > > > "LouWho" <(email address - cut out)> wrote in message
> > > > > news:(email address - cut out)...
> > > > > >I am using a test machine to automate the installation of our product build
> > > > > > every night.
> > > > > > Every night my script will get the latest build and install it on clean
> > > > > > copys of multiple vm's, (as our product requires ar least three different
> > > > > > installations on at least three different physical machines)
> > > > > >
> > > > > > Here is the code that I use to shutdown the VM, copy the saved disk over,
> > > > > > and then restart it...
> > > > > >
> > > > > > "stop the VM here
> > > > > > set virtualserver = createobject("virtualserver.application")
> > > > > > set curvm = virtualserver.findvirtualmachine(VMName)
> > > > > > set CurOSint = curvm.GuestOS
> > > > > > set vmtask1 = CurOSint.shutdown
> > > > > > vmtask1.WaitForCompletion(-1)
> > > > > > LogMessage now() & " The Virtual Machine has been stopped", false
> > > > > >
> > > > > > "restore the disk
> > > > > > result = Fso.copyFile(SavedfilePath, RestoreFilePath, True)
> > > > > > LogMessage now() & " The Virtual Machine has been restored", false
> > > > > >
> > > > > > "start the VM again
> > > > > > set vmVar = VirtualServer.FindVirtualMachine("Win2003_VM1")
> > > > > > vmVar.Startup
> > > > > > wscript.sleep(60000)
> > > > > > LogMessage now() & " The Virtual Machine has been started", false
> > > > > >
> > > > > > Not wanting to take for granted that the VM, and\or the Virtual Server is
> > > > > > up, how to determine what the statis of both the vm's, and the Virtual
> > > > > > server?
> > > > > >
> > > > > > The code above will fail if the VM is not running, and\or the virtual
> > > > > > Server
> > > > > > is not running, will it not? I do not seem to be able to find any code
> > > > > > that
> > > > > > related to determing whether or not the virtual server is up and running.
> > > > > > How much wait time should be allowed for any stop or start, before
> > > > > > continuing
> > > > > > with the vbscript?
> > > > > >
> > > > > > What is the properties to examine for the VM's, and, and the VS?
> > > > > >
> > > > > > Thanks for any help.
> > > > > >
> > > > > > Lou
> > > > >
> > > > >
> > > > >