» Автоматизация администрирования

mozers
так есть же фишка в реестре, которая выводит версию винды и вроде как имя компа на рабочий стол, или я ошибаюсь..???

IronWarrior
Show User and Computer Name on Desktop

Alan Mon
Это переименование "Моего компьютера".

Alan Mon
FreemanRU
так как скриптом запустить чтоб отображалось у всех пользователей сети...?

Добавлено:
компы все в домене...

IronWarrior
если я не ошибаюсь, то в одной из доменных остнасток (mmc) есть возможность назначить скрипт н одноразовое выпеолнение для какой либо группы пользователей/компьютеров
в какой из оснасток точно не помню, по-моему в той, которая относится к пользователям, но точно в этом направлении

Добавлено:
IronWarrior
с наступающим, земляк

IronWarrior
А ты знаешь какую ветвь реестра править? я н-р нет. И никогда не слышал о подобном. Знаю что только номер версии можно выводить.

А если тебя устроить надпись вместо "Мой компьютер", то положи всем компам в стартап скрипт regedit /s ChangeMyComp.reg
Содержание ChangeMyComp.reg:

Код:
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}]
@=""
"LocalizedString"=hex(2):25,00,55,00,53,00,45,00,52,00,4e,00,41,00,4d,00,45,00,\
25,00,20,00,6f,00,6e,00,20,00,25,00,43,00,4f,00,4d,00,50,00,55,00,54,00,45,\
00,52,00,4e,00,41,00,4d,00,45,00,25,00,00,00

slaj1
и тебя с наступающим, и всех кто тут зависает!!
всем спасибо, ща буду пробовать
и еще раз всех с наступающим

Похожий вопрос по выводу имени компьютера и пользователя. Но...
В бета версиях винды выводится информация на рабочем столе справа внизу (над часами поверх обоев рабочего стола) - как туда можно запихнуть выше сказанное?

Насколько мне известно в ВиНде НЕТ возможности разместить на Раб.столе дополнительную информацию, по крайней мере стандартными средствами, ЭТО ФАКТ.

Но finderknowledge упоминал в этом топике о програмке bginfo (сайт sysinternals), которой я с успехом пользуюсь, чтобы разместить на Раб. столах у пользователей: Имя компа, Имя юзера, IP адрес.

Принцип работы заключается в подмене картинки на рабочем столе.
Первоначально нужно настроить конфигурационный файл, причем лучше указать не системную директорию, куда будет сохраняться этот файл (bginfo.bmp), а в профиль.
Программа до безобразия проста, поэтому проблем возникнуть не должно...

Neoromantic
Там выводится только номер версии. Правится в реестре, опция типа вкл/выкл.
единственный вопрос - откуда он её берет. Если из реестра - то можно поправить в реестре строку версии.

Цитата:

Чтобы вывести/запретить показ версии Windows 2000/XP на Рабочем столе, надо отредактировать в разделе HKEY_CURRENT_USER\Control Panel\Desktop параметр PaintDesktopVersion типа DWORD. Если он равен 1, то версия показывается, 0 - нет.
Для Win9x этот параметр должен быть строкового типа.

Добавлено:
pazdak
На VC++ можно написать прогу из 2х строк, которая выводит любую строку на рабочий стол или вообще поверх всех окон. Если интересует - могу кинуть как и что писать.

FreemanRU, Smitis

Спасибо за наводку буду копать.

С новым годом !

FreemanRU
Вообще-то я только VB знаю (краем пришлось изучить немного). Можешь кинуть в каком разделе MSDN копать?

Neoromantic
Можно и на VB. Не столь принципиально. Идея в том, что стандартными средсвами выводится напдись на контекст экрана (dc) равным 0. При этом надпись появляется на рабочем столе.
Такие программы есть и готовые. Подробности - уже после НГ Всех с наступающим

FreemanRU
ну и где подробности ?. уже вроде как новый год прошол !!!

IronWarrior
Ну вот н-р как сделать скриншот на VB
http://visualbasic.ittoolbox.com/documents/popular-q-and-a/how-to-get-a-screenshot-of-the-desktop-1587

По аналогии можно нарисовать на рабочем столе поверх всех окон.
Для рисования линий используется LineTo, для вывода текста - DrawText или TextOut (вторая ИМХо удобнее). Описание искать тут
т.е. в итоге должно получится что-то типа вот этого:

Код:
Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Public Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal
hdc As Long) As Long

Public Declare Function TextOut Lib "user32" (ByVal hWnd As Long, ByVal
nXStart As Integer, ByVal nYStart AS Integer, ByVal lpString As String, ByVal cbString As Integer) As Boolean

Dim hSrcDC As Long
Dim XCoor,YCoor, Count as Integer
Dim str As String

str = "Some text"
Count = Length(str)
XCoor = 100
YCoor = 10

Let hSrcDC = GetDC(0)
Call TextOut(hSrcDC,XCoor,YCoor,Str,Count)
Call ReleaseDC(0, hSrcDC)

FreemanRU
Работает. Класс Только:
Код: Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

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

IronWarrior

Цитата:

походу нужно постоянно перезапускать

Да. Вышеупомянутая BGInfo делает хитрее - пишет не на десктоп, а в фоновый рисунок рабочего стола (Wallpaper.bmp).

Цитата:

этот скрипт..

Вызов API-шных функций из скрипта достаточно проблематичен. (Надо внешнюю библиотеку вешать). Это - VB код. Если кому надо - могу откомпилить.

На "вопрос на засыпку" не отвечу. Наверное, с помощью WMI... (думать надо)...
Зря ты его так задал (сплошняком). Народ подумает, что вопрос только ко мне. Надо так:

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

FreemanRU
Neoromantic
IronWarrior
mozers
Я так понял, вы тут обсуждаете, как выводить какую-либо информацию на рабочий стол? А стандартные средства винды не пробовали? Я имею ввиду Active Desktop.

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

Smitis
А подробнее? ДАи Active Desctop может быть отключен.
mozers
Вешай в бесконечный цикл. и будет тебе счатчтье

Цитата:

а в фоновый рисунок рабочего стола (Wallpaper.bmp).

А если его нет?

Добавлено:
IronWarrior
Попробуй найди inf файл от этих протоколов и запускай его на установку. Убей меня не помню как запустиь inf из командной строки.

FreemanRU

Цитата:

Убей меня не помню как запустиь inf из командной строки.

Код: rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 protocol.inf

Для тех, кто не боится Active Desktop (только в качестве примера):
Код: <HTML><HEAD>
<style>
BODY, TABLE {
color:white;
background-color:black;
font-family:Arial;
font-size:12pt;
font-weight:bold;
overflow:hidden;
margin:0;
padding:10;
}
</style>
</HEAD><BODY>
<script language="Javascript">
WSHNetwork = new ActiveXObject('WScript.Network');
var table = '<table width=100%><tr><td>UserDomain:<td>' + WSHNetwork.UserDomain + '<tr><td>UserName:<td>' + WSHNetwork.UserName + '<tr><td>ComputerName:<td>' + WSHNetwork.ComputerName + '</table>';
document.write(table);
</script>
</BODY></HTML>

mozers

Цитата:

Что касается Active Desktop, то лично я его всегда у всех отключаю (слишком глючная эта фича). Но решение, в принципе, реальное. Это же - обычная HTML страница на которой скриптом можно хоть черта изобразить

Полностью согласен, я тоже отключаю. Самое смешное, не смог включить обратно (в контекстном меню десктопа его нет)
Просто на предыдущих страницах топика кто-то писал, что нет стандартного решения.
П.С. Где-то видел статью, кажется в журнале Ксакеп (Хакер), там чел мутил тему на десктоп через а.д. на флэше.

в общем ситуация такая, нужно раз в месяц отправлять один и тот же файлик по почте. и появилась идея о скрипте, который сможет это все делать. однако сам я не могу его сделать. может кто поможет?

faZZ

Код:
function sendmail() {
    var objEmail = WScript.CreateObject("CDO.Message");
    objEmail.From = "адрес отправителя";
    objEmail.To = "адрес получателя";
    objEmail.Subject = "тема";
    objEmail.Textbody = "текст";
    objEmail.AddAttachment("путь к прикрепляемому файлу");
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "IP SMTP сервера"
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
    objEmail.Configuration.Fields.Update();
    objEmail.Send();
}

FreemanRU
ок, спасибки за наводку, а то даже не хзнал где копать..!

finderknowledge
и куда его? в смысле сохранить в .js или как?

faZZ
да это JScript

finderknowledge
он запрашивает подтвержение или сразу шлет??, а то я сколько не пробовал, постоянно выскакивает сообщение что с компа отсылается почта и запрашивает подтверждение..