Power Builder - WMI y MSScriptControl.ScriptControl

Hola a todos

He estado investigando en internet y he encontrado diversos ejemplos utilizando WMI y MSScriptControl.ScriptControl...

Es bastante interesante ya que se puede ejecutar codigo de visual basic.

¿Alguno de ustedes puede darme link donde se den ejemplos prácticos con PowerBuilder?

por ejemplo, este es codigo en visual basic y lo corro en PowerBuilder para obtener la MacAdress del equipo:

OLEObject ole_wsh
Any la_usb[]
string ls_message

ole_wsh = CREATE OLEObject
ole_wsh.ConnectToNewObject("MSScriptControl.ScriptControl")
ole_wsh.Language = "vbscript"
ole_wsh.AddCode('Function rtnMACAddresses()~r~n' &
+ 'MACAddressList = "" ~r~n' + &
+ 'strComputer = "."~r~n' + &
+ 'Set objWMIService = ' + &
+ ' GetObject("winmgmts:{impersonationLevel=impersonate}!\" _~r~n' &
+ '& strComputer & " ootcimv2")~r~n' &
+ 'Set colItems = ' &
+ ' objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = ~'TRUE~'")~r~n' &
+ 'For Each objItem in colItems~r~n' &
+ 'MACAddressList = MACAddressList & " " & objItem.MACAddress ~r~n' &
+ 'Next~r~n' &
+ 'rtnMACAddresses = MACAddressList~r~n' &
+ 'End Function')
ls_message = ole_wsh.Eval("rtnMACAddresses")
ole_wsh.DisconnectObject()
DESTROY ole_wsh

MessageBox("MAC Adress List",ls_message)

como pueden ver lleva esta parte 'Function rtnMACAddresses' y lo que busco es todas las funciones que se puedan obtener en visual para poder correrlas.

Gracias