Полезные BAT/CMD скрипты

@echo off
  setlocal enabledelayedexpansion
    set "key=HKLM\SOFTWARE\Microsoft\Fusion\GACChangeNotification\Default"
    set "num=0"
    echo.The Global Assembly Cache contains the following assemblies:
    for /f "skip=4" %%i in (
      'reg query %key% ^| findstr /v /irc:"StoreChangeID"'
    ) do (
      for /f "tokens=1,2,3,4,5 delims=," %%j in ("%%i") do (
        set "clt=%%l"
        if "!clt:~2,1!" neq "" (
          set "clt=neutral"
          set "tok=%%l"
          set "arc=%%m"
        ) else (
          set "tok=%%m"
          set "arc=%%n"
        )
        echo   %%j, Version=%%k, Culture=!clt!, PublicKeyToken=!tok!, ProcessorArchitectute=!arc!
      )
      set /a "num+=1"
    )
    echo.
    echo.Number of items = !num!
  endlocal
exit /b

@echo off
  setlocal
    chcp 1251>nul
    set "u=0"
    for /f "tokens=2 delims=" %%i in (
      '2^>nul reg query HKU ^| findstr /iv "classes .default"'
    ) do set /a "u+=1"
    for /f "tokens=1,2 delims=," %%i in (
      'typeperf "\Система\Время работы системы" -sc 1 ^| findstr /rc:"\:"'
    ) do (
      set "cur=%%i"
      set "sec=%%j"
    )
    set "sec=%sec:"=%"
    for /f "tokens=1 delims=." %%i in ("%sec%") do set "t=%%i"
    set /a "ss=t%%60", "t/=60", "mm=t%%60", "t/=60", "hh=t%%24", "dd=t/24"
    if %hh% lss 10 set "hh=0%hh%"
    if %mm% lss 10 set "mm=0%mm%"
    if %ss% lss 10 set "ss=0%ss%"
    echo.%cur:~12,8% up %dd% days, %hh%:%mm%:%ss%, %u% users
  endlocal & chcp 866>nul
exit /b

@echo off
set "full=C:\Windows\notepad.exe"
set "shortcut=%full:\=/%"
for %%i in ("%full%") do (
 set "name=%%~ni"
)
(
echo [InternetShortcut]
echo url="file:///%shortcut%"
echo IconFile="%full%"
echo IconIndex=0
)>"%name%.url"
exit /b

@echo off
:start
cls
echo.
wmic logicaldisk where "Caption>'B:' and DriveType<>5" get Caption,DriveType,FileSystem,FreeSpace,Size,VolumeName
pathping -h 1 -p 2000 -q 1 -w 1 localhost 1>nul
goto start

@echo off
for /f "delims=\\, " %%A in ('net view ^| find "\"') do (for /f "delims=" %%B in ('ping -n 1 /l 1 /w 1000 %%A ^| find "TTL=" ^|^| echo  -') do echo  %%A : %%B)
cmd /k

@echo off
title Установщик Windows 7/8/10 на флешку [By Oleg Gyunter]
color 3e
 
pause
echo ------------------------------------------------------------
echo [ .       Первый этап - подготовка Флешки                   ]
echo [ .  Вам необходимо выбрать НОМЕР диска флешки ,            ]
echo [ .  она будет форматирована.  НЕ ПЕРЕПУТАЙТЕ !!!!          ]
echo [ .        ВВЕДИТЕ букву и нажмите  ENTER                   ]
echo ------------------------------------------------------------
 
mkdir %cd%\config
attrib +H %cd%\config
 
echo list disk > %cd%\config\list.txt
DiskPart /s %cd%\config\list.txt
echo ...................................
set /p a=Выберите НОМЕР Диска:
Echo Вы выбрали %a%
echo Продолжить ?
echo .
 
pause
if "%a%"=="1" goto 1
if "%a%"=="2" goto 2
if "%a%"=="3" goto 3
if "%a%"=="4" goto 4
if "%a%"=="5" goto 5
 
:1
echo select disk 1 > %cd%\config\2list.txt
DISKPART /s %cd%\config\2list.txt
goto metka
:2
echo select disk 2 > %cd%\config\2list.txt
DISKPART /s %cd%\config\2list.txt
goto metka
:3
echo select disk 3 > %cd%\config\2list.txt
DISKPART /s %cd%\config\2list.txt
goto metka
:4
echo select disk 4 > %cd%\config\2list.txt
DISKPART /s %cd%\config\2list.txt
goto metka
:5
echo select disk 5 > %cd%\config\2list.txt
DISKPART /s %cd%\config\2list.txt
goto metka
:metka
 
echo Сейчас пакет команд
pause
 
echo clean >> %cd%\config\2list.txt
echo create partition primary >> %cd%\config\2list.txt
echo format fs=ntfs quick >> %cd%\config\2list.txt
echo active >> %cd%\config\2list.txt
 
DISKPART /s %cd%\config\2list.txt
if %errorlevel%==0 goto wait5
:wait5
echo . ПЕРВЫЙ ЭТАП ПРОШЕЛ УСПЕШНО !!
pause
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
echo ------------------------------------------------------------
echo [ .   Теперь будет работать распаковка                      ]
echo [ . Вам необходимо выбрать БУКВУ вашей флешки ,             ]
echo [ .      для распаковки на неё образа.                      ]
echo [ .    ВВЕДИТЕ букву и нажмите  ENTER                       ]
echo ------------------------------------------------------------
for %%i in (c d e f g h i j k l m n) do fsutil fsinfo drivetype %%i:
echo ...................................
set /p x=Выберите БУКВУ Диска:
Echo Вы выбрали %x%
echo Продолжить ?
echo .
pause
 
imagex /apply install.wim 1 %x%:
 
pause
echo ----------------------------------------------------------
echo [ .   Теперь будет установлен загрузчик                   ]
echo [ . Вам необходимо выбрать БУКВУ вашей флешки ,           ]
echo [ .      для установки загрузчика.                        ]
echo [ .    ВВЕДИТЕ букву и нажмите  ENTER                     ]
echo ----------------------------------------------------------
for %%i in (c d e f g h i j k l m n) do fsutil fsinfo drivetype %%i:
set /p z=Выберите БУКВУ Диска:
Echo Вы выбрали %z%
echo Продолжить ?
echo .
echo .
pause
 
bcdboot %z%:\windows /s %z%:
 
 
 
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
if exist %cd%\config\list.txt del /Q %cd%\config\list.txt
if exist %cd%\config\2list.txt del /Q %cd%\config\2list.txt
 
rmdir /Q %cd%\config
 
 
exit

@echo off
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background /v "OEMBackground" /t REG_DWORD /d 1 /f
set WALLPAPER="%APPDATA%\Microsoft\Windows\Themes\TranscodedWallpaper.jpg"
set OOBE="%SYSTEMROOT%\System32\oobe\info\backgrounds"
if not exist %OOBE% md %OOBE%
mklink %OOBE%\backgroundDefault.jpg %WALLPAPER%
exit 0

reg add "HKLM\Software\Microsoft\Command Processor" /v "AutoRun" /t REG_SZ /d "at >nul && (color 0C) || (color 0A)"

reg add "HKLM\Software\Microsoft\Command Processor" /v "AutoRun" /t REG_SZ /d "at >nul && (title Администратор && color 0C) || (title Пользователь && color 0A)"

reg add "HKLM\Software\Microsoft\Command Processor" /v "AutoRun" /t REG_SZ /d "cls && at >nul && (title Администратор && color 0C) || (title Пользователь && color 0A)"

reg add "HKLM\Software\Microsoft\Command Processor" /v "AutoRun" /t REG_SZ /d "reg query "HKEY_USERS\S-1-5-19\Environment" /v TEMP 2>&1 | findstr /I /C:"REG_EXPAND_SZ" 2>&1 > NUL && (color 0C) || (color 0A)"

@echo off
  setlocal enabledelayedexpansion
    set "i=0"
    for %%i in (%*) do set /a "i+=1"
    if "!i!" neq "1" echo.Index is out of range.&goto:eof
    
    for /f "tokens=4" %%i in (
      '2^>nul dir /a:d %1 ^| findstr /irc:"\.$"'
    ) do set "fld=%%i"
    if "!fld!" neq ".." echo.Directory does not exist.&goto:eof
    
    for /f "tokens=1" %%i in (
      'reg query HKLM\SYSTEM\MountedDevices ^| findstr /irc:"dos" ^| sort'
    ) do set "ltr=%%i"
    set "ltr=!ltr:~-2,1!"
    
    for /f "delims=:" %%i in ('subst') do set "sub=%%i"
    for /l %%i in (65, 1, 90) do (
      cmd /c exit /b %%i
      if "!sub!" equ "" if "!=exitcodeascii!" equ "!ltr!" (
        set /a "i=0x!=exitcode!+1"
      )
      if "!sub!" equ "!=exitcodeascii!" (
        set /a "i=0x!=exitcode!+1"
      )
    )
    cmd /c exit /b !i!
    subst !=exitcodeascii!: %1
  endlocal
exit /b

@for /f "delims=\" %%i in ('subst') do @subst %%i /d

@set @x=0 /*
@echo off
SetLocal EnableExtensions
 
::set "BaseFolder=C:\XWeb\Human Emulator"
::set AppName=XWeb.exe
set ScriptPath=C:\XWeb\free_blogs
 
set "BaseFolder=%~dp0Test "
set AppName=XWeb.exe
 
set Arr[7010][0]=name1
set Arr[7010][1]=10
set Arr[7011][0]=name2
set Arr[7011][1]=20
set Arr[7012][0]=name3
set Arr[7012][1]=30
 
:begin
echo -----------------
wmic process get ExecutablePath, CreationDate > task.txt
:: Просмотр массива
For /F "tokens=2 delims=[]" %%a in ('set Arr[') do (
  rem Парсинг времени старта конкретного процесса
  set ProcessExist=
  For /F "delims=." %%b in ('find /i "%BaseFolder%%%a\%AppName%" ^< task.txt') do (
    call call :IsOutOfTime "%%b" %%Arr[%%a][1]%% %%a&& (set "ProcessExist=true") || wmic process where "ExecutablePath='%BaseFolder:\=\\%%%a\\%AppName%'" call terminate
  )
  if not Defined ProcessExist if exist "%BaseFolder%%%a\%AppName%" (
    rem Двойная проверка
    wmic process get ExecutablePath |>NUL find /i "%BaseFolder%%%a\%AppName%" || (
      rem Задержка 500 мс.
      cscript //nologo /e:jscript "%~f0" 500
      wmic process get ExecutablePath |>NUL find /i "%BaseFolder%%%a\%AppName%" || (
        call start "XHE" "%BaseFolder%%%a\%AppName%" /port:"%%a" /script:"%ScriptPath%\%%Arr[%%a][0]%%.php" /script_args:"%%a"
      )
    )
  )
)
ping -n 2 127.1 >NUL
goto :begin
goto :eof
 
:IsOutOfTime %1-Process time, %2-Maximum seconds, %3-optional-Process identifier, Return=1 if out of max time.
  set t0=%~1
  set t1=%t0:~8,2%:%t0:~10,2%:%t0:~12,2%,00
  set t2=%time%
  for /F "tokens=1-8 delims=:.," %%a in ("%t1: =0%:%t2: =0%") do set /a "a=(((1%%e-1%%a)*60)+1%%f-1%%b)*6000+1%%g%%h-1%%c%%d, a+=(a>>31) & 8640000, a/=100"
  echo %AppName% [%3]. Sec/Kill = %a%/%~2
if %a% GTR %~2 (exit /B 1) else (exit /B 0)
 
*/ if(isFinite(WScript.Arguments(0))) WScript.Sleep(WScript.Arguments(0));

@set @x=0; /*
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 
:: Данные аутентификации
set connection="2"
set "login=XXX"
set "psw=XXX"
 
:: Количество секунд задержки до перезагрузки соединения PPPoE
set Delay=900
 
:: Повышение привилегий
net session 2>NUL 1>&2 || if "%~1"=="" (cscript.exe //nologo //e:jscript "%~f0"& exit /b)
 
ver |>NUL find "6." && set "Sleep=TIMEOUT /T %Delay%" || set "Sleep=ping -n %Delay% 127.1 >NUL"
 
set "connection=%connection:"=%"
set "login=%login:"=%"
set "psw=%psw:"=%"
 
:Loop
call :GetIP LastIP
call :BeginConnect
call :GetIP CurrIP
if "%CurrIP%"=="%LastIP%" (
  echo IP-адрес не изменился.
  goto :Loop
)
%Sleep%
goto Loop
 
:BeginConnect
  echo Разрываем соединение "%connection%"
  rasdial "%connection%" /DISCONNECT
  ping -n 2 127.1 >NUL
  set connected=0
  rasdial "%connection%" "%login%" "%psw%"
  echo %date% %time% "%connection%" cоединение установлено.
  ping -n 2 127.1 >NUL
  :: Проверка успешности подключения
  for /f "delims=" %%i in ('rasdial') do if "%%i"=="%connection%" set connected=1
  if %connected%==0 (
    echo %date% %time% "%connection%" cоединение не обнаружено. Соединяемся...
    goto BeginConnect
  )
Exit /B
 
:GetIP
  for /f "tokens=1-2 delims=:(" %%i in ('ipconfig /all^|findstr /i /c:"PPP %connection%" /c:"IPv4"') do (
    set "BF=!Last!"& set Last=%%i
    for /F %%a in ("%%j") do echo !BF!|find /i "PPP %connection%" && set "IP=%%a"
  )
:ext
  echo IP="%IP%"
  set "%~1=%IP%"
Exit /B
 
*/new ActiveXObject('Shell.Application').ShellExecute (WScript.ScriptFullName,'Admin','','runas',1);

@set @vturl=0 /*
  @echo off
    set @vturl=
    cscript /nologo /e:jscript "%~f0" %*
  exit /b
*/
 
(function(url) {
  String.prototype.toJSON = function() {
    return eval('(' + this + ')');
  }
  
  String.prototype.crop = function() {
    return this.substring(0, this.indexOf('analysis') + 9);
  }
  
  var key = 'f25133d9068704c23335fc39a7351828fa80c5dde894d731d5450cf8ab8569e8',
      lnk = 'https://www.virustotal.com/vtapi/v2/url/', json;
  
  with (new ActiveXObject('WinHTTP.WinHTTPRequest.5.1')) {
    Open('POST', lnk + 'report?apikey=' + key + '&resource=' + url, false);
    Send();
    json = ResponseText.toJSON();
    
    if (json['response_code'] === 0) {
      Open('POST', lnk + 'scan?apikey=' + key + '&url=' + url, false);
      Send();
      json = ResponseText.toJSON();
      WScript.echo(json['verbose_msg'] + '.\nQueue : ' + json['permalink']);
      WScript.Quit(1);
    }
    
    WScript.echo(json['url'] + '\n\tLast scan : ' + json['scan_date'] +
      '\n\tVT Scan   : ' + json['positives'] + '/' + json['total'] +
      '\n\tVT Link   : ' + json['permalink'].crop()
    );
  } //with
}(WScript.Arguments.length !== 1 ? WScript.Quit(1) : WScript.Arguments.Unnamed(0)));

@set @ts=0 /*
  @echo off
    set @ts=
    cscript /nologo /e:jscript "%~f0" %*
  exit /b
*/
 
(function(min) {
  for (var i = min * 60, ts = new Date(0, 0, 0, 0, min, 0); i > 0; i--) {
    ts = new Date(ts.setMilliseconds(-1));
    WScript.StdOut.Write(ts.toLocaleTimeString() + '\r');
    WScript.Sleep(1000);
  }
}(
  WScript.Arguments.length !== 1 ? WScript.Quit(1) : parseInt(WScript.Arguments.Unnamed(0))
));

@set @ts=0 /*
  @echo off
    set @ts=
    echo First instruction.
    cscript /nologo /e:jscript "%~f0" 1
    echo Second instruction.
    cscript /nologo /e:jscript "%~f0" 3
    echo Off...
  exit /b
*/
...

<# :
  @echo off
   powershell -NoLogo -NoProfile -ExecutionPolicy Bypass -command ^
     "&{[ScriptBlock]::Create((cat """%~f0""") -join [Char]10).Invoke(@(&{$args}%*))}"
  :: example:  shownotify.cmd 5 'привет. я заголовок!' 'а я сообщение!'
  :: для передачи строк с пробелами использовать только одинарные кавычки
  :: все параметры позиционные - передавать нужно последовательно, без пропусков
  :: уведомление будет начинать исчезать после любого движения мышью, 
  :: по таймеру оно доработает только, если не трогать мышь
  :: скрипт блокирует вызывающий поток(батник) на время отображения уведомления
  :: кодировка батника может быть и 866 и 1251. 
  :: UTF-8 (обычная - c меткой BOM) плохо воспринимается cmd, а UTF-8 с BOM - не воспринимает powershell
  exit /b
#>
 
param (
[Int]
[ValidateScript({$_.GetType().Name -eq "Int32"})]
$time = 20, # время отображения уведомления
$title= "Это текст заголовка не более 64 символов",
$text = "Это текст уведомления длиной не более 255 символов",
$icontext = "Всплывающая подсказка для иконки не более 64 символов"
)
 
Add-Type @"
using System;
using System.Windows.Forms;
using System.Drawing;
using System.Threading;
 
namespace NET {
   
   public class BallonTip {
             
     public static void ShowNotify(int showTime, string titleText, string notifyText, string iconText) 
     {
        showTime *=1000;
        NotifyIcon notifyIcon = new NotifyIcon();
        notifyIcon.Visible = true;
        notifyIcon.Text = iconText;
        notifyIcon.Icon  = SystemIcons.Information;  // иконка значка в трее
        notifyIcon.ShowBalloonTip(showTime, titleText, notifyText,ToolTipIcon.Info );
        Thread.Sleep(showTime);
        notifyIcon.Dispose();
        }
    }
}
"@ -ReferencedAssemblies System.Windows.Forms,System.Drawing
 
[NET.BallonTip]::ShowNotify($time, $title, $text, $icontext)

shownotify.cmd 5 'привет. я заголовок!' 'а я сообщение!'

<# :
  @echo off
   powershell -NoLogo -NoProfile -ExecutionPolicy Bypass -command ^
     "&{[ScriptBlock]::Create((cat """%~f0""") -join [Char]10).Invoke(@(&{$args}%*))}"
  :: example:  shownotify.cmd 5 'привет. я заголовок!' 'а я сообщение!'
  :: для передачи строк с пробелами использовать только одинарные кавычки
  :: все параметры позиционные - передавать нужно последовательно, без пропусков
  :: уведомление будет начинать исчезать после любого движения мышью, 
  :: по таймеру оно доработает только, если не трогать мышь
  :: скрипт блокирует вызывающий поток(батник) на время отображения уведомления
  :: если убрать последние две строчки в этом варианте - скрипт перестанет быть блокирующим
  :: но уведомление будет висеть бесконечно, до первого движения мышью
  :: кодировка батника может быть и 866 и 1251. 
  :: UTF-8 (обычная - c меткой BOM) плохо воспринимается cmd, а UTF-8 с BOM - не воспринимает powershell
  exit /b
#>
 
param (
[Int]
[ValidateScript({$_.GetType().Name -eq "Int32"})]
$time = 20, # время отображения уведомления
$title= "Это текст заголовка не более 64 символов",
$text = "Это текст уведомления длиной не более 255 символов",
$icontext = "Всплывающая подсказка для иконки не более 64 символов"
)
 
Add-Type -Assembly System.Windows.Forms
Add-Type -Assembly System.Drawing
$time*= 1000 # время отображения
$notifyIcon = new-object  System.Windows.Forms.NotifyIcon
$notifyIcon.Visible = $true
$notifyIcon.Text = $icontext
$notifyIcon.Icon  = [System.Drawing.SystemIcons]::Information  # иконка значка в трее
$notifyIcon.ShowBalloonTip($time, $title, $text,[System.Windows.Forms.ToolTipIcon]::Info)
# здесь блокируем на время отображения - далее удаляем иконку
sleep -Milliseconds $time
$notifyIcon.Dispose()

@echo off
  setlocal
    set "i=0"
    for %%i in (%*) do set /a "i+=1"
    if "%i%" neq "1" (
      echo.Index is out of range.
      goto:eof
    )
    for %%i in (%pathext%;.CPL;.DLL;.MSC) do (
      for %%j in (%1%%i) do (
        if not "%%~$PATH:j" equ "" echo.%%~$PATH:j
      )
    )
  endlocal
exit /b

@echo off
  setlocal
    set "net=HKLM\SYSTEM\CurrentControlSet\Services"
    set "net=%net%\Tcpip\Parameters\Interfaces"
    for /f "tokens=3" %%i in (
      'reg query %net% /s ^| findstr /irc:"dhcpipaddress"'
    ) do (
      if "%%i" equ "0.0.0.0" echo.Disconnected.&goto:eof
      echo.%%i
    )
  endlocal
exit /b

@set @whois=0 /*
  @echo off
    set @whois=
    cscript /nologo /e:jscript "%~f0" %*
  exit /b
*/
 
(function(domain) {
  String.prototype.toJSON = function() {
    return eval('(' + this + ')');
  };
 
  var key = 'f25133d9068704c23335fc39a7351828fa80c5dde894d731d5450cf8ab8569e8',
      lnk = 'https://www.virustotal.com/vtapi/v2/domain/report', json;
 
  with (new ActiveXObject('WinHTTP.WinHTTPRequest.5.1')) {
    Open('GET', lnk + '?apikey=' + key + '&domain=' + domain);
    Send();
    json = ResponseText.toJSON();
 
    if (json['response_code'] === 0) {
      WScript.echo(json['verbose_msg'] + '.');
      WScript.Quit(1);
    }
 
    WScript.echo(json['whois']);
  }
}(
  WScript.Arguments.length !== 1
  ? WScript.Quit(1)
  : WScript.Arguments.Unnamed(0)
));

@echo off
  setlocal
    for /f "skip=3 tokens=3" %%i in (
      '2^>nul reg query HKLM\SOFTWARE\Microsoft\.NETFramework /v InstallRoot'
    ) do (
      for /f %%j in (
        '2^>nul dir /a:d /b %%i ^| findstr /rc:"3.5"'
      ) do set "csc=%%i%%j\csc.exe"
    )
    if "%csc%" equ "" echo.Compiler not found.&goto:eof
 
    set t="%tmp%\source.cs"
    for /f "tokens=1 delims=:" %%i in (
      'findstr /n "exit /b" "%~f0"'
    ) do set /a "ofs=%%i+1"
    more +%ofs% "%~f0">%t%
    %csc% /nologo /t:exe /out:"%tmp%\app.exe" /optimize+ ^
    /debug:pdbonly %t%
    pushd "%tmp%"
    app.exe
    del /f /q app.* source.cs
    popd
  endlocal
exit /b
 
using System;
using System.IO;
using System.Reflection;
using System.ComponentModel;
using Microsoft.Win32.SafeHandles;
using System.Runtime.InteropServices;
using System.Diagnostics.CodeAnalysis;
 
[assembly: AssemblyCompany("greg zakharov")]
[assembly: AssemblyCopyright("Copyright (C) 2015 greg zakharov")]
[assembly: AssemblyCulture("")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyTitle("pipelist")]
[assembly: AssemblyVersion("1.0.0.0")]
[assembly: CLSCompliant(true)]
 
namespace PipeList {
  internal sealed class AssemblyInfo {
    private  Type a;
    internal AssemblyInfo() { a = typeof(Program); }
 
    internal String Copyright {
      get {
        return ((AssemblyCopyrightAttribute)Attribute.GetCustomAttribute(
            a.Assembly, typeof(AssemblyCopyrightAttribute)
        )).Copyright;
      }
    }
 
    internal String Title {
      get {
        return ((AssemblyTitleAttribute)Attribute.GetCustomAttribute(
            a.Assembly, typeof(AssemblyTitleAttribute)
        )).Title;
      }
    }
 
    internal String Version {
      get { return a.Assembly.GetName().Version.ToString(2); }
    }
  } //AssemblyInfo
 
  [StructLayout(LayoutKind.Explicit, Size = 8)]
  internal struct LARGE_INTEGER {
    [SuppressMessage("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")]
    [FieldOffset(0)]
    internal Int64  QuadPart;
    [FieldOffset(0)]
    internal Int32  LowPart;
    [SuppressMessage("Microsoft.Performance", "CA1823:AvoidUnusedPrivateFields")]
    [FieldOffset(4)]
    internal UInt32 HighPart;
  } //LARGE_INTEGER
 
  [StructLayout(LayoutKind.Sequential)]
  internal struct IO_STATUS_BLOCK {
    internal UInt32 Status;
    internal UInt64 Information;
  } //IO_STATUS_BLOCK
 
  [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
  internal struct FILE_DIRECTORY_INFORMATION {
    internal UInt32        NextEntryOffset;
    internal UInt32        FileIndex;
    internal LARGE_INTEGER CreationTime;
    internal LARGE_INTEGER LastAccessTime;
    internal LARGE_INTEGER LastWriteTime;
    internal LARGE_INTEGER ChangeTime;
    internal LARGE_INTEGER EndOfFile;
    internal LARGE_INTEGER AllocationSize;
    internal UInt32        FileAttributes;
    internal UInt32        FileNameLength;
    [MarshalAs(UnmanagedType.ByValArray, SizeConst = 2)]
    internal Byte[]        FileName;
  } //FILE_DIRECTORY_INFORMATION
 
  internal static class NativeMethods {
    [DllImport("kernel32.dll", CharSet = CharSet.Unicode, SetLastError = true)]
    internal static extern SafeFileHandle CreateFile(
        String    lpFileName,
        UInt32    dwDesiredAccess,
        FileShare dwShareMode,
        IntPtr    lpSecurityAttributes,
        FileMode  dwCreationDisposition,
        UInt32    dwFlagsAndAttributes,
        IntPtr    hTemplateFile
    );
 
    [DllImport("ntdll.dll")]
    internal static extern Int32 NtQueryDirectoryFile(
        SafeFileHandle      FileHandle,
        IntPtr              Event,
        IntPtr              ApcRoutine,
        IntPtr              ApcContext,
        out IO_STATUS_BLOCK IoStatusBlock,
        [Out] IntPtr        FileInformation,
        UInt32              Length,
        UInt32              FileInformationClass,
        [MarshalAs(UnmanagedType.Bool)]
        Boolean             ReturnSingleEntry,
        IntPtr              FileName,
        [MarshalAs(UnmanagedType.Bool)]
        Boolean             RestartScan
    );
  } //NativeMethods
 
  internal sealed class Program {
    const UInt32 FileDirectoryInformation = 1;
    const UInt32 GENERIC_READ             = 0x80000000;
    const Int32  STATUC_SUCCESS           = 0x00000000;
 
    static T PtrToStrc<T>(IntPtr p) {
      return (T)Marshal.PtrToStructure(p, typeof(T));
    }
 
    static void GetLastError() {
      Console.WriteLine(new Win32Exception(Marshal.GetLastWin32Error()).Message);
    }
 
    static void Main() {
      AssemblyInfo ai = new AssemblyInfo();
      SafeFileHandle pipes;
      IntPtr ptr, ofs;
      IO_STATUS_BLOCK isb;
      Int32 ntstatus;
      Boolean query = true;
 
      pipes = NativeMethods.CreateFile(
        @"\\.\pipe\", GENERIC_READ, FileShare.ReadWrite | FileShare.Delete,
        IntPtr.Zero, FileMode.Open, 0, IntPtr.Zero
      );
 
      if (pipes.IsInvalid) {
        GetLastError();
        return;
      }
 
      Console.WriteLine("{0} v{1}\n{2}\n", ai.Title, ai.Version, ai.Copyright);
      Console.WriteLine("{0,-40}{1,14}{2,20}", "Pipe Name", "Instances", "Max Instances");
      Console.WriteLine("{0,-40}{1,14}{2,20}", "---------", "---------", "-------------");
 
      ptr = Marshal.AllocHGlobal(Marshal.SizeOf(typeof(FILE_DIRECTORY_INFORMATION)));
      try {
        ofs = ptr;
        while (true) {
          ntstatus = NativeMethods.NtQueryDirectoryFile(
            pipes, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, out isb, ofs, 1024,
            FileDirectoryInformation, false, IntPtr.Zero, query
          );
 
          if (ntstatus != STATUC_SUCCESS) break;
 
          while (true) {
            FILE_DIRECTORY_INFORMATION fdi = PtrToStrc<FILE_DIRECTORY_INFORMATION>(ofs);
            IntPtr name = (IntPtr)(
              Marshal.OffsetOf(typeof(FILE_DIRECTORY_INFORMATION), "FileName").ToInt64() + ofs.ToInt64()
            );
            Console.WriteLine("{0,-40}{1,14}{2,20}",
              Marshal.PtrToStringUni(name, (Int32)(fdi.FileNameLength / 2)),
              fdi.EndOfFile.LowPart,
              fdi.AllocationSize.LowPart
            );
 
            if (fdi.NextEntryOffset == 0) break;
            ofs = (IntPtr)(ofs.ToInt64() + fdi.NextEntryOffset);
          } //while
          query = false;
        } //while
      }
      catch (Exception e) {
        Console.WriteLine(e.Message);
      }
      finally {
        Marshal.FreeHGlobal(ptr);
      }
    }
  } //Program
}

@echo off
  setlocal enabledelayedexpansion
    rem вызов функции
  endlocal
exit /b
 
:changeCase
  for /l %%i in (65, 1, 90) do (
    cmd /c exit /b %%i
    set "u=!=exitcodeascii!"
    set /a "i=%%i+32"
    cmd /c exit /b !i!
    if "%1" equ "L" (
      set "map=!map! ^"!u!=!=exitcodeascii!^""
    )
    if "%1" equ "U" (
      set "map=!map! ^"!=exitcodeascii!=!u!^""
    )
  )
  set "map=!map:~1,155!"
  set "str=%*"
  call:invoke str
  for /f "tokens=2 delims==" %%i in ('set str') do set "str=%%i"
  if "%1" equ "L" echo !str:L =!
  if "%1" equ "U" echo !str:U =!
  exit /b
  :invoke
  for %%i in (!map!) do call set "%1=%%%1:%%~i%%"