1 Konuyu açan Mehmet K Son düzenleyen, Mehmet K (15.03.2010 21:05:42)

  • Mehmet K
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 02.01.2010
  • İleti: 913

Konu: WMI varmı, yokmu

Merhaba

WMI bir bilgisayarda varmı yokmu nasıl test edebilirim?
Şu an bu yöntemi uyguluyorum, ama eminim bunun daha güzel bir yöntem vardır.

Visual Fox Pro
ON ERROR silent_error()

gnError = 0

oW = Createobject("wbemScripting.SwbemLocator")

ON ERROR My_Std_Error( ERROR(), MESSAGE(), MESSAGE(1), PROGRAM(), LINENO() )

IF gnError == 0

  * sorun yok

ELSE

  * sorun var

ENDIF
Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tanesini seçiniz.

2 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: WMI varmı, yokmu

Visual Fox Pro
?IsClassRegistered('wbemScripting.SwbemLocator')

 

PROCEDURE IsClassRegistered

lparameters tcClass

#IFNDEF HKEY_CLASSES_ROOT

#DEFINE HKEY_CLASSES_ROOT    -2147483648

#ENDIF

 

DECLARE Integer RegOpenKey IN Win32API ;

    Integer nHKey, String @cSubKey, Integer @nResult

 

DECLARE Integer RegCloseKey IN Win32API ;

    Integer nHKey

 

local lnKey

lnKey = 0

llRetVal = ( RegOpenKey(HKEY_CLASSES_ROOT, tcClass, @lnKey) = 0 ) && 0 success

if llRetVal

  RegCloseKey(lnKey)

endif

CLEAR DLLS 'RegOpenKey','RegCloseKey'

return llRetVal

cetinbasoz's Website

3 Cevaplayan Mehmet K

  • Mehmet K
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 02.01.2010
  • İleti: 913

Re: WMI varmı, yokmu

Evet, bu çözüm içime sindi. Teşekkür ederim.

Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tanesini seçiniz.