WMI AUSLESEN

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Alex2000.

      WMI AUSLESEN

      Hallo zusammen !
      In diesem Beitrag möchte ich paar Links und Beispiel Code veröffentlichen wie man in VB NET WMI (WINDOWS MANAGAMENT INTEFACE) ausliest. Zum Beispiel Ihr könnt auslesen:
      (LINKS ZU CODE SIEHE IM NÄCHSTEN BEITRAG)
      • System Informationen
      • Netzwerk- Konfiguration
      • Seriennummer eines Lauwerkes
      • Prozessorauslastung
      • Druckerwarteschlange
      • Installiertes Service-Pack
      uvm.....

      System Information auslesen:

      VB.NET-Quellcode

      1. Class Class1
      2. Public mos As Management.ManagementObjectSearcher
      4. Shared Sub Main()
      5. Dim mos As Management.ManagementObjectSearcher
      6. Dim moc As Management.ManagementObjectCollection
      7. Dim mo As Management.ManagementObject
      8. Dim pd As Management.PropertyData
      9. Console.WriteLine("Weiter mit ENTER!")
      10. Console.ReadLine()
      11. Console.WriteLine( _
      12. "Die Eigenschaften aller Laufwerke auslesen:")
      13. mos = New Management.ManagementObjectSearcher( _
      14. "select * from win32_logicaldisk")
      15. moc = mos.Get()
      16. For Each mo In moc
      17. Console.WriteLine("------------")
      18. For Each pd In mo.Properties
      19. Try
      20. Console.WriteLine(pd.Name + " = " + pd.Value.ToString)
      21. Catch
      22. End Try
      23. Next
      24. Console.ReadLine()
      25. Next
      26. moc.Dispose()
      27. mos.Dispose()
      29. Class1.computer()
      30. Console.ReadLine()
      31. Class1.domain()
      32. Console.ReadLine()
      33. Class1.os()
      34. Console.ReadLine()
      35. Class1.shutdown()
      36. Console.ReadLine()
      37. Class1.systemdir()
      38. Console.ReadLine()
      39. Class1.user1()
      40. Console.ReadLine()
      41. Console.WriteLine(user)
      42. Console.ReadLine()
      43. Console.WriteLine(Environment.CommandLine)
      44. Console.ReadLine()
      45. Console.WriteLine("Ende.")
      46. Console.ReadLine()
      47. Class1.enter()
      48. Console.ReadLine()
      49. End Sub
      51. Shared Sub enter()
      52. Console.WriteLine("Beenden mit ENTER.")
      53. End Sub
      55. Shared Sub computer()
      56. Console.WriteLine("Computername: " & Environment.MachineName)
      57. End Sub
      59. Shared Sub shutdown()
      60. Console.WriteLine("Shutdown: " &
      61. Environment.HasShutdownStarted)
      62. End Sub
      64. Shared Sub systemdir()
      65. Console.WriteLine("System-Ordner: " & _
      66. Environment.SystemDirectory)
      67. End Sub
      69. Shared Sub domain()
      70. Console.WriteLine("Aktive Domain: " & _
      71. Environment.UserDomainName)
      72. End Sub
      74. Shared Sub os()
      75. Console.WriteLine(Environment.OSVersion)
      76. End Sub
      78. Shared Sub user1()
      79. Console.WriteLine("Aktiver User: " & Environment.UserName)
      80. End Sub
      82. Private _lastacces As Date
      83. Private _lastwrite As Date
      85. Public Sub New(ByVal s As String)
      86. MyBase.new()
      87. _lastwrite = Now
      88. End Sub
      90. Public Function getlastacces() As Date
      91. Return _lastacces
      92. End Function
      94. Public Function getlastwrite() As Date
      95. Return _lastacces
      96. End Function
      98. Public Shared Property user()
      99. Get
      100. Return user
      101. End Get
      102. Set(ByVal s)
      103. user = s
      104. End Set
      105. End Property
      106. End Class
      108. CODE


      System Eintellungen auslesen:

      VB.NET-Quellcode

      1. Public Class Form1
      2. Inherits System.Windows.Forms.Form
      3. Vom Windows Form Designer generierter Code
      4. Dim oEnv As System.Environment
      5. Dim oItem As ListViewItem
      7. Private Sub Form1_Load(ByVal sender As System.Object, _
      8. ByVal e As System.EventArgs) Handles MyBase.Load
      9. lvwSystem.View = View.Details
      10. lvwSystem.Columns.Add("Eigenschaft", 140, _
      11. HorizontalAlignment.Left)
      12. lvwSystem.Columns.Add("Werte", 700, HorizontalAlignment.Left)
      13. FillSystemEinstellungen()
      14. End Sub
      16. Private Sub AddItems(ByVal lvw As ListView, ByVal sProperty _
      17. As String, ByVal sValue As String)
      18. oItem = New ListViewItem(sProperty)
      19. oItem.SubItems.Add(sValue)
      20. lvw.Items.Add(oItem)
      21. End Sub
      23. Private Sub FillSystemEinstellungen()
      24. AddItems(lvwSystem, "OS Version", _
      25. oEnv.OSVersion.Version.ToString)
      26. AddItems(lvwSystem, "CLR Version.Major", _
      27. oEnv.Version.Major.ToString)
      28. AddItems(lvwSystem, "CLR Version.Minor", _
      29. oEnv.Version.Minor.ToString)
      30. AddItems(lvwSystem, "CLR Version.Revision", _
      31. oEnv.Version.Revision.ToString)
      32. AddItems(lvwSystem, "CLR Version.Build", _
      33. oEnv.Version.Build.ToString)
      34. AddItems(lvwSystem, "OS Plattform", _
      35. oEnv.OSVersion.Platform.ToString)
      36. AddItems(lvwSystem, "MachineName", oEnv.MachineName.ToString)
      37. AddItems(lvwSystem, "SystemDirectory", _
      38. oEnv.SystemDirectory.ToString)
      39. AddItems(lvwSystem, "UserDomainName", _
      40. oEnv.UserDomainName.ToString)
      41. AddItems(lvwSystem, "UserInteractive", _
      42. oEnv.UserInteractive.ToString)
      43. AddItems(lvwSystem, "UserName", oEnv.UserName.ToString)
      44. AddItems(lvwSystem, "CurrentDirectory", _
      45. oEnv.CurrentDirectory.ToString)
      46. AddItems(lvwSystem, "WorkingSet", oEnv.WorkingSet.ToString)
      47. AddItems(lvwSystem, "CommandLine", oEnv.CommandLine.ToString)
      48. AddItems(lvwSystem, "TickCount", oEnv.TickCount.ToString)
      49. End Sub
      51. Private Sub Button1_Click(ByVal sender As System.Object, _
      52. ByVal e As System.EventArgs) Handles Button1.Click
      53. Me.Close()
      54. End Sub
      55. End Class
      57. CODE


      Betriebssystem ermitteln:

      VB.NET-Quellcode

      1. Public Function GetVersion() As String
      2. Dim osInfo As OperatingSystem
      4. osInfo = OSVersion
      6. With osInfo
      7. Select Case .Platform
      8. Case .Platform.Win32Windows
      9. Select Case (.Version.Minor)
      10. Case 0
      11. Return "Windows 95"
      12. Case 10
      13. If .Version.Revision.ToString() = "2222A" Then
      14. Return "Windows 98 Second Edition"
      15. Else
      16. Return "Windows 98"
      17. End If
      18. Case 90
      19. Return "Windows Me"
      20. End Select
      22. Case .Platform.Win32NT
      23. Select Case (.Version.Major)
      24. Case 3
      25. Return "Windows NT 3.51"
      26. Case 4
      27. Return "Windows NT 4.0"
      28. Case 5
      29. Select Case (.Version.Minor)
      30. Case 0
      31. Return "Windows 2000"
      32. Case 1
      33. Return "Windows XP"
      34. Case 2
      35. Return "Windows Server 2003"
      36. End Select
      37. Case Else
      38. Return "Failed"
      39. End Select
      40. End Select
      41. End With
      42. End Function
      44. CODE


      Druckerwarteschlange auslesen:

      VB.NET-Quellcode

      1. Imports System.Management
      2. Public Class Form1
      3. Private Sub Form1_Load(ByVal sender As System.Object, _
      4. ByVal e As System.EventArgs) Handles MyBase.Load
      6. ' ListView vorbereiten
      7. With ListView1
      8. With .Columns
      9. .Add("Dokument", 200)
      10. .Add("Drucker", 100)
      11. .Add("Status", 70)
      12. .Add("Seiten", 50, HorizontalAlignment.Center)
      13. .Add("Größe", 60, HorizontalAlignment.Right)
      14. .Add("Besitzer", 150)
      15. End With
      16. .View = View.Details
      17. .FullRowSelect = True
      18. End With
      19. End Sub
      20. Private Sub Button1_Click(ByVal sender As System.Object, _
      21. ByVal e As System.EventArgs) Handles Button1.Click
      23. ' Druckerwarteschlange auslesen und in ListView eintragen
      24. Me.Cursor = Cursors.WaitCursor
      25. With ListView1
      26. .Items.Clear()
      27. .BeginUpdate()
      29. ' WMI-Abfrage erstellen und ausführen
      30. Dim sQuery As String = "SELECT * FROM Win32_PrintJob"
      31. Dim Jobs As New ManagementObjectSearcher(sQuery)
      33. ' Schleife durchlaufen und Infos zu den Druckaufträgen ermitteln
      34. For Each Job As ManagementObject In Jobs.Get()
      35. Dim Document As String = WMIGetInfo(Job, "Document")
      36. Dim Printer As String = WMIGetInfo(Job, "DriverName")
      37. Dim Status As String = WMIGetInfo(Job, "JobStatus")
      38. Dim Pages As String = WMIGetInfo(Job, "PagesPrinted") & " von " & _
      39. WMIGetInfo(Job, "TotalPages")
      40. Dim Size As Integer = Val(WMIGetInfo(Job, "Size"))
      41. Dim Owner As String = WMIGetInfo(Job, "Owner")
      43. With .Items.Add(Document)
      44. .SubItems.Add(Printer)
      45. .SubItems.Add(Status)
      46. .SubItems.Add(Pages)
      47. .SubItems.Add(FormatNumber(Size / 1024, 1, , , TriState.True) & " KB")
      48. .SubItems.Add(Owner)
      49. End With
      50. Next
      52. .EndUpdate()
      53. End With
      54. Me.Cursor = Cursors.Default
      55. End Sub
      56. ''' <summary>
      57. ''' Hilfsfunktion. Gibt den Eigenschaftenwert des Objekts zurück, falls vorhanden.
      58. ''' Ist der Eigenschaftenwert nicht verfügbar, wird ein Leerstring zurückgegeben.
      59. ''' </summary>
      60. Private Function WMIGetInfo(ByVal WMIObj As ManagementObject, _
      61. ByVal Key As String) As String
      63. If Not WMIObj(Key) Is Nothing Then
      64. Return WMIObj(Key).ToString
      65. Else
      66. Return ""
      67. End If
      68. End Function
      69. End Class
      71. CODE


      FORTSETZUNG NÄCHSTE BEITRAG....

      Dieser Beitrag wurde bereits 10 mal editiert, zuletzt von „Alex2000“ ()

      Fortsetzung...

      Freien Laufwerksplatz ermitteln:

      VB.NET-Quellcode

      1. Imports System.Management
      3. Public Class Form1
      4. Public Function GetDiskSpace(ByVal drive As String) _
      5. As System.UInt64
      6. Dim diskClass As New ManagementClass("Win32_LogicalDisk")
      7. Dim disks As ManagementObjectCollection = _
      8. diskClass.GetInstances()
      9. Dim disk As ManagementObject
      10. Dim space As System.UInt64
      12. drive = drive.ToUpper.Substring(0, 2)
      14. For Each disk In disks
      15. If CStr(disk("Name")) = drive Then
      16. space = CType(disk("FreeSpace"), System.UInt64)
      17. End If
      18. Next disk
      19. Return space
      20. End Function
      22. Private Sub Form1_Load(ByVal sender As System.Object, _
      23. ByVal e As System.EventArgs) Handles MyBase.Load
      24. ListBox1.DataSource = Environment.GetLogicalDrives()
      25. End Sub
      27. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As _
      28. System.Object, ByVal e As System.EventArgs) Handles _
      29. ListBox1.SelectedIndexChanged
      30. Dim b, kb, mb, gb As Double
      32. Label1.Text = "Bitte warten..."
      33. Label2.Text = ""
      34. Label3.Text = ""
      35. Label4.Text = ""
      36. Label5.text = ""
      37. Label1.Refresh()
      38. Label2.Refresh()
      39. Label3.Refresh()
      40. Label4.Refresh()
      41. Label5.Refresh()
      43. Cursor.Current = Cursors.WaitCursor()
      45. b = CDbl((GetDiskSpace( _
      46. ListBox1.SelectedItem.ToString)).ToString)
      48. kb = b * 1 / 1024
      49. mb = b * 1 / 1048576
      50. gb = b * 1 / 1073741824
      52. Label1.Text = b.ToString("n") & " Byte"
      53. Label2.Text = kb.ToString("f3") & " KiloByte"
      54. Label3.Text = mb.ToString("f3") & " MegaByte"
      55. Label4.Text = gb.ToString("f3") & " GigaByte"
      56. Label5.Text = "Freier Platz auf Laufwerk " & _
      57. ListBox1.SelectedItem.ToString
      59. Cursor.Current = Cursors.Default()
      60. End Sub
      62. Private Sub Button1_Click(ByVal sender As System.Object, _
      63. ByVal e As System.EventArgs) Handles Button1.Click
      64. Me.Close()
      65. End Sub
      66. End Class



      Windows beenden:

      VB.NET-Quellcode

      1. Public Class Form1
      2. Inherits System.Windows.Forms.Form
      3. Vom Windows Form Designer generierter Code
      4. Private Sub Button1_Click_1(ByVal sender As System.Object, _
      5. ByVal e As System.EventArgs) Handles Button1.Click
      7. Dim oBetriebssystem, oEigenschaft As Object
      8. oBetriebssystem = GetObject( _
      9. "winmgmts:{impersonationLevel=impersonate,(Shutdown)}" & _
      10. "//./root/cimv2").ExecQuery( _
      11. "SELECT * FROM Win32_OperatingSystem")
      13. If RadioButton1.Checked = True Then
      14. If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
      15. "und der Computer heruntergefahren.", _
      16. "Computer herunterfahren", _
      17. MessageBoxButtons.OKCancel) = DialogResult.OK Then
      18. For Each oEigenschaft In oBetriebssystem
      19. oEigenschaft.Shutdown()
      20. Next
      21. End If
      22. Else
      23. If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
      24. "und der Computer neu gestartet.", _
      25. "Computer neu starten", _
      26. MessageBoxButtons.OKCancel) = DialogResult.OK Then
      27. For Each oEigenschaft In oBetriebssystem
      28. oEigenschaft.Reboot()
      29. Next
      30. End If
      31. End If
      32. End Sub
      34. Private Sub Button2_Click(ByVal sender As System.Object, _
      35. ByVal e As System.EventArgs) Handles Button2.Click
      37. Dim oBetriebssystem, oEigenschaft As Object
      38. Dim bytErzwingen As Byte
      40. oBetriebssystem = GetObject( _
      41. "winmgmts:{impersonationLevel=impersonate,(Shutdown)}" & _
      42. "//./root/cimv2").ExecQuery( _
      43. "SELECT * FROM Win32_OperatingSystem")
      45. If CheckBox1.Checked = True Then
      46. bytErzwingen = 4
      47. End If
      49. If RadioButton3.Checked = True Then
      50. If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
      51. "und der Computer heruntergefahren.", _
      52. "Computer herunterfahren", _
      53. MessageBoxButtons.OKCancel) = DialogResult.OK Then
      54. For Each oEigenschaft In oBetriebssystem
      55. oEigenschaft.Win32Shutdown(1 + bytErzwingen)
      56. Next
      57. End If
      58. End If
      60. If RadioButton4.Checked = True Then
      61. If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
      62. "und der Computer neu gestartet.", _
      63. "Computer neu starten", _
      64. MessageBoxButtons.OKCancel) = DialogResult.OK Then
      65. For Each oEigenschaft In oBetriebssystem
      66. oEigenschaft.Win32Shutdown(2 + bytErzwingen)
      67. Next
      68. End If
      69. End If
      71. If RadioButton5.Checked = True Then
      72. If MessageBox.Show("Der aktuelle Benutzer wird " & _
      73. "abgemeldet.", "Benutzer abmelden", _
      74. MessageBoxButtons.OKCancel) = DialogResult.OK Then
      75. For Each oEigenschaft In oBetriebssystem
      76. oEigenschaft.Win32Shutdown(0 + bytErzwingen)
      77. Next
      78. End If
      79. End If
      81. If RadioButton6.Checked = True Then
      82. If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
      83. "und der Computer abgeschalten.", _
      84. "Computer ausschalten", _
      85. MessageBoxButtons.OKCancel) = DialogResult.OK Then
      86. For Each oEigenschaft In oBetriebssystem
      87. oEigenschaft.Win32Shutdown(8 + bytErzwingen)
      88. Next
      89. End If
      90. End If
      91. End Sub
      93. Private Sub Button3_Click(ByVal sender As System.Object, _
      94. ByVal e As System.EventArgs) Handles Button3.Click
      95. Me.Close()
      96. End Sub
      97. End Class
      100. CODE


      Seriennummer eines Laufwerkes auslesen:

      VB.NET-Quellcode

      1. Private Function GetDriveSerialNumber(ByVal drive As String) As String
      2. Dim driveSerialnumber As String = String.Empty
      3. Dim driveFixed As String = Path.GetPathRoot(drive).Replace("\", "")
      5. Dim wmiQuery As String = "SELECT VolumeSerialNumber FROM Win32_LogicalDisk Where Name = '" + driveFixed + "'"
      7. Using driveSearcher As New ManagementObjectSearcher(wmiQuery)
      8. Using driveCollection As ManagementObjectCollection = driveSearcher.[Get]()
      9. For Each moItem As ManagementObject In driveCollection
      10. driveSerialnumber = Convert.ToString(moItem("VolumeSerialNumber"))
      11. Next
      12. End Using
      13. End Using
      14. Return driveSerialnumber
      15. End Function
      17. CODE


      Prozessor Informationen:

      VB.NET-Quellcode

      1. Imports System.Management
      3. Module Module1
      5. Sub Main()
      7. ' Processor Information
      8. Dim objQuery As New ObjectQuery("SELECT * FROM Win32_Processor")
      9. Dim searcher As New ManagementObjectSearcher(objQuery)
      11. For Each mem As ManagementObject In searcher.Get
      12. Console.WriteLine("Taktrate: " & Convert.ToUInt64(mem("CurrentClockSpeed")).ToString)
      13. Console.WriteLine("Max. Taktrate: " & Convert.ToUInt64(mem("MaxClockSpeed")).ToString)
      15. Console.WriteLine("Hersteller: " & mem("Manufacturer"))
      16. Console.WriteLine("Beschreibung: " & mem("Description"))
      17. Console.WriteLine("Name: " & mem("Name"))
      18. Next
      20. Console.ReadLine()
      24. End Sub
      26. End Module
      29. CODE



      wietere Links finde Sie hier

      ########################################################################

      Seriennummer eines Laufwerkes auslesen
      System-Informationen auslesen
      Aktuelle Druckaufträge auslesen
      Benutzeridentität auslesen
      Systemeinstellungen auslesen
      Betriebssystem ermitteln
      Aktuelle Druckaufträge auslesen
      Freien Laufwerksplatz ermitteln
      Windows beenden
      Lokale IP-Adresse ermitteln
      IP-Adresse berechnen
      MAC-Adresse auslesen
      CPU-Daten abfragen

      ########################################################################

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Alex2000“ ()

    Facebook
    Telefonspende