VB下不调用wscript.shell如何执行dos命令

因为要写一个在线压缩文档的代码，通常是服务器上wscript.shell来执行dos命令，但由于wscript.shell是个威胁性极强的东东，服务器必须卸载掉它，现在想通过其他方式来执行dos，或者是写一个类似wscript.shell 的run函数，有这方面的高手请赐教。