Hallo ihr!!
Ich habe dank eines ganz netten Menschen ausm Forum ein Script, dass mir mein CDROM-Laifwerk sagt, und auch die Dateien, die sich auf der CD befinden:
-------------------------------------------------------------------
Const DriveTypeCDROM = 4
dim oFS, oDrives, f, fc, f1, s, pfad
Set oFS = Wscript.CreateObject("Scripting.FileSystemObject")
Set oDrives = oFS.Drives 'Loop thru A-Z. If found, exit early.
For Each Drive in oDrives
If Drive.DriveType = DriveTypeCDROM Then
Wscript.Echo "Ihr CD-ROM-Laufwerk ist: " + Drive.DriveLetter +":\"
pfad = Drive.DriveLetter + ":\"
Set f = oFS.GetFolder(pfad)
Set fc = f.Files
For Each f1 in fc
WScript.echo f1.name
Next
End If
Next
------------------------------------------------------------
Jetzt soll die Shell direkt auf mein CD-ROM Laufwerk gehen, und nicht auf das Standardverzeichnis. Also da soll dann unten stehen CDROM:/(bei mir D:/) und nicht was aneders. Wie kann ich das machen? Weiß das vielleicht jemand?
LG und Danke schon mal Tine!!
Ich habe dank eines ganz netten Menschen ausm Forum ein Script, dass mir mein CDROM-Laifwerk sagt, und auch die Dateien, die sich auf der CD befinden:
-------------------------------------------------------------------
Const DriveTypeCDROM = 4
dim oFS, oDrives, f, fc, f1, s, pfad
Set oFS = Wscript.CreateObject("Scripting.FileSystemObject")
Set oDrives = oFS.Drives 'Loop thru A-Z. If found, exit early.
For Each Drive in oDrives
If Drive.DriveType = DriveTypeCDROM Then
Wscript.Echo "Ihr CD-ROM-Laufwerk ist: " + Drive.DriveLetter +":\"
pfad = Drive.DriveLetter + ":\"
Set f = oFS.GetFolder(pfad)
Set fc = f.Files
For Each f1 in fc
WScript.echo f1.name
Next
End If
Next
------------------------------------------------------------
Jetzt soll die Shell direkt auf mein CD-ROM Laufwerk gehen, und nicht auf das Standardverzeichnis. Also da soll dann unten stehen CDROM:/(bei mir D:/) und nicht was aneders. Wie kann ich das machen? Weiß das vielleicht jemand?
LG und Danke schon mal Tine!!