1 Konuyu açan Mehmet K

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

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
1

2

3

4

5

6

7

8

9

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

Son düzenleyen, Mehmet K (15.03.2010 21:05:42)

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

2 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Re: WMI varmı, yokmu

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

?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
Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

3 Cevaplayan Mehmet K

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

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 tane seçiniz.