y.cmdz ob`t@ ..
834:ftHgΜΌ³΅³ρ
07/12/09 13:20:49
>>817
AhCuΙFDͺZbg³κΔι©Η€©mθ½’κAα¦ΞΘΊΜVBScriptt@C"testRDY.vbs"πμΑΔ¨«A
ob`t@CΰΕ
@@CSCRIPT //NOLOGO testRDY.vbs A: | find /i "υ=True" > NUL
@@IF NOT ERRORLEVEL 1 ECHO υOKΕ·B
ΜQsπΐs΅ΔέιΑΔΜΝΗ€H
'---------+---------+---------+---------+---------+ VBScriptn[
Option Explicit
Dim A,D,F,A0,S,strTYP,strRDY
Set A = WScript.Arguments : Set F = CreateObject("Scripting.FileSystemObject")
S = "ERROR" : A0 = "" : If A.Count > 0 Then A0 = A(0)
If Len(A0) > 0 Then
Set D = F.GetDrive(A0)
strTYP = D.DriveType : strRDY = D.IsReady
If strTYP="1" Or strTYP="4" Then
S = "Driveυ=" & strRDY
Else
S = "(±ΜhCuΝ[oufBA/CD/DVDΆαΘ’ͺ)Driveυ=" & strRDY
End If
End If
WScript.Echo(S)
Set D = Nothing : Set F = Nothing : Set A = Nothing
'---------+---------+---------+---------+---------+ VBScriptI[
y[WΕVX\¦XbhΜυήXκbθΜj
[X¨ά©ΉXg₯IvVπ\¦ΙΒΤ΅2ch
5377ϊOΙXV/139 KB
S:undef