Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Сценарии для Windows

Модерирует : KLASS, IFkO

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228

Открыть новую тему     Написать ответ в эту тему

KLASS



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Старые и смежные темы: по CMD и в Программах | по PowerShell | В помощь системному администратору | Прикладное программирование

PowerShell
Версии | Ассоциация и подпись сценариев
Сценарий для ассоциации файлов PowerShell и запуска неподписанных скриптов.
 
Прочее
Расширение возможностей
Функции
Write-Color
Output-DebugString
Провайдеры
Готовые скрипты
Полезные ссылки | Будет ли репозиторий PowerShell на ru-board?
Книги в PDF
Cheat Sheets
 

Cmd
Для перекодирования кириллицы 866<—>1251 пользуйтесь онлайн сервисом Перекодировщик кириллицы
 
Готовые решения и частые вопросы
 
Описания работы команд и символов участниками темы:
setlocal enabledelayedexpansion и переменные окружения
символы & и && в командной строке
Переменная %0
 
Полезные ссылки и утилиты

WSH (VBScript, JScript)
Программирование "удобняшек" на VBScript

Примечания:
• Большие куски кода заключайте в тэг [ more ]
• Чтобы не копировались концевые пробелы из форума, жмите на ссылку "Редактировать" в посте, и уже из редактора копируйте код без пробелов иначе сценарий может работать неправильно. Также для удаления концевых пробелов пользуйтесь скриптом от Nagual, или VBS-Скрипт-Модулем от ViSiToR.
• Сторонние консольные утилиты можно использовать только в виде готового решения и только в рамках сценариев. Никаких обсуждений и обучений работе с утилитами не предусмотрено и прямо запрещено правилами топика.
Шапка и около-темные вопросы |

Всего записей: 11215 | Зарегистр. 12-10-2001 | Отправлено: 13:40 17-02-2018 | Исправлено: YuS 2, 08:24 19-06-2021
westlife



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT

Цитата:
ЗЫ. Дайте кто-нибудь xml-файл от 1809  

 SecurtyDescriptor RW, но доступа на замену нету. Если даже его заменить в реестре на прямую у этой задачи. Так как доступа к самому файлу задачи нету, а это обязательное требование, в отличии от SecurtyDescriptor.
Я пока остановился на получении временного доступа к файлу (и ее разделу реестра на всякий случай) Это универсальное решение, и быстрее всех остальных, хотя и действий больше.
 
Идеально было бы обойти ограничение на локальный Impersonate для WMI. Но такой метод не будет работать, если были манипуляции с правами доступа на запрет или если они запрещают доступ Системе, т.е. будут не стандартные, а вариант с временным доступом будет работать в любых случаях, кроме конечно защиты раздела драйвером, которое тут вряд ли будет, но от MS все можно ожидать.
 
У вас ошибка в имени задачи, может из-за этого и отсутствие задачи, но вот:
Это от 1607, по идее не должно отличаться, только если ClassID

Всего записей: 1398 | Зарегистр. 12-12-2006 | Отправлено: 16:16 22-10-2018 | Исправлено: westlife, 16:25 22-10-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
westlife

Цитата:
Я пока остановился на получении временного доступа к файлу

 
К какому?
В 1809 в  C:\Windows\Tasks\ лежит единственный файл SA.DAT размером 6 байт.

Всего записей: 17297 | Зарегистр. 14-10-2001 | Отправлено: 19:28 22-10-2018
westlife



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT

Цитата:
К какому?  


Код:
C:\Windows\System32\Tasks

Всего записей: 1398 | Зарегистр. 12-12-2006 | Отправлено: 19:50 22-10-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Наткнулся в сети на полезное заклинание, подправил чуть и выкладываю
 

Код:
 
[System.Enum]::GetNames([System.Environment+SpecialFolder]) | ForEach-Object -Process {
    [PSCustomObject]@{
        'Name' = $_
        'Path' = [System.Environment]::GetFolderPath($_)
    }
}
 

 
Однако язык у меня английский, подозреваю что в русской системе или с русским UI большая часть этих специальных папок будут локализованы.
 
А вот как получить из локализованных имён английский оригинал?
 
 
westlife
 
Вот варианты:  http://powershell-guru.com/powershell-tip-53-run-powershell-as-system/
По-моему, это правильнее чем временно править разрешения.

Всего записей: 17297 | Зарегистр. 14-10-2001 | Отправлено: 20:50 22-10-2018 | Исправлено: LevT, 22:45 22-10-2018
westlife



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT

Цитата:
По-моему, это правильнее чем временно править разрешения.  

Это самое простое и было у меня первым вариантом.  
Отказался в данном случае, так как медленнее текущего варианта и не сработает при измененных или заблокированных доступах (это я думаю на перед, так как MS не стоит на месте, да и сам использую такое).  
Медленнее за счет передачи объекта в файл и создания файла для запуска отдельным процессом и подхватом этого файла с объектом (это я не для вкл/выкл, а создания задачи через хэш таблицу), и + еще нужно ожидание завершения, так как необходимо получить результат выполнения до продолжения. Такой способ буду использовать, если будет выгодней такой вариант и не нужно передавать объекты.
Я выбираю ни как "правильно", а самый быстрый вариант из возможных и универсальнее под конкретную задачу, которые у меня обычно не стандартные =)
На мой взгляд лучше "неправильно", но работает, чем "правильно" и не работает в каких то случаях. И я не иду простым путем ни когда, но вы это уже заметили, думаю, тем более PS дает большую свободу действий =)

Всего записей: 1398 | Зарегистр. 12-12-2006 | Отправлено: 21:38 22-10-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YuS_2
 
помогите упростить предыдущий вариант функции
написалось вот такое:
 

Код:
 
function Register-NewScheduledTaskWorkaround  
{
  [CmdletBinding(SupportsShouldProcess)]  
  param(
 
    [Parameter(Mandatory,ValueFromPipelineByPropertyName)]
    $Taskname,
    [Parameter(Mandatory,ValueFromPipelineByPropertyName)]
    $Taskpath,
    [Parameter(ValueFromPipelineByPropertyName)]    
    $SystemLocalisedName = 'SYSTEM'
  )
 
  $otherNewtaskParam = @{
    Trigger   = &{
      New-ScheduledTaskTrigger -AtLogOn
    }
    Principal = &{
      New-ScheduledTaskPrincipal -UserId $SystemLocalisedName -LogonType serviceaccount
    }
    Settings  = &{
      New-ScheduledTaskSettingsSet
    }
  }
 
 
  'Enable', 'Disable' | ForEach-Object -Process {
 
    $StringToExecute = '{0}-ScheduledTask -taskname {1} -taskpath {2}' -f $_, $Taskname, $Taskpath
 
    $Action = New-ScheduledTaskAction -Execute 'powershell.exe' -Argument "-Command ..."
   
    if ($PSCmdlet.ShouldProcess("$NestedCommand", "Creating new task with $SystemLocalisedName rights")) {  
      New-ScheduledTask -Action $Action @otherNewtaskParam | Register-ScheduledTask -TaskName "$($_)_$($Taskname)"  
    }
  }
}
 

 
Здесь в выделенной строчке чего бы я не шаманил вместо многоточия, получаю
 

Цитата:
New-ScheduledTaskAction : Cannot retrieve the dynamic parameters for the cmdlet. You cannot call a method on a null-valued expression.
At line:1 char:11
+ $action = New-ScheduledTaskAction -Execute 'powershell.exe' -Argument ...
+           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidArgument: (:) [New-ScheduledTaskAction], ParameterBindingException
    + FullyQualifiedErrorId : GetDynamicParametersException,New-ScheduledTaskAction
 
 
 

Всего записей: 17297 | Зарегистр. 14-10-2001 | Отправлено: 22:53 22-10-2018 | Исправлено: LevT, 22:54 22-10-2018
westlife



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT

Цитата:
получаю

Подробнее

Всего записей: 1398 | Зарегистр. 12-12-2006 | Отправлено: 00:02 23-10-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
westlife
 
дано:
$StringToExecute = 'Disable-ScheduledTask -taskname BackgroundUploadTask -taskpath \microsoft\windows\settingsync\'  
 
В параметр -Argument надо засунуть не абы что, а что-то вроде  
-Command "& {$StringToExecute }"
 
У меня не получается...
(в отличие от варианта с прошлой страницы, который взлетел - но хочется упростить)
 
 
Добавлено:
 
Похоже, дурное это желание - а тот вариант функции близок к идеалу..

Всего записей: 17297 | Зарегистр. 14-10-2001 | Отправлено: 01:31 23-10-2018 | Исправлено: LevT, 08:24 23-10-2018
YuS_2



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT

Цитата:
В параметр -Argument надо засунуть не абы что, а что-то вроде  
-Command "& {$StringToExecute }"

Тут надо отталкиваться от конечного результата, что в итоге требуется получить... т.е. надо видеть всю строку(и), которую необходимо поместить в задачу в виде аргумента.
Что-то вроде этого, должно получиться:

Код:
-arg {-c ""&{&$StringToExecute}""}

но, здесь, в таком именно виде, $StringToExecute взяться неоткуда, т.е. взлетать будет нечему...
Ну и в особо сложных случаях, не забываем про "--%" (man about_Special_Characters)...
 
Добавлено:
Скажем, вот тот пример получения прав админа, совмещенный с кодом создания задачи, может выглядеть так:

Код:
$acl=$false
foreach ($sid in [security.principal.windowsidentity]::getcurrent().groups){
    if ($sid.translate([security.principal.securityidentifier]).iswellknown([security.principal.wellknownsidtype]::builtinadministratorssid)){
        $acl=$true
    }
}
 
if (!$acl){
    start-process 'powershell.exe' -arg {
        -nologo -c "&{
            $aenb = new-scheduledtaskaction -exe 'powershell.exe' -arg {
                -c """"&{enable-scheduledtask -taskname 'backgrounduploadtask' -taskpath '\microsoft\windows\settingsync\'}""""
            }
            $adis = new-scheduledtaskaction -exe 'powershell.exe' -arg {
                -c """"&{disable-scheduledtask -taskname 'backgrounduploadtask' -taskpath '\microsoft\windows\settingsync\'}""""
            }
            $b = new-scheduledtasktrigger -atlogon
            $c = new-scheduledtaskprincipal -userid 'СИСТЕМА' -logon serviceaccount
            $set = new-scheduledtasksettingsset
            $tskenb = new-scheduledtask -act $aenb -princ $c -trig $b -set $set
            $tskdis = new-scheduledtask -act $adis -princ $c -trig $b -set $set
            register-scheduledtask enable -inp $tskenb
            register-scheduledtask disable -inp $tskdis
        }"
    } -verb runas -wait
} else {write-host необходимые привилегии уже доступны -for green}

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 08:41 23-10-2018 | Исправлено: YuS_2, 08:49 23-10-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YuS_2
кажется, я не осознавал глубины своей правоты с использованием лямбда-функций (скриптблоков)!
новая версия  
 

Код:
 
function Register-NewScheduledTaskWorkaround  
{  
  [CmdletBinding(SupportsShouldProcess)]  
  param(  
 
    [Parameter(Mandatory,ValueFromPipelineByPropertyName)]  
    $Taskname,  
    [Parameter(Mandatory,ValueFromPipelineByPropertyName)]  
    $Taskpath,  
    [Parameter(ValueFromPipelineByPropertyName)]      
    $SystemLocalisedName = 'SYSTEM'  
  )  
 
  $Parameters = @{
    Action    = & {
      $ScriptBlock = {
        '{0}-ScheduledTask -taskname {1} -taskpath {2}' -f $_, $Taskname, $Taskpath
      }  
   
      $NestedCommand = & $ScriptBlock  
   
      New-ScheduledTaskAction -Execute 'powershell.exe' -Argument "-Command (& {$NestedCommand})"
    }  
    Trigger   = & {
      New-ScheduledTaskTrigger -AtLogOn
    }  
    Principal = & {
      New-ScheduledTaskPrincipal -UserId $SystemLocalisedName -LogonType serviceaccount
    }  
    Settings  = & {
      New-ScheduledTaskSettingsSet
    }  
  }  
 
  'Enable', 'Disable' | ForEach-Object -Process {  
    if ($PSCmdlet.ShouldProcess("$NestedCommand", "Creating new task with $SystemLocalisedName rights"))  
    {
      New-ScheduledTask @Parameters | Register-ScheduledTask -TaskName "$($_)_$($Taskname)"
    }
  }
}  
 
 
$parameters = [PSCustomObject]@{
  Taskname = 'BackgroundUploadTask'
  Taskpath = '\microsoft\windows\settingsync\'
  #SystemLocalisedName = 'СИСТЕМА'  
}  
 
$parameters | Register-NewScheduledTaskWorkaround -OutVariable NewTasks -whatif
       
 
#$NewTasks | Unregister-ScheduledTask -Confirm:$false     #зачистка  
 
 

 
 
Командлеты типа Register-ScheduledTask (где куча вложенных New-структур) заточены именно под такое использование  
Но это 401 левел
 

Всего записей: 17297 | Зарегистр. 14-10-2001 | Отправлено: 09:10 23-10-2018 | Исправлено: LevT, 10:30 23-10-2018
Kaber



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Тут можно задавать простые вопросы по poweshell ?

Код:
$ip = Get-WmiObject -Class Win32_NetworkAdapterConfiguration -Filter IPEnabled=TRUE | Select-Object -Property IPAddress
echo $ip

Выдает:

Код:
IPAddress      
---------      
{192.168.0.10}

А как, например, получить сам ip - 192.168.0.10 ?

Всего записей: 1357 | Зарегистр. 14-03-2014 | Отправлено: 10:16 23-10-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Kaber
 

Код:
 
PS C:\windows\system32> $ip.GetType().name
Object[]   #то есть здесь будет массив объеков
PS C:\windows\system32> $ip | Get-Member
 
 
   TypeName: Selected.System.Management.ManagementObject
 
Name        MemberType   Definition
----        ----------   ----------
Equals      Method       bool Equals(System.Object obj)
GetHashCode Method       int GetHashCode()
GetType     Method       type GetType()
ToString    Method       string ToString()
IPAddress   NoteProperty string[] IPAddress=System.String[]
 
 
PS C:\windows\system32> $ip.IPaddress
192.168.10.161
fe80::b900:3868:688b:d829
192.168.0.102
fe80::1d6f:af0c:c756:92c2
169.254.173.76
fe80::11cb:efc8:6eb4:ad4c
fd27:1edd:11c:81fe:a27f:9d72:fd6f:8450
 

 
У вас проблема в том, что вообще говоря в системе много интерфейсов и у каждого из них много адресов
Но в вашем случае этого достаточно  
 

Код:
 
PS C:\windows\system32> $ip[0] | select -ExpandProperty ipaddress
192.168.10.161
fe80::b900:3868:688b:d829
 

 
Добавлено:
 
Ну и в боле-менее современных системах есть Get-NetIPAddress
 
 
 
 
Добавлено:
 
KLASS и прочие
 
Вопрос Kaber был именно по устройству PS движка, а не по "сценариям виндовз"
Ещё раз спрашиваю: кто-нибудь кроме меня здесь понимает разницу?
 
Если никто, то я не вижу смысла городить новую тему.





Неделя, за систематические провокации и флуд

Всего записей: 17297 | Зарегистр. 14-10-2001 | Отправлено: 11:07 23-10-2018 | Исправлено: KLASS, 15:46 23-10-2018
Kaber



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT
Спс, разжевали и в рот положили
Еще вопрос, есть запрос:

Код:
$comp = Get-ADComputer -Filter 'Name -like "comp*"'

Почему тут нельзя использовать -match вместо -like ?

Всего записей: 1357 | Зарегистр. 14-03-2014 | Отправлено: 13:48 23-10-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Kaber
Чтобы использовать -match надо уметь регулярные выражения.
-like для ленивых
 
В других местах в PS есть параметр -SimpleMatch который заставляет фильтры работать как -like
 
 
Добавлено:
 
YuS_2
westlife
Можно ещё вот так
 

Код:
 
$ParameterSetup = {
  @{
    Action    = & {
      New-ScheduledTaskAction -Execute 'powershell.exe' -Argument '-Command (& {$NestedCommand})'
    }  
    Trigger   = & {
      New-ScheduledTaskTrigger -AtLogOn
    }  
    Principal = & {
      New-ScheduledTaskPrincipal -UserId (& {$SystemLocalizedName}) -LogonType serviceaccount
    }  
    Settings  = & {
      New-ScheduledTaskSettingsSet
    }  
  }  
}
 
function Register-NewScheduledTaskWorkaround  
{  
  [CmdletBinding(SupportsShouldProcess)]  
  param(  
 
    [Parameter(Mandatory,ValueFromPipelineByPropertyName)]  
    $Taskname,  
    [Parameter(Mandatory,ValueFromPipelineByPropertyName)]  
    $Taskpath,  
    [Parameter(ValueFromPipelineByPropertyName)]      
    $SystemLocalizedName = 'SYSTEM'  
  )  
 
   
  $Parameters = & $Parametersetup      
                                                                     
   
  'Enable', 'Disable' | & {               #именно так на самом деле работает Foreach-Object
                                                  # (который является синтаксическим сахаром, скрывающим вызов скриптблока)
    begin{
      $NestedCommand = {
        param($Switch)
        '{0}-ScheduledTask -taskname {1} -taskpath {2}' -f $Switch, $Taskname, $Taskpath
      }
    }
    process {  
      $Target =  & $NestedCommand $_     #вызов скриптблока с параметром
      if ($PSCmdlet.ShouldProcess($Target, "Creating new task with $SystemLocalizedName rights"))  
      {
        New-ScheduledTask @Parameters | Register-ScheduledTask -TaskName "$($_)_$($Taskname)"
      }
    }
  }        #конец скриптблока "Foreach-Object"
}  
 
 
$CallerScriptParameters = [PSCustomObject]@{
  Taskname = 'BackgroundUploadTask'
  Taskpath = '\microsoft\windows\settingsync\'
}  
 
$CallerScriptParameters | Register-NewScheduledTaskWorkaround -OutVariable NewTasks -WhatIf
       
 
#$NewTasks | Unregister-ScheduledTask -Confirm:$false     #зачистка  
 

Всего записей: 17297 | Зарегистр. 14-10-2001 | Отправлено: 14:15 23-10-2018 | Исправлено: LevT, 14:52 23-10-2018
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Kaber

Цитата:
А как, например, получить сам ip - 192.168.0.10 ?

$p[0].IpAddress[0]
Вообще там массив адаптеров должен получиться и в каждом массив адресов

----------
Разум когда-нибудь победит

Всего записей: 3290 | Зарегистр. 09-02-2003 | Отправлено: 17:12 23-10-2018
YuS_2



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT

Цитата:
Можно ещё вот так

Это powershell, тем он и хорош, что решения можно придумывать нелинейные...
 

Цитата:
#именно так на самом деле работает Foreach-Object

ты лучше подумай как работает это:

Код:
gc test.txt -wait|%{$x='это контакт'}{if($_ -match 'test'){write-host $x - есть контакт! -for cyan}}

 
а то, что ты там открыл в виде Америки... шутка
В общем, это:

Цитата:
& Call operator
         Runs a command, script, or script block. The call operator, also known as
         the "invocation operator," lets you run commands that are stored in
         variables and represented by strings. Because the call operator does not
         parse the command, it cannot interpret command parameters.


Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 18:25 23-10-2018 | Исправлено: YuS_2, 18:27 23-10-2018
jr13ster

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приветствую. Нужна помощь. Пишу батник. При выполнении арифметической операции споткнулся об "Неверное число. Числа ограничены 32 битами точности.". В пауэршелл отрабатывает корректно. Может кто-нибудь написать скрипт на пш, который бы читал из текстового файла число, выполнял операцию деления этого числа на 512, а полученный результат сохранял тоже в текстовый файл. Который я потом считаю из батника.

Всего записей: 68 | Зарегистр. 12-01-2007 | Отправлено: 22:22 24-10-2018
bomzz

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
jr13ster
какое число целое или с плавающей запятой

Всего записей: 3522 | Зарегистр. 29-03-2016 | Отправлено: 22:26 24-10-2018
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
jr13ster

Цитата:
Пишу батник

Хотите гибридный файл cmd+js, где деление будет выполняться в пределах одного файла без внешнего?
Вот пример

Код:
@if (true == false) @end /*
@echo off
set "num=998877665544332211"
for /f "usebackq delims=" %%# in (`%SystemRoot%\system32\cscript.exe //nologo //e:javascript "%~f0" %num%`) do set "result=%%#"
echo %result%
exit /b */
WScript.Echo((WScript.Arguments(0)/512).toFixed(0));



----------
Разум когда-нибудь победит

Всего записей: 3290 | Зарегистр. 09-02-2003 | Отправлено: 23:15 24-10-2018 | Исправлено: Smitis, 23:18 24-10-2018
NIKZZZZ



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
jr13ster
Деление на батнике

Код:
@echo off
setlocal enabledelayedexpansion
call :div 998877665544332211 512 4
echo %resultall%
goto :eof
 
:div  
::делимое
set num1=%1
::делитель
set num2=%2
::макс. кол-во знаков после запятой в результате
set maxz=%3
set /a num1_pos=-1
:addnum1
set /a num1_pos+=1
if "!num1:~%num1_pos%,1!"=="" goto afterziro
set num1_part=%num1_part%!num1:~%num1_pos%,1!
if %num1_part%==00 set num1_part=0
call :trydiv
goto addnum1
:afterziro
if %num1_part%==0 goto :eof
if %maxz% neq 0 set resultall=%resultall%.
set zero_marker=true
:addziro
set /a maxz-=1
if %maxz% lss 0 goto :eof
if %num1_part%==0 goto :eof
set num1_part=%num1_part%0
call :trydiv
goto addziro
:trydiv
if not "%num1_part:~0,1%"=="0" goto loop
set num1_part=%num1_part:~1%
goto trydiv
:loop
set /a result=num1_part / num2
if %result% neq 0 (
  set resultall=%resultall%%result%
  set /a num1_part=num1_part - result * num2
) else (if "%resultall%" neq "" if not defined zero_marker set resultall=%resultall%0)
goto :eof

Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 02:23 25-10-2018 | Исправлено: NIKZZZZ, 04:56 25-10-2018
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Сценарии для Windows


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru