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’[

835:ƒfƒtƒHƒ‹ƒg‚Μ–Ό–³‚΅‚³‚ρ
07/12/09 13:24:54
‚Β‚©FDD‚Θ‚ρ‚ΔƒP[ƒuƒ‹ˆψ‚Α‚±”²‚’‚ΔBIOS‚ΕƒIƒt‚Ι‚΅‚Δ’u‚―‚ζB
21’‹I‚Ι‚ΰ‚Θ‚Α‚ΔFD‚Θ‚ρ‚Δ‰»ΞƒeƒNƒmƒƒW[‚Ι—Š‚ι‚Θ‚ζB

836:ƒfƒtƒHƒ‹ƒg‚Μ–Ό–³‚΅‚³‚ρ
07/12/09 13:56:28
‚Ώ‚Θ‚έ‚Ι>834‚Μ•ϋ–@‚ł́AFD/MO/ƒXƒ}[ƒhƒƒfƒBƒA/USBƒƒ‚ƒŠ“™‚Ν‹ζ•Κ‚³‚κ‚ΈuƒŠƒ€[ƒoƒuƒ‹ƒƒfƒBƒAv‚Ζ
‚΅‚Δˆ΅‚ν‚κ‚ι‚΅ACD-ROM/CD-R/DVD-ROM/DVD-R“™‚ΰ‹ζ•Κ‚³‚κ‚Έˆκ‚­‚­‚θ‚Ι‚΅‚Δˆ΅‚ν‚κ‚ιB
‚»‚κ‚ΙWSH‚ͺ“ό‚Α‚Δ‚’‚κ‚ΞWin95`XP‚ά‚Ε•L‚­Žg‚¦‚ι‚ζ‚€”z—Ά‚΅‚½‚Β‚ΰ‚θB


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

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