Задать вопрос

Andrew AT

Ответы пользователя по тегу Windows

  • Как изменить атрибуты файла через powershell?

    @AAT666
    Use Powershell to Edit MP3 Tags
    Using PowerShell to edit MP3 tags
    Ответ написан
    Комментировать
    Комментировать

  • Инструмент\ПО для централизованной установки ПО на армы под Windows 10?

    @AAT666
    А чо так всем не нравится связка WDS + MDT ?! У нас, конечно, SCCM (MECM, но как-то не але аббревиатура) - но, бывает, падает... Развернул на 2016 эту связку... Работает! Почти как System Center! )))
    Ответ написан
    Комментировать
    Комментировать

  • Как найти и вывести повторяющиеся строки в текстовом файле?

    @AAT666 
    $f0 = Get-Content -Path C:\tmp\file_0.txt
$f1 = Get-Content -Path C:\tmp\file_1.txt

[system.linq.enumerable]::Intersect([object[]]$f0, [object[]]$f1) | Out-File -FilePath C:\tmp\file_2.txt
    Ответ написан
    Комментировать
    Комментировать

  • Можно ли настроить деплоймент Windows на SCCM таким образом, чтобы не нужно было вручную включать загрузку по сети в биос\уефи на клиентах?

    @AAT666
    Так, а в чем проблема-то ?..
    Делайте Task Sequence с заливкой ОС. Я так переустанавливаю Win7 на Win LTSC.
    Намерение делаете "Обязательно", развертываете на коллекцию и кидаете машинку туда.
    Ответ написан
    Комментировать
    Комментировать

  • Как найти все принтеры в сети?

    @AAT666
    На ПоШе когда-то баловался... Но работает по SNMP, если на принтерах спецом закрыли 161 порт, то не прокатит...

    $SNMP      = new-object -ComObject olePrn.OleSNMP
$NET       = '10.2.2.'
$IP_all    = @()
1..254 | %{ $IP_all += ($NET+$_) }

$udpobject = new-Object system.Net.Sockets.Udpclient
$udpobject.client.ReceiveTimeout = 1000
$a  = new-object system.text.asciiencoding 
$kk = @(48,36,2,1,1,4,6,112,117,98,108,105,99,161,23,2,2,117,6,2,1,0,2,1,0,48,11,48,9,6,5,43,6,1,2,1,5,0) # magic packet

foreach($IP in $IP_all)
{
  if(!(Test-Connection -CN $IP -Count 1 -BufferSize 16 -Quiet)) { continue }
  
  $conn = $udpobject.Connect($IP,161)
  $ans  = [void]$udpobject.Send($kk,$kk.length)
  $remoteendpoint = New-Object system.net.ipendpoint([system.net.ipaddress]::Any,0)
  $receivebytes   = $udpobject.Receive([ref]$remoteendpoint) 

  [string]$returndata = $a.GetString($receivebytes)
  
  $snmp.open($IP,'public',1,500)

  $IP
  $snmp.Get(".1.3.6.1.2.1.25.3.2.1.3.1")         # ОИД Device Description - стандарт.
  $snmp.Get(".1.3.6.1.2.1.1.5.0")                # ОИД System Name        - стандарт.
  $snmp.Get(".1.3.6.1.2.1.43.5.1.1.17.1").Trim() # ОИД серийника          - не стандарт!
  "-------------------------------------------------------------------------------------"
}

$SNMP.Close()
    Ответ написан
    Комментировать
    Комментировать

  • У кого завалялось готовое решение для снятия параметров с компов в сети?

    @AAT666
    На ПоШе. Нужен Excel. 

    #########################################################################################
##
## Скрипт для сбора данных по 1 ПК. Оформляем как функцию (или направляем в конвейер), если надо для списка ПК.
##
#########################################################################################

$StrComputer = $env:COMPUTERNAME # --- меняем на требуемый ПК, сейчас берет локальный.

$Excel = New-Object -Com Excel.Application
$Excel.visible = $True
$Excel = $Excel.Workbooks.Add()
$Sheet1 = $Excel.Worksheets.Item(1)
$Sheet1.Name = "Inventory"
$Sheet1.Cells.Item(1,1) = "Имя"
$Sheet1.Cells.Item(1,2) = "Модель ПК"
$Sheet1.Cells.Item(1,4) = "Тип"
$Sheet1.Cells.Item(1,5) = "ЦПУ"
$Sheet1.Cells.Item(1,8) = "ОЗУ,GB"
$Sheet1.Cells.Item(1,6) = "Оп.система"
$Sheet1.Cells.Item(1,7) = "SP ОС"
$Sheet1.Cells.Item(1,3) = "Серийный №"
$Sheet1.Cells.Item(1,9) = "Диск(реал.),GB"
$Sheet1.Cells.Item(1,10) = "Диск(произ.),GB"

$colSheets = ($Sheet1) 
foreach ($colorItem in $colSheets){
$WorkBook = $colorItem.UsedRange
$WorkBook.Interior.ColorIndex = 20
$WorkBook.Font.ColorIndex = 11
$WorkBook.Font.Bold = $True
}
#====================================================================================================
$intRow      = 2
if ((Test-connection $StrComputer -count 2 -quiet) -eq "True")
   { 
     $GenItems1  = gwmi Win32_ComputerSystem -Comp $StrComputer
	 $GenItems2  = gwmi Win32_OperatingSystem -Comp $StrComputer
     $CPUItems   = gwmi Win32_Processor -Comp $StrComputer
	 $SysItems1  = gwmi Win32_BIOS -Comp $StrComputer
	 $ProcItems1 = gwmi Win32_Processor -Comp $StrComputer
	 $DiskItems  = gwmi Win32_LogicalDisk -Comp $StrComputer
     $PhisDisk   = gwmi Win32_DiskDrive -Comp $StrComputer
     foreach ($objItem in $GenItems1)
            { $Sheet1.Cells.Item($intRow, 1) = $StrComputer
		      $Sheet1.Cells.Item($intRow, 2) = $objItem.Model
		      $Sheet1.Cells.Item($intRow, 4) = ($objItem.SystemType -replace "-based PC","")
		      $Sheet1.Cells.Item($intRow, 8) = [math]::Round(($objItem.TotalPhysicalMemory / 1024 / 1024 / 1024),2)
		    }
            $Sheet1.Cells.Item($intRow, 5) = $CPUItems.Name
            foreach ($objItem in $GenItems2)
            { $aa = ($objItem.Caption -replace "Microsoft Windows","MS Win")
              $aa = ($aa -replace "Профессиональная","Проф.")
              $aa = ($aa -replace "Professional","Проф.") 
              $aa = ($aa -replace "Корпоративная","Корп.")
              $aa = ($aa -replace "Майкрософт Windows","MS Win")
              $aa = ($aa -replace "(Registered Trademark)","")
              $Sheet1.Cells.Item($intRow, 6) = $aa
		      $Sheet1.Cells.Item($intRow, 7) = ($objItem.csdversion -replace "Service Pack","SP")
		    }
            foreach ($objItem in $SysItems1)
            { 
              if( $objItem.SerialNumber -eq "System Serial Number") {$Sheet1.Cells.Item($intRow, 3) = "Самосборка"} else {$Sheet1.Cells.Item($intRow, 3) = $objItem.SerialNumber}
              if( $objItem.SerialNumber -match "Parallels*" -or $objItem.SerialNumber -match "VMware*") {$Sheet1.Cells.Item($intRow, 3) = "VM"}
	        }
            foreach ($objItem in $PhisDisk)
            {
              if( $objItem.Model -notmatch 'usb' ) 
                { 
                  $Sheet1.Cells.Item($intRow, 9) = [math]::Round(($objItem.Size/1024/1024/1024),2)
                  $Sheet1.Cells.Item($intRow, 10) = [math]::Round(($objItem.Size/1000/1000/1000),0)
                }
            }
            $intRow += 1
          }
          else {" IP = "+$StrComputer + "--- не доступен."}

#====================================================================================================
foreach ($colorItem in $colSheets)
{
$WorkBook = $colorItem.UsedRange															
$WorkBook.EntireColumn.AutoFit()
}


    Удачи!
    Ответ написан
    1 комментарий
    1 комментарий