Some Registry Info.

Get media player version

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MediaPlayer\PlayerUpgrade\PlayerVersion

Get Excel version

Dim key As RegistryKey = Registry.ClassesRoot.OpenSubKey(“CLSID\{00024500-0000-0000-C000-000000000046}\ProgID")

If IsNothing(key) Then Return ConStr
Select Case key.GetValue(“")

Case “Excel.Application.14″

ConStr = “provider=Microsoft.ACE.OLEDB.12.0;data source=" & TheFileName & “;Extended Properties=Excel 12.0;"

Case Else ‘"Excel.Application.11″

ConStr = “provider=Microsoft.Jet.OLEDB.4.0;data source=" & TheFileName & “;Extended Properties=Excel 8.0;"

End Select

Modify Remote Desktop Listening PORT

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp\PortNumber