Батники - вопросы и решения

ftpc.txt

open "Здесь пишем адрес FTP (IP)"
"Здесь пишем имя - Login"
"Здесь пишем пароль от FTP"
lcd D:DNL "D:/DNL папка для закачки/скачки - изменить путь/имя на своё"
cd SOFT/ "Рабочая папка на FTP - изменить на свою"
mget Aida64.exe WiFiScannerPortable.exe 78RePack.exe "ваш список""mput закачать на FTP. get/put для одиночных файлов"
bye

<# :
@if "%1" neq "*" (
mshta vbscript:Execute("CreateObject(""WScript.Shell"").Run """"""%~f0"""" *"",0,False:Close()"^)
exit/b
)
powershell /nologo /noprofile /executionpolicy bypass /command ^
"&{[ScriptBlock]::Create((gc \"%~f0\") -join [Char]10).Invoke()}"
exit /b
#>
Add-Type -AssemblyName System.Windows.Forms
$scr = [Windows.Forms.Screen]::PrimaryScreen.Bounds
$pic = New-Object Drawing.Bitmap($scr.Width, $scr.Height)
$gfx = [Drawing.Graphics]::FromImage($pic)
$gfx.CopyFromScreen([Drawing.Point]::Empty, [Drawing.Point]::Empty, $pic.Size)
$cur = New-Object Drawing.Rectangle(
[Windows.Forms.Cursor]::Position, [Windows.Forms.Cursor]::Current.Size
)
[Windows.Forms.Cursors]::Default.Draw($gfx, $cur)
$pic.Save(
($pwd.Path + '\' + (date -u %d%m%Y_%H%M%S) + '.png'),
[Drawing.Imaging.ImageFormat]::Png
)
$gfx.Dispose()
$pic.Dispose()