Verknüpfungen erstellen

@echo off & setlocal

::Speicherort der Verknüpfung (unterhalb von Startmenue\Programme)
set "zielpfad=%userprofile%\Startm~1\Programme\XXXXX"  
::Falls das Symbol auf den Desktop soll:
::set "zielpfad=%userprofile%\Desktop" 

::Name der Verknüpfung (ohne ".lnk") 
set "progtitel=XXXXXXX"  
::Speicherort der Programmdatei (wird auch für "Ausführen in:" verwendet) 
set "progdir=C:\Programme"  
set "progexe=XXXXXXXXX.exe"  
::Kommentar
set "beschreibung=Erklärung eigentlich unnötig ..."  

::Bei Bedarf Speicherordner der Verknüpfung erstellen (siehe oben "zielpfad"): 
if not exist "%zielpfad%" md "%zielpfad%"  

::temporäres VBScript erzeugen ...
echo Set objShell=WScript.CreateObject("Wscript.Shell")>%temp%\MakeShortCut.vbs  
echo Set objShortcut=objShell.CreateShortcut("%zielpfad%\%progtitel%.lnk")>>%temp%\MakeShortCut.vbs  
echo objShortcut.TargetPath="%progdir%\%progexe%">>%temp%\MakeShortCut.vbs  
echo objShortcut.Description="%beschreibung%">>%temp%\MakeShortCut.vbs  
echo objShortcut.WorkingDirectory="%progdir%">>%temp%\MakeShortCut.vbs  
echo objShortcut.Save>>%temp%\MakeShortCut.vbs

::... ausführen ...
cscript //nologo %temp%\MakeShortCut.vbs

::... und wieder löschen.
del %temp%\MakeShortCut.vbs

echo objShortcut.Save>>%temp%\MakeShortCut.vbs

echo objShortcut.IconLocation = "Pfad zu Deiner .exe-, .dll- oder .ico-Datei,0">>%temp%\MakeShortCut.vbs  

echo %%UserProfile%%

call "Probe mit Übergabe einer Umgebungsvariable 1zu1.bat" "%%Userprofile%%" "ArgZwei" "ArgDrei"  

echo "C:\Benutzer\Administrator" "ArgZwei" "ArgDrei"  

call "Probe mit Übegabe einer Umgebungsvariable 1zu1".bat" "%%%%Userprofile%%%%" "ArgZwei" "ArgDrei"

set "TargetFile=%%%%windir%%%%\System32\wscript.exe"  
call "Probe mit Übergabe einer Umgebungsvariable 1zu1.bat" "%TargetFile%"  

set TargetFile=%%%%windir%%%%\System32\wscript.exe
call "Probe mit Übergabe einer Umgebungsvariable 1zu1.bat" "%TargetFile%"  

D:\>type Aufruf.cmd
setlocal
set TargetFile=%%%%windir%%%%\System32\wscript.exe
call "Probe mit Übergabe einer Umgebungsvariable 1zu1.bat" "%TargetFile%"

D:\>type "Probe mit Übergabe einer Umgebungsvariable 1zu1.bat"
echo %1
D:\>aufruf

D:\>setlocal

D:\>set TargetFile=%%windir%%\System32\wscript.exe

D:\>call "Probe mit Übergabe einer Umgebungsvariable 1zu1.bat" "%%windir%%\S
ystem32\wscript.exe"

D:\>echo "%windir%\System32\wscript.exe"
"%windir%\System32\wscript.exe"

:Bei Aufruf einer Batch-Datei über Verknüpfung wird die Variable expandiert
set TargetFile=%%%%windir%%%%\System32\wscript.exe 
call "Probe mit Übergabe einer Umgebungsvariable 1zu1.bat.lnk" "%TargetFile%"   

objShortcut.TargetPath="%windir%\System32\wscript.exe"  

if not defined TargetPath (
    if #%~1#==## echo Kein TargetPath angegeben & goto :eof
    set "TargetPath=%~1"  
)

:Fehlermeldung ausgeben, falls es versucht wird diese Batch-Datei ohne Argumente auszuführen
set ArgumentAbfrage=%1
if not defined ArgumentAbfrage echo Diese Batch-Datei kann nur mit Argumenten ausgeführt werden: z. B: & echo. & echo start "%~dpnx0" "Name der Verknüpfung" "Verzeichnis der Verknüpfung" "Zielpfad" & pause >nul  

Set objShell=WScript.CreateObject("Wscript.Shell")  
Set objShortcut=objShell.CreateShortcut("%AppData%\Install\RegJump als Administrator.lnk")  
objShortcut.TargetPath="%windir%\System32\runas.exe"  
objShortcut.Arguments=/user:Administrator /savecred "%windir%\System32\wscript.exe \"%AppData%\Install\RegJump als Administrator.vbs\""  
objShortcut.IconLocation="C:\Windows\regedit.exe,0"  
objShortcut.Save

Set objShell=WScript.CreateObject("WScript.Shell")  
Set objShortcut=objShell.CreateShortcut(objShell.ExpandEnvironmentStrings("%AppData%")&"\Install\RegJump als Administrator.lnk")  
objShortcut.TargetPath="%windir%\System32\runas.exe"  
objShortcut.Arguments="/user:Administrator /savecred %windir%\System32\wscript.exe ""%AppData%\Install\RegJump als Administrator.vbs"""  
objShortcut.IconLocation="%windir%\regedit.exe,0"  
objShortcut.Save

%windir%\System32\runas.exe

%windir%\System32\wscript.exe

objShortcut.Arguments="/user:Administrator /savecred ""%windir%\System32\wscript.exe \""%AppData%\Install\RegJump als Administrator.vbs\"""""

:: Dies erstellt eine Verknüpfung des Programms
@echo off & setlocal
set zielpfad=Zielpfad
set progtitel=Programmname
set progdir=Pfad zum Programmm
set progexe=Programmname.exe
set runas=%windir%\System32\runas.exe
set savedcred=/savedcred /env /user:administrator ""%progdir%\%progexe%""  

 >%temp%\MakeShortCut.vbs echo Set objShell=WScript.CreateObject("Wscript.Shell")>%temp%\MakeShortCut.vbs  
>>%temp%\MakeShortCut.vbs echo Set objShortcut=objShell.CreateShortcut("%zielpfad%\%progtitel%.lnk")>>%temp%\MakeShortCut.vbs  
>>%temp%\MakeShortCut.vbs echo objShortcut.TargetPath="%runas%">>%temp%\MakeShortCut.vbs  
>>%temp%\MakeShortCut.vbs echo objShortcut.Arguments="%savedcred%">>%temp%\MakeShortCut.vbs  
>>%temp%\MakeShortCut.vbs echo objShortcut.WorkingDirectory="%progdir%">>%temp%\MakeShortCut.vbs  
>>%temp%\MakeShortCut.vbs echo objShortcut.IconLocation = "Pfad zum Programm\Programmname.exe,0">>%temp%\MakeShortCut.vbs  
>>%temp%\MakeShortCut.vbs echo objShortcut.Save>>%temp%\MakeShortCut.vbs

cscript //nologo %temp%\MakeShortCut.vbs

>>%temp%\MakeShortCut.vbs echo objShortcut.Save>>%temp%\MakeShortCut.vbs 

echo objShortcut.Save>>%temp%\MakeShortCut.vbs

>>%temp%\MakeShortCut.vbs echo objShortcut.Save

del "%temp%\MakeShortCut.vbs"  

:Ziel der Verknüpfung erfahren
:~~~~~~~~~~~~~~~~~~~~~~~~~

@echo off
setlocal enabledelayedexpansion 
setlocal
@prompt -$G
chcp 1252 >nul

PushD %~dp0


:Ziel der Verknüpfung abfragen, um die Verknüpfungsdatei/den Verknüpfungsordner zu kopieren
:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
:Verknüpfung eingeben
set "LinkFile=Den Namen einer Datei (ohne Erweiterung) erhalten.bat (z. B. für den Namen einer Verknüpfung).lnk"   

:Über das temporär erzeugte VBS-Skript das Ziel der Verknüpfung abfragen
set "TempVBSkriptFile=%temp%\GetTargetPath.vbs"   
>%TempVBSkriptFile% echo WScript.Echo CreateObject("WScript.Shell").CreateShortcut(WScript.Arguments(0)).TargetPath   
for /f "delims=" %%i in ('cscript //nologo "%TempVBSkriptFile%" "%LinkFile%"') do set File=%%~nxi& set FileDirectory=%%~dpi& set TargetPath=%%~i  

goto :M1
:Umlauten durch ASCII Zeichen ersetzen 
:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
:Da der Pfad vom VBS-Skript in ANSI-Zeichen ausgegeben wird, kann er wegen den Umlauten von den (meisten) Befehlen nicht verarbeitet werden.
:Vor dem Fortsetzen müssen alle Umlauten in der Zeichenfolge durch ASCII-Zeichen ersetzt werden.    
set NoUmlaut=%1
set NoUmlaut=%NoUmlaut:Ž=Ä%
set NoUmlaut=%NoUmlaut:„=ä%
set NoUmlaut=%NoUmlaut:™=Ö%
set NoUmlaut=%NoUmlaut:”=ö%
set NoUmlaut=%NoUmlaut:=ü%
set NoUmlaut=%NoUmlaut:š=Ü%
set NoUmlaut=%NoUmlaut:á=ß%
goto :eof
:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

:M1 
:Umlauten im Zielpfad ersetzen:
echo.
call :Umlauten "%File%"  
set File=%NoUmlaut%
echo Datei:		%File%
echo.
call :Umlauten "%FileDirectory%"  
set FileDirectory=%NoUmlaut%
echo Verzeichnis:	%FileDirectory%
echo.
call :Umlauten "%TargetPath%"  
set TargetPath=%NoUmlaut%
echo Zielpfad:	%TargetPath%


:echo %TargetPath%>tmp.txt
pause >nul

chcp 65001

:: Dies erstellt eine Verknuepfung des [PROGRAMMS] im [ORDNER]
@echo off & setlocal
set zielpfad=[ZIELPFAD]
set progtitel=[NAME_DER_VERKNÜPFUNG]
set progdir=[PFAD_DER_AUSZUFÜHRENDEN_.EXE_DATEI]
set progexe=[NAME_DER_.EXE_DATEI].exe
set runas=%windir%\System32\runas.exe
set savecred=/savecred /env /user:administrator ""%progdir%\%progexe%""  

echo Set objShell=WScript.CreateObject("Wscript.Shell")>>%temp%\MakeShortCut.vbs  
echo Set objShortcut=objShell.CreateShortcut("%zielpfad%\%progtitel%.lnk")>>%temp%\MakeShortCut.vbs  
echo objShortcut.TargetPath="%runas%">>%temp%\MakeShortCut.vbs  
echo objShortcut.Arguments="%savecred%">>%temp%\MakeShortCut.vbs  
echo objShortcut.WorkingDirectory="%progdir%">>%temp%\MakeShortCut.vbs  
echo objShortcut.IconLocation= "[PFAD_DER_.EXE_DATEI_DESSEN_SYMBOL_MAN_NUTZEN_MÖCHTE]\[NAME_DER_.EXE_DATEI].exe,0">>%temp%\MakeShortCut.vbs  
echo objShortcut.Save>>%temp%\MakeShortCut.vbs

cscript //nologo %temp%\MakeShortCut.vbs

del %temp%\MakeShortCut.vbs
:: Ende der Verknuepfungserstellung 

:Autobefehlsanzeige ausschalten:
@echo off
:Zeilenanfang in der Eingabeaufforderung auf ">" kürzen (Zeilenausgabe ohne Pfade): 
@prompt -$G

:	 CODE
:~~~~~~~~~~~~~~~~
:setlocal EnableDelayedExpansion
:setlocal DisableDelayedExpansion
:PushD %~dp0
echo.

set SrartCodePage=65001
chcp %SrartCodePage% >nul

echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Test mit verschiedenen Codepages, um den Unterschied zu visualisieren zw.:
echo 1.Variante: Umschaltung von der einen in die andere Codepage, NACHDEM die Text-Variablen bereits gesetzt worden sind.
echo 2.Variante: Jeweils direkte Zuweisung der gewünschten Codepage, BEVOR die Text-Variablen gesetzt worden sind (ohne Doppelgemoppel und Verzerrung = die sauberere Lösung)
echo.
echo In diesem Beispiel werden die Codepages 65001 (Unicode), 1252 (Westeuropäisch) und 1251 (Kyrillisch) verwendet.
echo Es können auch andere Codepages verwendet werden (der Text in den Variablen kann dann bei Bedarf um andere Sprachen ergänzt werden)
echo.
echo Für besseres Verständnis das Batch-Skript einmal in ANSI und einmal in UTF-8 Zeichenkodierung ausführen
echo und anschließend die beiden Ausgabedateien miteinander vergleichen.
echo Bei beiden Zeichenkodierungen lässt sich der Text in der Ausgabedatei mit der 2. Variante bei allen drei Codepages einwandfrei lesen.
echo Mit der 1. Variante ist der Text nicht bei jeder Zeichenkodierung lesbar, z.B.:
echo Wenn die Zeichenkodierung der ausgegebenen Textdatei von UTF-8 auf ANSI umgeschaltet wird (z. B. im Notepad++ über "Kodierung > ANSI"),   
echo wird der Text mit der Codepage 1252 (Westeuropäisch) normal lesbar. Die anderen beiden Texte,
echo mit den Codepages 65001 (Unicode) und 1251 (Kyrillisch), werden dagegen nicht korrekt lesbar.
echo.
echo Einfach die Codepage-Nummer in der Reihenfolge zueinander tauschen und experimentieren, was dann mit dem Text in der 1. Variante passiert!
echo Welche Codepage vor diesem Text gesetzt ist, hat nicht nur auf die Lesbarkeit dieses Textes in der CMD eine Bedeutung, sondern auch auf die nachfolgenden Ergebnisse.
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

:Set Options
set OutputFileName=BatchAusgabe.txt

:/Set Options


set OutputFilePath="%~dp0%OutputFileName%"  

:Aktuelle Codepage ermitteln (Prüfung)
for /f "tokens=3 delims=. " %%d in ('CHCP') do set CurrentCodepage=%%d  
echo Start-Codepage: %CurrentCodepage%>%OutputFilePath%

echo.>>%OutputFilePath%

:Erklärung des Rätsels:
:Für den Text gesetzt in den nachfolgenden beiden Variablen wirkt sich die nacheinander abwechselnde Codepage aus!!!
:D. h. die Zeichen werden von der einen (die %SrartCodePage% oben) zu der anderen Codepage umgewandelt,
:was je nach Codepage-Unterstützug zu mehr oder weniger Informationsverlusten führt.
:Für den Text gesetzt in den namentlich gleichen Variablen in der Unterprozedur ":M10" ganz unten (die über den CALL-Aufruf abgearbeitet wird), 
:wird der Text dagegen nicht erst zw. zwei Codepages umgewandelt, sondern direkt in die jeweilige Codepage geschrieben (die sauberere Lösung!),
:also ohne den Umweg mit der Übersetzung von der einen in die andere Codepage (was dann höchstwahrscheinlich
:zu ungewollten Überraschungen bei der Verarbeitung der Zeichen führt).

set DE_String=Muskatnuss Herr Müller! MUSKATNUSS!!!
set RU_String=Матрёшка

:Die gewünschten Codepages nacheinander abarbeiten. Deren Reihenfolge spielt eine Rolle für die 1.Variante (jedoch ohne Auswirkung auf die 2.Variante).
FOR %%d in (65001 1252 1251) do (
	set CodePage=%%d
	call :M5
	call :M10
	)
	
echo.
echo ENDE! Siehe Ergebnisse in der Ausgabedatei %OutputFilePath%

timeout /t 40 >nul
:pause >nul
goto :eof
:END ____________________________________________________



:M5
CHCP %CodePage% >nul
echo Codepage: %CodePage%>>%OutputFilePath%
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>>%OutputFilePath%
echo 1.Variante: Umschaltung von der einen in die andere Codepage (von %SrartCodePage% auf %CodePage%):>>%OutputFilePath%
echo (Codepage-Zuweisung nach den Text-Variablen)>>%OutputFilePath%
echo		DE %DE_String%>>%OutputFilePath%
echo		RU %RU_String%>>%OutputFilePath%
goto :eof

:M10
echo.>>%OutputFilePath%
echo 2.Variante: Codepage-Zuweisung vor den Text-Variablen>>%OutputFilePath%
set DE_String=Muskatnuss Herr Müller! MUSKATNUSS!!!
set RU_String=Матрёшка
echo		DE %DE_String%>>%OutputFilePath%
echo		RU %RU_String%>>%OutputFilePath%
echo.>>%OutputFilePath%
goto :eof

$WshShell = New-Object -comObject WScript.Shell
$Shortcut = $WshShell.CreateShortcut("$Home\Desktop\ColorPix.lnk")  
$Shortcut.TargetPath = "C:\Program Files (x86)\ColorPix\ColorPix.exe"  
$Shortcut.Save()

$bytes = [System.IO.File]::ReadAllBytes("$Home\Desktop\ColorPix.lnk")  
$bytes[0x15] = $bytes[0x15] -bor 0x20 #set byte 21 (0x15) bit 6 (0x20) ON
[System.IO.File]::WriteAllBytes("$Home\Desktop\ColorPix.lnk", $bytes)  

echo $WshShell = New-Object -comObject WScript.Shell>>%temp%\DP_Server.ps1
echo $Shortcut = $WshShell.CreateShortcut("ORT UND NAME DEINER VERKNÜPFUNG.lnk")>>%temp%\NAME DES TEMPORÄREN SCRIPTS.ps1  
echo $Shortcut.TargetPath = "ORT UND NAME DEINER .EXE DATEI.exe">>%temp%\NAME DES TEMPORÄREN SCRIPTS.ps1  
echo $Shortcut.Save()>>%temp%\NAME DES TEMPORÄREN SCRIPTS.ps1
echo $bytes = [System.IO.File]::ReadAllBytes("ORT UND NAME DEINER VERKNÜPFUNG.lnk")>>%temp%\NAME DES TEMPORÄREN SCRIPTS.ps1  
echo $bytes[0x15] = $bytes[0x15] -bor 0x20 #set byte 21 (0x15) bit 6 (0x20) ON>>%temp%\NAME DES TEMPORÄREN SCRIPTS.ps1
echo [System.IO.File]::WriteAllBytes("ORT UND NAME DEINER VERKNÜPFUNG.lnk", $bytes)>>%temp%\NAME DES TEMPORÄREN SCRIPTS.ps1  
PowerShell.exe -NoProfile -ExecutionPolicy Bypass -Command "%temp%\NAME DES TEMPORÄREN SCRIPTS.ps1"  
del %temp%\NAME DES TEMPORÄREN SCRIPTS.ps1

set  PowerShellFile=MeineErstePowerShelDateil.ps1

echo $WshShell = New-Object -comObject WScript.Shell>%PowerShellFile%
echo $Shortcut = $WshShell.CreateShortcut("$Home\Desktop\ColorPix.lnk")>>%PowerShellFile%  

echo und hier alle Restlichen Zeilen, welche in die PowerShell-Datei hingeschrieben werden müssen, mit der selben Struktur eintragen.

echo Nächste Zeile>>%PowerShellFile%
echo Nächste Zeile>>%PowerShellFile%
echo ...

echo Dann diese neue PowerShell-Datei aus dem Batch-Skript ausführen lassen

>

>>

Powershell -Executionpolicy ByPass -Command "$WshShell = New-Object -comObject WScript.Shell; $Shortcut = $WshShell.CreateShortcut(\"$Home\Desktop\ColorPix.lnk\"); $Shortcut.TargetPath = 'C:\Program Files (x86)\ColorPix\ColorPix.exe'; $Shortcut.Save(); $bytes = [System.IO.File]::ReadAllBytes(\"$Home\Desktop\ColorPix.lnk\"); $bytes[0x15] = $bytes[0x15] -bor 0x20; [System.IO.File]::WriteAllBytes(\"$Home\Desktop\ColorPix.lnk\",$bytes)"