スタートアップにショートカットを登録 vbs

Set objShell = WScript.CreateObject("WScript.Shell")

strDesktop = objShell.SpecialFolders("Startup")

strFileName = strDesktop + "\AAA.lnk"

Set objShortCut = objShell.CreateShortcut(strFileName)

objShortCut.TargetPath = "C:\xxx\AAA\AAA.exe"

objShortCut.Save