Re: Windows Serer 2012 R2でプリンタの取得
pu_mahalo
居住地: 大阪
投稿数: 775
![長老 長老](../../uploads/rank3dbf8eb1a72e7.gif)
こんにちは Puです
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" は好みの場所に書き換えて下さい
他に方法があると思いますが ひとつの例です
でわ〜でわ〜
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" は好みの場所に書き換えて下さい
他に方法があると思いますが ひとつの例です
でわ〜でわ〜
投票数:2
平均点:10.00
投稿ツリー
-
Windows Serer 2012 R2でプリンタの取得 (hiska, 2017-12-2 16:44)
-
Re: Windows Serer 2012 R2でプリンタの取得 (pu_mahalo, 2017-12-5 9:20)
-
Re: Windows Serer 2012 R2でプリンタの取得 (hiska, 2017-12-5 11:04)
-