Skip to content Skip to left sidebar Skip to right sidebar Skip to footer

Windows Vista ve 7 de “Bu program doğru yüklenmemiş olabilir” Uyarısını Kapatma

Abone Ol 

Windows Vista ve 7 de bir programın kurulumu sırasında uyumluluk sorunlarını gözlemleyip karşımıza “This program might not have installed correctly” şeklinde bir mesaj çıkartan windows uygulaması Compatibility Assistant dır. Bu uyarının çıkmamasını istiyorsanız servislerden (services.msc) Program compatibility assistence service devre dışı bırakılabilir.

Ayrıca aşağıdaki vbs scripti kullanarak sorununuzu kolayca çözebilirsiniz.

(Kodları yeni metin belgesi oluşturup yapıştırın. Ardından metin belgesinin uzantısını vbs yapın.)

Servisi kapatmak için:

strComputer = "."

Dim strService(1)
  strService(1) = " 'PcaSvc' "
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service Where Name ="_
  & strService(nCounter) & " ")

For nCounter = 1 to 1
  Set colListOfServices = objWMIService.ExecQuery _
  ("Select * from Win32_Service Where Name ="_
  & strService(nCounter) & " ")

  For Each objService in colListOfServices
    objService.StopService()
    errReturnCode = objService.ChangeStartMode("Disabled")

  Next
Next

Servisi açmak için:

strComputer = "."

Dim strService(1)
strService(1) = " 'PcaSvc' "
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ="_
& strService(nCounter) & " ")

For nCounter = 1 to 1
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ="_
& strService(nCounter) & " ")

For Each objService in colListOfServices
objService.StartService()
errReturnCode = objService.ChangeStartMode("Automatic")

Next
Next

0 Yorum

Henüz yorum yok.

Yorum Bırak

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

ajax-loader