这个是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 |