Модераторы: bartram, Akella

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Полезные скрипты 
:(
    Опции темы
Akella
Дата 2.4.2009, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 73
Всего: 329



PM MAIL   Вверх
mihanik
Дата 18.5.2009, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109



Конструктор, с шедулером это ты круто...

А чем тебе Schtasks  не понравилась?

http://www.windowsfaq.ru/content/view/83/37/


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akella
Дата 17.11.2009, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 73
Всего: 329



Работа с сетевыми принтерами
http://forum.vingrad.ru/index.php?showtopi...t&p=2023290
PM MAIL   Вверх
mihanik
Дата 24.11.2009, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109



Закачивание файлов через HTTP посредством VBS

http://forum.vingrad.ru/index.php?showtopi...t&p=2029240

 smile 



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 11.12.2009, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109





--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 16.12.2009, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109



Код

'********************************************************************
'*
'*  Функция   : EventsList
'*  Описание  : Возвращает список событий указанного типа за указанный день.
'*  Вход      : 
'*            strDay - дата, за которую собираются события.
'*                     Дата указывается в формате "15-12-2009"
'*
'*          strLogfile - тип журнала
'*                    System - "система"
'*                    Application - "приложение"
'*
'*
'*            intEventsType - тип возвращаемых событий
'*
'*                    1 - Error 
'*                    2 - Warning 
'*                    3 - Information 
'*                    4 - Security audit success 
'*                    5 - Security audit failure
'* 
'*  Выход     : текстовая строка
'*
'********************************************************************
Function EventsList (byval strDay, byval strLogfile, byval intEventsType)

Const CONVERT_TO_LOCAL_TIME = True

Dim dtmStartDate, dtmEndDate, DateToCheck, WMIDateToString, strS

strS= ""

    Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime")
    Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime")
        DateToCheck = CDate(strDay)
        dtmStartDate.SetVarDate DateToCheck, CONVERT_TO_LOCAL_TIME
        dtmEndDate.SetVarDate DateToCheck + 1, CONVERT_TO_LOCAL_TIME
        
        Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
        Set colEvents = objWMIService.ExecQuery _
            ("Select * from Win32_NTLogEvent Where Logfile = '" & strLogfile & "' " _
            & "and EventType = " & intEventsType _
            & " and TimeWritten >= '" & dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "'") 
        
            For Each objEvent in colEvents
                strS = strS & "Category: " & objEvent.Category & vbcrlf
                strS = strS & "Computer Name: " & objEvent.ComputerName & vbcrlf
                strS = strS & "Event Code: " & objEvent.EventCode & vbcrlf
                strS = strS & "Message: " & objEvent.Message & vbcrlf
                strS = strS & "Record Number: " & objEvent.RecordNumber & vbcrlf
                strS = strS & "Source Name: " & objEvent.SourceName & vbCrLf
                WMIDateToString =    Mid(objEvent.TimeWritten, 7, 2) & "-" & _
                                 Mid(objEvent.TimeWritten, 5, 2) & "-" & _
                                 Left(objEvent.TimeWritten, 4)
                strS = strS & "Time Written: " & WMIDateToString& vbcrlf
                strS = strS & "Event Type: " & objEvent.Type & vbcrlf
                strS = strS & "User: " & objEvent.User & vbcrlf
                strS = strS & objEvent.LogFile & vbCrLf & vbcrlf
            Next
    
    Set dtmStartDate = Nothing
    Set dtmEndDate = Nothing

EventsList = strS

End Function



Пример использования

Код

WScript.Echo EventsList ("14-12-2009", "System", 2 )



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 16.12.2009, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109



Стартовый скрипт. в помощь системному администратору/

Алгоритм работы (упрощённо) следующий:
1. Проверяем, а запускался ли скрипт сегодня...
2. Проверяем наличие папки C:\Log, в том случае, если папка отсутствует, создаём её.
3. Получаем список всех установленных на компьютере программ
4. Проверяем, установлен ли на компьютере антивирус от Microsoft
5. При необходимости устанавливаем обновления для Microsoft Security Essentials
6. Получаем список нужных событий за предыдущий день и отправляем их системному администратору по почте
(у меня в офисе свой почтовый сервачок...)

http://forum.vingrad.ru/forum/act-ST/f-28/...4/unread-1.html



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 27.2.2011, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109



Код

'При подключении к станции с использованием Remote Assistance (удаленного помощника), 

'пользователь должен дать согласие на

'    * подключение для просмотра

'    * управление компьютером

'Данный скрипт отключает запросы на подключение.



Option Explicit



Const WindowsFolder = 0    ' Папка Windows содержит файлы, установленные операционной системой Windows.

Const SystemFolder = 1        ' Папка System содержит библиотеки, шрифты и драйвера устройств.

Const TemporaryFolder = 2    ' Папка Temp используется для хранения временных файлов. 



Dim objFSO

Dim strWinDir

Dim objMyFile

Dim strS

Dim strFileName

Dim strFind

Dim strReplaceWith



' Проверяем наличие папки C:\Log, в том случае, если папка отсутствует, создаём её.

    If Not FolderExist ("C:\LOG") Then

        FolderCreate ("C:\LOG")

        AppendToFile "C:\LOG\RemoteAssistance.LOG", "Начало работы: " & CStr (Now)

        AppendToFile "C:\LOG\RemoteAssistance.LOG", "Была создана папка ""C:\LOG"""

    Else

        AppendToFile "C:\LOG\RemoteAssistance.LOG", "Начало работы: " & CStr (Now)

    End If



' Узнаем, где находиться папка Windows

    Set objFSO = CreateObject("Scripting.FileSystemObject")

        strWinDir = objFSO.GetSpecialFolder(WindowsFolder)

    Set objFSO = Nothing

    

'Проверим наличие обоих файлов

    If Not MyFileExist(strWinDir & "\pchealth\HelpCtr\System\Remote Assistance\helpeeaccept.htm") Then 

        AppendToFile "C:\LOG\RemoteAssistance.LOG", "Не найден файл " & strWinDir & "\pchealth\HelpCtr\System\Remote Assistance\helpeeaccept.htm"

        AppendToFile "C:\LOG\RemoteAssistance.LOG", "Завершаем работу скрипта"

        WScript.Quit

    End If

    

    AppendToFile "C:\LOG\RemoteAssistance.LOG", "Файл найден: " & strWinDir & "\pchealth\HelpCtr\System\Remote Assistance\helpeeaccept.htm"

    

    If Not MyFileExist(strWinDir & "\pchealth\helpctr\System\Remote Assistance\Interaction\Server\TakeControlMsgs.htm") Then

        AppendToFile "C:\LOG\RemoteAssistance.LOG", "Не найден файл " & strWinDir & "\pchealth\helpctr\System\Remote Assistance\Interaction\Server\TakeControlMsgs.htm"

        AppendToFile "C:\LOG\RemoteAssistance.LOG", "Завершаем работу скрипта"

        WScript.Quit

    End If



    AppendToFile "C:\LOG\RemoteAssistance.LOG", "Файл найден: " & strWinDir & "\pchealth\helpctr\System\Remote Assistance\Interaction\Server\TakeControlMsgs.htm"



' Считываем содержимое первого файла в память

    AppendToFile "C:\LOG\RemoteAssistance.LOG", "Считываем содержимое первого файла в память."

    strFileName = strWinDir & "\pchealth\HelpCtr\System\Remote Assistance\helpeeaccept.htm"

    strS = TextFromFile (strFileName)



'  Изменяем текст файла

    strFind = "btnAccept.disabled = false;" & vbCrLf & "btnDecline.disabled = false;" & vbCrLf & "btnDecline.focus();"

    strReplaceWith = strFind & vbCrLf & "DoAccept();"

    If InStr (strS, strReplaceWith)=0 Then 

                                            strS = Replace (strS, strFind, strReplaceWith)

                                            AppendToFile "C:\LOG\RemoteAssistance.LOG", "Изменяем текст файла."

                                            TextToFile strFileName, strS

                                      Else

                                            AppendToFile "C:\LOG\RemoteAssistance.LOG", "Файл уже изменён. Менять нечего!"          

    End If



' Считываем содержимое второго файла в память

    AppendToFile "C:\LOG\RemoteAssistance.LOG", "Считываем содержимое второго файла в память."

    strFileName = strWinDir & "\pchealth\helpctr\System\Remote Assistance\Interaction\Server\TakeControlMsgs.htm"

    strS = TextFromFile (strFileName)



'  Изменяем текст файла

    strFind = "idExpert1.innerText = vArgs[0];" & vbCrLf & "idExpert2.innerText = vArgs[0];" & vbCrLf & "idExpert3.innerText = vArgs[0];"

    strReplaceWith = strFind & vbCrLf & "onClickHandler(0);"

    If InStr (strS, strReplaceWith)=0 Then 

                                            strS = Replace (strS, strFind, strReplaceWith)

                                            AppendToFile "C:\LOG\RemoteAssistance.LOG", "Изменяем текст файла."

                                            TextToFile strFileName, strS

                                      Else

                                            AppendToFile "C:\LOG\RemoteAssistance.LOG", "Файл уже изменён. Менять нечего!"          

    End If

    

    AppendToFile "C:\LOG\RemoteAssistance.LOG", "Завершение работы: " & CStr (Now) & vbCrLf



WScript.Quit





'********************************************************************

'*

'*  Процедура   : AppendToFile

'*  Описание    : Дописывает в файл текстовую информацию

'*  Вход        : strFileName - имя файла, в который нужно дописать информацию

'*                strString   - дописываемая информация

'*

'********************************************************************

Sub AppendToFile(ByVal strFileName, ByVal strString)



Const ForAppending = 8

Dim fso, f



    Err.Clear

    On Error Resume Next



    Set fso = CreateObject("Scripting.FileSystemObject")

        Set f = fso.OpenTextFile(strFileName, ForAppending, True)

            f.WriteLine strString

            f.Close

        Set f = Nothing

    Set fso = Nothing

    

End Sub



'********************************************************************

'*

'*  Функция   : MyFileExist

'*  Описание  : Функция проверки существования файла

'*  Вход      : Имя файла

'*  Выход     : true, если файл существует, и false, если файл отсутствует.

'*

'********************************************************************

Function MyFileExist (ByVal FileName)

dim fso



    Err.Clear

    On Error Resume Next

    

    Set fso = WScript.CreateObject("Scripting.FileSystemObject")



        MyFileExist = (fso.FileExists(FileName)) 

    

    Set fso = Nothing

    

end Function



'********************************************************************

'*

'*  Функция   : FolderExist

'*  Описание  : Функция проверки существования папки

'*  Вход      : Имя папки

'*  Выход     : true, если папка существует, и false, если папка отсутствует.

'*

'********************************************************************

Function FolderExist (ByVal FolderName)

dim fso



    Err.Clear

    On Error Resume Next

    

    Set FSO = CreateObject("Scripting.FileSystemObject")

    

        FolderExist = (FSO.FolderExists(FolderName)) 



    Set fso = Nothing

    

end Function



'********************************************************************

'*

'*  Функция   : FolderCreate

'*  Описание  : Функция создания папки по нужному пути

'*  Вход      : Полный путь к создаваемой папке.

'*  Выход     : нет

'*

'********************************************************************

Function FolderCreate (ByVal FolderName)

dim objFSO, objFolder



    Err.Clear

    On Error Resume Next

    

    Set objFSO = CreateObject("Scripting.FileSystemObject")

        Set objFolder = objFSO.CreateFolder(FolderName)

        Set objFolder = Nothing

    Set objFSO = Nothing

    

    FolderCreate = Err.Number

    Err.Clear

    

end Function



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'#

'# Процедура TextFromFile

'# Описание: Возвращает текст из текстового файла

'# Вход    : полное имя к текстовому файлу

'# Выход   : ВЕСЬ текст из файла

'#

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function TextFromFile (byval strFileName)



Const ForReading = 1



Dim objFSO, objTextFile



    Set objFSO = CreateObject("Scripting.FileSystemObject")

        Set objTextFile = objFSO.OpenTextFile (strFileName, ForReading)        

            TextFromFile = objTextFile.ReadAll        

        Set objTextFile = Nothing

    Set objFSO = Nothing



End Function



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'#

'# Процедура TextToFile

'# Описание: Записывает текст в текстовый файла

'# Вход    : полное имя к текстовому файлу

'#         : текст для записи в файл

'# Выход   : нет

'#

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function TextToFile (byval strFileName, byval strText)



Const ForWriting = 2



Dim objFSO, objTextFile



    Set objFSO = CreateObject("Scripting.FileSystemObject")

        Set objTextFile = objFSO.OpenTextFile (strFileName, ForWriting)

            objTextFile.WriteLine strText

        Set objTextFile = Nothing

    Set objFSO = Nothing



End Function


Это сообщение отредактировал(а) mihanik - 27.2.2011, 23:05


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 17.11.2011, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109



Скрипт для массового переименования (смены расширений) файлов


Баловался тут...

Скрипт копируем в папку с файлами и запускаем... smile

Код

'********************************************************************
'* Скрипт для массового переименования (смены расширений) файлов
'*
'*
'* (с) Михаил Медведев. 2011 год.
'********************************************************************
Option Explicit            ' Требуем обязательного объявления всех переменных

Dim objWMIService        ' Объект WMI
Dim colFiles            ' Коллекция файлов в папке
Dim  objFile            ' Обрабатываемый файл
Dim strFolderName            ' Имя папки, в которой находится скрипт
Dim strOldName            ' Имя файла до переименования
Dim strNewName            ' Имя файла после переименования
Dim objFSO            ' Для объектов файловой системы
Dim strOldExt            ' Старое расширение
Dim strNewExt            ' Новое расширение

' Определяем старое и новое расширение
strOldExt = ".shs"
strNewExt = ".doc"

' Получим модифицированный путь к папке
strFolderName = ScriptPath
strFolderName  = mid (strFolderName, 3, len(strFolderName)-2)
strFolderName = Replace(strFolderName , "\", "\\") 


' Создадим нужные объекты
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path = '" & strFolderName  & "'")
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Для каждого файла в папке производим переименование
On Error Resume Next
For Each objFile in colFiles
    strOldName = objFile.Name 
        If instr ( strOldName,strOldExt) <> 0 then
             strNewName = Replace(strOldName  , strOldExt , strNewExt )
            objFSO.MoveFile strOldName  , strNewName 
        End If
Next

Set objFSO = nothing
Set colFiles = nothing
Set objWMIService = nothing

WScript.Quit

'********************************************************************
'*
'*  Функция   : ScriptPath
'*  Описание  : Возвращает имя папки, в которой находится скрипт
'*  Вход      : нет
'*  Выход     : имя папки, в которой находится скрипт
'*
'********************************************************************
Function ScriptPath
Dim S 
    Err.Clear
    On Error Resume Next
        
    ScriptPath = ""

    S = WScript.ScriptFullName
    ScriptPath = mid(S,1,instrrev(S,"\"))
    
End Function
    


Это сообщение отредактировал(а) Akella - 17.11.2011, 17:05


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 13.4.2012, 09:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109



Скрипт решает следующую задачу

Дано.
Есть папка. В ней папки. Есть папка для хранения архивов.

Надо.
Нужно создать отдельный архив для каждой папки, вложенной в первую папку.
ЗА исключением одной папки. Все архивы должны иметь признак даты архивации.

Замечание. 

1. Ипользуется для архивации 7zip.
2. Запускается сразу много экземпляров 7zip, т.к. он почему-то может использовать для архивации только одно ядро процессора. А у меня этих ядер 12. Мне процессор не жалко. smile

Если кто-то захочет запускать архиваторы по очереди, то нужно изменить

Код

WSHShell.Run Command , 1, false


на 

Код

WSHShell.Run Command , 1, true


Код

Option Explicit

Dim RootFolder
Dim BackUpFolder
Dim ZipPrg
Dim objFSO
Dim objFolder
Dim colSubfolders
Dim objSubfolder
Dim WSHShell
Dim Command
Dim ExcludeFolder 


RootFolder ="E:\корневая папка"
BackUpFolder = "E:\BackUps\Папка для архивных копий"
ZipPrg = "C:\Program Files\7-Zip\7z.exe" ' используемый бесплатный архиватор.
ExcludeFolder =  "короткое имя исключаемой из копирования папки"

Set WSHShell = WScript.CreateObject("WScript.Shell") 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objFolder = objFSO.GetFolder(RootFolder)
            Set colSubfolders = objFolder.Subfolders
                For Each objSubfolder in colSubfolders 
                    If CStr(objSubfolder.Name) <> ExcludeFolder Then
                        Command =    """" & ZipPrg & """ a """ & BackUpFolder & "\" & CStr(objSubfolder.Name) & "-" & CStr (Date) & ".zip"" " & """" & RootFolder & "\" & CStr(objSubfolder.Name) & "\*"""
                        WSHShell.Run Command , 1, false
                    End If
                Next
            Set colSubfolders = Nothing
        Set objFolder = Nothing
    Set objFSO = Nothing
Set WSHShell = Nothing    



Это сообщение отредактировал(а) mihanik - 13.4.2012, 09:37


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akella
Дата 27.6.2012, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 73
Всего: 329



Привет, а Великий All!

Иногда бывает, что временно требуется украинский язык в системе (windows 7).
Т.е. его нужно добавить, написать 1-2 предложения, а потом удалить.
Здесь я нашёл скрипт добавления украинского языка
http://anyblog.org.ua/component/content/ar...-s-sistemu.html (на первый взгляд немного странный).
да и не проверял работоспособность.

Но скрипт удаления украинского языка я не могу найти.
Посмотрите тот скрипт добавления, может его стоит "причесать".
PM MAIL   Вверх
Алексей1988
Дата 5.7.2012, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 5.7.2012

Репутация: нет
Всего: нет



Добрый день. помогите плиз найти или может у кого нить есть скрипт для получения данных с security папок. собрать данные в какие группы рассылок добавлять пользователей чтобы у них был доступ к той или иной папке.
PM MAIL   Вверх
Mythe
Дата 16.8.2012, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 16.8.2012

Репутация: нет
Всего: 0



Помогите найти скрипт мультивалютности
PM MAIL   Вверх
mihanik
Дата 17.8.2012, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109



Алексей1988
Mythe

что-то мне сдаётся, что вы вопрос не там задали.
Создайте отдельные темы!



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akella
  Дата 22.1.2013, 10:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 73
Всего: 329



Цитата(Akella @ 27.6.2012,  09:26)
Привет, а Великий All!

Иногда бывает, что временно требуется украинский язык в системе (windows 7).
Т.е. его нужно добавить, написать 1-2 предложения, а потом удалить.
Здесь я нашёл скрипт добавления украинского языка
http://anyblog.org.ua/component/content/ar...-s-sistemu.html (на первый взгляд немного странный).
да и не проверял работоспособность.

Но скрипт удаления украинского языка я не могу найти.
Посмотрите тот скрипт добавления, может его стоит "причесать".

http://www.sql.ru/forum/actualutils.aspx?a...mp;msg=13806509

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  InputLanguageID.zip 0,91 Kb
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Windows"
December
bartram
Akella

Запрещается!

1. Обсуждать взлом и делиться кряками

2. Способствовать созданию и распространению вирусов

  • Для бессмертных бородатых вопросов типа Win vs Nix есть специальный форум Религиозные Войны
  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • ВСЕГДА УКАЗЫВАЙТЕ ВЕРСИЮ ОС

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, December, bartram, Akella.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Windows | Следующая тема »


 




[ Время генерации скрипта: 0.1953 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.