- 帖子
- 172
- 主題
- 39
- 精華
- 20
- 積分
- 177
- 點名
- 0
- 作業系統
- Microsoft Windows XP
- 軟體版本
- Microsoft Office 2003
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2010-5-1
- 最後登錄
- 2023-3-19
 
|
Sub Get_User2()
Dim MyWshNw
Set MyWshNw = CreateObject("WScript.Network")
MsgBox "網域 " & MyWshNw.UserDomain
MsgBox "電腦名稱 " & MyWshNw.ComputerName
MsgBox "使用者名稱 " & MyWshNw.UserName
End Sub |
|
發表於 2010-5-9 21:00
| 
