GTAMulti - GTA Türkiye

PC ve Mobil Cihazlar => Yazılım => Konuyu başlatan: Bliss - 14 Eylül 2017, 16:59:07

Başlık: Vb programı sanal sunucuda başlatmama
Gönderen: Bliss - 14 Eylül 2017, 16:59:07
Merhaba arkadaşlar bir sorunum var konu yeri burası olmayabilir nereye acicagimi bulamadım visual studio da vb dili ile program kodluyorum fakat programın sanal sunucularda çalışmasını istemiyorum nasıl yapabilirim bulamadım internette.
Başlık: Ynt: Vb programı sanal sunucuda başlatmama
Gönderen: Kraus - 14 Eylül 2017, 22:23:57
Konu; Yazılım bölümüne taşındı.
Başlık: Ynt: Vb programı sanal sunucuda başlatmama
Gönderen: Gnusmas - 18 Eylül 2017, 21:51:18
Studio da kodluyorsan aşağıdaki kod programın açıldığı işletim sistemini çeker. Sonrasında koşul koyarsın dersin ki server 2000 - 2003 - 2008 - 2012 de bu program çalışmasın oldu bitti gitti.

My.Computer.Info.OSFullName
Başlık: Ynt: Vb programı sanal sunucuda başlatmama
Gönderen: Bliss - 18 Eylül 2017, 21:52:38
Alıntı yapılan: Gnusmas - 18 Eylül 2017, 21:51:18

Studio da kodluyorsan aşağıdaki kod programın açıldığı işletim sistemini çeker. Sonrasında koşul koyarsın dersin ki server 2000 - 2003 - 2008 - 2012 de bu program çalışmasın oldu bitti gitti.

My.Computer.Info.OSFullName


Peki ya w7 kurduysa sanal sunucuya
Başlık: Ynt: Vb programı sanal sunucuda başlatmama
Gönderen: Gnusmas - 18 Eylül 2017, 22:03:30
Evet ozamanda devreye bilgisayar sanal mı fiziksel mi diye kontrol etmen gerekli. öncelikle aşağıda verdiğim kod sunucunun türünü görsterir. İlk olarak "bilgisayar adı" nı çekmelisin. "strcomputer" de onu eşitlemelisin. sonrasında tekrar koşulunu gerçekleştir.

strComputer = "bilgisayaradi"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)

For Each objItem in colItems
strModel = objItem.Model
If strModel = "Virtual Machine" Then
wscript.echo "This is a virtual machine!"
else
wscript.echo "This is NOT a Virtual Machine"
End if
Next
Başlık: Ynt: Vb programı sanal sunucuda başlatmama
Gönderen: Bliss - 18 Eylül 2017, 22:06:17
Alıntı yapılan: Gnusmas - 18 Eylül 2017, 22:03:30

Evet ozamanda devreye bilgisayar sanal mı fiziksel mi diye kontrol etmen gerekli. öncelikle aşağıda verdiğim kod sunucunun türünü görsterir. İlk olarak "bilgisayar adı" nı çekmelisin. "strcomputer" de onu eşitlemelisin. sonrasında tekrar koşulunu gerçekleştir.

strComputer = "bilgisayaradi"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)

For Each objItem in colItems
strModel = objItem.Model
If strModel = "Virtual Machine" Then
wscript.echo "This is a virtual machine!"
else
wscript.echo "This is NOT a Virtual Machine"
End if
Next



Bilgisayar adı her zaman virtual machine olmaz ne olacağını bilemem herşey olabilir