Visual Basic

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);

Jasey9 wrote:

at least it puts my mind at rest that I have not gone crazy

Luc Pattyn [Forum Guidelines] [My Articles]

---

Voting for dummies? No thanks.

---

tatchung wrote:

I'm very new to VB6