End Function\r
\r
\r
-Function RemoveInstalledFiles()\r
+Function RemoveDriverFiles()\r
Dim Win\r
Dim sDRIVERS\r
Dim sSystem64Folder \r
End IF\r
Next\r
\r
- ' cleanup DAPL/DAT\r
- FileDelete(Win & "dat.dll")\r
- FileDelete(Win & "dapl.dll")\r
- \r
End Function\r
\r
''''''''''' Delete registry key ''''''''''''\r
Dim sInstalldir\r
sInstalldir = PropArray(0)\r
\r
- RemoveInstalledFiles\r
+ RemoveDriverFiles\r
\r
Set WshShell = CreateObject("WScript.Shell")\r
\r
Next\r
\r
' remove driver installed files\r
- RemoveInstalledFiles\r
+ RemoveDriverFiles\r
\r
Session.Property("REBOOT") = "FORCE"\r
\r
\r
' if opensm.service.txt exists then the install requestor\r
' has asked that opensm be run as a service.\r
- \r
+\r
If Not fso.FileExists(opensmService) Then\r
Exit sub\r
End if\r
\r
\r
\r
-' deferred action to increment ticks while action is taking place\r
+' NOT USED - deferred action to increment ticks while action is taking place\r
'\r
Function AddProgressInfo( )\r
Const INSTALLMESSAGE_ACTIONSTART = &H08000000\r
AddProgressInfo = 0\r
End Function\r
\r
-\r
-\r