14 lines
360 B
Plaintext
14 lines
360 B
Plaintext
|
Function InstallCab()
|
||
|
|
Dim strTemp, strProCab, strServerCab
|
||
|
|
Dim objHCU
|
||
|
|
|
||
|
|
strTemp = Session.property("SourceDir")
|
||
|
|
strProCab = strTemp & "sup_pro.cab"
|
||
|
|
strServerCab = strTemp & "sup_srv.cab"
|
||
|
|
Set objHCU = CreateObject("hcu.pchupdate")
|
||
|
|
objHCU.UpdatePkg strProCab , true
|
||
|
|
objHCU.UpdatePkg strServerCab , true
|
||
|
|
Set objHCU = Nothing
|
||
|
|
InstallCab = 1
|
||
|
|
End Function
|