Pessoal, eu preciso identificar se o usuário está usando Windows Home ou Pró ou 98.

 

Pois no Home e no 98 ele não está validando a senha por LDAP, ai eu preciso verificar pra fazer a validação por outro caminho...

 

Obrigado..

 

Raphael

 

Crie um form com 3 labels

exemplo:

 

Private Sub Form_Load()

Dim OS As String

With SysInfo1
    Select Case .OSPlatform
        Case 0: OS = "Win32"
        Case 1:
            Select Case .OSVersion
                Case 4: OS = "Win 95"
                Case 4.1: OS = "Win 98"
            End Select
        Case 2:
            Select Case .OSVersion
                Case 4: OS = "Win NT"
                Case 5: OS = "Win 2000"
                Case 6: OS = "Win XP"
            End Select
    End Select
   
    BD.Caption = .OSBuild & vbNewLine
    PT.Caption = OS & "(" & .OSPlatform & ")" & vbNewLine
    SO.Caption = "Service Pack" & " " & .OSVersion
 
 End With

End Sub

Fala cara...

 

Isso funciona beleza... soh que tem um porém.. como vou saber se é windows XP Home ou Pró?

É isto que eu preciso...

 

Valeu!

 

Raphael