home *** CD-ROM | disk | FTP | other *** search
/ ftp.ac-grenoble.fr / 2015.02.ftp.ac-grenoble.fr.tar / ftp.ac-grenoble.fr / assistance.logicielle / XP_ServicePack-3.iso / support / tools / suptools.msi / Binary.InstallCab < prev    next >
Text File  |  2008-04-14  |  373b  |  14 lines
  1. Function InstallCab()
  2.     Dim strTemp, strProCab, strServerCab
  3.     Dim objHCU 
  4.  
  5.     strTemp = Session.property("SourceDir")
  6.     strProCab = strTemp & "sup_pro.cab"
  7.     strServerCab = strTemp & "sup_srv.cab"
  8.     Set objHCU = CreateObject("hcu.pchupdate")
  9.     objHCU.UpdatePkg strProCab , true
  10.     objHCU.UpdatePkg strServerCab , true
  11.     Set objHCU = Nothing
  12.     InstallCab = 1
  13. End Function
  14.