
CODE: [Copy to clipboard]Set Fso = CreateObject("Scripting.FileSystemObject")
Set DC = Fso.Drives
Do
For Each D in DC
If D.DriveType = 1 Then
aDisk = aDisk & D.DriveLetter & ": "
End If
Next
aDisk = Replace(aDisk, "A: ","")
If aDisk = "" Then
Wscript.sleep 8000
Else
WScript.Echo aDisk:WScript.Quit
End If
Loop
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |