Как системные администраторы поздравляют с 8 марта

Как "красиво" поздравить ваших сотрудниц с праздником весны. Начальник поставил задачу и на ум пришло следующее решение: Поставить на рабочий стол тематическую картинку и поздравления всем пользователям женского пола. Как это сделать далее.

Реализовывать это будем посредством утилитки от Microsoft Bginfo.exe. Она позволяет выбирать изображение на рабочий стол и лепить текст поверх картинки.

Можно ограничится просто одним поздравлением. Но мы же бродатые сисадмины, пусть поздравления рандомно выбираются из списка, для этого:

В bginfo создаем новый файл настройки вида:

Где <random> будет наше выбранное поздравление.
Для создания поля <random> жмем custom... И выбираем vbs файл формирования поздравлений.

Пример файла:


Randomize()
randomNumber=Int(5 * Rnd())
'MsgBox randomNumber


'randomNumber = 0


Select Case randomNumber
Case 0
text = "Желаем вам всего, чем жизнь богата:"& vbCrLf _
    &"Здоровья, счастья, долгих лет,"& vbCrLf _
    &"Пусть этот праздник — день 8 Марта -"& vbCrLf _
    &"В душе оставит добрый след!"& vbCrLf


Case 1
text = "Желаю счастья и любви."& vbCrLf _
    &"Они дороже всех подарков."& vbCrLf _
    &"И пусть все сбудутся мечты "& vbCrLf _
    &"В прекрасный день — 8 МАРТА!"& vbCrLf


Case 2
text = "Желаем, чтоб радости было много,"& vbCrLf _
    &"Чтоб радость верной спутницей была, "& vbCrLf _
    &"И чтоб всегда на жизненной дороге "& vbCrLf _
    &"Тебе хватало ласки и тепла."& vbCrLf


Case 3
text = "Пусть сердце в такт стучит капели, "& vbCrLf _
    &"Пусть канут в прошлое метели, "& vbCrLf _
    &"И пусть в весенних хороводах "& vbCrLf _
    &"Забудет сердце о невзгодах."& vbCrLf


Case 4
text = "Спасибо вам за вашу доброту!"& vbCrLf _
    &"За ваше белорусское терпенье,"& vbCrLf _
    &"За лишний нерабочий день в году,"& vbCrLf _
    &"За день обычный, ставший воскресеньем!"& vbCrLf

End Select

echo text

'MsgBox text

Были небольшие проблемы отображения строк, поэтому формирование четверостишия такое сложное. Решать проблему не было времени - оставил как есть.

Нажав на Background можно выбрать красивую праздничную картинку и настроить ее положение.

Посмотрим на результат выполнив: C:\Windows\temp\Bginfo.exe C:\Windows\temp\pozdr.bgi /timer:0 /NOLICPROMPT

Все нужные файлики я отлаживаю в директории C:\Windows\temp\ для дальнейшего распространения в MS AD.

Можно скопировать батник в автозагрузку на нужном компе и все, но у нас в сети порядка 700 компов и сделать это будет трудоемко. Мы пойдем дальше: Будем распространять с помощью групповой политики.

У нас на предприятии домен MS Active Directory 2003. Все пользователи имеют логины, которые идентичны табельным номерам сотрудников. Не составляет труда подключится к базе сотрудников и вытащить ФИО и Департамент, для отображения в поздравлении.

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

name1                 name2

user99                 4534
user65                 4534


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

Немаловажный фактор кого поздравлять. Естественно если ваш начальник мужского пола и ему на рабочий стол упадут цветочки, будет не очень хорошо. Есть возможность выбрать пол пользователя из вашей базы данных сотрудников и поместить их в отдельную таблицу.

При выполнении скрипта проверяем наличие пользователя в таблице сотрудниц:

Вот пример такого скрипта. Строку соединения, наименование полей и пути к файловым серверам должны быть ваши.

8marta.vbs

Dim FSO

Dim WshShell

Set FSO = CreateObject("scripting.filesystemobject") 'Объявляем объектную переменную

Set WshShell = WScript.CreateObject("WScript.Shell") 'Объявляем объектную переменную

'declare the variables 

Dim Connection

Dim ConnString

Dim Recordset

Dim SQL

'define the connection string, specify database driver

ConnString= "Driver=SQL Server;SERVER=SERVER;Database=kadr;Trusted_Connection=Yes"  

'declare the SQL statement that will query the database

Set objNet = CreateObject("WScript.NetWork") 

'SQL = "SELECT fio, nkCex  FROM marta where tn="+objNet.UserName

'create an instance of the ADO connection and recordset objects

Set Connection = CreateObject("ADODB.Connection")

Set Recordset = CreateObject("ADODB.Recordset")

'Open the connection to the database

Connection.Open ConnString

'Open the recordset object executing the SQL statement and return records 

Recordset.Open SQL,Connection

'first of all determine whether there are any records 

If Recordset.EOF Then 

Else 

'if there are records then loop through the fields 

Do While NOT Recordset.Eof   

'Recordset("fio")

If FSO.FolderExists ("C:\Windows\TEMP")=False Then 'Проверяем папку. Если нет то создаем и копируем в нее файл на исполнение.

FSO.CreateFolder("C:\Windows\TEMP")

FSO.CopyFile "\\FS1\Releases\BgInfo\Bginfo.exe", "C:\Windows\TEMP\Bginfo.exe" 'здесь нужно поправить путь

Call RunBgi

Else

If FSO.FileExists("C:\Windows\TEMP\Bginfo.exe")=true Then 'Проверка файла. Вдруг кто TEMP почистил

Call RunBgi

Else

FSO.CopyFile "\\FS1\Releases\BgInfo\Bginfo.exe", "C:\Windows\temp\Bginfo.exe"

Call RunBgi

End If

End If

Recordset.MoveNext     

Loop

End If

Sub RunBgi ()

FSO.CopyFile "\\FS1\Releases\BgInfo\pozdr.bgi", "C:\Windows\temp\pozdr.bgi" 'копируем предварительно созданный файл конфигурации.

FSO.CopyFile "\\FS1\Releases\BgInfo\getname.vbs", "C:\Windows\temp\getname.vbs" 'копируем предварительно созданный файл scr.

FSO.CopyFile "\\FS1\Releases\BgInfo\getndep.vbs", "C:\Windows\temp\getndep.vbs" 'копируем предварительно созданный файл scr.

FSO.CopyFile "\\FS1\Releases\BgInfo\random.vbs", "C:\Windows\temp\random.vbs" 'копируем предварительно созданный файл scr.

FSO.CopyFile "\\FS1\Releases\BgInfo\bg8m.jpg", "C:\Windows\temp\bg.jpg" 'копируем предварительно созданный файл bg.

WshShell.Run "C:\Windows\temp\Bginfo.exe C:\Windows\temp\pozdr.bgi /timer:0 /NOLICPROMPT"

End Sub

'close the connection and recordset objects to free up resources

Recordset.Close

Set Recordset=nothing

Connection.Close

Set Connection=nothing

Для вывода ФИО сотрудника, делаем custom поле (по примеру Random) и получаем ФИО из вашей базы.

'declare the variables 

Dim Connection

Dim ConnString

Dim Recordset

Dim SQL

'define the connection string, specify database driver

ConnString= "Driver=SQL Server;SERVER=SERVER;Database=kadr;Trusted_Connection=Yes"  

'declare the SQL statement that will query the database

Set objNet = CreateObject("WScript.NetWork") 

SQL = "SELECT  fio FROM marta where tn="+objNet.UserName

'create an instance of the ADO connection and recordset objects

Set Connection = CreateObject("ADODB.Connection")

Set Recordset = CreateObject("ADODB.Recordset")

'Open the connection to the database

Connection.Open ConnString

'Open the recordset object executing the SQL statement and return records 

Recordset.Open SQL,Connection

'first of all determine whether there are any records 

If Recordset.EOF Then 

Else 

'if there are records then loop through the fields 

Do While NOT Recordset.Eof   

Echo Recordset("fio")

Recordset.MoveNext     

Loop

End If

'close the connection and recordset objects to free up resources

Recordset.Close

Set Recordset=nothing

Connection.Close

Set Connection=nothing

Все делалось с MS SQL, но я думаю, не составит труда обратится к другим источникам данных.

Если у вас MS AD создаем групповую политику и при Входе пользователя выполняем данный скрипт 8marta.vbs.

Все. Извините что несколько хаотично. Тороплюсь, праздник не за горами.