Mehrere Shortcuts, einen Sammel-Ordner und neue .ico auf dem Desktop anlegen

$User1 = $Env:USERPROFILE 
$Ordner1 = $(Read-host 'Ordnername eingeben')  
New-Item $User1\Desktop\$Ordner1 -type directory

# Name des Ordners auf dem Desktop
$ordnername = "BlaBlub"  
# Icon für den Ordner
$ordnericon = '\\sharpointseite.Pfad.com\sites\Test\Freigegebene Dokumente\Test\Test\Ordnericon.ico'  

# Links hier eintragen
$links = @"  
"Demolink.lnk";"\\sharpointseite.Pfad.com\sites\Test\Freigegebene Dokumente\Test\Test\datei.xlsm";"\\Server\Share\icon1.ico"  
"Demolink.lnk";"\\sharpointseite.Pfad.com\sites\Test\Freigegebene Dokumente\Test\Test\datei2.xlsm";"\\Server\Share\icon2.ico"  
"@ | ConvertFrom-Csv -Delimiter ";" -Header "Name","Ziel","Icon"  

# ==================================

# Helper-Object zum Erstellen der Links
$shell = New-Object -Com Wscript.Shell
# Zielpfad auf dem Desktop
$targetpath = "$env:USERPROFILE\Desktop\$ordnername"  
$localiconpath = "$env:APPDATA\myicons"  
# Zielordner erstellen wenn nicht vorhanden
@($targetPath,$localiconpath) | %{if (!(Test-Path $_)){md $_ -Force | out-null}}

# Ordner-Icon lokal kopieren
copy-item $ordnericon -Destination $localiconpath

# Ordner muss das System-Attribut haben damit das Icon sichtbar wird
(Get-Item $targetpath).Attributes = 'Directory, System'  

# desktop.ini für das Ordner-Icon erstellen
@"  
[.ShellClassInfo]
IconResource=$localiconpath\$([IO.Path]::GetFileName($ordnericon)),0
"@ | sc "$targetpath\desktop.ini" -Force  
# Desktop.ini Attribute hidden/system setzen
[System.IO.File]::SetAttributes("$targetpath\desktop.ini", [System.IO.FileAttributes]::Hidden)  

# itteriere Links
$links | %{
    # kopiere icon in einen lokalen Ordner wenn es noch nicht existiert
    $iconpath = "$localiconpath\$([IO.Path]::GetFileName($_.Icon))"  
    if(!(Test-Path $iconpath)){copy-item $_.Icon -Destination $iconpath}
    
    # Linkpfad zusammensetzen
    $linkpath = "$targetpath\$($_.Name)"  
    write-host "Erstelle/Update Link '$linkpath'." -F Green  
    # Link erstellen
    $lnk = $shell.CreateShortCut($linkpath)
    $lnk.TargetPath = $_.Ziel
    $lnk.IconLocation = $iconpath
    $lnk.Save()
}

OPTION EXPLICIT

'Funktionsaufrufe, je zu erstellender Verknüpfung ein Aufruf  
fktCreateShortcut "my1stShortcut", "C:\tmp\VBSTEST\Shortcuts", "C:\tmp\logit.txt", "C:\tmp\icon.ico"  
fktCreateShortcut "my2ndShortcut", "C:\tmp\VBSTEST\Shortcuts\Tools", "C:\tmp\logit.txt", "C:\tmp\icon_test.ico"  
fktCreateShortcut "my3rdShortcut", "C:\tmp\VBSTEST\Shortcuts\Tools\3rdSub", "C:\tmp\logit.txt", "C:\tmp\icon_test.ico"  

'die Funktionen  
FUNCTION fktCreateShortcut(byVal argSCName, byVal argSCLocation, byVal argSCTarget, byVAL argSCIco)
	DIM strSCName, strSCLocation, stSCTarget, strSCIco, strFuncName
	DIM objShortcut, objWSh
	strFuncName = "fktCreateShortcut: "  
	
	'die übergebenen Parameter in lokale Variablen schreiben  
	strSCName = argSCName
	strSCLocation = fktCreateFolder(argSCLocation) 'weiterer Funktionsaufruf  
	stSCTarget = argSCTarget
	strSCIco = argSCIco
	
	'erstellen der Verknüpfung, sofern das Ziel vorhanden ist bzw. es beim erstellen keine Probleme gegeben hat  
	IF strSCLocation = argSCLocation Then
		Set objWSh = CreateObject("Wscript.shell")  
		SET objShortcut = objWSh.CreateShortcut(strSCLocation & "\" & strSCName & ".lnk")  
		objShortcut.WindowStyle = 3 '3 = Maximized | 7 = Minimized  | 4 = Normal  
		objShortcut.IconLocation = strSCIco
		objShortcut.TargetPath = argSCTarget
		objShortcut.Save
		Set objWSh = Nothing	
	END IF
	
End Function

FUNCTION fktCreateFolder(byVal argFolder)
	Dim objFSO, objFolder, CreateFolder
	DIM strFuncName, strFolder, strReturn, strParentFolder, strReturnParent
	DIM boolFolderExists
	strFuncName = "fktCreateFolder: "  
	
	strFolder = argFolder
	'wscript.echo strFuncName & strFolder  

	Set objFSO = CreateObject("Scripting.FileSystemObject")  
	
	IF NOT objFSO.FolderExists(strFolder) Then
		'wscript.echo strFuncName & "Not exists: " & strFolder  
		strParentFolder = objFSO.GetParentFolderName(strFolder)
		IF NOT objFSO.FolderExists(strParentFolder) Then
			'wscript.echo strFuncName & "Not exists: " & strParentFolder  
			'wscript.echo strFuncName & "Create    : " & strParentFolder  
			strReturnParent = fktCreateFolder(strParentFolder)
			'wscript.echo strFuncName & "Created   : " & strParentFolder & " (" & strReturnParent & ")"  
		END IF 
		'wscript.echo strFuncName & "Exists: " & strParentFolder  
		
		Set objFolder = objFSO.CreateFolder(strFolder)
		CreateFolder = objFolder.Path			
		SET objFolder = Nothing
		
		'Ordner neu erstellt  
		strReturn = strFolder
	ELSE
		'Ordner ist schon vorhanden  
		strReturn = strFolder
	END IF
	
	Set objFSO = Nothing
	'wscript.echo strFuncName & " end " & strReturn  
	fktCreateFolder = strReturn
END Function