WMIService() : Destroy() ?

[Jimmy]

hi,

i saw WMI Sample which use Function WMIService()
x:\fwh\samples\pcinfo.prg

Question : how to "destroy" WMI Connection ?

Code: Select all  Expand view  RUN

  oLocator := CreateObject( "wbemScripting.SwbemLocator" )
   oWMI := oLocator:ConnectServer()

[Antonio Linares]

Try with:

oWMI := nil

[Jimmy]

hi ,

Try with:
oWMI := nil

Thx for Answer.

Code: Select all  Expand view  RUN

function WMIService()
   // It would be useful to keep this function in the library
   static oWMI
   local oLocator

   if oWMI == nil
      oLocator   := CREATEOBJECT( "wbemScripting.SwbemLocator" )
      oWMI       := oLocator:ConnectServer()
   endif
return oWMI
 

how got get to that STATIC
what about ActiveX oLocator

i just think i have to destroy it else those Connection stay open (under Xbase++). i don't know how it is in harbour.