9 lines
262 B
Text
9 lines
262 B
Text
|
lpBuffer$=Space$(128) + Chr$(0)
|
||
|
|
struct SIZE,sz As Long
|
||
|
|
SIZE.sz.struct=Len(lpBuffer$)
|
||
|
|
|
||
|
|
calldll #kernel32, "GetComputerNameA",lpBuffer$ as ptr, SIZE as struct, result as Long
|
||
|
|
CurrentComputerName$=Trim$(Left$(lpBuffer$, SIZE.sz.struct))
|
||
|
|
|
||
|
|
print CurrentComputerName$
|