Muy buenas, tengo este código de xHarbour y me gustarÃa pasarlo a Harbour, pero me da error al compilar el FOR EACH, ¿sabeis como puedo hacerlo?
function GetWMI(cClass,cProperty)
local oLoc,oWmi,oList,oItem
default cClass:="Win32_ComputerSystem",cProperty:="Name"
oLoc:= CreateObject( "wbemScripting.SwbemLocator" )
oWmi:= oLoc:ConnectServer()
if oWmi == NIL
return ""
end if
oList := oWmi:ExecQuery("SELECT * FROM "+cClass)
for each oItem in oList
cReturn:=oItem:&(cProperty)
next
return cReturn
Un Saludo.
function GetWMI(cClass,cProperty)
local oLoc,oWmi,oList,oItem
default cClass:="Win32_ComputerSystem",cProperty:="Name"
oLoc:= CreateObject( "wbemScripting.SwbemLocator" )
oWmi:= oLoc:ConnectServer()
if oWmi == NIL
return ""
end if
oList := oWmi:ExecQuery("SELECT * FROM "+cClass)
for each oItem in oList
cReturn:=oItem:&(cProperty)
next
return cReturn
Un Saludo.
