如何取得電腦名稱

出自VFP Wiki

在2005年7月15日 (五) 01:13由Elleryq (對話 | 貢獻)所做的修訂版本
(差異) ←上一修訂 | 最新修訂 (差異) | 下一修訂→ (差異)
跳轉到: 導航, 搜尋


目錄

參考資料

http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=28221

solution

之一

machine_user=SYS(0)
xmd=AT("#",machine_user)
thismachine=AllTrim(SubStr(machine_user,1,xmd - 1))
LogonUser=AllTrim(SubStr(machine_user,xmd+1)) 

之二

wshNetwork = CreateObject("WScript.Network")
? wshNetwork.ComputerName