blowdow
Nov 11, 2011, updated at 16:43:01 (UTC)
view5420
view8
0
Goto Top

VBS-Datei soll Vriable an CMD weitergeben

GermanQuestionBatch, ShellDevelopment
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:.

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 Function

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]
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 176132

Url: https://administrator.de/contentid/176132

Printed on: April 23, 2024 at 11:04 o'clock

8 Comments
Latest comment
Goto Top
Member: TsukiSan
TsukiSan Nov 11, 2011 at 14:02:48 (UTC)
Goto Top
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:
CreateObject("WScript.Shell").Run "cmd /c runas /user:admin & ChooseFile( )"
die würde ich etwas ändern in:
a = chooseFile()
CreateObject("WScript.Shell").Run "cmd /c runas /user:admin " & a
das ganze ungetestet!
Aber so sollte es prinzipiell erst einmal laufen.
Gruss
Tsuki
Member: AndreasHoster
AndreasHoster Nov 11, 2011 at 14:09:20 (UTC)
Goto Top
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:
WScript.Echo "Selected file: " & ChooseFile( )  
sExec="cmd /c runas /user:admin & ChooseFile( )"  
Wscript.Echo sExec
CreateObject("WScript.Shell").Run sExec
Dann müsste auffallen, was falsch läuft.
Member: miniversum
miniversum Nov 11, 2011 at 14:12:04 (UTC)
Goto Top
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%"
Member: TsukiSan
TsukiSan Nov 11, 2011 at 14:15:21 (UTC)
Goto Top
@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 face-wink

Gruss
Tsuki
Member: blowdow
blowdow Nov 14, 2011 at 09:05:49 (UTC)
Goto Top
Hi zusammen

Danke für die vielen Antworten! face-smile

@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
Member: AndreasHoster
AndreasHoster Nov 14, 2011 at 10:01:30 (UTC)
Goto Top
Dann poste nochmals Deinen jetzt aktuellen Code.
Wie sollen wir denn erraten, was Du letztendlich zusammenbastelst?
Member: blowdow
blowdow Nov 14, 2011 at 10:14:33 (UTC)
Goto Top
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
Member: AndreasHoster
AndreasHoster Nov 14, 2011 at 10:49:03 (UTC)
Goto Top
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.
GermanQuestionBatch, ShellDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment