Journal vb.NET get "NX Version" , "NX Phase" , and "NX Patch"

The GTAC links lead to examples of sysInfo, which isn't useful for getting the NX version or patch. I offer the following solution; make a wrapper for env_print:

Imports System

Module Module1
Sub Main()
Dim p As New Process()
p.StartInfo.FileName = "C:\Program Files\Siemens\NX 10.0\UGII\env_print.exe"
p.StartInfo.Arguments = "-m"
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
p.Start()
Dim result() As String = p.StandardOutput.ReadToEnd.Split(",")
p.WaitForExit()
MsgBox(result(0))
End Sub
End Module