Re: Windows Serer 2012 R2でプリンタの取得

こんにちは　Ｐｕです
c#で記述と書こうとおもったらunipaasだったので
他の方法で試してみました

以下のscriptを　printerget.vbs　とと言う
適当な名前にして保存して下さい

magic からは osコマンドで　callしてください。
プリンタ名をprinter.txtと言うtextファイルに出力しますので
その後　magicからtextファイルを読み込んで　printer名を取得して下さい。
-----------------------以下script----------------------------
Option Explicit
'text出力用定義
Dim objFso
Dim objFile
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile("f:\work\printer.txt", 2, True)
'
'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
Dim sMesStr
'
'ローカルコンピュータに接続する。
Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer
'クエリー条件を WQL にて指定する。
Set oClassSet = oService.ExecQuery("Select * From Win32_Printer")

'コレクションを解析する。
For Each oClass In oClassSet

sMesStr = sMesStr & "プリンタの名前: " & oClass.Caption & vbCrLf
Next
'text出力
objFile.WriteLine sMesStr
objFile.Close

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing
Set objFile = Nothing
Set objFso = Nothing
---------------------------------------------------------------
"f:\work\printer.txt"　は好みの場所に書き換えて下さい
他に方法があると思いますが　ひとつの例です
でわ〜でわ〜