獲取網絡上的用戶名

本地設備以某種方式連接到網絡。通過FoxPro程序獲取本地用戶登錄網絡時使用的用戶名。此時，本地設備和網絡之間的連接必須存在。

方案1:使用WNetGetUser函數

在Win32API中聲明整數WNetGetUser STRING LP name，STRING @lpUserName，INTEGER @ lpn length
SZ username = SPACE(80)
dw result = 0
CCH buff = 80
dw result = WNetGetUser("，@szUserName，@cchBuff)
？substr(szUsername，1，atc(chr(0)，szUsername)-1)
？cchBuff

方案二:使用SYS(0)函數
if all (substr (sys (0)，rat ("#"，sys (0)) 2) >"1" and
！empty(allt(substr(sys(0)，rat("#"，sys(0)) 2)))
GC username = allt(substr(sys(0)，rat("#"，sys(0)) 2))
ELSE
GC username =" not connected"
ENDIF

事實上，在一些內置網絡功能的PC上(如運行Windows 98的PC)，運行上述兩種方案都會返廻正在使用的計算機的用戶名。

位律師廻複