>>228
必要ないかと思って

Set objCut=objShl.CreateShortcut(objFs.BuildPath(objShl.SpecialFolders("Desktop"),"chrome new" & ".lnk")) ' デスクトップ上にショートカットを作成

某記事で紹介されてるやつを "chrome new" & ".lnk" ってファイル名に変えただけ。
うまくいったらアカウントごとのショートカットを作る予定。