Visual Basic

csciwiz wrote:

know how to use a thing called google?

Public Structure Env
        Dim strVarName As String
        Dim strValue As String
End Structure

Public Sub Main()
        Dim intCtr, intPos As Integer
        Dim strRetVal As String
        Dim udtEnv As Env

        intCtr = 1
        Do
            strRetVal = Environ(intCtr)
            If strRetVal <> "" Then

                intPos = InStr(1, strRetVal, "=")
                udtEnv.strVarName = Left(strRetVal, intPos - 1)
                udtEnv.strValue = Mid(strRetVal, intPos + 1)
                MsgBox(udtEnv.strVarName & "  " & udtEnv.strValue)
            Else
                Exit Do
            End If
            intCtr = intCtr + 1
        Loop
    End Sub
End Module

String strloginname = Environment.UserName.ToString();
   String strComputername = Environment.MachineName.ToString();
   MessageBox.Show(strloginname);
   MessageBox.Show(strComputername);