pessoal bom dia, eu preciso identificar qual o tipo do meu sistema operacional e fiz o seguinte script bobo com ajuda do script guy
onde no final eu comparo a saida do "campo caption" = meu sistema operacional com outros tipos de sistema, ele compila e nao mostra a semelhanca real do sistema (estou rodando em cima de windows xp)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOSes
Wscript.Echo "Caption: " & objOS.Caption 'Name
WScript.Echo "Service Pack: " & objOS.ServicePackMajorVersion & "." & _
objOS.ServicePackMinorVersion
Next
str1 = "Microsoft Windows XP Professional"
mysystem = "& objOS.Caption 'Name"
str3 = "Microsoft Windows 2000 Professional"
str4 = "Microsoft Windows 2000 Server"
str5 = "Microsoft Windows 2003 Server"
Wscript.Echo "& _ str1"
If str1 = mysystem Then
Wscript.Echo "The strings are equal."
Else
Wscript.Echo "The strings are not equal."
End If
If str3 = mysystem Then
Wscript.Echo "The strings are equal."
Else
Wscript.Echo "The strings are not equal."
End If
If str4 = mysystem Then
Wscript.Echo "The strings are equal."
Else
Wscript.Echo "The strings are not equal."
End If
If str5 = mysystem Then
Wscript.Echo "The strings are equal."
Else
Wscript.Echo "The strings are not equal."
End If
### compilando
C:\>cscript compara.vbs
Microsoft (R) Windows Script Host Versão 5.7
Copyright (C) 1996-2001 Microsoft Corporation. Todos os direitos reservados.
Caption: Microsoft Windows XP Professional
Service Pack: 3.0
& _ str1
The strings are not equal.
The strings are not equal.
The strings are not equal.
The strings are not equal.