AltınSoft Makale Arşivi

Anasayfa | Toplu SMS | Video | Web Hosting | Makale Ara | Anketler | Sitene Ekle | RSS Kaynağı

VMware COM+ API

VMware COM+ API

Kategori	: VPS Sunucu
Yorum Sayısı	: 0
Okunma	: 304
Tarih	: 17 Temmuz 2009 21:28

    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

	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

54321

© 2004-2009 Tüm Hakları Saklıdır
RSS Kaynağı

AltınSoft Bilişim Teknolojileri

Altyapı: MyDesign Haber Sistemi