Anwendung im System32 Verzeichnis kann nicht ausgeführt werden
Hallo!
Ich arbeite viel über MS Remote Desktop und hatte bisher auf jedem PC ein Batch Script liegen, welches ich wenn ich fertig war auf dem PC, ausgeführt habe. Dabei wurde die Verbindung getrennt und der Anwender hatte seinen Desktop direkt wieder.
Der Aufruf im Script war war "tscon.exe 0 /dest:console" für XP und "tscon.exe 1 /dest:console" für Vista oder neuer.
Diese Funktion möchte ich gerne in eine MS Access 2003 Anwendung einbauen, die auf allen PCs läuft.
Ich habe es bisher über Shell versucht;
Dies gibt mir allerdings aus, dass der Befehl "C:\Windows\System32\tscon.exe" nicht gefunden wurde.
Die ausgeführte Batchdatei gibt ebenfalls die Meldung aus, das der Befehl nicht gefunden wurde.
Starte ich die Batchdatei von Hand, so wird alles korrekt ausgeführt.
Ich hoffe, ihr könnt mir dabei helfen
Freundlichen Gruß !
Ich arbeite viel über MS Remote Desktop und hatte bisher auf jedem PC ein Batch Script liegen, welches ich wenn ich fertig war auf dem PC, ausgeführt habe. Dabei wurde die Verbindung getrennt und der Anwender hatte seinen Desktop direkt wieder.
Der Aufruf im Script war war "tscon.exe 0 /dest:console" für XP und "tscon.exe 1 /dest:console" für Vista oder neuer.
Diese Funktion möchte ich gerne in eine MS Access 2003 Anwendung einbauen, die auf allen PCs läuft.
Ich habe es bisher über Shell versucht;
Dim ProgrammAusfuehren As Variant
ProgrammAusfuehren = Shell("cmd /c " & GetSpecialFolder(System) & "\" & "tscon.exe " & "1" & " /dest:console" & " & Pause")
Dies gibt mir allerdings aus, dass der Befehl "C:\Windows\System32\tscon.exe" nicht gefunden wurde.
Dim ProgrammAusfuehren as long
Dim ScriptDatei As String
ScriptDatei = GetSpecialFolder(Desktop) & "\" & "Disconnect.bat"
Open ScriptDatei For Output As #1
Print #1, "@echo OFF"
Print #1, GetSpecialFolder(System) & "\" & "tscon.exe 1 /dest:console"
Print #1, "pause"
Close #1
ProgrammAusfuehren = Shell(ScriptDatei , vbNormalFocus)
Die ausgeführte Batchdatei gibt ebenfalls die Meldung aus, das der Befehl nicht gefunden wurde.
Starte ich die Batchdatei von Hand, so wird alles korrekt ausgeführt.
Ich hoffe, ihr könnt mir dabei helfen
Freundlichen Gruß !
Please also mark the comments that contributed to the solution of the article
Content-Key: 192102
Url: https://administrator.de/contentid/192102
Printed on: April 23, 2024 at 06:04 o'clock
3 Comments
Latest comment
Hallo ForgottenRealm!
Versuchs mal so:
Gruß Dieter
Versuchs mal so:
Const SYSTEM_FOLDER = 1
Sub test()
MsgBox CreateObject("Scripting.FileSystemObject").GetSpecialFolder(SYSTEM_FOLDER)
End Sub
Gruß Dieter
Hallo ForgottenRealm!
TSCON gehört offensichtlich zu den Programmen, die vor unerlaubten Zugriffen geschützt sind. D.h. Diese Datei kann aus VBA heraus weder direkt noch indirekt über z.B. eine BAT, CMD oder VBS gestartet werden.
Betreffend 32/64-Bit-System, befinden sich in beiden Systemverzeichnissen eine CMD.EXE. Insofern würde ein Aufruf in Form '..\System32\cmd /c ..\System32\tscon' abhilfe schaffen.
Gruß Dieter
TSCON gehört offensichtlich zu den Programmen, die vor unerlaubten Zugriffen geschützt sind. D.h. Diese Datei kann aus VBA heraus weder direkt noch indirekt über z.B. eine BAT, CMD oder VBS gestartet werden.
Betreffend 32/64-Bit-System, befinden sich in beiden Systemverzeichnissen eine CMD.EXE. Insofern würde ein Aufruf in Form '..\System32\cmd /c ..\System32\tscon' abhilfe schaffen.
Gruß Dieter