Hallo Ihr,
ich habe da ein Problem, wo ich nicht weiß woran es liegt..
Ich lese mit folgendem Code meine CPU Beschreibung, Takt, Kerne, usw. aus
INFO: Auf Windows XP / Windows 7 PCs funktioniert es ohne Probleme!!
nur unter Windows 2008 Server und Windows 2012 Server bekomme ich ne Meldung... ich kann dann zwar auf weiter drücken und das Programm schmiert nicht ab, aber ausgelesen wirds nicht.. auch bei der User Anzeige
wäre nett wenn da mal jemand drüber schauen könnte.
ich habe da ein Problem, wo ich nicht weiß woran es liegt..
Ich lese mit folgendem Code meine CPU Beschreibung, Takt, Kerne, usw. aus
INFO: Auf Windows XP / Windows 7 PCs funktioniert es ohne Probleme!!
VB.NET-Quellcode
- Dim objCPUItem As Object, objCPU As Object
- On Error Resume Next
- objCPUItem = GetObject("winmgmts:").InstancesOf("Win32_Processor")
- If Err.Number = 0 Then
- Trim$(Str$(objCPUItem.Count))
- For Each objCPU In objCPUItem
- 'Ausgaben'
- CPUBez_Box.Text = Trim$(objCPU.Name)
- CPUTakt_Box.Text = objCPU.MaxClockSpeed
- CPUKern_Box.Text = System.Environment.ProcessorCount
- Application.DoEvents()
- Next
- objCPUItem = Nothing
- End If
- On Error GoTo 0
VB.NET-Quellcode
- Public Function GetRemoteUser(Optional ByVal Computer As String = ".") As String
- Dim objWMIService As Object
- Dim objItems As Object
- Dim objItem As Object
- GetRemoteUser = ""
- objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
- objItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
- For Each objItem In objItems
- GetRemoteUser = objItem.Username
- Next
- objWMIService = Nothing
- objItems = Nothing
- objItem = Nothing
- End Function
nur unter Windows 2008 Server und Windows 2012 Server bekomme ich ne Meldung... ich kann dann zwar auf weiter drücken und das Programm schmiert nicht ab, aber ausgelesen wirds nicht.. auch bei der User Anzeige
wäre nett wenn da mal jemand drüber schauen könnte.