vbscript中的pushd不工作

我正在编写一个vbscript，它需要

pushd

到共享服务器位置，执行一些命令，最后执行

popd

\\sharedLocation\server

是服务器的有效共享文件夹位置

script.vbs

set ws = CreateObject("WScript.Shell")
arg = Wscript.Arguments.Named("arg")
push = "C:\Windows\System32\cmd.exe /c pushd " & arg
ws.Run(push)

我在命令提示符下使用

> script.vbs /arg:\\sharedLocation\Server

---

但什么也没发生。这里可能会出什么问题？我正在Windows XP上运行此脚本

pushd

实际上正在工作，但您使用了带有/c开关的

cmd

，该开关使

cmd

运行

pushd

，并立即退出。如果希望

cmd

保持打开状态，应使用/k开关