Sub ショートカットを作成する()
    
    'ログイン名を取得する
    ログイン名 = CreateObject("WScript.Network").UserName
    
    'ショートカットを指定する
    ショートカット = "C:\Users\" & ログイン名 & "\Desktop\Cへのサンプルショートカット.lnk"
    
    'いろいろ設定する、WindowsScriptHost は気にしない
    Set WindowsScriptHost = CreateObject("WScript.Shell")
    Set ショートカット = WindowsScriptHost.CreateShortcut(ショートカット)
    
    'ショートカットで開くパスを指定する
    ショートカット.TargetPath = "C:\"
    
    '保存して出力する
    ショートカット.Save

End Sub