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