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
No hay comentarios:
Publicar un comentario
Nota: solo los miembros de este blog pueden publicar comentarios.