'==========================================================================
'
'
' NAME: Sjekk_MSN.vbs
'
' AUTHOR: Glenn Østerud 
' DATE  : 30.08.2007
'
' COMMENT: Sjekker registry for riktig versjon av MSN Messenger , hvis ikke korrekt, logger til fil.
'                       Man må selv fylle inn eget servernavn i koden, samt lage et share på serveren som loggene kan skrives til.
'                       Scriptet lager logfiler med navnet til maskinen_versjon av Messenger.
'==========================================================================
Set objWSH = CreateObject("WScript.Shell")
Set oFileSys=CreateObject("Scripting.FileSystemObject")
Set objComputer = CreateObject("Shell.LocalMachine")


			
	On Error Resume Next
	varServerPort = ObjWSH.RegRead("HKEY_CURRENT_USER\Software\Microsoft\MSNMessenger\AppCompatCanary")
	varMSNversjon = Replace(varServerPort, ".","_")
	
	if varServerPort <> "8.1.0178" then 
		strLogFile = "\\<her må du fylle inn eget servernavn>\Log$\" & objComputer.MachineName & "_" & varMSNversjon & ".txt"
		Set oLogFile = oFileSys.CreateTextFile(strLogFile,True)
		oLogFile.Writeline "----------------------------------------------------------"
		oLogFile.Writeline "Maskin har FEIL versjon av MSN Messenger"
		oLogFile.Writeline "----------------------------------------------------------"
		oLogFile.Close
		
		
	Else
		strLogFile = "\\<her må du fylle inn eget servernavn>\Log$\" & objComputer.MachineName & "_" & "RIKTIG" & ".txt"
		Set oLogFile = oFileSys.CreateTextFile(strLogFile,True)
		oLogFile.Writeline "----------------------------------------------------------"
		oLogFile.Writeline "Maskin har riktig MSN Messenger versjon"
		oLogFile.Writeline "----------------------------------------------------------"
		oLogFile.Close
	End If
	
	
	
'	

Set objWSH = Nothing