標題: [分享] 使用WScript傳回電腦名稱 [打印本頁]

---

作者: Min    時間: 2010-5-9 21:00     標題: 使用WScript傳回電腦名稱

Sub Get_User2()
    Dim MyWshNw
    Set MyWshNw = CreateObject("WScript.Network")

    MsgBox "網域 " & MyWshNw.UserDomain
    MsgBox "電腦名稱 " & MyWshNw.ComputerName
    MsgBox "使用者名稱 " & MyWshNw.UserName
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)