8
VBS-Datei soll Vriable an CMD weitergeben
Hallo zusammen
Ich habe ein Forums-Beitrag gefunden, wie ich mit einem VBS-Script ein File im Datei-Browser auswählen kann, welch dann als Variable gespeichert wird. Ich möchte, dass anschliessend dieses File geöffnet wird. Ich vesuchte, dass es über ein CMD mit admin-Rechten diese ausgewählte (nun in der Variabel enthalten) Datei zu öffnen. Doch leider geht nur kurz das schwarze CMD-Fenster auf und nichts weiter... Mein bisheriger Code ist:.
Ich hoffe, jemand kann mir helfen...
Danke un Gruss blowdow
[Edit Biber] 17:42h Code in Codetags gesetzt. Mir fehlt da immer etwas die Geduld.... [/Edit]
Ich habe ein Forums-Beitrag gefunden, wie ich mit einem VBS-Script ein File im Datei-Browser auswählen kann, welch dann als Variable gespeichert wird. Ich möchte, dass anschliessend dieses File geöffnet wird. Ich vesuchte, dass es über ein CMD mit admin-Rechten diese ausgewählte (nun in der Variabel enthalten) Datei zu öffnen. Doch leider geht nur kurz das schwarze CMD-Fenster auf und nichts weiter... Mein bisheriger Code ist:.
Option Explicit
WScript.Echo "Selected file: " & ChooseFile( )
CreateObject("WScript.Shell").Run "cmd /c runas /user:admin & ChooseFile( )"
Function ChooseFile( )
' Select File dialog based on a script by Mayayana
' Known issues:
' * Tree view always opens Desktop folder
' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\
' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's
On Error Resume Next
Dim objIE, strSelected
ChooseFile = ""
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.visible = False
objIE.Navigate( "about:blank" )
Do Until objIE.ReadyState = 4
Loop
objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>"
With objIE.Document.all.FileSelect
.focus
.click
strSelected = .value
End With
objIE.Quit
Set objIE = Nothing
ChooseFile = strSelected
End FunctionIch hoffe, jemand kann mir helfen...
Danke un Gruss blowdow
[Edit Biber] 17:42h Code in Codetags gesetzt. Mir fehlt da immer etwas die Geduld.... [/Edit]
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 176132
Url: https://administrator.de/contentid/176132
Ausgedruckt am: 26.11.2024 um 14:11 Uhr
8 Kommentare
Neuester Kommentar
Hallo blowdow,
erst einmal wäre es sinnvoll, deinen Code in Codetags zu setzen. Hierzu bitte unsere Formatierungshilfe benutzen!
Was mir ins Auge sticht ist deine Zeile:
die würde ich etwas ändern in:
das ganze ungetestet!
Aber so sollte es prinzipiell erst einmal laufen.
Gruss
Tsuki
erst einmal wäre es sinnvoll, deinen Code in Codetags zu setzen. Hierzu bitte unsere Formatierungshilfe benutzen!
Was mir ins Auge sticht ist deine Zeile:
CreateObject("WScript.Shell").Run "cmd /c runas /user:admin & ChooseFile( )" a = chooseFile()
CreateObject("WScript.Shell").Run "cmd /c runas /user:admin " & a Aber so sollte es prinzipiell erst einmal laufen.
Gruss
Tsuki
Merkregeln für sinnvolles Debuggen:
Wenn man Strings zusammenbastelt, diese in einer Variablen zusammenbasteln und testweise mal per Messagebox ausgeben, damit man sieht, was man zusammenbastelt.
In Deinem Fall, also mal folgenden Code nehmen:
Dann müsste auffallen, was falsch läuft.
Wenn man Strings zusammenbastelt, diese in einer Variablen zusammenbasteln und testweise mal per Messagebox ausgeben, damit man sieht, was man zusammenbastelt.
In Deinem Fall, also mal folgenden Code nehmen:
WScript.Echo "Selected file: " & ChooseFile( )
sExec="cmd /c runas /user:admin & ChooseFile( )"
Wscript.Echo sExec
CreateObject("WScript.Shell").Run sExec 
Und evtl:
REM Verzeichnisauswahl
set "Verz=%temp%\VerzeichnisHolen.vbs"
set "msgtext=Please select the Folder were the Automation should be copied."
echo Set V=CreateObject("Shell.Application").BrowseForFolder(0, "%msgText%", 16, 17)>"%Verz%"
echo If Not TypeName(V)="Nothing" Then Set B=V.Self: WScript.Echo B.Path>>"%Verz%"
set "TargetDir="
for /f "delims=" %%i in ('cscript //nologo "%Verz%"') do set "TargetDir=%%i"
if not defined TargetDir echo Fehler
del "%Verz%"
if "%TargetDir:~-1%" equ "\" set "TargetDir=%TargetDir:~0,-1%"
@AndreasHoster,
genau!
Das ist das, was unsere Scripter und Batcher (Timo, Biber, Bastla und Co) immer versuchen mitzuteilen:
"nehmt entweder das verfl.... @echo OFF raus oder lasst euch das Ergebnis mal in einer MsgBox
anzeigen." Oder besser noch in diesem Fall, dass ganze in eine Textdatei eintragen lassen, damit man
etwaige Leerzeichen findet etc.
Ich denke - dank auch deines Beitrages! - der TO wird jetzt den Makel finden
Gruss
Tsuki
genau!
Das ist das, was unsere Scripter und Batcher (Timo, Biber, Bastla und Co) immer versuchen mitzuteilen:
"nehmt entweder das verfl.... @echo OFF raus oder lasst euch das Ergebnis mal in einer MsgBox
anzeigen." Oder besser noch in diesem Fall, dass ganze in eine Textdatei eintragen lassen, damit man
etwaige Leerzeichen findet etc.
Ich denke - dank auch deines Beitrages! - der TO wird jetzt den Makel finden
Gruss
Tsuki
Hi zusammen
Danke für die vielen Antworten!
@tsuki:
Ich habe dein Code ausprobiert, wobei aber schlussendlich keine ausgewählte Datei geöffnet wurde.
Anschliessend habe ich den Code von AndreasHoster mit deinem Code ergänzt. Wenn ich jetzt eine Datei auswähle, zeigt es mir anschliessend Z.b. folgendes an:
Selected file. C:\Testordner\Foto1.JPG
Nach dem OK-Klick kommt noch ein weiteres Fenster mit:
cmd /c runas /user:admin
So denke ich, dass die Variable "a" nicht mitergänzt/angehängt wird beim CMD-Befehl...
@miniversum:
Bei deinem Code erscheint mir beim Ausführen eine Fehlermeldung: Line: 2 Char: 39...
MFG
Danke für die vielen Antworten!
@tsuki:
Ich habe dein Code ausprobiert, wobei aber schlussendlich keine ausgewählte Datei geöffnet wurde.
Anschliessend habe ich den Code von AndreasHoster mit deinem Code ergänzt. Wenn ich jetzt eine Datei auswähle, zeigt es mir anschliessend Z.b. folgendes an:
Selected file. C:\Testordner\Foto1.JPG
Nach dem OK-Klick kommt noch ein weiteres Fenster mit:
cmd /c runas /user:admin
So denke ich, dass die Variable "a" nicht mitergänzt/angehängt wird beim CMD-Befehl...
@miniversum:
Bei deinem Code erscheint mir beim Ausführen eine Fehlermeldung: Line: 2 Char: 39...
MFG
Dann poste nochmals Deinen jetzt aktuellen Code.
Wie sollen wir denn erraten, was Du letztendlich zusammenbastelst?
Wie sollen wir denn erraten, was Du letztendlich zusammenbastelst?
Hier noch der gewünschte bisherige Code:
a = chooseFile()
CreateObject("WScript.Shell").Run "cmd /c runas /user:admin " & a
Function ChooseFile( )
' Select File dialog based on a script by Mayayana
' Known issues:
' * Tree view always opens Desktop folder
' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\
' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's
On Error Resume Next
Dim objIE, strSelected
ChooseFile = ""
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.visible = False
objIE.Navigate( "about:blank" )
Do Until objIE.ReadyState = 4
Loop
objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>"
With objIE.Document.all.FileSelect
.focus
.click
strSelected = .value
End With
objIE.Quit
Set objIE = Nothing
ChooseFile = strSelected
End Function
Ich vermisse jetzt eigentlich zwischen Zeile 1 und Zeile 2 die Ausgabe des zusammengebastelten Strings.
Hilft beim Debuggen wie ich oben geschrieben habe. Vorallem, wenn man nicht genau weiß was man tut.
Und wenns dann immer noch nicht tut (was vermutlich der Fall ist), könnte man prinzipiell auch mal probieren, den zusammengebastelten String direkt in einer Kommandozeile auszuprobieren, ob da Fehlermeldungen zurückkommen, die man beim RUN aus dem Programm nicht sieht, weil die Kommandozeile gleich wieder zugeht. Weil auch da kann man Fehler reinmachen.
Wenn ich das mit einem Beispiel Deiner Art mache und eine JPG Datei probiere, kommt folgendes:
RUNAS-FEHLER: d:\temp\test.jpg kann nicht ausgeführt werden
193: d:\temp\test.jpg ist keine zulässige Win32-Anwendung.
RunAs hätte gerne eine ausführbare Datei, kein Bild wie in Deinem Beispiel.
Hilft beim Debuggen wie ich oben geschrieben habe. Vorallem, wenn man nicht genau weiß was man tut.
Und wenns dann immer noch nicht tut (was vermutlich der Fall ist), könnte man prinzipiell auch mal probieren, den zusammengebastelten String direkt in einer Kommandozeile auszuprobieren, ob da Fehlermeldungen zurückkommen, die man beim RUN aus dem Programm nicht sieht, weil die Kommandozeile gleich wieder zugeht. Weil auch da kann man Fehler reinmachen.
Wenn ich das mit einem Beispiel Deiner Art mache und eine JPG Datei probiere, kommt folgendes:
RUNAS-FEHLER: d:\temp\test.jpg kann nicht ausgeführt werden
193: d:\temp\test.jpg ist keine zulässige Win32-Anwendung.
RunAs hätte gerne eine ausführbare Datei, kein Bild wie in Deinem Beispiel.
