VBSでネットワークインターフェース名を取得したい。
VBSでネットワークインターフェース名を取得したい。
こんにちわ!いつもお世話になっております。
さっそく質問なのですが、VBSを利用してネットワークインターフェース名を
取得する方法を教えてください。環境は、Windows7です。
Netshのコマンドを利用して、動的にDHCPまたはDGWの設定を変更したいと考えて
おります。そのため、Netshのコマンドに必要なネットワークインターフェース名を
取得できないかと考えております。
下記のようなスクリプトを作成したのですが、下記のスクリプトでは文字数の変化に
対応ができないのと、余計な文字(:)を取得してしまいます。
検証用のWindows7で下記を実行すると、「ローカル エリア接続:」となりました。
----------------------------------------------------------------------
If Err.Number = 0 Then
Do Until objExec.StdOut.AtEndOfStream
strLine = objExec.StdOut.ReadLine
If InStr(strLine, "イーサネット アダプター") <> 0 Then
iColon = Instr(strLine, ":")
objEthernet = Mid(strLine, iColon - 11)
End If
Loop
End If
----------------------------------------------------------------------
どんなネットワークインターフェース名でも、取得できるようにするにはどうしたら
良いでしょうか。
ご教授いただけると、大変助かります。よろしくお願い致します。
お礼
どうもありがとうございました。解決しました。