Use Api to find OS used on a PC?

[alex_read]

Which function can I look up which can tell me what operating system the user is running on their PC.


Thank you in advance!

[crispin]

'paste into a form with 1 command button
Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Public Function getVersion() As Long
Dim osinfo As OSVERSIONINFO
Dim retvalue As Integer
osinfo.dwOSVersionInfoSize = 148
osinfo.szCSDVersion = Space$(128)
retvalue = GetVersionExA(osinfo)
getVersion = osinfo.dwPlatformId
End Function

Private Sub Command1_Click()
Dim lVersion&
lVersion = getVersion()
Select Case lVersion
Case 1
MsgBox "WIN9X"
Case 2
MsgBox "WINNT"
End Select
End Sub

[alex_read]

Cheers Crispin! :D

What would happen if the user has windows 200, will this show up as NT? If so is there any way to tell the difference please?

Thanks again!

[crispin]

Yeah I just tested it on W2000Pro, it shows up as WINNT - dunno if thats much use or not really, there might be some more info in that OSVERSION struct that could tell you if its NT or W2000...

hope this helps

[alex_read]

No, that's excellent, at least I know cheers.

I am writing a setup program & will just use the fso.folderexists() to see if the start menu is under the Win2000\documents and settings\, or under NT\winnt\.

Thanks for your help!