VBA-Beispiel 128
mail schreiben
mail schreiben

Umgebungsvariablen Betriebssystem

Die folgende Prozedur liefert einige Informationen über das Betreibssystem.

Zum Beispiel: Computername, Windowsanmeldename, SystemRoot, WinDir, Programmverzeichnis und einige mehr.
Sub Umgebungsvariablen_lesen()
Dim i As Integer, pos As Integer
Dim strErg As String

Do
  i = i + 1
  strErg = Environ(i)
  If strErg = "" Then Exit Sub

  'Position Gleichheitszeichen:
  pos = InStr(1, strErg, "=")

  Cells(i, 2) = Left(strErg, pos - 1)
  Cells(i, 3) = Mid(strErg, pos + 1)
Loop

End Sub

Download:   vba128.zip