а вот это классно, хочу такое в базе.

что за тулзе?

Всем привет, просьба сразу не ругаться. Суть в чем, есть Ексель файл, в котором есть макрос, выполняющий различные манипуляции с данными, в том числе и с графиками, раскрашивает и т.п. в общем с не давних пор запретили использовать VBA. Можно ли как то код VBA использовать в PowerShel без переписывания? Т.е. как запускать и производить манипуляции с листом при помощи PS я знаю, интересует именно VBA, чтобы не переписывать

Беглый гуглинг показывает что надо преобразовывать в повершелл ручками

Всем опять добрый день! =)

@( @'
\\Serv1\Profile\
\\Serv2\Profile\
'@ -split "`n") |
   ForEach-Object { $_.Trim() } |
   ForEach-Object { Get-ChildItem -Path $_ -Recurse:$false -Directory } |
   Select-Object -Property 'FullName', 'Name' |
   ForEach-Object {
       $files  = Get-ChildItem -Path $_.FullName -Recurse:$true -Filter '*.pst'
       $ADUser = @(Get-ADUser -Filter "(samaccountname -eq '$($_.Name)')" -properties Department)[0]
       $retVal = @()
       foreach ($file in $files) {
           $retVal += [PSCustomObject]@{
               FullName = $file.FullName
               SizeGB = [Math]::Round( $file.Length / 1GB, 2)
               PotentialOwner = $_.Name
               ADUser = $ADUser
               Department = $ADUser.Department
           }
       }
       return $retVal
   } | Exprort-Csv -Path C:\Users\test\123.csv -NoTypeInformation -Delmiter ";" -Encoding UTF8
   # Выдаёт ошибку $files  = Get-ChildItem -Path $_.FullName -Recurse:$true -Filter '*.pst'

интересно, почему запретили vba? думаешь потому что расширение не нравилось? ;)

Не надо пытаться наобмануть безопасников. Тем более ради сохранения кода на vba

Безопасники так решили... Чем они это обосновали перед начальством, не знаю)

это риторический вопрос был...

Да не ради, а во благо автоматизации

Он просто оооочень много времени экономил

Т.е. сначало ввели макрос и сократили людей под него), а потом его запретили, но вот людей то не вернули)

женщину вынули, робота засунули!

а на кого нагрузку скинули?

Ну если я спрашиваю)))

а какую ошибку то выдаёт?

ну догадайся же :)

Read Error по этой всей строчке $files  = Get-ChildItem -Path $_.FullName -Recurse:$true -Filter '*.pst'