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 November 23, 2024, 2:25 am This article has been viewed/printed 35274 times. |