お気に入りに追加.vbs
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
Set arg = WScript.Arguments
Set Fs = WScript.CreateObject(“Scripting.FileSystemObject”)
Set objSc = WSHShell.CreateShortcut(“C:\Documents and Settings\@@@@@@\Favorites" & Fs.getFileName(arg(0)) & “.lnk”)
objSc.TargetPath=arg(0)
objSc.Save
