mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
360 B
13 lines
360 B
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
|