如何显示格式化窗口？

下面的代码可以完成这样的工作：

Set WSHShell = Wscript.CreateObject("Wscript.Shell")
WSHShell.run "rundll32.exe shell32.dll,SHFormatDrive"