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 May 4, 2024, 12:50 pm This article has been viewed/printed 35114 times. |