سؤال: معرفة اسم نظام التشغيل الذي نعمل عليه

تقصد رقم نسخة الويندوز التي تعمل عليها, وليس إسم نظام التشغيل, لأن ويندوز إكس بي و سبه كلاهما نسختان من نفس نظام التشغيل !!

يمكنك مراجعة الـ WMI و كذلك بعض دوال الـ API

لا اخي اقصد اسم نظام التشغيل اذا كان Windows XP أو Windows 7 أو Windows Vista

مشكوريين لقيت الحل

Public Class Form1 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim x As String 
        x = My.Computer.Info.OSFullName 
        x = x.ToLower 
        MsgBox(x) 
        If x.Contains("95".ToLower) Then 
            MsgBox("Windows 95") 
        ElseIf x.Contains("98".ToLower) Then 
            MsgBox("Windows 98") 
        ElseIf x.Contains("me".ToLower) Then 
            MsgBox("Windows me") 
        ElseIf x.Contains("2000".ToLower) Then 
            MsgBox("Windows 2000") 
        ElseIf x.Contains("XP".ToLower) Then 
            MsgBox("Windows XP") 
        ElseIf x.Contains("Vista".ToLower) Then 
            MsgBox("Windows Vista") 
        ElseIf x.Contains("7".ToLower) Then 
            MsgBox("Windows 7") 
        Else 
            MsgBox("Different MS-OS") 
        End If 
    End Sub 
End Class

Great Thanks Alot