VBscript to generate miniupnpcstrings.h

fixes #297

miniupnpc/msvc/genminiupnpcstrings.vbs

@@ -0,0 +1,53 @@
+' VBScript to generate miniupnpcstrings.h
+' Copyright 2018 Thomas Bernard
+'Set WshShell = CreateObject("WScript.Shell")
+Set FSO = CreateObject("Scripting.FileSystemObject")
+versionfile = "..\version"
+infile = "..\miniupnpcstrings.h.in"
+outfile = "..\miniupnpcstrings.h"
+
+On Error Resume Next
+
+'Wscript.Echo revision
+
+Err.Clear
+Set f = FSO.OpenTextFile(versionfile, 1, False) ' 1 = Read
+If Err.Number = 0 Then
+	version = f.ReadLine
+	f.Close
+Else
+	' Exit error
+	WScript.Quit 1
+End If
+
+os_version = "0.0.0"
+strComputer = "."
+Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
+Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
+For Each objOperatingSystem in colOperatingSystems
+    'Wscript.Echo objOperatingSystem.Caption & " -- " 
+	os_version = objOperatingSystem.Version
+Next
+
+Dim array
+
+Set f_in = FSO.OpenTextFile(infile, 1, False)
+If Err.Number = 0 Then
+	Set f_out = FSO.OpenTextFile(outfile, 2, True) ' 2 = Write
+	Do Until f_in.AtEndOfStream
+		line = f_in.ReadLine
+		If Len(line) > 0 Then
+			array = Split(line, " ")
+			If UBound(array) >= 2 And array(0) = "#define" Then
+				If array(1) = "OS_STRING" Then
+					line = "#define OS_STRING " & Chr(34) & "MSWindows/" & os_version & Chr(34)
+				ElseIf array(1) = "MINIUPNPC_VERSION_STRING" Then
+					line = "#define MINIUPNPC_VERSION_STRING " & Chr(34) & version & Chr(34)
+				End if
+			End if
+		End If
+		f_out.WriteLine line
+	Loop
+	f_in.Close
+	f_out.Close
+End If

miniupnpc/msvc/miniupnpc.vcxproj

@@ -59,6 +59,9 @@
       <WarningLevel>Level3</WarningLevel>
       <DebugInformationFormat>EditAndContinue</DebugInformationFormat>
     </ClCompile>
+    <PreBuildEvent>
+      <Command>genminiupnpcstrings.vbs</Command>
+    </PreBuildEvent>
   </ItemDefinitionGroup>
   <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
     <ClCompile>
@@ -71,6 +74,9 @@
       <WarningLevel>Level3</WarningLevel>
       <DebugInformationFormat>ProgramDatabase</DebugInformationFormat>
     </ClCompile>
+    <PreBuildEvent>
+      <Command>genminiupnpcstrings.vbs</Command>
+    </PreBuildEvent>
   </ItemDefinitionGroup>
   <ItemGroup>
     <ClCompile Include="..\connecthostport.c" />

miniupnpc/msvc/miniupnpc_vs2010.vcxproj

@@ -56,6 +56,9 @@
       <WarningLevel>Level3</WarningLevel>
       <DebugInformationFormat>EditAndContinue</DebugInformationFormat>
     </ClCompile>
+    <PreBuildEvent>
+      <Command>genminiupnpcstrings.vbs</Command>
+    </PreBuildEvent>
   </ItemDefinitionGroup>
   <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
     <ClCompile>
@@ -69,6 +72,9 @@
       <WarningLevel>Level3</WarningLevel>
       <DebugInformationFormat>ProgramDatabase</DebugInformationFormat>
     </ClCompile>
+    <PreBuildEvent>
+      <Command>genminiupnpcstrings.vbs</Command>
+    </PreBuildEvent>
   </ItemDefinitionGroup>
   <ItemGroup>
     <ClCompile Include="..\connecthostport.c" />