For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
                    If Drive.DriveType = IO.DriveType.Network Then
                        If Drive.IsReady Then
                            ' wenn Gerät bereit, Laufwekrsbuchstabe und 
                            ' VolumeLabel anzeigen
                            MessageBox.Show(Drive.Name & " [" & _
                              Drive.VolumeLabel & "]")
                        Else
                            ' andernfalls nur Laufwerksbuchstabe anzeigen
                            MessageBox.Show(Drive.Name & " [nicht bereit]")
                        End If
                    End If
                Next