プリンタドライバを追加するには (ID:81759)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめて質問させていただきます。くまりすです。 わたしは、WMIのWin32_PrinterDriverを使用して、プリンタドライバを インストールしようとしています。 ですが、デジタル署名されていないドライバをインストールすると失敗します。Retの値が０であれば成功なのですが、この場合、マイナスの値が戻されます。 ご存知であれば、 デジタル署名のないプリンタドライバを組み込むにはどうすれば良いか ご教授いただけないでしょうか。 Dim PrtSet As SWbemObjectSet Dim Prt As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim Ret As Long Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set Prt = Service.Get("Win32_PrinterDriver") Prt.Name = "Canon LASER SHOT LBP-1810" Prt.SupportedPlatform = "Windows NT x86" Prt.Version = "3" Prt.FilePath = "C:\driver" Prt.Infname = "C:\driver\W2KXPLS4.INF" Ret = Prt.AddPrinterDriver(Prt) ←ここで失敗する。