Option Explicit

Dim wso

Set wso = WScript.CreateObject("WScript.Shell")
wso.CurrentDirectory = "c:\windows\" 'Ordner muss existieren, sonst Fehlermeldung

MsgBox wso.CurrentDirectory

wso.run "%comspec%"