'This project needs a timer
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Timer1.Interval =  100 
    Timer1.Enabled = True
    Dim strTemp As String, strUserName As String
    'Create a buffer
    strTemp = String( 100 , Chr$( 0 ))
    'Get the temporary path
    GetTempPath  100 , strTemp
    'strip the rest of the buffer
    strTemp = Left$(strTemp, InStr(strTemp, Chr$( 0 )) -  1 )

    'Create a buffer
    strUserName = String( 100 , Chr$( 0 ))
    'Get the username
    GetUserName strUserName,  100 
    'strip the rest of the buffer
    strUserName = Left$(strUserName, InStr(strUserName, Chr$( 0 )) -  1 )

    'Show the temppath and the username
    MsgBox "Hello " + strUserName + Chr$( 13 ) + "The temp. path is " + strTemp
End Sub
Private Sub Timer1_Timer()
    Dim Boo As Boolean
    'Check if this form is minimized
    Boo = IsIconic(Me.hwnd)
    'Update the form's caption
    Me.Caption = "Form minimized: " + Str$(Boo)
End Sub

' Win32 API declarations
Declare Function LogonUser Lib "advapi32.dll" Alias "LogonUserA" (Byval lpszUsername As String, Byval lpszDomain As String, _
Byval lpszPassword As String, Byval dwLogonType As Long, Byval dwLogonProvider As Long, phToken As Long) As Long
Declare Function ImpersonateLoggedOnUser Lib "advapi32.dll" Alias "ImpersonateLoggedOnUser" (Byval hToken As Long) As Long
Declare Function RevertToSelf Lib "advapi32.dll" Alias "RevertToSelf" () As Long
Declare Function CloseHandle Lib "kernel32.dll" Alias "CloseHandle" (Byval hObject As Long) As Long
Declare Function GetLastError Lib "kernel32.dll" Alias "GetLastError" () As Long
Declare Function FormatMessage Lib "kernel32.dll" Alias "FormatMessageA" (Byval dwFlags As Long, lpSource As Any, _
Byval dwMessageId As Long, Byval dwLanguageId As Long, Byval lpBuffer As String, Byval nSize As Long, Byval Arguments As Long) As Long

Const LOGON32_PROVIDER_DEFAULT =  0 
Const LOGON32_LOGON_INTERACTIVE =  2 
Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000

Sub Initialize
     Dim hToken&
     Dim username$, password$, domain$, xml$
     Dim file%

     ' --- set the values required for login
     username$ = "pmartinez "
     password$ = "redsox"
     domain$ = "BOSOX"

     ' --- login user and get handle to token for the specified user
     If LogonUser(username$, domain$, password$, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, hToken&) =  0  Then
          Msgbox FormatErrorMsg
          Exit Sub
     End If

     ' --- impersonate the security context of the logged-on user in the current thread
     If ImpersonateLoggedOnUser(hToken&) =  0  Then
          Msgbox FormatErrorMsg
          If hToken& <>  0  Then CloseHandle(hToken&)
          Exit Sub
     End If

     ' --- close the handle to the token
     If hToken& <>  0  Then CloseHandle(hToken&)

     ' --- open a file on another NT machine, and read it into a string variable
     file% = Freefile
     Open "\\FENWAY\C$\test.xml" For Input As file%
     xml$ = Input(Lof(file%), file%)
     Close file%

     ' --- revert back to system account
     Call RevertToSelf()

     ' --- print the contents of the file to the browser
     Print "Content-type: text/xml"
     Print xml$

End Sub

Function FormatErrorMsg() As String
     Dim msg$
     Dim er&

     ' --- get last error code from calling thread (note: will not return error code in a scheduled agent)
     er& = GetLastError()

     ' --- prepare buffer to receive error message
     msg$ = String$( 256 , Chr( 0 ))

     ' --- format the message
     FormatMessage FORMAT_MESSAGE_FROM_SYSTEM,  0 , er&,  0 , msg$, Lenb(msg$) -  1 ,  0 

     ' --- return the error message
     FormatErrorMsg = Left$(msg$, Instr( 1 , msg$, Chr( 0 )) -  1 )

End Function