set objwmi=getobject("winmgmts:\\.")
set colitems=objwmi.execquery("select * from win32_operatingsystem")
for each i in colitems 
   if instr(i.name,"XP") then
     msgbox "是xp系统"
   else
     msgbox "不是 xp系统"
   end if
next
复制代码