' List Operating System and Service Pack Information

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 "Computer Name: " & objOS.CSName
  Wscript.Echo "Caption: " & objOS.Caption 'Name
  Wscript.Echo "Version: " & objOS.Version 'Version & build
  Wscript.Echo "Build Number: " & objOS.BuildNumber 'Build
  Wscript.Echo "Build Type: " & objOS.BuildType
  Wscript.Echo "OS Type: " & objOS.OSType
  Wscript.Echo "Other Type Description: " & objOS.OtherTypeDescription
  WScript.Echo "Service Pack: " & objOS.ServicePackMajorVersion & "." & _
   objOS.ServicePackMinorVersion
Next

WScript.Echo "Service Pack: " & objOS.ServicePackMajorVersion & "." & _
   objOS.ServicePackMinorVersion

[HKEY_CLASSES_ROOT\CLSID\{04B1A7E3- 4379 -39D2-B003-57AF524D9AC5}\InprocServer32]
@="C:\\WINDOWS\\Microsoft.NET\\Framework\\v1.1.4322\\mscormmc.dll"
"ThreadingModel"="Both"
"Class"="Microsoft.CLRAdmin.CCommandHistory"
"Assembly"="mscorcfg, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"
"RuntimeVersion"="v1.1.4322"

' List Registry Subkeys
Dim flag3
Dim flag2
Dim flag11

Const HKEY_LOCAL_MACHINE = &H80000002
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\.NETFramework"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys
   if InStr( 1 , subkey, "v3.0", vbTextCompare) then flag3 = true 
   if InStr( 1 , subkey, "v2.0", vbTextCompare) then flag2 = true 
   if InStr( 1 , subkey, "v1.1", vbTextCompare) then flag11 = true 
Next

if flag3 then msgbox "3.0 Installed"
if flag2 then msgbox "2.0 Installed"
if flag11 then msgbox "1.1 Installed"