用vbs 取得收藏夹里的所有链接名称和URL的脚本

'=================================================================== 
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 
'=================================================================== 

cscript.exe C:/vbs/Getfavorites.vbs >C:/vbs/Getfavorites_result.txt 
pause