[Iska]

Загвоздка как вытащить имя компа начинающийся на K »

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

…

for /f "skip=4 tokens=1" %%i in (comps.txt) do (
	set sName=%%i
	if /i "!sName:~0,1!" equ "K" echo [!sName!]
)

…

endlocal
exit /b 0

[Arsenik77]

Структура файла comps.txt , нужны только имена компьютеров начинающиеся на K (без // и заметок)
Iska, твой код почему-то не работает.

Код:

Имя сервера            Заметки

-------------------------------------------------------------------------------
\\BK       
\\K5                   АБК;7 этаж;Сбыт                                               
\\K100                 Компьютер Васи                               
\\K105                 Домашний                             
\\K108                 Рабочий комп      
\\PROXY                                                                        
\\PT

[Iska]

Iska, твой код почему-то не работает. »

Если б Вы сразу выложили образец, или, если бы у меня в тот момент был доступ к сети, и я мог бы сам получить образец , я бы сделал так:

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

…

for /f "skip=4 tokens=1" %%i in (comps.txt) do (
	set sUNCName=%%i
	set sServerName=!sUNCName:~2!
	if /i "!sServerName:~0,1!" equ "K" echo [!sServerName!]
)

…

endlocal
exit /b 0

[PIL123]

Тоже стоит сейчас задача собрать данные о конфигурации компов в сети. Решил это делать стартап-скриптом. По идее, скрипт должен запускаться, проверять есть ли в хранилище отчётов отчёт о текущем компьютере. Если отчёт есть - ничего не делать, если же отчёта нет - запустить AIDA64 с определёнными параметрами, создать отчёт и положить его в хранилище отчётов. Отчёт представляет из себя файл (формат определяется отдельно в параметрах запуска AIDA64). Называется этот файл аналогично имени компьютера на котором был выполнен отчёт.

В Интернете нашёл 2 варианта скрипта для реализации этой идеи:
1. CMD

Код:

if not exist \\share\audit\%COMPUTERNAME%.txt ( \\share\audit\aida\aida64.exe /R \\share\audit\%COMPUTERNAME% /TEXT /CUSTOM \\share\audit\aida\aida64.rpf ) else exit

2. VBScript

dim ComputerName
Set objNetwork = CreateObject("Wscript.Network")
ComputerName = objNetwork.ComputerName
Set WshShell = WScript.CreateObject("WScript.Shell")

dim ObjFso
Set objFSO = CreateObject("Scripting.FileSystemObject")
If not objFSO.FileExists("\\Company.Local\Services\AIDA64 Reports\"+ComputerName+".txt") Then
WshShell.Run "\\Company.Local\Files\Distributives\AIDA64\aida64.exe /R \\Company.Local\Services\AIDA64 Reports\$HOSTNAME /SUM /TEXT /SILENT"
end if


Попробовал запустить у себя на VBScript, но он в такой конфигурации отказывается работать. Методом тыка установил, что проблема в строке выделенной красным - видимо ошибка чисто синтаксическая какая-то, потому что, если изменить в ней путь (выделен жирным шрифтом) на какой-нибудь короткий локальный, типа C:\$HOSTNAME, то скрипт замечательно работает.

Прошу помощи специалистов!

[Iska]

Проблема в наличии пробела во втором пути. Попробуйте так:

Код:

WshShell.Run """\\Company.Local\Files\Distributives\AIDA64\aida64.exe"" /R ""\\Company.Local\Services\AIDA64 Reports\$HOSTNAME"" /SUM /TEXT /SILENT"

[PIL123]

Помогло! Спасибо!

[PIL123]

Проблема с внедрением этого (VBS) скрипта через GPO\Scripts\Startup: http://forum.oszone.net/showthread.php?t=237739
Почему-то скрипт на VBS не удалось мне заставить работать через GPO, как Startup, а, при прочих равных, решение CMD заработало. Парадокс!

[Timurgall]

Поделитесь опытом создания rpf для Аиды. Интересует короткая информация о системе и железе.

[CyberMuesli]

Нужно запустить в тихом (скрытом) режиме AIDA64, чтоб собрать данные о установленном железе. Для этого нужно скопировать АИДУ на локальные компы пользователей домена. »

Прочитайте про psexec