--- ../Desktop/PHPInstallerScripts.vbs	2008-09-18 03:22:52.000000000 +0200
+++ ../Desktop/PHPInstallerScriptsFixed.vbs	2008-09-18 03:30:38.000000000 +0200
@@ -291,5 +291,8 @@
     For Each objItem in colItems
         ver=objItem.Version
     Next
-    GetWindowsVersion = Left(ver,3)
+    s = GetLocale
+    SetLocale("en-US")
+    GetWindowsVersion = CDbl( Left(ver,3) )
+    SetLocale(s)
 End Function