This VBS script will allow you to enter a local or remote machine name into an input dialog box and will read the registry key containing the list of the Most Recently Used (MRU) history for your Remote desktop connections. The results will then be sent to an Excel spreadsheet listed alphabetically.
VBS Script:
strComputer = InputBox ("Enter Machine Name")
Const Hkey_Current_User = &H80000001
Const REG_SZ = 1
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = "Connection"
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Terminal Server Client\Default"
objRegistry.EnumValues HKEY_Current_User, strKeyPath, arrDataValue, arrValueTypes
For i = 0 to UBound(arrDataValue)
strData = arrDataValue(i)
strMRU = arrDataValue(i)
objRegistry.GetStringValue HKEY_Current_User,strKeyPath, strMRU,strValue
objExcel.Cells(intRow, 1).Value = strValue
intRow = intRow + 1
Next
objExcel.Range("A1").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
Set objRange = objExcel.Range("A1")
objRange.Sort objRange,1,,,,,,1
MsgBox "Done"
No Comments