Windows 7 Hilfe zu allen Windows-Betriebssystemen: Windows XP, Windows Vista, Windows 7, Windows 8(.1) und Windows 10 / Windows 11- als auch zu sämtlicher Windows-Software. Alles zu Windows 10 ist auch gerne willkommen. Bitte benenne etwaige Fehler oder Bluescreens unter Windows mit dem Wortlaut der Fehlermeldung und Fehlercode. Erste Schritte für Hilfe unter Windows.
Problem: VBS 'Hello World' - Problem mit doppelter IF- Bedingung
Ich frickel gerade an meinem ersten (deswegen 'Hello World') VBS-Miniscript. eigentlich funktioniert alles bis auf eine Kleinigkeit. Das Script soll mir nur die mit NTFS-formatierten Platten ausgeben. objDrive.IsReady benötige ich, damit das Script nicht wegen eines Laufzeitfehlers (Floppy) abbricht. Eigentlich dachte ich, ich könnte mit objDrive.FileSystem = NTFS die Ausgabe auf die gesuchten Platten/Partitionen einschränken, aber WSH meldet
Zitat:
ntfs.vbs(5, 5) Laufzeitfehler in Microsoft VBScript: Der Datenträger ist nicht bereit.
Code:
ATTFilter
const GB_FACTOR = 1073741824
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive in colDrives
If objDrive.IsReady = True And objDrive.FileSystem = NTFS Then
Wscript.Echo "Laufwerksbuchstabe: " & objDrive.DriveLetter
Wscript.Echo "Volumenname: " & objDrive.VolumeName
Wscript.Echo "Laufwerkstyp: " & objDrive.DriveType
Wscript.Echo "Dateisystem: " & objDrive.FileSystem
Wscript.Echo "Gesamtgröße: " & FormatNumber((objDrive.TotalSize / CONV_FACTOR), 2) & " GB "
Wscript.Echo "Verfügbarer"
Wscript.Echo "Speicherplatz: " & FormatNumber((objDrive.AvailableSpace / CONV_FACTOR), 2) & " GB "
Wscript.Echo "Gerätestatus: bereit"
Wscript.Echo "Freigabename: " & objDrive.ShareName
Wscript.Echo ""
Else
Wscript.Echo "Nix HDD"
Wscript.Echo ""
End If
Next
Ohne And objDrive.FileSystem = NTFS funktioniert es wunderbar. Am Gerätestatus kann es wohl kaum liegen.
Zitat:
Microsoft (R) Windows Script Host, Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Alle Rechte vorbehalten.
Zum Thema VBS 'Hello World' - Problem mit doppelter IF- Bedingung - Ich frickel gerade an meinem ersten (deswegen 'Hello World') VBS-Miniscript. eigentlich funktioniert alles bis auf eine Kleinigkeit. Das Script soll mir nur die mit NTFS-formatierten Platten ausgeben. objDrive.IsReady benötige ich, - VBS 'Hello World' - Problem mit doppelter IF- Bedingung...
19.01.2007, 19:14
Baum-Darstellung