检测系统的IIS版本脚本

function  OnAppSearch()  
     STRING  szIISKey, szNumName, szNumValue;

    NUMBER nType, nSize, nvType, nvSize;

begin          
             
    RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
      szIISKey  =   " SYSTEM/CurrentControlSet/Services/W3SVC/Parameters " ;  
      if  (RegDBGetKeyValueEx(szIISKey, " MajorVersion " ,nType,szNumValue,nSize)  <   0 )  then
         MessageBox( " 没有安装IIS,安装失败!请安装IIS 5.0以上! " ,SEVERE);
          abort;
       else
           if  (szNumValue  <=   " 5 " )  then  
            MessageBox( " IIS版本不能小于5.0，安装失败! " ,SEVERE);
            abort;
          endif; 
    endif;      
end ;