' ============================
' .NET-Code-Beispiel in Visual Basic .NET
' Drucken einer Testseite und Freigeben des Druckers
' Variante #1
' (C) Holger@Schwichtenberg.de
' ============================
Public Class WMI_visuell
Inherits System.ComponentModel.Component
Region " Component Designer generated code "
Public Sub New(Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(me)
End Sub
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Component overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
Friend WithEvents AppLog As FCL_Buch.ROOT.CIMV2.NTEventlogFile
Friend WithEvents LaufwerkC As FCLBuch.ROOT.CIMV2.LogicalDisk
Friend WithEvents PrinterHP As FCLBuch.ROOT.CIMV2.Printer
Friend WithEvents FaxDienst As FCLBuch.ROOT.CIMV2.Service
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.AppLog = New FCL_Buch.ROOT.CIMV2.NTEventlogFile()
Me.LaufwerkC = New FCLBuch.ROOT.CIMV2.LogicalDisk()
Me.PrinterHP = New FCLBuch.ROOT.CIMV2.Printer()
Me.FaxDienst = New FCLBuch.ROOT.CIMV2.Service()
'
'AppLog
Me.AppLog.Path = New System.Management.ManagementPath("\\MARS\root\CIMV2:Win32NTEventlogFile.Name=""C:\\WINDOWS\\system32\\config\\AppEv" &
"ent.Evt""")
'
'Laufwerk_C
Me.LaufwerkC.Path = New System.Management.ManagementPath("\\MARS\root\CIMV2:Win32LogicalDisk.DeviceID=""C:""")
'
'Printer_HP
Me.PrinterHP.Path = New System.Management.ManagementPath("\\MARS\root\CIMV2:Win32Printer.DeviceID=""HP2100""")
'
'Fax_Dienst
Me.FaxDienst.Path = New System.Management.ManagementPath("\\MARS\root\CIMV2:Win32Service.Name=""Fax""")
End Sub
Region "Eigener Code von Holger Schwichtenberg"
Sub test_printer()
Dim name As String = Printer_HP.Name
out("Drucke Testseite auf " & name)
Printer_HP.PrintTestPage()
out("Testseite gedruckt!")
out("Drucker wird freigegeben")
Printer_HP.Shared = True
Printer_HP.ShareName = "HP2100"
out("Drucker wurde freigegeben!")
End Sub
End Region