PowerBuilder : Obtener el dominio - Nombre de usuario y el nombre de la computadora.

integer li_rc
OleObject ole_wsh

ole_wsh = CREATE OleObject
li_rc = ole_wsh.ConnectToNewObject ( "WScript.Network" )
IF li_rc = 0 THEN
     MessageBox ("Dominio", string( ole_wsh.UserDomain ))
     MessageBox ("Usuario", string( ole_wsh.UserName ))
     MessageBox ("Nombre de la computadora", string( ole_wsh.ComputerName ))
END IF