EkonomikHost Bilgi Bankası

    Set Baglanti = CreateObject("VmCOM.VmConnectParams")
    Baglanti.hostname = "127.0.0.1"
    Baglanti.port = 902
    Baglanti.username = "Administrator"
    Baglanti.password = "sifre"

    set VmSunucusu = CreateObject("VmCOM.VmServerCtl")
    VmSunucusu.Connect Baglanti

    set vmlist = VmSunucusu.RegisteredVmNames

    for each config in vmlist

      Set vm = CreateObject("VmCOM.VmCtl")
      vm.Connect Baglanti, config      
  Response.Write vm.Config("displayName")
  Response.Write config
  Response.Write vm.ExecutionState
  Response.Write Vm.Uptime
  Response.Write vm.Config("memsize")
      Set vm = Nothing

    next
    set VmSunucusu = Nothing
    set Baglanti = Nothing

Vmware Server da ki sunucuyu kapatmak, açmak ve yeniden başlatmak için aşağıdaki script’i kullanabilirsiniz.

 Function  VmWareIslem(VmxPath,Durum,VmIp, VmUser, VmPass, VmPort)
   On Error Resume Next
   Set Baglanti = CreateObject("VmCOM.VmConnectParams")
     Baglanti.hostname = VmIp
     Baglanti.username = VmUser
     Baglanti.password = VmPass
     Baglanti.port = VmPort
    
   Set vm = CreateObject("VmCOM.VmCtl")
   vm.Connect Baglanti, VmxPath
    select case Durum
    case "UP"
     vm.Start(1)   
    case "DOWN"
     vm.Stop(1)
    case "RESET"
     vm.Reset(1)
    case "SUSPEND"
     vm.Suspent(1)
    case else
     VmWareIslem = 1
     Exit Function
    end select  
   Set vm = Nothing
   Set Baglanti = Nothing
   
   if Err.Number = 0 Then
      Islem = 0  
   Else  
      Islem = 1
      Err.Clear  
   End if
 End Function

Son olarak bu bileşenleri sunucuya kurmanız gerekmektedir.

Alaka : http://www.vmware.com/download/sdk/sdk.html

İyi çalışmalar…