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 April 1, 2025, 11:29 pm This article has been viewed/printed 35343 times. |