✓ Zugriff auf die Computer Informationen über environ()
✓ Speicherplatz eines Laufwerks auslesen mit dem FileSystemObject
✓ Byte in Giga-Byte umrechnen
✓ Format-Funktion, um genau zwei Nachkommastellen zu erzeugen
✓ Variablen und Datentypen
✓ For-Next-Schleife
✓ Direkfenster und Debug.Print
✓ Messageboxen
✓ Strings verknüpfen

Sub AlleInfos() 
 
Dim i As Long 
 
For i = 1 To 60 
    Debug.Print Environ(i) 
Next i 

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

 Sub Infos() 
 
MsgBox Environ("computername") 
MsgBox Environ("username") 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

Sub Speicherplatz() 
 
Dim objFSO As Object 
 
Set objFSO = CreateObject("Scripting.Filesystemobject") 
 
MsgBox Format(objFSO.getdrive("C").freespace / 1024 ^ 3, "0.00") & " GB" 
 
Set objFSO = Nothing 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub