質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

1回答

6260閲覧

【VB.NET】Marshal.ThrowExceptionForHRInternalについて

Solalis345

総合スコア12

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2017/03/29 04:36

###前提・実現したいこと
VB.NETで指定されたプリンタがインストールされているかについてWMI クエリを用いて実現しようと考えています。
その際に下記エラーメッセージが表示されました。

###発生している問題・エラーメッセージ

場所 System.Runtime.InteropServices.Marshal.ThrowExceptionForHRInternal(Int32 errorCode, IntPtr errorInfo) 場所 System.Management.ManagementObjectCollection.ManagementObjectEnumerator.MoveNext() 場所 MS21印刷.frmPrint.checkPrinter(String strPrinterName)

###ソースコード

Dim PrinterName As String = "プリンタ名" Dim mos As New System.Management.ManagementObjectSearcher("Select * from Win32_Printer") Dim moc As System.Management.ManagementObjectCollection = mos.Get() 'プリンタを列挙する Dim mo As System.Management.ManagementObject 'メイン処理 For Each mo In moc 'デフォルトのプリンタか調べる Dim attr As Long = Convert.ToInt64(mo("Attributes")) 'プリンタ一覧の中に指定プリンタが存在するか If String.Compare(PrinterName , mo("Name").ToString(), True) = 0 Then 'プリンタの情報はとれた場合 Console.WriteLine(mo("Name").ToString()) Exit For End If Next mo

###質問事項
質問事項として2点あります。
1.Marshal.ThrowExceptionForHRInternalとは何なのか
2.エラーの原因について

以上、よろしくお願い致します。
###補足情報(言語/FW/ツール等のバージョンなど)
OS:WindowsServer2012R2
言語:.Net Framework3.5

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

COMコンポーネントのエラーが発生しているようです。

1.Marshal.ThrowExceptionForHRInternalとは何なのか

COMの結果(HRESULT)が「0:正常」以外の場合に例外にしているだけのようです。
Marshal.ThrowExceptionForHRのMSDN
Marshal.ThrowExceptionForHRのソース

2.エラーの原因について

Exceptionをcatchして、エラーコードを調べると何かわかるかも知れません。
キーワード「HRESULT 一覧」で検索した以下のサイトの「HRESULT (COM)」から該当エラーがわかるかも知れません。
Win32エラーコード一覧 - ir9

ちなみに、私の環境ではエラーは発生しませんでした。
windows 7 pro
Visual Studio 2012 pro(.Net Framework3.5を指定)

投稿2017/03/29 06:34

sugar_yas

総合スコア135

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Solalis345

2017/03/30 01:51

ご回答ありがとうございます。 >COMの結果(HRESULT)が「0:正常」以外の場合に例外にしているだけのようです。 WMI クエリが正常に終了しないことが原因で本エラーが発生していたようです。 (OSのエラーログより、WMI-Activity Event 5858のエラーログが発生していました) 発生する時としないときがありましたので、WMI クエリの実行に必要なリソースが不足(?)した時に発生していたのかもしれません。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問