Option Explicit
  Dim objWshShell, objShortcut, strHomeDirPath, strTargetDirName, strTargetDirPath
  
  Set objWshShell = WScript.CreateObject("WScript.Shell")
  
  If 0=WScript.Arguments.Count Then 
    msgbox "no arg"
    WScript.Quit 
  Else 
    Dim objFileSystem
    Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    strTargetDirPath = WScript.Arguments(0)
    strTargetDirName = objFileSystem.GetBaseName(strTargetDirPath)
  End If 
  
  strHomeDirPath = objWshShell.ExpandEnvironmentStrings("%HOME%")
  
  Set objShortcut = objWshShell.CreateShortcut(strHomeDirPath & "\" & strTargetDirName & ".lnk")
  
  objShortcut.Description = strTargetDirName
  objShortcut.TargetPath = strTargetDirPath
  objShortcut.Save