PC²
|
JUCUTUQUARA, VITÓRIA ES - BRASIL
|
|
Postada em 02/11/2004 08:03 hs
Tenta isto: <!--StartFragment-->Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Public Function NTUser() As String Dim llngResultCode As Long Dim lstrBuffer As String * 255 On Error Resume Next llngResultCode = WNetGetUser(vbNullString, lstrBuffer, 255) ' API Call NTUser = Trim(Replace(lstrBuffer, Chr(0), "") & "") End Function
____________________________ PC² T+
|
|
|