바탕화면에 바로가기 버튼 만드는 스크립트

이런게 왜 필요할까 싶겠지만 전 업무 상 필요해서 구글링해서 찾은 코드 이용해서 만든거랍니다 ㅋㅋ ... 만든거라니 좀 그렇고 바탕화면 지정하는 부분만 샘플 코드에 추가한 정도입니다.

Set shell = WScript.CreateObject("WScript.Shell")
usersDesktop = shell.SpecialFolders("Desktop")
Set link = shell.CreateShortcut(usersDesktop & "\" & WScript.Arguments(0))
link.TargetPath = WScript.Arguments(1)

If WScript.Arguments.Count = 3 Then
    link.Arguments = WScript.Arguments(2)
End If

link.Save