update.scansoft.com Open in urlscan Pro
46.248.137.169  Public Scan

Form analysis
0 forms found in the DOM

Text Content

<script language="VBScript">

Dim objFileSync

Function GetOS()
  GetOS=DWUS.OS
End Function

Function GetUserInformation (pc, key)
On Error resume next
  GetUserInformation = DWUS.GetData (pc, "UserData", key)
End Function

Function GetSegmentInformation (pc, key)
On Error resume next
  GetSegmentInformation = DWUS.GetData (pc, "Main", key)
End Function

Function IsOS(os, comp)
  IsOS = CompareStrings (GetOS(), os, comp)
End Function

Function GetProductCode()
  GetProductCode=DWUS.ProductCode
End Function

Function GetProductVersion (pcode)
  GetProductVersion = ""
  if IsProductInstalled(pcode, "", 1,0)=false then GetProductVersion="" : Exit Function
  if IsRegKeyExists ("HKEY_CURRENT_USER\Software\InstallShield\Update Service\Database\"+pcode)=true then
    x=GetRegValue (1, "Software\InstallShield\Update Service\Database\" & pcode,"Version")
    if x = "" then x = GetRegValue (2, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & pcode, "DisplayVersion")
  else
    x = GetRegValue (2, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & pcode, "DisplayVersion")
  End if
  y=split(x, ".")
  if CheckNumbers(y) = True then x=y(0)+"."+y(1)
    GetProductVersion= x + "," + GetRegValue (2, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & pcode, "DisplayName")
End Function

Function GetHive(path)
  GetHive=0
  if CompareStrings(path, "HKEY_LOCAL_MACHINE",2) = True then GetHive=1 : Exit Function
  if CompareStrings(path, "HKLM",2) = True then GetHive=2 : Exit Function
  if CompareStrings(path, "HKEY_CURRENT_USER",2) = True then GetHive=3 : Exit Function
  if CompareStrings(path, "HKCU",2) = True then GetHive=4 : Exit Function
  if CompareStrings(path, "HKEY_USERS",2) = True then GetHive=5 : Exit Function
  if CompareStrings(path, "HKU",2) = True then GetHive=6 : Exit Function
  if CompareStrings(path, "HKEY_CURRENT_CONFIG",2) = True then GetHive=7 : Exit Function
  if CompareStrings(path, "HKCC",2) = True then GetHive=8 : Exit Function
  if CompareStrings(path, "HKEY_CLASSES_ROOT",2) = True then GetHive=9 : Exit Function
  if CompareStrings(path, "HKCR",2) = True then GetHive=10 : Exit Function
End Function

Function GetRestofKey(hive, regkey)
  if hive = 1 then sregkey=Right(regkey, Len(regkey)-19)
  if hive = 2 then sregkey=Right(regkey, Len(regkey)-5)
  if hive = 3 then sregkey=Right(regkey, Len(regkey)-18)
  if hive = 4 then sregkey=Right(regkey, Len(regkey)-5)

  if hive = 5 then sregkey=Right(regkey, Len(regkey)-11)
  if hive = 6 then sregkey=Right(regkey, Len(regkey)-4)
  if hive = 7 then sregkey=Right(regkey, Len(regkey)-20)
  if hive = 8 then sregkey=Right(regkey, Len(regkey)-5)
  if hive = 9 then sregkey=Right(regkey, Len(regkey)-18)
  if hive = 10 then sregkey=Right(regkey, Len(regkey)-5)
  GetRestofKey=sregkey
End Function

Function GetCorrectHive(hive)
  if hive = 1 then GetCorrectHive = 2
  if hive = 2 then GetCorrectHive = 2
  if hive = 3 then GetCorrectHive = 1
  if hive = 4 then GetCorrectHive = 1
  if hive = 5 then GetCorrectHive = 3
  if hive = 6 then GetCorrectHive = 3
  if hive = 7 then GetCorrectHive = 4
  if hive = 8 then GetCorrectHive = 4
  if hive = 9 then GetCorrectHive = 5
  if hive = 10 then GetCorrectHive = 5
End Function

Function IsRegKeyExists(regkey)
  hive=GetHive(regkey)
  if hive = 0 then 
    IsRegKeyExists=True 
    Exit Function
  end if
  IsRegKeyExists=DWUS.RegKeyExists(GetCorrectHive(hive),GetRestofKey(hive, regkey))
End Function

Function IsRegKeyValue(regkey, valuename, value,comp)
  IsRegKeyValue=True
  hive = GetHive(regkey)
  if hive = 0 then
    if comp = 2 then
      IsRegKeyExists=False : Exit Function
    else
      IsRegKeyExists=True : Exit Function
    end if
  end if
  IsRegKeyValue=IsRegKeyValueCompare  (GetCorrectHive(hive),  GetRestofKey(hive, regkey), valuename, value, comp)
End Function

Function IsRegKeyValueCompare (hive, sregkey, valuename, value, comp)
  if comp = 9 Or comp = 10 Or comp = 11 Or comp = 12 then
    IsRegKeyValueCompare=CompareNumbers(GetRegValue(hive, sregkey, valuename), value, comp)
  else
    IsRegKeyValueCompare=CompareStrings(GetRegValue(hive, sregkey, valuename), value, comp)
  end if
End Function

Function CheckNumbers (arr)
  CheckNumbers = False
  if UBound(arr) <= 0 then Exit Function
  i = 0
  while i <= UBound(arr)
    if IsNumeric(arr(i)) = False then Exit Function
    i=i+1
  wend
  CheckNumbers = True
End Function

Function ValidateNumbers (arr)
  if UBound(arr) <= 0 then Exit Function
  i = 0
  while i <= UBound(arr)
    if IsNumeric(arr(i)) = False then 
      arr(i) = "00"
    end if
    i = i + 1
  wend
End Function

Function CompareVersions (ver1, ver2, comp)
  if ver1 = "" then CompareVersions = False : Exit Function
  if ver2 = "" then CompareVersions = False : Exit Function
  dim buffer1, buffer2, verarr1, verarr2
  dim i, rs
  dim Ver1MS, Ver1LS, Ver2MS, Ver2LS
  if InStr(ver1, ".") <> 0 then
    verarr1 = split (ver1, ".")
  elseif InStr(ver1, ",") <> 0 then
    verarr1 = split (ver1, ",")
  end if
  if InStr(ver2, ".") <> 0 then
    verarr2 = split (ver2, ".")
  elseif InStr(ver2, ",") <> 0 then
    verarr2 = split (ver2, ",")
  end if  
  len1 = UBound(verarr1)
  len2 = UBound(verarr2)
  ValidateNumbers verarr1
  ValidateNumbers verarr2
  Ver1MS = CLng(verarr1(0)) * 65536
  if len1 = 1 then
    Ver1MS = (CLng(verarr1(0))  * 65536) + CLng(verarr1(1))
  elseif len1 = 2 then
    Ver1LS = CLng(verarr1(2))
  elseif len1 = 3 then
    Ver1LS = CLng(verarr1(2)) * 65536 + CLng(verarr1(3))
  end if
  Ver2MS = CLng(verarr2(0)) * 65536
  if len2 = 1 then
    Ver2MS = CLng(verarr2(0)) * 65536 + CLng(verarr2(1))
  elseif len2 = 2 then
    Ver2LS = CLng(verarr2(2))
  elseif len2 = 3 then
    Ver2LS = CLng(verarr2(2)) * 65536 + CLng(verarr2(3))
  end if
  if Ver1MS = 0 AND Ver1LS = 0 then rs=2 else rs=Compare64bitNumbers(Ver1MS, Ver1LS, Ver2MS, Ver2LS)
  CompareVersions = False
  if comp = 1 then ' ver1 Equal To ver2
    if rs = 0 then CompareVersions = True
    Exit Function
  end if
  if comp = 2 then ' ver1 Less Than ver2
    if rs = -1 then CompareVersions = True
  end if
  if comp = 4 then ' ver1 Greater Than ver2
    if rs = 1 then CompareVersions = True
  end if
  Exit Function
CompareLiterals:
  CompareVersions=CompareStrings(ver1, ver2, comp)
End Function

Function Compare64bitNumbers (aMS, aLS, bMS,bLS)
  Compare64bitNumbers=0
  if aMS = bMS then
    if aLS = bLS  then Compare64bitNumbers=0
    if aLS > bLS then Compare64bitNumbers=1
    if aLS < bLS then Compare64bitNumbers=-1
    Exit Function
  end if
  if aMS <  bMS then Compare64bitNumbers=-1 else Compare64bitNumbers=1
End Function

Function CompareStrings (str, value, comp)
  CompareStrings=False
  if comp = 1 then
    if LCase(str) = LCase(value) then  CompareStrings=True else CompareStrings=False
  end if
  if comp = 2 then
    if Len(str) >= Len(value) then 
      nCount=Len(value) 
    else 
      CompareStrings=False
      Exit Function
    End If
    tmpValue=LCase(Left(str, nCount))
    if LCase(tmpValue) = LCase(value) then CompareStrings=True else CompareStrings=False
  end if
  if comp = 4 then
    if InStr (LCase(str), LCase(value))  <> 0 then CompareStrings=True else CompareStrings=False
  end if
  if comp = 8 then
      if LCase(str) = LCase(value) then CompareStrings=False else CompareStrings=True
  end if
  if comp = 13 then
      if str <= value then CompareStrings=False else CompareStrings=True
  end if
  if comp = 14 then
      if str < value then CompareStrings=False else CompareStrings=True
  end if
  if comp = 15 then
      if str >= value then CompareStrings=False else CompareStrings=True
  end if
  if comp = 16 then
      if str > value then CompareStrings=False else CompareStrings=True
  end if
End Function

Function CompareNumbers (str, value, comp)
  CompareNumbers=False
  if IsNumeric (str) = False Or IsNumeric (value) = False then Exit Function
  num1 = CInt(str)
  num2 = CInt(value)
  if comp = 9 then
    if num1 > num2 then  CompareNumbers=True else CompareNumbers=False
  end if
  if comp = 10 then
    if num1 >= num2 then CompareNumbers=True else CompareNumbers=False
  end if
  if comp = 11 then
    if num1 < num2 then CompareNumbers=True else CompareNumbers=False
  end if
  if comp = 12 then
    if num1 <= num2 then CompareNumbers=True else CompareNumbers=False
  end if
End Function

Function IsFileVersion (ttype, pc, path, filename, version, comp)
  if ttype = "1" then pcode=pc : fname=filename
  if ttype = "2" then pcode="" : fname=path
  IsFileVersion = CompareVersions (GetFileVersion(pcode, fname), version, comp)
End Function

Function IsUserInformation (pc, key, value, comp)
  IsUserInformation = CompareStrings (GetUserInformation(pc, key), value, comp)
End Function

Function IsSegmentation (pc, key, value)
  On Error Resume Next
  dim lSegmentValue
  lSegmentValue = GetSegmentInformation(pc, key)
  if CInt(lSegmentValue) <= CInt(value) then IsSegmentation=True else IsSegmentation=False
End Function

Function IsProductInstalled (pc, version, comp, t)
  if comp = 1 then IsProductInstalled = IsRegKeyExists("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & pc)
  if comp = 2 then
    IsProductInstalled = False
    if IsRegKeyExists("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & pc) = True then
    if IsRegKeyValue ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & pc, "DisplayVersion", version, 1) = True then IsProductInstalled=True else IsProductInstalled=False
  end if
  end if
  if t = 2 then if IsProductInstalled = True then IsProductInstalled = False else IsProductInstalled = True
End Function

Function GetFileVersion(pc, filename)
  GetFileVersion=DWUS.FileVersion(pc, filename)
End Function

Function GetRegVal (regkey, valuename, value)
  GetRegVal =""
  hive = GetHive(regkey)
  if hive = 0 then GetRegVal ="" : Exit Function
  GetRegVal =GetRegValue  (GetCorrectHive(hive),  GetRestofKey(hive, regkey), valuename)
End Function

Function GetRegValue (hive, sregkey, valuename)
  GetRegValue=DWUS.RegValue(hive, sregkey, valuename)
End Function

Function GetFileDate(pc, filename)
  GetFileDate=DWUS.FileDate(pc, filename)
End Function

Function IsFileDate (ttype, pc, path, filename, date,comp)
  IsFileDate   = True
  if ttype = "1" then pcode=pc : fname=filename
  if ttype = "2" then pcode="" : fname=path
  d=GetFileDate(pcode, fname)
  if d = "" then IsFileDate=False : Exit Function
  cmp=CompareDates(d, date)
  if comp = 1 then if cmp = 0 then IsFileDate=True else IsFileDate=False
  if comp = 2 then if cmp <= 0  then IsFileDate=True else IsFileDate=False
End Function

Function CompareDates(date1, date2)
  d1=Split(date1, "/")
  d2=Split(date2, "/")
  bErr=false
  if UBound(d1) <> 2 then bErr=true
  if UBound(d2) <> 2 then bErr=true
  if d1(0) = "" OR d2(0) = "" OR d1(1)  = "" OR d1(2)  = "" OR d1(2)  = ""  OR d2(2)  = ""  then bErr = true
  if bErr = false then
    mm1=d1(0)
    mm2=d2(0)
    dd1=d1(1)
    dd2=d2(1)
    yyyy1=d1(2)
    yyyy2=d2(2)
    if yyyy1 = yyyy2 then
      if mm1 = mm2 then
        if dd1 = dd2 then CompareDates=0 : Exit Function
        if dd1 > dd2 then CompareDates=1 : Exit Function else CompareDates=-1 : Exit Function
      else
        if mm1 > mm2 then CompareDates=1 : Exit Function else CompareDates=-1 : Exit Function
      end if
    else
      if yyyy1 > yyyy2 then CompareDates=1 : Exit Function else CompareDates=-1 : Exit Function
    end if
  else
    CompareDates=-2
  end if
End Function


Function IsPatchApplied(pc, pcode)
  if DWUS.IsPatchApplied(pc,pcode) = True then IsPatchApplied=False else IsPatchApplied=True
End Function

Function IsFileExists (ttype, comp, pc, path, filename)
  IsFileExists=True
  if ttype = "1" then pcode=pc : fname=filename
  if ttype = "2" then pcode="" : fname=path
  ret=DWUS.FileExists(pcode, fname)
  if comp = 2 then
    if ret = True then IsFileExists = False else IsFileExists = True
  else
    IsFileExists=ret
  end if
End Function

Function CompareProfileValue(pc, profile, value, comp)
  Dim pfile
  Dim profilename
  Dim name
  Dim arr
  CompareProfileData = False
  arr = Split(profile, " - ", -1, 1)
  profilename = arr(0)
  name = arr(1)
  pfile = pc & ".pf"
  if comp = 1 then
      if LCase(value) = LCase(DWUS.GetData(pfile, profilename, name)) then CompareProfileValue = True else CompareProfileValue = False
  end if
  if comp = 2 then
      if LCase(value) = LCase(DWUS.GetData(pfile, profilename, name)) then CompareProfileValue = False else CompareProfileValue = True
  end if
End Function

Function IsTodayCompare( strDate, comparison )
  IsTodayCompare = False
  d1=Split(strDate, "/")
  bErr=false
  if UBound(d1) <> 2 then bErr=true
  if d1(0) = "" OR d1(1)  = "" OR d1(2)  = "" then bErr = true
  if bErr = false then
    mm1=d1(0)
    dd1=d1(1)
    yyyy1=d1(2)
    date1 = DateSerial(yyyy1, mm1, dd1)
    dateNow = Date
    if comparison = 1 then
        if date1 > dateNow then IsTodayCompare = True else IsTodayCompare = false
    end if
    if comparison = 2 then
        if dateNow > date1 then IsTodayCompare = True else IsTodayCompare = false
    end if
    if comparison = 3 then
        if date1 = dateNow then IsTodayCompare = True else IsTodayCompare = false
    end if
  end if
End Function

Function IsTodayBetween( strDate1, strDate2 )
  IsTodayBetween = False
  d1=Split(strDate1, "/")
  d2=Split(strDate2, "/")
  bErr=false
  if UBound(d1) <> 2 then bErr=true
  if UBound(d2) <> 2 then bErr=true
  if d1(0) = "" OR d1(1)  = "" OR d1(2)  = "" then bErr = true
  if d2(0) = "" OR d2(1)  = "" OR d2(2)  = "" then bErr = true
  if bErr = false then
      mm1=d1(0)
      dd1=d1(1)
      yyyy1=d1(2)
      mm2=d2(0)
      dd2=d2(1)
      yyyy2=d2(2)
      date1 = DateSerial(yyyy1, mm1, dd1)
      date2 = DateSerial(yyyy2, mm2, dd2)
      dateNow = Date
      if date1 <= dateNow AND dateNow  <= date2 then IsTodayBetween = True else IsTodayBetween = False
  end if
End Function

Function HasTimeElapsed( nDays, date1 )
    dateNow = Date
    nDiff = DateDiff( "d", date1, dateNow )
    if CInt(nDiff) < CInt(nDays) then HasTimeElapsed = False else HasTimeElapsed = True
End Function

Function HasTimeElapsedProfile( nDays, pc, profilename, name )
  HasTimeElapsedProfile = False
  pfile = pc & ".pf"
  strDate = ReadINIFile(pc, "Campaign", name, 2)
  if strDate = "" then Exit Function
  d1=Split(strDate, "/")
  bErr=false
  if UBound(d1) <> 2 then Exit Function
  if d1(0) = "" OR d1(1)  = "" OR d1(2)  = "" then bErr = true
  if bErr = false then
      mm1=d1(0)
      dd1=d1(1)
      yyyy1=d1(2)
      dateStart = DateSerial(yyyy1, mm1, dd1)

      HasTimeElapsedProfile = HasTimeElapsed( nDays, dateStart )
  end if
End Function

Function HasTimeElapsedCampaignStart( nDays, campaignID, pc )
  HasTimeElapsedCampaignStart = False
  name = "DATE_CMP_" + CStr(campaignID)
  pfile = pc & ".pf"
  HasTimeElapsedCampaignStart = HasTimeElapsedProfile( nDays, pc, "Campaign", name )
End Function

Function HasTimeElapsedStageStart( nDays, campaignID, pc )
  HasTimeElapsedStageStart = False
  name = "DATE_STAGE_" + CStr(campaignID)
  HasTimeElapsedStageStart = HasTimeElapsedProfile( nDays, pc, "Campaign", name )
End Function

Function CreateFileSyncObj()
  On Error Resume Next
  CreateFileSyncObj = False
  If CompareVersions(agentversion, "6.10", 2) then
      Set objFileSync = CreateObject("DWUpdateService.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "7.00", 2) then
      Set objFileSync = CreateObject("MVSNClient61Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "8.00", 2) then
      Set objFileSync = CreateObject("MVSNClient7Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "9.00", 2) then
      Set objFileSync = CreateObject("MVSNClient8Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "10.00", 2) then
      Set objFileSync = CreateObject("MVSNClient9Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "11.00", 2) then
      Set objFileSync = CreateObject("MVSNClient10Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "12.00", 2) then
      Set objFileSync = CreateObject("MVSNClient11Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "13.00", 2) then
      Set objFileSync = CreateObject("FNCClient11Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "14.00", 2) then
      Set objFileSync = CreateObject("FNCClient12Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "15.00", 2) then
      Set objFileSync = CreateObject("FNCClient14Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "16.00", 2) then
      Set objFileSync = CreateObject("FNCClient15Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "17.00", 2) then
      Set objFileSync = CreateObject("FNCClient16Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "18.00", 2) then
      Set objFileSync = CreateObject("FNCClient17Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "19.00", 2) then
      Set objFileSync = CreateObject("FNCClient18Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "20.00", 2) then
      Set objFileSync = CreateObject("FNCClient19Lib.FileSyncImpl")
  ElseIf CompareVersions(agentversion, "21.00", 2) then
      Set objFileSync = CreateObject("FNCClient20Lib.FileSyncImpl")
  End If    

  if Err.number = 0 then CreateFileSyncObj=True
End Function

Function AreFilesSynced(param1, param2,pc)
  On Error Resume Next
  if acceptFileSyncMessages() = False then AreFilesSynced=True:exit function
  if CreateFileSyncObj() = False then AreFilesSynced=True:exit function
    AreFilesSynced=objFileSync.IsFileSyncRequired (param1, param2,pc)
  if Err.number <> 0 then AreFilesSynced=True
End Function

Function acceptFileSyncMessages()
  acceptFileSyncMessages = False
  If CompareVersions(agentversion, "5.00", 4) then
    acceptFileSyncMessages = True
  end if
End Function


    Function c15608()
        
        c15608=IsRegKeyValue("HKLM\SOFTWARE\Nuance\PDF\V1","convdll","npdfc3.cnv","4")
      
    End Function


    Function c15609()
        
        c15609=IsRegKeyValue("HKLM\SOFTWARE\Nuance\PDF\V1","FP11","1","8")
      
    End Function


      Function g1
      g1=False
      
      if c15608() = False then   Exit Function
      
      g1=True
      End Function
    
      Function g2
      g2=False
      
      if c15609() = False then   Exit Function
      
      g2=True
      End Function
    
  Function main()
      main=False


    if g1() = True then main = True : Exit Function
    
    if g2() = True then main = True : Exit Function
    
  End Function

  
Dim agentversion
agentversion = Left(Trim(Mid("ISMP 11.00", 5)), 3)
</script>


    
    <SCRIPT language="VBScript">
    Dim DWUS,ret
    If CompareVersions(agentversion, "6.10", 2) then
        document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:5B7524C8-2446-40E9-9474-94A779DBA224'></OBJECT>"
	ElseIf CompareVersions(agentversion, "7.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:5B42F450-21F0-4492-8BF5-F32C5B4B352D'></OBJECT>"
	ElseIf CompareVersions(agentversion, "8.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:6F78AD00-7F8F-4F40-846E-70864E143DEF'></OBJECT>"
	ElseIf CompareVersions(agentversion, "9.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:AF103548-2EEC-4C97-879C-5D03F498BE53'></OBJECT>"
	ElseIf CompareVersions(agentversion, "10.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:097D42F0-A4E8-442F-942F-F57DCA431EAB'></OBJECT>"
	ElseIf CompareVersions(agentversion, "11.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:BEC11279-2996-421C-B072-992A977CA900'></OBJECT>"
	ElseIf CompareVersions(agentversion, "12.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:A81F30CF-A161-4B43-AFFD-929617893AFF'></OBJECT>"
	ElseIf CompareVersions(agentversion, "13.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:E49B30C9-6D7E-48F5-91DA-F2F0414C6A13'></OBJECT>"
	ElseIf CompareVersions(agentversion, "14.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:98CAA5F0-D8D9-4A5B-915F-AA00EE024820'></OBJECT>"
	ElseIf CompareVersions(agentversion, "15.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:3CDCEFB9-106B-494A-9566-949204801B90'></OBJECT>"
	ElseIf CompareVersions(agentversion, "16.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:3A897359-69A4-40FF-821A-96C5DB030661'></OBJECT>"
	ElseIf CompareVersions(agentversion, "17.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:BA5B093C-8564-4ADA-BC24-C0129C3D54F6'></OBJECT>"
	ElseIf CompareVersions(agentversion, "18.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:91EFA716-0FB6-4F56-AEF6-F35D228DF6AF'></OBJECT>"
	ElseIf CompareVersions(agentversion, "19.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:C373DB04-34A7-44DE-8EA6-E39067EB992D'></OBJECT>"
	ElseIf CompareVersions(agentversion, "20.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:9B601211-D33A-4222-823F-EF1F1463C736'></OBJECT>"
	ElseIf CompareVersions(agentversion, "21.00", 2) then
		document.write "<OBJECT ID='webagent' align='baseline' height='1' width='1' classid='CLSID:3E5898F5-F60D-4F17-8E08-4729625F770B'></OBJECT>"
	end if
    Set DWUS=webagent.ScriptObject("{C4091E43-4FC0-11D5-8C6C-00104B9747FA}")
    ret=main()
    </SCRIPT>