Vb programı sanal sunucuda başlatmama

[Bliss]

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.

[Kraus]

Konu; Yazılım bölümüne taşındı.

[Gnusmas]

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.

Kod Seç Expand

My.Computer.Info.OSFullName

[Bliss]

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.

Kod Seç Expand

My.Computer.Info.OSFullName

Peki ya w7 kurduysa sanal sunucuya

[Gnusmas]

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.

Kod Seç Expand

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

[Bliss]

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.

Kod Seç Expand

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