標題: [分享] 取得目前登入Windows的User [打印本頁]

---

作者: Min    時間: 2010-5-3 21:02     標題: 取得目前登入Windows的User

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub Get_User_Name()
    Dim lpBuff As String * 25
    Dim ret As Long, UserName As String
    ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
    MsgBox UserName
End Sub

---

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