|
ｿｽ@ｿｽｿｽｿｽnｿｽ[ｿｽhｿｽfｿｽBｿｽXｿｽNｿｽﾌシｿｽｿｽｿｽAｿｽｿｽｿｽﾔ搾ｿｽｿｽﾌ取得ｿｽｿｽｿｽ@
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽgｿｽ¥ｿｽｿｽ 2003/06/30(ｿｽｿｽ) 11:38:42
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾝ、ｿｽnｿｽ[ｿｽhｿｽfｿｽBｿｽXｿｽNｿｽﾌシｿｽｿｽｿｽAｿｽｿｽｿｽﾔ搾ｿｽｿｽﾌ取得ｿｽｿｽｿｽ@ｿｽ調べてゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾇのサｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽAｿｽﾝつゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾎゑｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽﾍ、ｿｽuｿｽaｿｽU or ｿｽuｿｽbｿｽﾅゑｿｽｿｽｿｽﾎどのようｿｽﾈ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽmｿｽbｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
batchman 2003/06/30(ｿｽｿｽ) 15:07:46
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽVｿｽXｿｽeｿｽｿｽｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾎシｿｽｿｽｿｽAｿｽｿｽｿｽﾔ搾ｿｽｿｽｿｽき容ｿｽﾊ難ｿｽｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉｿｽｿｽxｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽﾄ会ｿｽｿｽLｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄみて会ｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾚ細はヘｿｽｿｽｿｽvｿｽ竚滂ｿｽｿｽｿｽTｿｽCｿｽgｿｽｿｽｿｽｿｽFileSystemObjectｿｽ調べてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
Dim fs As Object
Dim drv As Object
Set fs = CreateObject("Scripting.FileSystemObject") 'ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽVｿｽXｿｽeｿｽｿｽｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽ成
For Each drv In fs.Drives
'ｿｽnｿｽ[ｿｽhｿｽfｿｽBｿｽXｿｽNｿｽVｿｽｿｽｿｽAｿｽｿｽｿｽﾔ搾ｿｽｿｽ齬暦ｿｽｿｽ成
If drv.DriveType = 2 Then
Label1.Caption = Label1.Caption & drv.driveletter & ": " & Format$(drv.SerialNumber) & vbCrLf
End If
Next
Set fs = Nothing
ｿｽｿｽｿｽgｿｽ¥ｿｽｿｽ 2003/06/30(ｿｽｿｽ) 15:50:40
batchmanｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽnｿｽ[ｿｽhｿｽfｿｽBｿｽXｿｽNｿｽﾌシｿｽｿｽｿｽAｿｽｿｽｿｽﾔ搾ｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽlｿｽrｿｽcｿｽmｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽrｿｽgｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽ`ｿｽoｿｽhｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽ@ｿｽﾍ厄ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽAｿｽvｿｽrｿｽgｿｽﾍＯｿｽrｿｽﾉゑｿｽｿｽｿｽﾄは趣ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽxｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｦｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽc
batchman 2003/06/30(ｿｽｿｽ) 17:30:52
APIｿｽﾅ趣ｿｽｿｽﾈゑｿｽﾎ、GetVolumeInformationｿｽﾅ趣ｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
Dim lngSerial As Long
Call GetVolumeInformation("c:¥", vbNullString, 0, lngSerial, 0, 0, vbNullString, 0)
MsgBox Format$(lngSerial)
>ｿｽvｿｽrｿｽgｿｽﾍＯｿｽrｿｽﾉゑｿｽｿｽｿｽﾄは趣ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽxｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽnｿｽrｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽhｿｽdｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾉ搾ｿｽｿｽEｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾋ。
#ｿｽｿｽｿｽｿｽﾈに頻ｿｽﾉにボｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽ調べゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽDｿｽDｿｽDｿｽPｿｽAｿｽQｿｽｿｽｿｽｿｽxｿｽﾌ参ｿｽﾆゑｿｽｿｽﾆゑｿｽｿｽｿｽﾙど遅ｿｽｿｽｿｽﾆ奇ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽけどゑｿｽDｿｽDｿｽD
ｿｽｿｽｿｽgｿｽ¥ｿｽｿｽ 2003/07/01(ｿｽｿｽ) 10:34:38
batchmanｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
>#ｿｽｿｽｿｽｿｽﾈに頻ｿｽﾉにボｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽ調べゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽDｿｽDｿｽDｿｽPｿｽAｿｽQｿｽｿｽｿｽｿｽxｿｽﾌ参ｿｽﾆゑｿｽｿｽﾆゑｿｽｿｽｿｽﾙど遅ｿｽｿｽｿｽﾆ奇ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽけどゑｿｽDｿｽDｿｽD
ｿｽｿｽｿｽｿｽｿｽﾆ、IEｿｽｿｽｿｽﾃゑｿｽｿｽﾂ能ｿｽｿｽｿｽﾌマｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで…
