Evet arkadaşlar. Vmware için size vereceğim bu kodlarla VDS lerinizi start stop veya listeleme yapabilirsiniz.
Kodlar ASP Scripttir. Linux Serverlarda Çalışmaz.
VDS Ana makinadaki VDS leri listeleme Kodu.
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 Sunucu VDS'leri açmak kapatmak Restart etmek için
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
VDS ana sunucuya buradaki eklentileri kurmanız gerekiyor ama.
Download VMware SDK & API - VMware
Son olarakta herkes faydalansın. VMWare Açık kaynak kodlu ücretsiz. Panelinide parayla almaktansa kendiniz yazın ve geliştirin. bizde sizlere yardımcı olalım. Sormak istediğiniz konu yada bişey olur ise. gelin seve seve yardımcı olurum. Üstelik parada almadan...