这个是VB的源码: 
set os=CreateObject("Wscript.shell") 
set fs=CreateObject("scripting.filesystemobject") 
path0=fs.GetFile(WScript.scriptFullName).ParentFolder 
If fs.FileExists("z:\autorun.exe") Then  
        os.Run path0&"\isocmd -eject z:",0,True 
        WScript.quit 
End if 
Set disks=fs.drives 
For Each disk In disks 
        If disk.IsReady  Then 
                If fs.FileExists(disk.Path&"\TYPE\type.ISz") Then  
                 os.Run path0&"\isocmd -r",0,True 
                 os.Run path0&"\isocmd -i",0,True 
                 os.Run path0&"\isocmd -mount z: "&disk.Path&"\TYPE\type.ISz",0,True 
                 WScript.quit 
                End if 
        End if 
Next |