butschi1988
-
Gesamte Inhalte
3 -
Registriert seit
-
Letzter Besuch
Beiträge erstellt von butschi1988
-
-
Dim objQuery As New ObjectQuery("SELECT * FROM Win32_operatingsystem") Dim searcher As New ManagementObjectSearcher(objQuery) Dim caption As String = "" Dim osa As String = "" Dim spmv As String = "" Try For Each mem As ManagementObject In searcher.Get caption = mem("Caption").ToString() spmv = mem("ServicePackMajorVersion").ToString() [b]osa = Runtime.InteropServices.Marshal.SizeOf(GetType(IntPtr)) * 8 & "-Bit"[/b] Next Catch End Try 'Console.WriteLine("Caption: " + My.Computer.Info.OSFullName) 'Console.WriteLine("ServicePackMajorVersion: " + spmv) 'Console.WriteLine("OSArchitecture: " + osa) 'Console.WriteLine() Console.WriteLine(caption + " " + osa + " SP" + spmv) Console.Read() 'Console.WriteLine(caption & " " & osa + " SP" & spmv)
Das funktioniert besser! :)
-
'VB2008-code, getestet unter XP/ win7
Imports System.Management
'Verweis auf System.Management einrichten
Module Module1
Sub Main()
Dim objQuery As New ObjectQuery("SELECT * FROM Win32_operatingsystem")
Dim searcher As New ManagementObjectSearcher(objQuery)
Dim caption As String = ""
Dim osa As String = ""
Dim spmv As String = ""
Try
For Each mem As ManagementObject In searcher.Get
caption = mem("Caption").ToString()
spmv = mem("ServicePackMajorVersion").ToString()
osa = mem("OSArchitecture").ToString() 'erst ab vista
Next
Catch
End Try
Console.WriteLine(caption & " " & osa + " SP" & spmv)
End Sub
End Module
Gibt sonst Compilerfehler. ;)
OS Version auslesen mit Batch
in Windows Forum — Scripting
Geschrieben
Ich hohle mir halt damit die Größe des Datentyps IntPtr ( Byte ) und renche sie in Bit um.. somit habe ich die Architektur vom OS.