function isWin2008()
	on error resume next
	isWin2008=false
	set win32_OS=getobject("winmgmts:{(Shutdown)}//./root/cimv2").execQuery("select * from win32_operatingsystem where primary=true")
	    for each OS in win32_OS
		  if instr(OS.Name,"2008")>0 then isWin2008=true
	    next
	set win32_OS=nothing
end function

dim fso
set fso=createobject("scripting.filesystemobject")

if isWin2008() and fso.folderExists("c:\Windows\SysWOW64") then
	wscript.quit 0
else
	wscript.quit 2
end if