6 changed files with 0 additions and 226 deletions
@ -1,8 +0,0 @@ |
|||||||
@ECHO OFF |
|
||||||
|
|
||||||
:: |
|
||||||
:: Закрытие mIRC на основной машине и запуск на используемой |
|
||||||
:: |
|
||||||
|
|
||||||
taskkill /S \\cb-07-04 /FI "imagename eq mirc.exe" && start "" "%SYSTEMDRIVE%\Program Files\mIRC\mirc.exe" |
|
||||||
|
|
||||||
@ -1,78 +0,0 @@ |
|||||||
' Создан: Пт 13 сен 2013 16:04:16 |
|
||||||
' Изменён: Пн 16 сен 2013 09:07:10 |
|
||||||
|
|
||||||
' Скрипт отображения меню столовой. |
|
||||||
' (c) 2013, Maxim Lihachev, <envrm@yandex.ru> |
|
||||||
' |
|
||||||
' Использование: cscript //nologo dinner.vbs [today] |
|
||||||
' |
|
||||||
' Меню содержится в doc-файле в таблице формата |
|
||||||
' |
|
||||||
' Понедельник Четверг |
|
||||||
' ----------- --------- |
|
||||||
' Первое Первое |
|
||||||
' Второе Второе |
|
||||||
' Третье1 Третье1 |
|
||||||
' Третье2 Третье2 |
|
||||||
' |
|
||||||
' Вторник Пятница |
|
||||||
' ----------- --------- |
|
||||||
' -/- -/- |
|
||||||
' |
|
||||||
' Среда |
|
||||||
' ----------- |
|
||||||
' -/- |
|
||||||
|
|
||||||
' День недели |
|
||||||
today = weekday(date) |
|
||||||
|
|
||||||
' Открытие файла с меню |
|
||||||
file = "\\file-srv\homedir$\" & CreateObject("Wscript.Network").UserName & "\doc\menu.doc" |
|
||||||
Set word = CreateObject("Word.Application") |
|
||||||
Set objectdocument = word.Documents.Open (file) |
|
||||||
word.Visible = False |
|
||||||
|
|
||||||
' Получение меню из таблицы |
|
||||||
menu = objectdocument.Tables(1) |
|
||||||
|
|
||||||
monday = Split(menu.Rows(1).Cells(1).Range.Text,chr(13)) |
|
||||||
tuesday = Split(menu.Rows(2).Cells(1).Range.Text,chr(13)) |
|
||||||
wednesday = Split(menu.Rows(3).Cells(1).Range.Text,chr(13)) |
|
||||||
thursday = Split(menu.Rows(1).Cells(3).Range.Text,chr(13)) |
|
||||||
friday = Split(menu.Rows(2).Cells(3).Range.Text,chr(13)) |
|
||||||
|
|
||||||
' Форматированный вывод |
|
||||||
Set objCmdLib = CreateObject("Microsoft.CmdLib") |
|
||||||
Set objCmdLib.ScriptingHost = WScript.Application |
|
||||||
|
|
||||||
' Ширина полей |
|
||||||
arrMaxLength = Array(25, 25, 25, 25, 25) |
|
||||||
|
|
||||||
' Меню на неделю |
|
||||||
If WScript.Arguments.Count < 1 or today > 5 Then |
|
||||||
arrBlnHide = Array(False, False, False, False, False) |
|
||||||
ElseIf WScript.Arguments.Item(0) = "today" Then |
|
||||||
' Меню на текущий день |
|
||||||
arrBlnHide = Array(True, True, True, True, True) |
|
||||||
arrBlnHide(today - 2) = False |
|
||||||
End If |
|
||||||
|
|
||||||
' Заголовок таблицы с днями недели и датами |
|
||||||
arrHeader = Array(monday(0), tuesday(0), wednesday(0), thursday(0), friday(0)) |
|
||||||
|
|
||||||
' Таблица меню |
|
||||||
Dim arrResultsArray(3) |
|
||||||
|
|
||||||
For n=1 To 4 |
|
||||||
arrResultsArray(n-1) = Array(monday(n), tuesday(n), wednesday(n), thursday(n), friday(n)) |
|
||||||
Next |
|
||||||
|
|
||||||
' Вывод таблицы данных |
|
||||||
WScript.Echo vbcr |
|
||||||
objCmdLib.ShowResults arrHeader, arrResultsArray, arrMaxLength, "Table", True, arrBlnHide |
|
||||||
WScript.Echo vbcr |
|
||||||
|
|
||||||
' Закрытие файла |
|
||||||
objectdocument.Saved = True |
|
||||||
word.Quit |
|
||||||
|
|
||||||
@ -1,24 +0,0 @@ |
|||||||
#!/bin/bash |
|
||||||
|
|
||||||
# Сохранение таблицы соответствия ip-адресов пользователям |
|
||||||
# в локальной Wiki. |
|
||||||
|
|
||||||
# Лог mIRC |
|
||||||
LOG=$(cygpath "$APPDATA\\mIRC\\logs\\status.log") |
|
||||||
# Файл Wiki для сохранения списка |
|
||||||
WIKI="/cygdrive/d/etc/wiki/IP.wiki" |
|
||||||
|
|
||||||
# +---------------+-----+---------+------------------+----+ |
|
||||||
# | ПОДРАЗДЕЛЕНИЕ | ФИО | ТЕЛЕФОН | ИМЯ ПОЛЬЗОВАТЕЛЯ | IP | |
|
||||||
# +---------------+-----+---------+------------------+----+ |
|
||||||
grep '^\[.*\] userhost: .*$' "$LOG" \ |
|
||||||
| iconv -c -f cp1251 \ |
|
||||||
| cut -d ':' -f 3- \ |
|
||||||
| sort -u \ |
|
||||||
| sed ' s/ \([EMT]\)_\(.*\)_\([0-9]\{4\}\)=+\(.*\)@\(.*\)$/| \1 | \2 | \3 | \4 | \5 |/; |
|
||||||
s/ \([EMT]\)_\(.*\)=+\(.*\)@\(.*\)$/| \1 | \2 | - | \3 | \4 |/ |
|
||||||
|
|
||||||
s/ \(.*\)_\([0-9]\{4\}\)\**=+\(.*\)@\(.*\)$/| CB | \1 | \2 | \3 | \4 |/; |
|
||||||
s/ \(.*\)=+\(.*\)@\(.*\)$/| CB | \1 | - | \2 | \3 |/' | \ |
|
||||||
tee "$WIKI" |
|
||||||
|
|
||||||
@ -1,82 +0,0 @@ |
|||||||
REBOL [ |
|
||||||
Title: "Ó÷¸ò êàðòðèäæåé KYOCERA" |
|
||||||
Author: Maxim Lihachev |
|
||||||
] |
|
||||||
|
|
||||||
date-current: func [] [ |
|
||||||
date-add0: func [n][ |
|
||||||
n: to-string n |
|
||||||
insert/dup n "0" (2 - length? n) |
|
||||||
n |
|
||||||
] |
|
||||||
rejoin [now/year "." date-add0 now/month "." date-add0 now/day] |
|
||||||
] |
|
||||||
|
|
||||||
make-csv: func [] [ |
|
||||||
fileOUT: to-file rejoin ["KYOCERA " date-current ".csv"] |
|
||||||
|
|
||||||
write/lines fileOUT ["Ó÷¸ò êàðòðèäæåé íà ñêëàäå;;"] |
|
||||||
write/lines/append fileOUT reduce [ |
|
||||||
";;" |
|
||||||
(rejoin [";Äàòà: " date-current ";"]) |
|
||||||
";;" |
|
||||||
"¹;Ìîäåëü;Êîë-âî" |
|
||||||
(rejoin ["1;TK-110;" c_tk110/text]) |
|
||||||
(rejoin ["2;TK-110,112;" c_tk112/text]) |
|
||||||
(rejoin ["3;TK-1100;" c_tk1100/text]) |
|
||||||
(rejoin ["4;TK-1140;" c_tk1140/text]) |
|
||||||
(rejoin ["5;TK-3100;" c_tk3100/text]) |
|
||||||
(rejoin ["6;TK-340;" c_tk340/text]) |
|
||||||
(rejoin ["7;TK-580C;" c_tk540C/text]) |
|
||||||
(rejoin ["8;TK-580M;" c_tk540M/text]) |
|
||||||
(rejoin ["9;TK-580Y;" c_tk540Y/text]) |
|
||||||
(rejoin ["10;TK-580K;" c_tk540K/text]) |
|
||||||
] |
|
||||||
return fileOUT |
|
||||||
] |
|
||||||
|
|
||||||
mail: make object! [ |
|
||||||
subject: "Ó÷¸ò êàðòðèäæåé KYOCERA" |
|
||||||
|
|
||||||
outlook: "^"c:\program files\microsoft office\office14\outlook.exe^"" |
|
||||||
|
|
||||||
message: func [mailto subject] [ |
|
||||||
rejoin [" /m ^"" (reduce [mailto "&subject=" subject]) "^""] |
|
||||||
] |
|
||||||
|
|
||||||
attach: func [filename] [ |
|
||||||
rejoin [" /a ^"" (to-local-file get-modes filename 'full-path) "^""] |
|
||||||
] |
|
||||||
|
|
||||||
send: func [mailto filename] [ |
|
||||||
call reform [mail/outlook (mail/attach filename) (mail/message mailto mail/subject)] |
|
||||||
] |
|
||||||
] |
|
||||||
|
|
||||||
view layout [ |
|
||||||
style mark h4 74x24 left |
|
||||||
style num h4 20x24 right |
|
||||||
style entry field 100x24 center |
|
||||||
|
|
||||||
title "Ó÷¸ò êàðòðèäæåé" |
|
||||||
|
|
||||||
h5 200 right date-current return |
|
||||||
|
|
||||||
across |
|
||||||
num "1" mark "TK-110" c_tk110: entry return |
|
||||||
num "2" mark "TK-110,112" c_tk112: entry return |
|
||||||
num "3" mark "TK-1100" c_tk1100: entry return |
|
||||||
num "4" mark "TK-1140" c_tk1140: entry return |
|
||||||
num "5" mark "TK-3100" c_tk3100: entry return |
|
||||||
num "6" mark "TK-340" c_tk340: entry return |
|
||||||
num "7" mark "TK-580C" c_tk540C: entry return |
|
||||||
num "8" mark "TK-580M" c_tk540M: entry return |
|
||||||
num "9" mark "TK-580Y" c_tk540Y: entry return |
|
||||||
num "10" mark "TK-580K" c_tk540K: entry return |
|
||||||
|
|
||||||
h4 "E-Mail: " mailto: field 159x24 italic 80.250.120 return |
|
||||||
|
|
||||||
button 175 "Îòïðàâèòü" [mail/send mailto/text make-csv] |
|
||||||
button 25 "+" [call/show reform ["explorer.exe" (to-local-file pwd)]] |
|
||||||
] |
|
||||||
|
|
||||||
@ -1,9 +0,0 @@ |
|||||||
@ECHO OFF |
|
||||||
|
|
||||||
:: |
|
||||||
:: Запуск только одной копии mIRC |
|
||||||
:: |
|
||||||
|
|
||||||
tasklist /S \\cb-07-04 /FI "imagename eq mirc.exe" | find /C "mirc.exe" || start "" "%SYSTEMDRIVE%\Program Files\mIRC\mirc.exe" |
|
||||||
|
|
||||||
exit |
|
||||||
@ -1,25 +0,0 @@ |
|||||||
#!/bin/bash |
|
||||||
|
|
||||||
#Поиск по пользователям |
|
||||||
|
|
||||||
USERINFO=$(\grep -i -E $(echo "$*" | tr ' ' '_') /d/etc/wiki/IP.wiki) |
|
||||||
|
|
||||||
USERBASE=$(echo $USERINFO | cut -d '|' -f 2) |
|
||||||
USERFULLNAME=$(echo $USERINFO | cut -d '|' -f 3) |
|
||||||
USERPHONE=$(echo $USERINFO | cut -d '|' -f 4) |
|
||||||
USERNAME=$(echo $USERINFO | cut -d '|' -f 5) |
|
||||||
USERIP=$(echo $USERINFO | cut -d '|' -f 6 | sed 's/ //g') |
|
||||||
|
|
||||||
if [[ "$USERBASE" != *CB* ]]; then |
|
||||||
USERPC=$USERIP |
|
||||||
else |
|
||||||
USERPC=$(cmd /c "$WINDIR\\system32\\ping.exe" -a $USERIP -n 1 -l 0 \ |
|
||||||
| \grep -i -E -o "\\s.+\\s\\[$USERIP\\]") |
|
||||||
fi |
|
||||||
|
|
||||||
echo "$yellow * Подразделение: $rstc" $USERBASE |
|
||||||
echo "$yellow * Имя, фамилия: $rstc" $USERFULLNAME |
|
||||||
echo "$yellow * Рабочий телефон: $rstc" $USERPHONE |
|
||||||
echo "$yellow * Имя пользователя:$rstc" $USERNAME |
|
||||||
echo "$yellow * Адрес компьютера:$rstc" $USERPC |
|
||||||
|
|
||||||
Loading…
Reference in new issue