Ich habe folgendes Problem,
mein script läuft auf Win7 bis 10 ohne Fehler, mein APP basiert auf framework 4, das auch auf xp läuft, nur bei xp kommt eine seltsame Meldung ActiveX Error getobject
und ich sehe nichts, jemand eine Idee?
Hier das script unter vb2015:
*Topic verschoben*
mein script läuft auf Win7 bis 10 ohne Fehler, mein APP basiert auf framework 4, das auch auf xp läuft, nur bei xp kommt eine seltsame Meldung ActiveX Error getobject
und ich sehe nichts, jemand eine Idee?
Hier das script unter vb2015:
Quellcode
- Imports System.ComponentModel
- Imports System.Management
- Imports System.Collections
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- TextBox1.Text = MotherBoardSerialNo()
- End Sub
- Public Function MotherBoardSerialNo() As String
- Dim oWMI As Object
- Dim oBoard As Object
- Dim oItem As Object
- Dim strComputer As String = "."
- ' Fehlerbehandlung aktivieren
- On Error GoTo ErrHandler
- ' WMI-Objekt erstellen
- oWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
- ' Win32_ComputerSystemProduct-Object
- oBoard = oWMI.InstancesOf("Win32_ComputerSystemProduct")
- ' Model-Nummer
- For Each oItem In oBoard
- MotherBoardSerialNo = oItem.Name
- Exit For
- Next
- On Error GoTo 0
- Exit Function
- ErrHandler:
- MotherBoardSerialNo = "Fehler: Evtl. kein WMI installiert"
- End Function
- End Class
*Topic verschoben*
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Novaly“ ()