strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
If InStr(objItem.OtherTypeDescription, "R2") Then
WScript.Echo "Cet ordinateur fonctionne sous
Windows Server 2003 R2."
Else
WScript.Echo "Cet ordinateur ne fonctionne pas sous
Windows Server 2003 R2."
End If
Next
