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

start "" /b /w powershell

PowerShell -command "Test-NetConnection -ComputerName 192.168.0.184 -Port 5555 -InformationLevel Quiet"| find /i "True" >nul&& echo OK

start "" /min /w cmd /c "PowerShell -command "Test-NetConnection -ComputerName 192.168.0.184 -Port 5555 -InformationLevel Quiet"| find /i "True" >nul&& >1.txt echo OK"

run-hidden powershell -command calc.exe

On Error Resume Next
Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")
MapDrive "Y:", "\\share\share_folder", "Шара"
Sub MapDrive(strDrive, strPath, strName)
   On Error Resume Next
   objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
   objWshNetwork.MapNetworkDrive strDrive, strPath, vbTrue
   objShell.NameSpace(strDrive).Self.Name = strName
End Sub

for /f "delims=" %%i in (
'reg query "HKEY_CURRENT_USER\Software\Clients\StartMenuInternet" /f "Yandex*"'
) do set fname=%%~nxi& goto next
:next
echo %fname%

) do set digi_code=%%~xi& goto next