Christian2000
unregistriert
Batch und cd-laufwerk
Kann man bei Batch-Dateien-fade dynamisch regeln
|
|
PHP-Quelltext |
1 2 3 4 5 6 7 8 |
<br />
Normaler fad:<br />
ServerRoot "C:/Eigene Dateien/Neuer Ordner/xampp-win32-1.3/xampp/apache"<br />
<br />
und so wil ich es haben<br />
ServerRoot "cd-laufwerk/Neuer Ordner/xampp-win32-1.3/xampp/apache"<br />
<br />
das heißt, die Batch- datei sucht sich Ihr CD-laufwerk und schreibt die dynamisch in alle ihre fade ein (per Variable). denn schreibe kann man auf einer cd nicht
|
RE: Batch und cd-laufwerk
Hallo,
reicht es, wenn es unter Windows läuft?
Dann probier mal folgendes:
Speicher folgenden Code als FindCdrom.vbs
Das Script schreibt den Buchstaben des CD-Rom Laufwerks in die Datei FindCdrom.bat. Führt man diese aus, hat man den Buchstaben in einer Umgebungsvariable.
Danach kannst Du in Deiner Batch folgendes machen:
Gruss
Marty
reicht es, wenn es unter Windows läuft?
Dann probier mal folgendes:
Speicher folgenden Code als FindCdrom.vbs
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
'Create a batch file to set the variable
Set ts = fs.CreateTextFile(Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "bat", True, False)
ts.WriteLine "set " & Left(WScript.ScriptName, InStr(WScript.ScriptName, ".") - 1) & "=" & strDriveLetter
ts.Close
|
Das Script schreibt den Buchstaben des CD-Rom Laufwerks in die Datei FindCdrom.bat. Führt man diese aus, hat man den Buchstaben in einer Umgebungsvariable.
Danach kannst Du in Deiner Batch folgendes machen:
|
|
Quellcode |
1 2 3 4 5 6 7 |
@echo off start /wait FindCdrom.vbs call FindCdrom.bat del FindCdrom.bat echo Your CDROM is drive %FindCdrom% ServerRoot "%FindCdrom%/Neuer Ordner/xampp-win32-1.3/xampp/apache" |
Gruss
Marty
Christian2000
unregistriert
also
alos, ich habe eine Datei "FindCdrom.bat"
inhalt :
und eine Datei "FindCDrom.vbs"
nun Erhalte ich aber folgenden Fehler
inhalt :
|
|
PHP-Quelltext |
1 2 3 4 5 |
@echo off
start /wait FindCdrom.vbs
call FindCdrom.bat
del FindCdrom.bat
echo Your CDROM is drive %FindCdrom%
|
und eine Datei "FindCDrom.vbs"
|
|
PHP-Quelltext |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
'Create a batch file to set the variable
Set ts = fs.CreateTextFile(Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "bat", True, False)
ts.WriteLine "set " & Left(WScript.ScriptName, InStr(WScript.ScriptName, ".") - 1) & "=" & strDriveLetter
ts.Close
|
nun Erhalte ich aber folgenden Fehler
Hallo,
Du verrätst ja leider nicht, welches Betriebssystem Du hast, sonst könnte man helfen. hast Du irgendwelche Tools laufen lassen, die Dein Betriebssystem sicher machen sollen, lockdown oder ähnliches? Die deinstallieren den Windows Scripting Host.
Da gibts ihn wieder: http://msdn.microsoft.com/library/defaul…list/webdev.asp
Gruss
Marty
Du verrätst ja leider nicht, welches Betriebssystem Du hast, sonst könnte man helfen. hast Du irgendwelche Tools laufen lassen, die Dein Betriebssystem sicher machen sollen, lockdown oder ähnliches? Die deinstallieren den Windows Scripting Host.
Da gibts ihn wieder: http://msdn.microsoft.com/library/defaul…list/webdev.asp
Gruss
Marty


