Заключение
На сегодняшний день разработка и внедрение ЛВС является одной из самых интересных и важных задач в области информационных технологий. Все больше возрастает необходимость в контроле информации в режиме реального времени, постоянно растет трафик сетей всех уровней. В связи с этим появляются новые технологии передачи информации в ЛВС. Постоянно возникает необходимость модернизации существующих сетей.
Исходя из данных проблем была модернизирована локальная сеть ООО «Надежный Контакт». Создание нового ПО, обеспечивающего безопасность компьютеров, позволило защитить все рабочие станции и сервера от различных способов разрушения. При модернизации локальной сети компании, использованы абсолютно новые системы сохранности данных. После модернизации локальная сеть, работает стабильно.
Сетевые технологии очень быстро развиваются, в связи с чем они начинают выделяться в отдельную информационную отрасль. Ученые прогнозируют, что ближайшим достижением этой отрасли будет полное вытеснение других средств передачи информации (телевидение, радио, печать, телефон и т.д.). На смену этим «устаревшим» технологиям придет компьютер, он будет подключен к некоему глобальному потоку информации, возможно даже это будет Internet, и из этого потока можно будет получить любую информацию в любом представлении.
Список использованных источников
[1] Олифер В.Г. Компьютерные сети. Принципы, технологии, протоколы / В.Г. Олифер [и др.]. 3-е издание – СПб.: Питер, 2006. – 958 с.
[2] Айвенс К. Microsoft Windows Server 2003. Полное руководство / К. Айвенс. – М.: СПЭКОМ, 2004. – 896 с.
[3] Клейменов С.А, Администрирование в информационных системах / С.А. Клейменов. – М.: Издательский центр “Академия”, 2008. – 272 с.
[4] Палицин, В.А. Технико-экономическое обоснование дипломных проектов: методическое пособие / В.А. Палицин. В 4 ч. – Мн.: БГУИР, 2006. – Ч.4. – 76 с.
[5] Лазаренков А. М. Охрана труда: учебник / А. М. Лазаренков. – Минск: БНТУ, 2004. – 497с.
[6] СанПин 9 – 131 РБ 2000 Гигиенические требования к видеодисплейным терминалам, электронно-вычислительным машинам и организации работы.
[7] Душков Б.А. и др. Основы инженерной психологии / Б. А. Душков. – Москва-Екатеринбург, 2002. –576 с.
Приложение A
(справочное)
Скрипты для настройки сервера и стационарных компьютеров
'description: Скрипт удаляет устаревшие временные файлы с компьютера.
on error resume next
const PurgeTime = 14 'days
'Exceptions - folders, which will not be processed
dim aExceptions(3)
aExceptions(0) = "Default User"
aExceptions(1) = "LocalService"
aExceptions(2) = "NetworkService"
aExceptions(3) = "All Users"
set oFSO = CreateObject("Scripting.Filesystemobject")
set oShell = createobject("wscript.shell")
'Set paths
sProgramFiles = oShell.ExpandEnvironmentStrings("%ProgramFiles%")
sWinDir = oShell.ExpandEnvironmentStrings("%WinDir%")
sWinTempFolder = sWinDir & "\Temp"
sDocuments = "C:\Documents and Settings"
'Create log-file
sLogFileName = sWinTempFolder & "\PurgeTemp_" & Date
sLogFileName = Replace(sLogFileName, ".", "_")
sLogFileName = Replace(sLogFileName, "/", "_")
set oLogFile = oFSO.CreateTextFile(sLogFileName & ".log",true)
oLogFile.WriteLine "========== Start purging =========="
'Purge Windows Temporary folder
oLogFile.WriteLine vbCrLf & "========== Windows Temporary folder =========="
PurgeFolder(sWinTempFolder)
'Purge Users Temporary folder and Users Temporary Internet Files
oLogFile.WriteLine vbCrLf & "========== Users Temporary folder and Users Temporary Internet Files =========="
set oDocuments = oFSO.GetFolder(sDocuments)
set colProfiles = oDocuments.SubFolders
for each oProfile in colProfiles
bFlag = false
for each sException in aExceptions
if InStr(oProfile.Path,sException) > 0 then
bFlag = true
exit for
end if
next
if bFlag = false then
PurgeFolder(oProfile.Path & "\Local Settings\Temp")
PurgeFolder(oProfile.Path & "\Local Settings\Temporary Internet Files")
end if
next
'Close log-file
oLogFile.WriteLine vbCrLf & "========== Stop purging =========="
oLogFile.Close
'PurgeFolder procedure
sub PurgeFolder(sFolderPath)
set oFolder = oFSO.GetFolder(sFolderPath)
set colFiles = oFolder.Files
for each oFile in colFiles
if (Date-oFile.DateLastModified) > PurgeTime and (Date-oFile.DateCreated) > PurgeTime then
oLogFile.Writeline oFile.Path & vbTab & oFile.DateCreated
oFSO.DeleteFile oFile.Path, true
if err.Number <> 0 then
oLogFile.Writeline "-----> Error # " & CStr(Err.Number) & " " & Err.Description
err.clear
end if
wscript.sleep 20
end if
next
set colSubFolders = oFolder.SubFolders
for each oSubFolder in colSubFolders
PurgeFolder(oSubFolder.Path)
if oSubFolder.Size = 0 then
oLogFile.Writeline oSubFolder.Path & vbTab & oSubFolder.DateCreated
oFSO.DeleteFolder oSubFolder.path
if err.Number <> 0 then
oLogFile.Writeline "-----> Error # " & CStr(Err.Number) & " " & Err.Description
err.clear
end if
end if
next
end sub
‘подключение\отключение сетевого диска
DiskLetter = "S:" ' Буква сетевого диска
NetPath = "\\Server\Resurs" ' Путь к расшаренной папке
Set WShell = CreateObject("Wscript.Shell")
Set WshNetwork = CreateObject("WScript.Network") 'Создаем объект WshNetwork
Mess_Off = NetDiskUnMap(DiskLetter)
Mess_On = NetDiskMap(DiskLetter, NetPath)
If Mess_On = "yes" Then
Sending = WShell.Run(Program, 1, True)
Mess_Off = NetDiskUnMap(DiskLetter)
End If
' Подключение сетевого диска
Function NetDiskMap(Drive, NetPath)
' Set WshNetwork = CreateObject("WScript.Network") 'Создаем объект WshNetwork
On Error Resume Next
WshNetwork.MapNetworkDrive Drive, NetPath
If Err.Number <> 0 Then
Mess = "Ошибка при подключении диска " + Drive + vbCrLf + "Код ошибки: " + CStr(Err.Number) + vbCrLf + "Описание: " + Err.Description
MsgBox Mess, 16, "Подключение сетевого диска"
Else
Mess = "yes"
End If
On Error GoTo 0
NetDiskMap = Mess
' MsgBox Mess, 16, "Подключение сетевого диска"
End Function
' Отключение сетевого диска
Function NetDiskUnMap(Drive)
' Set WshNetwork = CreateObject("WScript.Network") 'Создаем объект WshNetwork
On Error Resume Next
WshNetwork.RemoveNetworkDrive Drive
If Err.Number <> 0 Then
Mess = "Ошибка при отключении диска " + Drive + vbCrLf + "Код ошибки: " + CStr(Err.Number) + vbCrLf + "Описание: " + Err.Description
Else
Mess = "yes"
End If
On Error GoTo 0
NetDiskUnMap = Mess
' MsgBox Mess, 64, "Отключение сетевого диска"
End Function
del_hidden_share.reg (Удаление скрытых ресурсов)
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters]
“AutoShareWks”=dword:00000000
add shortcut.vbs (Создание ярлыка для сетевой программы на рабочем столе всем пользователям. Добавляется как Logon-скрипт через политики и все. )
Set WshShell = WScript.CreateObject(”WScript.Shell”)
‘ Путь до рабочего стола через спец переменную
strDesktop = WshShell.SpecialFolders(”Desktop”)
‘ Создание ярлыка:
Set oShellLink = WshShell.CreateShortcut(strDesktop & “\Texpert.lnk”)
‘ Целевой путь к файлу для которого создаётся ярлык:
oShellLink.TargetPath = “\\server\Texpert\texpert.exe”
‘ Стиль открытия окна:
‘ 1 - Обычный размер окна; 3 - Развёрнутое на весь экран; 7 - Свёрнутое в значoк
oShellLink.WindowStyle = 1
‘ Клавиши быстрого вызова:
‘ oShellLink.Hotkey = “CTRL+SHIFT+F”
‘ Путь к файлу который содержит иконку для ярлыка:
oShellLink.IconLocation = “\\server\Texpert\texpert.exe, 0″
‘ Комментарий:
oShellLink.Description = “Сетевая программа”
‘ Рабочая папка:
oShellLink.WorkingDirectory = “\\server\Texpert”
‘ Аргументы командной строки:
‘ Аргументы имеют смысл если файл к которому обращается ярлык - исполняемый, т.е. имеет одно из следующих расширений: .exe; .bat; .com; .cmd; .vbs и т.д.
‘ oShellLink.Arguments = “C:\MyFile.txt”
‘ Сохранение ярлыка на жестком диске:
oShellLink.Save
Приложение Б
(справочное)
Листинг конфигурационного файла Amanda
org "nkontakt"
mailto "admin@nkontakt.com"
dumpcycle 4 days
tapecycle 4
runtapes 1
tpchanger "chg-multi"
changerfile "/etc/amanda/DailySet1/changer.conf"
logdir "/var/log/amanda/DailySet1"
indexdir "/etc/amanda/DailySet1/index"
infofile "/etc/amanda/DailySet1/curinfo"
amrecover_changer "chg-multi"
tapetype HARD-DISK
labelstr "^DailySet1[0-9][0-9]*$"
define tapetype HARD-DISK {
comment "Hard disk instead of tape"
length 20000 mbytes }
define dumptype global {
comment "Global definitions"
index yes
record yes
}
define dumptype hard-disk-dump {
global
comment "Back up to hard disk instead of tape - using dump"
holdingdisk no
index yes
priority high
}
define dumptype hard-disk-tar {
hard-disk-dump
comment "Back up to hard disk instead of tape - using tar"
program "GNUTAR"
}
# network interfaces
define interface local {
comment "a local disk"
use 1000 kbps
}
define interface eth0 {
comment "100 Mbps ethernet"
use 90 Mbps
}
Ведомость документов
|