'=================================================================== Const FAVORITES = &H6& Const ForWriting = 2 Set objShell = CreateObject("shell.application") Set objFolder = objShell.Namespace(FAVORITES) Set fso = CreateObject ("scripting.filesystemobject") processGet objFolder Set objFolder = Nothing Set fso = Nothing Wscript.quit '=================================================================== Sub processGet (objFolder) For Each objItem in objFolder.Items If objItem.IsLink Then Set objLink = objItem.GetLink Wscript.echo objItem.Name Wscript.echo objLink.Target Set objLink = Nothing ElseIf objItem.IsFolder Then processGet objItem.getfolder Else Exit For End If Next End Sub '===================================================================
