Set shell = CreateObject("WScript.Shell")
strFolder = WScript.Arguments.Item(0) 'shell.SpecialFolders("Startup")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
WScript.Echo vbCrLf & objFolder.Path & "\"
For Each objFile In colFiles
Ext = objFSO.GetExtensionName(objFile)
If Ext = "lnk" or Ext = "LNK" Then
Target = shell.CreateShortcut(objFile).targetpath
Set objFileB = objFSO.GetFile(Target)
Wscript.Echo objFile.Name & " - " & Target & " [" & objFileB.DateCreated & " " & objFileB.Size & "]"
Else
Wscript.Echo objFile.Name & " [" & objFile.DateLastModified & " " & objFile.Size & "]"
End If