Запуск cmd получив список с txt, как?

Question

[Dima Kim]

Добрый день, мне надо получить список установленных программ,

@echo off
call :get_soft_list hklm\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
call :get_soft_list hklm\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall
call :get_soft_list hkcu\Software\Microsoft\Windows\CurrentVersion\Uninstall
goto the_end

:get_soft_list %1
for /F "tokens=1,2,*" %%a in ('reg query "%1" /s') do ^
if "%%a" == "DisplayName" echo %%c
exit /b

:the_end

надо запустить "script.cmd >> result.txt" на компьютерах которые есть в файле pc.txt
помогите разобраться пожалуйста

Answer 1

[hdhog]

вот вариант. возможно не очень красивый но работать должен )
нужна будет утилита PsExec. Пример на powershell

Import-CSV ".\computers.csv" -header("ComputerName") | ForEach {
		$ComputerName = $_.ComputerName #чуть-чуть упростим, мне так удобнее :)
		New-Item  $ComputerName\c$\temp -Type Directory 
		Copy-Item "script.cmd" $ComputerName\c$\temp\

		.\psexec.exe \\$ComputerName "C:\\temp\\script.cmd" 
}

будет работать если компы в домене и есть админские права.

думаю модифицировать не сложно )

если на компах работает winrm можно без psexec это выполнить.

так же в случае домена можно указать LogoScript который сделает все что нужно и запишет файл на сетевую шару

Comments

[Dima Kim]

Не получается:
PS C:\TEMP> C:\TEMP\БезИмени1.ps1

Каталог: C:\TEMP\pc1\c$
Mode LastWriteTime Length Name
---- ------------- ------ ----
d---- 22.07.2016 9:05 temp
Имя ".\psexec.exe" не распознано как имя командлета, функции, файла скрипта или выполняемой программы. Проверьте правильность написания имени, а также наличие и правильность пути, после чего повторите попытку.
C:\TEMP\БезИмени1.ps1:6 знак:17
+ .\psexec.exe <<<< \\$ComputerName "C:\\TEMP\\script.cmd"
+ CategoryInfo : ObjectNotFound: (.\psexec.exe:String) [], CommandNotFoundException
+ FullyQualifiedErrorId : CommandNotFoundException

в темпе создается каталоги и файлг:
C:\TEMP\pc1\c$\temp\script.cmd

[hdhog]

так надо положить рядом с скриптом psexec она есть в комплекте pstools от руссиновича или sysinternals

[Dima Kim]

hdhog: что не так делаю?
PS C:\TEMP> C:\TEMP\БезИмени1.ps1

Каталог: C:\TEMP\зс1\c$

Mode LastWriteTime Length Name
---- ------------- ------ ----
d---- 22.07.2016 9:54 temp
psexec.exe :
C:\TEMP\БезИмени1.ps1:6 знак:17
+ .\psexec.exe <<<< \\$ComputerName "C:\\TEMP\\script.cmd"
+ CategoryInfo : NotSpecified: (:String) [], RemoteException
+ FullyQualifiedErrorId : NativeCommandError

PsExec v1.80 - Execute processes remotely
Copyright (C) 2001-2007 Mark Russinovich
Sysinternals - www.sysinternals.com

╬Єърчрэю т фюёЄєях.

╬Єърчрэю т фюёЄєях.

Connecting to local system... Couldn't install PsExec service:
Connecting to local system... Couldn't install PsExec service:

[Dima Kim]

hdhog: по разному пытался запустить, везде пишет:
PSExec.exe :
строка:4 знак:19
+ C:\TEMP\PSExec.exe <<<< -u domain\user \\$pc C:\TEMP\1.cmd
+ CategoryInfo : NotSpecified: (:String) [], RemoteException
+ FullyQualifiedErrorId : NativeCommandError

PsExec v1.80 - Execute processes remotely
Copyright (C) 2001-2007 Mark Russinovich
Sysinternals - www.sysinternals.com

[hdhog]

если вызвать в консоли psexec \\pcname cmd.exe
отрабатывает нормально? возможно нет доступа к машине либо на машине нет шары admin$

так же может быть из-за брендмауера

[hdhog]

еще. попробуй выполнить

Get-WmiObject -computername  -class win32_product | ft name,vendor,version,caption

это тоже как вариант. если это не отработает то у тебя есть проблемы с доступом к компам и сначала надо решить их.
либо добавить пользователям logonscript или через групповую политику исполнять скрипт по выгрузке списка ПО.
либо пользоваться специализированным ПО по инвентаризации.

[Dima Kim]

hdhog: через PS получается, единственно не получилось это спискок компьютеров дать

[hdhog]

покажи пример что у тебя в списке пк? у меня похожим скриптом ставятся zabbix агенты на сервера.
в файле computers.csv имена пк на отдельной строке

[hdhog]

так. вернемся немного в начало. сейчас проверил у себя
script.bat
echo %DATE%

Скрипт на PowerShell

Import-CSV ".\computers.csv" -header("ComputerName") | ForEach {
    $ComputerName = $_.ComputerName 
    New-Item  \\$ComputerName\c$\temp -Type Directory 
    Copy-Item "script.cmd" \\$ComputerName\c$\temp\

    .\psexec.exe \\$ComputerName "C:\temp\script.cmd" 
}

computers.csv

sam-01
sam-02
sam-03
sam-04
sam-05
sam-06

вывод был такой

PS E:\work\rn\Zabbix\ManageAgents> .\test.ps1

PsExec v2.0 - Execute processes remotely
Copyright (C) 2001-2013 Mark Russinovich
Sysinternals - www.sysinternals.com



C:\WINDOWS\system32>echo 22.07.2016
22.07.2016
C:\temp\script.cmd exited on sam-01 with error code 0.

[Dima Kim]

hdhog: давайте лучше в powershell

$computername = Import-Csv “c:\users\user1\desktop\1.csv”

$array = @()

foreach($1 in $computers){

    #Define the variable to hold the location of Currently Installed Programs

    $UninstallKey=”SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall” 

    #Create an instance of the Registry Object and open the HKLM base key

    $reg=[microsoft.win32.registrykey]::OpenRemoteBaseKey(‘LocalMachine’,$computername) 

    #Drill down into the Uninstall key using the OpenSubKey Method

    $regkey=$reg.OpenSubKey($UninstallKey) 

    #Retrieve an array of string that contain all the subkey names

    $subkeys=$regkey.GetSubKeyNames() 

    #Open each Subkey and use GetValue Method to return the required values for each

    foreach($key in $subkeys){

        $thisKey=$UninstallKey+”\\”+$key 

        $thisSubKey=$reg.OpenSubKey($thisKey) 

        $obj = New-Object PSObject

        $obj | Add-Member -MemberType NoteProperty -Name “ComputerName” -Value $computername

        $obj | Add-Member -MemberType NoteProperty -Name “DisplayName” -Value $($thisSubKey.GetValue(“DisplayName”))

        $obj | Add-Member -MemberType NoteProperty -Name “DisplayVersion” -Value $($thisSubKey.GetValue(“DisplayVersion”))

        $obj | Add-Member -MemberType NoteProperty -Name “InstallLocation” -Value $($thisSubKey.GetValue(“InstallLocation”))

        $obj | Add-Member -MemberType NoteProperty -Name “Publisher” -Value $($thisSubKey.GetValue(“Publisher”))

        $array += $obj

    } 

}

$array | Where-Object { $_.DisplayName } | select ComputerName, DisplayName, DisplayVersion, Publisher | ft -auto >> c:\users\user1\desktop\$computername.txt

если указать в файле c:\users\user1\desktop\pc.csv несколько pc то скрипт все равно вытаскивает мои установленные программы.

если поменять:
$computers = 'localhost' или на любое другое имя компьютера, то вытаскивает результаты нормально, но в сети имеется 1000 компьютеров, и их под одному вставлять трата 2х дней,

как добиться чтобы скрипт брал из списка?

[hdhog]

Dima Kim: например вот так

$Software=@{}


Import-CSV ".\computers.csv" -header("ComputerName") | ForEach {
	$array = @()
	$computername = $_.ComputerName #чуть-чуть упростим, мне так удобнее :)

    #Define the variable to hold the location of Currently Installed Programs
	
    $UninstallKey="SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall"

    #Create an instance of the Registry Object and open the HKLM base key

    $reg=[microsoft.win32.registrykey]::OpenRemoteBaseKey('LocalMachine',$computername) 

    #Drill down into the Uninstall key using the OpenSubKey Method

    $regkey=$reg.OpenSubKey($UninstallKey) 

    #Retrieve an array of string that contain all the subkey names

    $subkeys=$regkey.GetSubKeyNames() 

    #Open each Subkey and use GetValue Method to return the required values for each

    foreach($key in $subkeys){

        $thisKey=$UninstallKey+"\\"+$key 

        $thisSubKey=$reg.OpenSubKey($thisKey) 

        $obj = New-Object PSObject

        $obj | Add-Member -MemberType NoteProperty -Name "ComputerName" -Value $computername

        $obj | Add-Member -MemberType NoteProperty -Name "DisplayName" -Value $($thisSubKey.GetValue("DisplayName"))

        $obj | Add-Member -MemberType NoteProperty -Name "DisplayVersion" -Value $($thisSubKey.GetValue("DisplayVersion"))

        $obj | Add-Member -MemberType NoteProperty -Name "InstallLocation" -Value $($thisSubKey.GetValue("InstallLocation"))

        $obj | Add-Member -MemberType NoteProperty -Name "Publisher" -Value $($thisSubKey.GetValue("Publisher"))

        $array += $obj

    } 
	$Software.Add($computername,$array)
}

foreach ($pc in $Software.Keys ) {
	write-host "Save" $pc
	$Software[$pc] | Where-Object { $_.DisplayName } | select ComputerName, DisplayName, DisplayVersion, Publisher | ft -auto >> c:\temp\$pc.txt
}

[Dima Kim]

hdhog: сохраняет только у первого компьютера из списка

[hdhog]

у меня это скрипт выполняется для всех ПК из списка и сохраняет в отдельные файлы.
может к остальным просто нет доступа?

[Dima Kim]

hdhog: имею локал админ на всех компах

[hdhog]

тогда лог выполнения скрипта в студию )

[Dima Kim]

получилось, спасибо огромное

Answer 2

[Константин Цветков]

мне надо получить список установленных программ

Используйте бесплатный Spiceworks Inventory.