Determining the computer name

[Chris Kelleher]

I'm running version 8.3A Progress in Windows 98, and want to be able to
determine the computer name. Does anyone have any ideas or even an example
of doing this.

Thanks,
Milton

 

[Chris Kelleher]

<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>
def var lc-machine as char no-undo.
def var li-records as int no-undo.

/* Get Machine Name */
assign
lc-machine = fill(" ",155)
li-records = 155.
run GetComputerNameA(input-output lc-machine, input-output li-records).

procedure GetComputerNameA external "kernel32.dll".
def input-output parameter lpBuffer as char.
def input-output parameter nSize as long.
end.
[/code]