C# と VB.NET の質問掲示板

■No77992 (澤田 さん) に返信
> HDDのボリュームシリアルにて認証にしようと思うのですが、

HDDシリアルではなく、ボリュームシリアルでしょうか?

ボリュームシリアルというんは、コマンドプロンプトから
　DIR C:
などを打ち込んだときに、
　ドライブ C のボリューム ラベルは LABELNAME です
　ボリューム シリアル番号は ****-**** です
と表示される値のことですよね。

であれば、こんな感じで取得できます。


string drive = "C:";

var diskInfo = new System.Management.ManagementObject(
  "Win32_LogicalDisk.DeviceId=\"" + drive + "\"");

diskInfo.Get();

string serialNumber = diskInfo["VolumeSerialNumber"].ToString();

Console.WriteLine(serialNumber);



> HDDのボリュームシリアルにて認証にしようと思うのですが、

ボリュームシリアルは、それ単独では認証には向きません。

たとえば、DOS4の場合、1995年12月26日 午後9時55分41秒94 にフォーマットされた場合、
ボリュームシリアルは 3578-1D02 となりますが、これは下記の式によって算出されます。

　月日　　12/26　　0C 1A　　　　時分　　21:55　　15 37
　秒数　　41.94　　29 5E　　　　西暦　　 1995　   07CB
　----------------------　　　　----------------------
　合計　　     　　35 78　　　　合計　　     　　1D 02


このように、フォーマット処理を行ったときのタイムスタンプであることから、
メーカー製 PC のように、ディスクイメージを複製してセットアップされた PC 群は、
別の端末であっても、すべて同一の文字列を返すことが多いですし、それに
再セットアップでフォーマットすると、別の文字列になってしまいますよね。


> 後、何故か不正起動を想定して自分のIPを消した状態で起動させてみると
> 本来は表示されるはずの警告も出ないのですが、根本的な書き方が間違っているのでしょうか(T_T)
「自分のIPを消した状態」というのが何を指しているのか読み取れなかったのです、
その消した状態で該当コードを『ステップ実行』し、それぞれの変数の内容が
想定してある通りのものであるのか確認することで、問題点が見えてくるかと思います。



> よろしければHDDボリュームシリアル等の修正点を書き直したものを記載していただけますととても助かります(T_T)
それは質問ではなく、開発依頼ですよね。この掲示板では、その手の依頼は嫌われる傾向にあります。

この掲示板では、(広告・宣伝は NG とはいえ)お仕事の依頼は禁止されていなかったと思いますが、
開発相談ではなく開発依頼なら、開発依頼系の専門サイトや代行業者等に頼ったほうが良いと思います。



一方で、自己努力の上でどうしてもできなったものについては、問題箇所を
明確にした上で投稿すると、比較的具体的な回答が得られることが多いです。

2017/04/15(Sat) 13:59:34 編集(投稿者)

<pre><pre>

昔ながらの



        Dim buf As String
        buf = Dir(dirInfo.FullName & "\*.*")


        Do While buf <> ""
            filepath(cnt) = dirInfo.FullName & "\" & buf
            cnt = cnt + 1
            buf = Dir()

        Loop


という方法も試してみましたが
外付けHDDの場合には、
buf = Dir(dirInfo.FullName & "\*.*")のところで数十秒フリーズしてしまうことが分かりました。

あと、内蔵HDDであっても、


上記のDir関数の方法と


        Dim files As IEnumerable(Of String) = Directory.EnumerateFiles(dirInfo.FullName, "*", SearchOption.AllDirectories)
の方法だとわずかですがフリーズしてしまいます。



        Dim filepath As New List(Of String)
        Dim dirInfo As New DirectoryInfo(dirInfo0.FullName)

        Dim flEnum1 = dirInfo.EnumerateFiles
        Dim flEnum2 = flEnum1.GetEnumerator

        Dim cnt = 0
        Do While flEnum2.MoveNext

            cnt += 1
            Dim fi = flEnum2.Current
            filepath.Add(fi.FullName)
        Loop

の方法だとフリーズしないことが分かりました。

外付けHDDだと何が違うのでしょうか？
ちなみに7200rpmで1TBの2.5inch HDDです。




</pre></pre>