CompareMS*Files.sct: Avoid detecting the script calling WScript.Shell#Run as a virus.

--HG--
branch : stable

diff --git a/Plugins/dlls/CompareMSExcelFiles.sct b/Plugins/dlls/CompareMSExcelFiles.sct
index 048143f..c9c6caa 100644 (file)
--- a/Plugins/dlls/CompareMSExcelFiles.sct
+++ b/Plugins/dlls/CompareMSExcelFiles.sct
@@ -358,10 +358,14 @@ Function ShowSettingsDialog()
        Dim tfile: Set tfile = fso.CreateTextFile(tname)
        tfile.Write getResource("dialog1")
        tfile.Close
-       wsh.Run "mshta.exe """ & tname & """", 1, True
+       Run wsh, "mshta.exe """ & tname & """"
        fso.DeleteFile tname 
 End Function
 
+Sub Run(sh, cmd)
+       sh.Run cmd, 1, True
+End Sub
+
 </script>
 
 <resource id="dialog1">

diff --git a/Plugins/dlls/CompareMSWordFiles.sct b/Plugins/dlls/CompareMSWordFiles.sct
index 145a19c..72e949a 100644 (file)
--- a/Plugins/dlls/CompareMSWordFiles.sct
+++ b/Plugins/dlls/CompareMSWordFiles.sct
@@ -267,10 +267,14 @@ Function ShowSettingsDialog()
        Dim tfile: Set tfile = fso.CreateTextFile(tname)
        tfile.Write getResource("dialog1")
        tfile.Close
-       wsh.Run "mshta.exe """ & tname & """", 1, True
+       Run wsh, "mshta.exe """ & tname & """"
        fso.DeleteFile tname 
 End Function
 
+Sub Run(sh, cmd)
+       sh.Run cmd, 1, True
+End Sub
+
 </script>
 
 <resource id="dialog1">