Const CONST_HIDDEN = 2
Const CONST_SYSTEM = 4

Dim oshshell
Dim newShortcut
Dim fsObject
Dim newFolder
Dim newINI

Dim Target, SName

SName = InputBox("Name des neuen Ordners", "Erstellen", "TMP_LINK", 100, 100)
Target = InputBox("Ziel Verzeichnis eingeben", "Ziel", "\\Filebase", 100, 100)

If Target = "" or SName = "" Then 

Else
  Set oshshell = WScript.CreateObject("Wscript.shell")
  Set fsObject = CreateObject("Scripting.FileSystemObject")
   
  fsObject.CreateFolder(SName)
  Set newFolder = fsObject.GetFolder(SName)
  newFolder.Attributes = CONST_SYSTEM
  
  Set newINI = fsObject.CreateTextFile(SName & "\desktop.ini", True)
  newINI.WriteLine "[.ShellClassInfo]"
  newINI.WriteLine "CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D}"
  newINI.WriteLine "Flags=2"
  newINI.WriteLine "ConfirmFileOp=0"
  newINI.Close
  Set newINI = fsObject.GetFile(SName & "\desktop.ini")
  newINI.Attributes = (CONST_SYSTEM + CONST_HIDDEN)
  
  Set newShortcut = oshshell.CreateShortcut(SName & "\target.lnk")
  newShortcut.TargetPath = Target
  newShortcut.Save
  Set newShortcut = fsObject.GetFile(SName & "\target.lnk")
  newShortcut.Attributes = (CONST_HIDDEN)
  
  Set newShortcut = Nothing
  Set oshshell = Nothing
  Set fsObject = Nothing
  Set newFolder = Nothing
  Set newINI = Nothing

End If