WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > プリンタを追加する |
プリンタを追加する: Win32_Printer - WMI Sample (VB)Topics
コンピュータへローカルプリンタを追加するサンプルプログラムです。
Sample Code
Private Sub Command1_Click()
Dim Prt As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set Prt = Service.Get("Win32_Printer").SpawnInstance_ Prt.Comment = "WMI で登録テスト。" Prt.DeviceID = "EPSON MJ-700V2C By WMI" Prt.DriverName = "EPSON MJ-700V2C ESC/P R" Prt.PortName = "LPT1:" Prt.Location = "メインマシンの隣。" Prt.Shared = True Prt.ShareName = "EPSON MJ-700V2C" MesStr = Prt.Put_ MsgBox "プリンタを作成しました。" & vbCrLf & MesStr Set Prt = Nothing Set Locator = Nothing Set Service = Nothing End Sub
![]() Comment
実行すると「EPSON MJ-700V2C ESC/P R」というプリンタを追加します。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |