[VBS] 바탕화면 바로가기 만들기

VBS를 이용해 바탕화면에 바로가기 만들기
그룹 정책 등에 활용할 수 있겠다. VBS VBScript VB Script GPO Group Policy

strName = "메모장" '바로가기 이름

strAppPath = "%SYSTEMROOT%\system32\notepad.exe" '대상

strWorkDir ="%SYSTEMROOT%" '시작 위치

strIconPath = "%SYSTEMROOT%\system32\SHELL32.dll,1" '아이콘 경로

intWindowStyle = 1 '1: 기본창, 3: 최대화

strDescription = "메모장의 바로가기" '설명

Set objShell = CreateObject("WScript.Shell")

objDesktop = objShell.SpecialFolders("Desktop")

Set objLink = objShell.CreateShortcut(objDesktop & "\" & strName & ".lnk")

objLink.Description = strDescription

objLink.IconLocation = strIconPath 

objLink.TargetPath = strAppPath

objLink.WindowStyle = intWindowStyle

objLink.WorkingDirectory = strWorkDir

objLink.Save

WScript.Quit