forgottenrealm

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;

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 face-smile

Freundlichen Gruß !
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 192102

Url: https://administrator.de/forum/anwendung-im-system32-verzeichnis-kann-nicht-ausgefuehrt-werden-192102.html

Ausgedruckt am: 15.06.2025 um 11:06 Uhr

76109
76109 02.10.2012 um 12:57:06 Uhr
Goto Top
Hallo ForgottenRealm!

Versuchs mal so:
Const SYSTEM_FOLDER = 1

Sub test()
    MsgBox CreateObject("Scripting.FileSystemObject").GetSpecialFolder(SYSTEM_FOLDER)  
End Sub

Gruß Dieter
ForgottenRealm
ForgottenRealm 02.10.2012 um 14:31:29 Uhr
Goto Top
Hallo !

Ich denke, ich konnte das Problem eingrenzen. Auf dem Test-PC ist Windows 7 64 Bit installiert, das Access ist eine 32 Bit Version. Dadurch wird die erstellte Batchdatei im 32Bit Modus gestartet.

Ein Test mit der Ausgabe Dir C:\Windows\System32 > C:\Dir.txt ergab, dass CMD sich im Verzeichnis C:\Windows\SysWOW64 befindet, obwohl es angibt, im System32 zu sein.

Im SysWOW64 Verzeichnis gibt es die Datei tscon.exe wirklich nicht, auch ein rüberkopieren brachte keinen Erfolg, da anscheinend noch mehr Programme dafür benötigt werden, dass diese ausgeführt werden kann.
76109
76109 02.10.2012 um 17:52:17 Uhr
Goto Top
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