y.cmdz ƒoƒbƒ`ƒtƒ@ƒ ..
[2ch|₯Menu]
834:ƒfƒtƒHƒ‹ƒg‚Μ–Ό–³‚΅‚³‚ρ
07/12/09 13:20:49
>>817
Aƒhƒ‰ƒCƒu‚ΙFD‚ͺƒZƒbƒg‚³‚κ‚Δ‚ι‚©‚Η‚€‚©’m‚θ‚½‚’κ‡A—Ⴆ‚ΞˆΘ‰Ί‚ΜVBScriptƒtƒ@ƒCƒ‹"testRDY.vbs"‚πμ‚Α‚Δ‚¨‚«A
ƒoƒbƒ`ƒtƒ@ƒCƒ‹“ΰ‚Ε
@@CSCRIPT //NOLOGO testRDY.vbs A: | find /i "€”υ=True" > NUL
@@IF NOT ERRORLEVEL 1 ECHO €”υOK‚Ε‚·B
‚Μ‚Qs‚πŽΐs‚΅‚Δ‚έ‚ι‚Α‚Δ‚Μ‚Ν‚Η‚€H

'---------+---------+---------+---------+---------+ VBScriptŽn’[
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 = "(‚±‚Μƒhƒ‰ƒCƒu‚ΝƒŠƒ€[ƒoƒuƒ‹ƒƒfƒBƒA/CD/DVD‚Ά‚α‚Θ‚’‚ͺ)Drive€”υ=" & strRDY
End If
End If
WScript.Echo(S)
Set D = Nothing : Set F = Nothing : Set A = Nothing
'---------+---------+---------+---------+---------+ VBScriptI’[


ŽŸƒy[ƒW
ΕVƒŒƒX•\ަ
ƒXƒŒƒbƒh‚ΜŒŸυ
—ήŽ—ƒXƒŒˆκ——
˜b‘θ‚Μƒjƒ…[ƒX
‚¨‚ά‚©‚ΉƒŠƒXƒg
₯ƒIƒvƒVƒ‡ƒ“‚π•\ަ
‰Ι‚Β‚Τ‚΅2ch

5377“ϊ‘O‚ɍXV/139 KB
’S“–:undef