Par2: Get computer name on network 1997-10-13 -- Robert Parisi MODULE('WINAPI')
GetComputerName(*CString,*ULong),signed,raw,pascal,NAME('GetComputerNameA')
END
In Procedure:
JB:ComputerName CSTRING(255)
JB:ComputerLen ULONG(255)
IF GetComputerName(JB:ComputerName,JB:ComputerLen)
TheComputer=jb:computerName
Else
TheComputer='(Unknown)'
End
Printed October 25, 2026, 12:35 am This article has been viewed/printed 36241 times. |