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 24, 2026, 2:49 pm This article has been viewed/printed 36239 times. |