זה דוגמא שמצאתי בחיפוש גוגל למציאת גירסת מערכת הפעלה
Public Function GetOSName()
On Error GoTo Fejl
Dim ObjWMIservice As Object, ColItems As Object, ObjItem As Object
Set ObjWMIservice = GetObject("winmgmts:\\.\root\cimv2")
Set ColItems = ObjWMIservice.ExecQuery("SELECT * FROM Win32_OperatingSystem", , 48)
For Each ObjItem In ColItems
GetOSName = ObjItem.Name
Next
GetOSName = Left(GetOSName, InStr(GetOSName, "|") - 1)
GetOSName = Trim(Mid(GetOSName, InStr(15, GetOSName, " "), 4))
Select Case GetOSName
Case 10: GetOSName = 10
Case 8.1: GetOSName = 8
Case 7.1, 7: GetOSName = 7
Case Else: GetOSName = 5
End Select
Set ObjItem = Nothing
Set ColItems = Nothing
Set ObjWMIservice = Nothing
ExitHer:
Exit Function
Fejl:
MsgBox Err.Description, , ""
Resume ExitHer
End Function
אבל יש לי עוד הרבה וזה שמור באיזה פרוייקט שלי,
תפרט איזה נתונים אתה צריך לקבל, אולי השתמשתי בזה.