Показать полную графическую версию : Маленькие хитрости автоустановки
Страниц :
1
2
3
4
5
6
7
[
8]
9
10
11
QUADamage
17-07-2007, 01:26
Еще одно удобство сделал - отправка смски на телефон, когда завершена установка винды. Помогает, когда с клиентом пошел чай пить о жизни болтать, а про винду забыли :) Ну и на работе, когда замучили пользователи и про винду просто напросто забываешь :)
Необходимые условия:
- Установленный драйвер сетевой карточки (у меня ставится через драйверпаки)
- Назначение IP адреса через DHCP
- Поддержка вашим оператором возможности отправки СМС через почту (у мегафона через маил.ру работает замечательно)
- Интернет собственно ;)
Как это работает:
1. Текст ipconfig /all записывается в файл %WinDir%\info
2. Через консольную программку sendEmail отправляется %WinDir%\info на ваш ящик, который по-идее должен отправить вам смску
Я для удобства сделал фильтр, который все письма с темой SMS кладет в отдельную папку, чтобы не заводить спец. ящик под отправку.
Сам код, подставьте свои параметры только:
cmd /c ipconfig /all >%WinDir%\info
sendemail -s ВАШ_SMTP -f С_КАКОГО_ЯЩИКА_СЛАТЬ -xu ЛОГИН_НА_SMTP -xp ПАРОЛЬ_К_SMTP -t АДРЕС_НА_КОТОРЫЙ_СЛАТЬ_ПИСЬМО -u SMS -o message-file=%WinDir%\info -o message-charset=WINDOWS-1251
Параметры для маил.ру:
sendemail -s smtp.mail.ru -f мыльце@mail.ru -xu мыльце@mail.ru -xp хе-хе -t мыльце@mail.ru -u SMS -o message-file=%WinDir%\info -o message-charset=WINDOWS-1251
программку тащите отсюда:
http://caspian.dotconf.net/menu/Software/SendEmail/sendEmail-v155-notls.zip
TombAlex
14-08-2007, 05:38
Еще одна доделка VB-скрипта для генерации аргумента OemPnPDriversPath в файле winnt.sif генерирует набор путей к каталогам включает только пути содержащие inf файлы
Set objArgs = WScript.Arguments
'Проверка наличия аргумента командной строки
If objArgs.length = 0 Then
MsgBox "Не задан каталог" & Chr(13) &_
"в коммандной строке", 16, "Выполнение прервано"
WScript.Quit
End If
'Проверка существования каталога данного в аргументе командной строки
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(objArgs(0)) Then
MsgBox "Каталог не существует", 16, "Выполнение прервано"
WScript.Quit
End If
'Включение/отключение проверки на соответствие имен каталогов формату 8.3
nameformat = MsgBox ("Отключить проверку на соответствие" & Chr(13) &_
"имен каталогов формату 8.3?", 4, "Проверка имен каталогов")
'Возможность добавления каталогов к корневой структуре структуре имен
sparent = InputBox ("Если хотите добавить корневой каталог к структуре" & Chr(13) &_
"пример: к drivers\ChipSet\Intel добавить каталог distrib " & Chr(13) &_
"чтобы получить distrib\drivers\ChipSet\Intel" & Chr(13) &_
"наберите distrib\" & Chr(13) & "Если не хотите добавлять нажмите Отмена", "Добавление каталога к корневой структуре")
'Проверка существования лога
Set fsoLogO = CreateObject("Scripting.FileSystemObject")
if (fsoLogO.FileExists("folders.txt")) Then
Set fsoLog = fsoLogO.GetFile("folders.txt")
fsoLog.Delete
fsoLogO.CreateTextFile "folders.txt"
else
fsoLogO.CreateTextFile "folders.txt"
end if
'Создание маски по которой будет обрезано имя каталога назначения
Dim pfso, pf, psf, regEx
Set pfso = CreateObject("Scripting.FileSystemObject")
Set pf = pfso.GetFolder(objArgs(0))
Set psf = pf.Parentfolder
'Определение свойства: является ли этот каталог корневым
Set fsoroot = CreateObject("Scripting.FileSystemObject")
Set folroot = fsoroot.GetFolder(psf.path)
If folroot.IsRootFolder Then
froot = 1
Else
froot = 0
End If
Set regEx = New RegExp
regEx.Pattern = "\\"
regEx.IgnoreCase = True
regEx.Global = True
rpatrn = regEx.Replace(psf.path, "\\")
regEx.Pattern = "\$"
rpatrn = regEx.Replace(rpatrn, "\S")
'Вызов функции
cn=0
call readcatname (objArgs(0), rpatrn, froot)
Function readcatname (folderspec, rpatrn, froot)
Dim fso, f, f1, s, sf, regEx
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
'Проверка соответствия имени каталога формату 8.3
If UCase(f1.Name) <> UCase(f1.ShortName) AND nameformat = 7 Then
MsgBox "Имя каталога не соответствует формату 8.3" & Chr(13) & f1.Path & Chr(13) & f1.Name,_
16, "Выполнение прервано"
WScript.Quit
End If
'Проверка каталога на наличие в нем inf-файлов, если файлов нет каталог будет
'исключен из набора
extcount = 0
Dim fsofol, fl, fo, extcount
Set fsofol = CreateObject("Scripting.FileSystemObject")
Set fsoext = CreateObject("Scripting.FileSystemObject")
Set fl = fsofol.GetFolder(f1.path)
Set fo = fl.Files
For Each fo1 In fo
If UCase(fsoext.GetExtensionName(fo1)) = UCase("inf") Then
extcount = 1
End If
Next
If extcount = 0 Then
else
'Открытие файла на запись
Set fsoLogO = CreateObject("Scripting.FileSystemObject")
Set fsoLog = fsoLogO.GetFile("folders.txt")
Set ts = fsoLog.OpenAsTextStream(8,0)
'Обрезка имени каталога
Set regEx = New RegExp
If froot = 1 Then
regEx.Pattern = rpatrn
Else
regEx.Pattern = rpatrn & "\\"
End If
regEx.IgnoreCase = True
sname = regEx.Replace(f1 , "")
if cn = 0 Then
cn = 1
else
ts.Write ";"
End If
ts.Write sparent + sname
ts.Close
End if
'Рекурсивный вызов функции
call readcatname (f1.path, rpatrn, froot)
Next
End function
Msgbox "Выполнено"
Чтобы удалить ярлык Internet Explorer из меню "Пуск", с рабочего стола и из панели быстрого запуска, надо:
1. Распаковать файл IEACCESS.IN_.
2. В секции [IEAccess] заменить строку "Run=ShowIE" на "Run=HideIE".
3. Запаковать IEACCESS.INF с помощью команды makecab в IEACCESS.IN_.
Чтобы удалить ярлык Outlook Express из меню "Пуск", надо:
1. Распаковать файл OEACCESS.IN_.
2. В секции [OEAccess] заменить строку "Run=ShowOE" на "Run=HideOE".
3. Запаковать OEACCESS.INF с помощью команды makecab В OEACCESS.IN_.
Привет всем,подскажите пожалуста как добавит файл в дистрибутив чтоб после установки windows он был в system 32?извените если не по теме.
di2blo
путь на диске: $oem$\$$\System32\
подробно: http://oszone.net/2243
amel27,
Выложи пожалуйста куда нибудь утилиту DriverCompressor - с msfn.org никак не скачать...
MKN
нормально качается, прямой линк поправил... после обновления версий линки меняются, поэтому качай прямо с форума, выкладывать тут не вижу необходимости... кстати, возможно требуется регистрация на форуме хотя не уверен
AlexALSP
08-11-2007, 16:39
Скажите я так и не понял что делает эта утилита TimeCopy и куда она применяется, для коокй цели.
AlexALSPчто делает эта утилита TimeCopyкопирует метку времени (время изменения файла) между двумя файлами
куда она применяется, для коокй целинекоторые утилиты от Microsoft сбрасывают при обработке время модификации файла в текущее, что затрудняет их последующее сравнение (для контроля версий), поэтому после обработки желательно восстанавливать исходное время модификации.
AlexALSP
09-11-2007, 04:50
amel27,
Понял. Спасибо за ответ.
Привет всем.Подскажите,пожалуйста,как после установки системы,автоматически и красиво перезагрузить систему?
Ну типа там,с каким нибудь выскакивающим окошком,т.е. с графическим интерфейсом.На Wiki в статье по перезагрузке,что то вроде того есть :
"Скрипт AutoIt
На основе сообщения _MPAK_ на форуме автоустановки. ",
Но ни самого МРАКа ни его сообщений не нашёл на форуме.
Может,кто нибудь выложить готовый к использованию файл(а не код),с указанием как использовать?
Заранее благодарю.
RenZo-2007
21-12-2007, 16:39
reset.cmd
cmdow @ /HID
shutdown.exe -r -f -t 30 -c "Я перезагружусь через 30 сек)"
EXIT
В блокноте напиши кодик этот и сохрани как .cmd файл.
RenZo-2007,
Ты не понял,надо,что бы было красиво,а этой командой я и так сейчас пользуюсь,но некоторых такое окошко пугает(типо-ошибка).Кстати,комментарий у меня,почему то отображается,как крякозябры,т.ч. убрал его.
некоторых такое окошко пугает(типо-ошибка) »Ну, тогда напиши-c "Это НЕ ошибка! Всё путём! Я тут немного перезагружусь..." и т.д.А ещё лучше перед вызовом shutdown запусти программку для открытия лотка компакт-диска (где-то на форуме пробегала), а вместо "Я перегружусь" напиши "Выньте копакт-диск и вложите на его место сложенную пополам чистую не мятую купюру достоинством ..." :)комментарий у меня,почему то отображается,как крякозябры »:lol: РТФМ, ключевое слово "кодировки"! :read:
Не считая Юникода, кириллица (русская) может быть или "Windows" (или ANSI, или 1251) или "DOS" (или OEM, или 866)
А ещё лучше перед вызовом shutdown запусти программку для открытия лотка компакт-диска (где-то на форуме пробегала), а вместо "Я перегружусь" напиши "Выньте копакт-диск и вложите на его место сложенную пополам чистую не мятую купюру достоинством ..." »
Это всё ваши приколы,но если серьёзно,то наверняка существуют такие програмки или скрипты,что бы красиво перезагружаться.
Цитата idimm:
комментарий у меня,почему то отображается,как крякозябры »
РТФМ, ключевое слово "кодировки"!
Не считая Юникода, кириллица (русская) может быть или "Windows" (или ANSI, или 1251) или "DOS" (или OEM, или 866) »
А здесь что смешного?Я пробовал в разной кодировке сохранять,всё равно-крякозябры.
Может,кто нибудь выложить готовый к использованию файл(а не код),с указанием как использовать? »
Так установите AutoIt и скомпилируйте скрипт в exe.
Я пробовал в разной кодировке сохранять,всё равно-крякозябры. »
Сохраняйте в "DOS" (или OEM, или 866) »
RenZo-2007
21-12-2007, 19:35
А по мойму красивее некуда. Всякие навороты могу пугать, а это вроде как стнадартное окно - ошибка=) У каждого свои подходы и методы. А Vadikan, кстати, идеи свежие подкидывает))
Так установите AutoIt и скомпилируйте скрипт в exe. »
Хоть в этом ничего не понимаю,но надо пробовать.
Сохраняйте в
Цитата VitRom:
"DOS" (или OEM, или 866) »
Извините,я ещё многого не понимаю,но у меня там файл можно сохранить только в:
1-ANSI
2-Юникод
3-Юникод Big Endian
4-UTF-8.
Где взять "DOS" (или OEM, или 866)???
Где взять "DOS" (или OEM, или 866)??? »
Воспользоваться сторонним редактором текста, например: AkelPad (http://akelpad.net.ru/), а самый простой и доступный вариант, это FAR (http://farmanager.com/index.php?l=ru), открываем тестовый файл и сохраняем с нужной кодировкой.
Может, найдете, что-то новое в этой (http://forum.oszone.net/showthread.php?t=63060) теме.
Так установите AutoIt и скомпилируйте скрипт в exe. »
Благодаря Vadikanу,начал химичить с AutoIt,о которой и понятия не имел и вот,что получилось:
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.
Available in ZeroNet 1osznRoVratMCN3bFoFpR2pSV5c9z6sTC