Power Builder - WMI y MSScriptControl.ScriptControl

   
Vista:
Imágen de perfil de Antonio

WMI y MSScriptControl.ScriptControl

Publicado por Antonio (1114 intervenciones) el 21/05/2009 05:46:38
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder