Option Explicit

Dim wmi,s , lw

On Error Resume Next
'z.B den Namen des Laufwerks D auslesen
'ist dieser noch nicht vergeben wird NULL zurückgegeben
lw = "e"
Set wmi = GetObject("winmgmts:\\.\root\cimv2:Win32_LogicalDisk.DeviceID='" & lw & '")

If Err.Number > 0 Then

MsgBox " LW - nicht bereit" & vbCrLf & vbCrLf & "Fehler: " & Err.Number & vbCrLf & "Beschr.: " & Err.Description

WScript.quit

End If

'Direkt hätte s jetzt den Wert NULL und kann so nicht ausgewertet werden
s = WMI.VolumeName

'if s = Null then msgbox "Kein LW-Name vergeben" ' ist nicht möglich
If IsNull(WMI.VolumeName) Then

MsgBox "Keine LW-Benennung vergeben !"

Else

MsgBox "LW-Benennung: " & s

End If