[QUADamage]

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

Необходимые условия:
- Установленный драйвер сетевой карточки (у меня ставится через драйверпаки)
- Назначение 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/Soft...v155-notls.zip

[TombAlex]

Еще одна доделка 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 "Выполнено"

[aats]

Чтобы удалить ярлык 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_.

[di2blo]

Привет всем,подскажите пожалуста как добавит файл в дистрибутив чтоб после установки windows он был в system 32?извените если не по теме.

[amel27]

di2blo
путь на диске: $oem$\$$\System32\

подробно: http://oszone.net/2243

[MKN]

amel27,
Выложи пожалуйста куда нибудь утилиту DriverCompressor - с msfn.org никак не скачать...

[amel27]

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

[AlexALSP]

Скажите я так и не понял что делает эта утилита TimeCopy и куда она применяется, для коокй цели.

[amel27]

AlexALSP

что делает эта утилита TimeCopy

копирует метку времени (время изменения файла) между двумя файлами

куда она применяется, для коокй цели

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

[AlexALSP]

amel27,

Понял. Спасибо за ответ.