Environ("os")

[mtp]

Pessoal,

Estou tentando retornar o nome do sistema operacional através de Environ("SO"), porém tanto para windows 2003 quanto para 2000, isso retorna "Windows_NT".

Alguém sabe me dizer como pego exatamente "windows 2003" ou "windows 2000"?

Obrigado!

Abraços!

[mtp]

Pessoal, já resolvi essa questão... aí vai a resposta para quem tiver interesse:

Private Sub getOSInfo()

On Error Resume Next

Dim strComputername As String

Dim objWMIService As Object

Dim objQrySetting As Object

Dim objOS As Object

strComputername = "." ' Local computer

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputername & "\root\cimv2")

Set objQrySetting = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem ")

For Each objOS In objQrySetting

MsgBox "OS Name: " & objOS.Name & vbCrLf & "Version: " & objOS.Version & vbCrLf & "Service Pack: " & objOS.ServicePackMajorVersion & "." & objOS.ServicePackMinorVersion & vbCrLf & "OS Manufacturer: " & objOS.Manufacturer & vbCrLf & "Windows Directory: " & objOS.WindowsDirectory & vbCrLf & "Locale: " & objOS.Locale

Next

' Tidy up

Set objWMIService = Nothing

Set objQrySetting = Nothing

Set objOS = Nothing

End Sub