复制代码 代码如下:

<script language=vbscript>

Dim oShell

Set oShell = WScript.CreateObject ("WSCript.shell")

oShell.run "cmd /K CD c: & dir"

Set oShell = Nothing

</script>