' *******************************************************************************
'Subject: Visual Basic program : report full nx version including any mp and rev
'
' Author: Big King
' Date: 21.07.2014
' Version: 1.0
' NX Version: 9.0.1.3 (tested an works)
' *******************************************************************************

Option Strict Off
Imports System
Imports System.IO
Imports NXOpen
Imports NXOpen.UF

Module report_the_full_nx_version

	Dim s As Session = Session.GetSession()
	Dim ufs As UFSession = UFSession.GetUFSession()
	Dim lw As ListingWindow = s.ListingWindow

	Sub Main()

		Dim logName As String = ""
		Dim flag As Integer = 0
		ufs.UF.AskSyslogFilename(logName)
		
		' Check is File Exists - myTempFile.txt = True Than delete
		If My.Computer.FileSystem.FileExists("C:\Temp\myTempFile.txt")=True Then
		My.Computer.FileSystem.DeleteFile("C:\Temp\myTempFile.txt")
		End If

		' This temp file should not already
		' exist the first time you run this.

		' Create myTempFile.txt
		My.Computer.FileSystem.CopyFile(logName, "C:\Temp\myTempFile.txt")
		Dim fileReader As StreamReader
		fileReader = My.Computer.FileSystem.OpenTextFileReader("C:\Temp\myTempFile.txt")

		Do

			Dim thisLine As String = fileReader.ReadLine()
			If thisLine.StartsWith("NX ") Then
				lw.Open()
				' > output
				' Infofenster
				' ***********
				'lw.WriteLine(thisLine)
				flag = 1
				'	MsgBox(Machine Name & Username & NX Version )
				' > output MsgBox with Titel
				' **************************
				MsgBox (System.Environment.MachineName & " : " & Environ("Username") & vbNewLine & vbNewLine & My.Computer.Info.OSFullName & " (" + My.Computer.Info.OSVersion + ")" & vbNewLine & vbNewLine & system.datetime.now & vbNewLine & vbNewLine & "NX Version: " & thisLine, vbOKOnly, "PC Information and NX Version")
			End If
		Loop While flag = 0

		fileReader.Close()
		' Delete myTempFile
		My.Computer.FileSystem.DeleteFile("C:\Temp\myTempFile.txt")

	End Sub

	Public Function GetUnloadOption(ByVal dummy As String) As Integer

		Return Session.LibraryUnloadOption.Immediately

	End Function

End Module