'-------------------好象在我机器上没成功-----------------

'**************************************************
' File:    Format.vbs (WSH sample in VBScript)
' Author:  (c) G. Born
'
' Invoking the Format dialog box for a floppy disk
'**************************************************
Option Explicit

Dim WshObj      ' Object for Run method

Set WshObj = Wscript.CreateObject("WScript.Shell")

WshObj.Run "RunDll32.exe Shell32.dll,SHFormatDrive", _
           1, True ' Launch dialog box.

'*** End