Verknüpfung auf ungültiges Ziel erstellen

Set objFSO   = CreateObject("Scripting.FileSystemObject")  
Set objShell = CreateObject("WScript.Shell")  

strTarget = InputBox("Neues Ziel der Verknüpfung:")  

If strTarget <> "" Then  
  Set objShortcut              = objShell.CreateShortcut(WScript.Arguments(0))
  objShortcut.TargetPath       = strTarget
  objShortcut.WorkingDirectory = objFSO.GetParentFolderName(strTarget)
  objShortcut.Save
End If

Set objShell=WScript.CreateObject("Wscript.Shell")  
Set objShortcut=objShell.CreateShortcut("%ProgramData%\Microsoft\Windows\Start Menu\Programs\%NewLinkName%")  
objShortcut.Description="%Beschreibung(Kommentar)%"  
objShortcut.Save

If WScript.Arguments.Count = 2 Then
  Set objShell            = CreateObject("WScript.Shell")  
  Set objShortcut         = objShell.CreateShortcut(WScript.Arguments(0))
  objShortcut.Description = WScript.Arguments(1)
  objShortcut.Save
End If

cscript /nologo ChngComment.vbs "PfadZurVerknüpfung.lnk" "Neuer Kommentar"

'Wenn das Skript ohne Argument ausgeführt wird, abbrechen  
If WScript.Arguments.Count < 1 Then WScript.Quit

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objShell = CreateObject("WScript.Shell")  

'Ziehl der Verknüpfung abfragen  
strTarget = InputBox("Neues Ziel der Verknüpfung:")  

If strTarget <> "" Then  
  Set objShortcut              = objShell.CreateShortcut(WScript.Arguments(0) & ".lnk")  
  
  'Kommentar/Beschreibung setzen  
  'objShortcut.Description = WScript.Arguments(1)  

  'Ziehl der Verknüpfung setzen  
  objShortcut.TargetPath       = strTarget

  'Abreitsverzeichnis setzen  
  objShortcut.WorkingDirectory = objFSO.GetParentFolderName(strTarget)

  objShortcut.Save
End If

'Alle Variablen müssen vor ihrer Verwendung deklariert werden  
Option Explicit


'Konstanten zur Konfiguration der Verknüpfung  
Const cWindowStyleShowNormal    = 1
Const cWindowStyleShowMaximized = 3
Const cWindowStyleShowMinimized = 7

'Speicherpfad für die Verknüpfungsdateien  
Const cLinkStorageLocation = "C:\Users\<User>\Desktop"  


'Variablendeklaration  
Dim colArgs, objFSO, objShell, objShortcut
Dim strFolderPath, strLinkName
Dim strScriptDescription
Dim strMsgPromptForName
Dim strErrMsgNoArgs, strErrMsgDirNotExists, strErrMsgLinkNameInvalid 


'Meldungs-Strings initialisieren  
strScriptDescription     = "Verknüpfung erzeugen"  
strMsgPromptForName      = "Geben Sie einen Namen für die Verknüpfung an."  
strErrMsgNoArgs          = "Bitte übergeben Sie das Ziel der Verknüpfung" & vbCrLf & _  
                           "beim Aufruf dieses Scripts als Argument!"  
strErrMsgDirNotExists    = "Das übergebene Verzeichnis existiert nicht!"  
strErrMsgLinkNameInvalid = "Der eingegebene Name enthält ungültige Zeichen." & vbCrLf & _  
                           "Die Zeichen \/:*?""<>| dürfen nicht Bestandteil" & vbCrLf & _  
                           "des Namens sein."  


'Argument-Collection holen  
Set colArgs = WScript.Arguments

'und prüfen, ob mindestens ein Argument übergeben wurde  
If colArgs.Count = 0 Then
  ShowError strErrMsgNoArgs
  WScript.Quit
End If

'Filesystem-Objekt erzeugen und den absoluten Pfad  
'des übergebenen Verzeichnisses ermitteln  
Set objFSO    = CreateObject("Scripting.FileSystemObject")  
strFolderPath = objFSO.GetAbsolutePathName(colArgs(0))

'Prüfen, ob das übergebene Verzeichnis existiert  
If Not objFSO.FolderExists(strFolderPath) Then
  ShowError strErrMsgDirNotExists
  WScript.Quit
End If

'Name der Verknüpfung vom User einlesen  
'Als Default-Wert wird der Name des Verzeichnisses eingetragen  
strLinkName = InputBox(strMsgPromptForName, _
                       strScriptDescription, _
                       objFSO.GetFileName(strFolderPath) _
                      )

'Prüfen, ob eine Eingabe gemacht wurde  
'Wenn nicht, Abbruch  
If strLinkName = "" Then  
  WScript.Quit
End If

'Prüfen, ob der Name ungültige Zeichen enthält  
If ContainsIllegalChars(strLinkName) Then
  ShowError strErrMsgLinkNameInvalid
  WScript.Quit
End If

'Jetzt können die Daten der Verknüpfung festgelegt werden  
Set objShell    = WScript.CreateObject("WScript.Shell")  
Set objShortcut = objShell.CreateShortcut(objFSO.BuildPath(cLinkStorageLocation, strLinkName & ".lnk"))  

objShortcut.TargetPath  = strFolderPath
objShortcut.WindowStyle = cWindowStyleShowNormal

'Jetzt die Verknüpfungsdatei speichern  
objShortcut.Save



'Prüft, ob ein übergebener String bestimmte Zeichen enthält  
Function ContainsIllegalChars(ByRef strAString)
  Dim objRegEx
  
  Set objRegEx = New RegExp
  
  objRegEx.IgnoreCase = True
  objRegEx.Global     = True
  objRegEx.Pattern    = "[\\/:\*\?""<>\|]"  
  
  ContainsIllegalChars = objRegEx.Test(strAString)
End Function


'Zeigt Dialogboxen mit Fehlermeldungen an  
Sub ShowError(ByRef strMessage)
  MsgBox strMessage, _
         vbCritical + vbOKOnly, _
         strScriptDescription
End Sub