VBS Script for System Administrators - How to backup Outlook email automatically in a login or logoff script Скрипт VBS для администраторов системы - Как резервной электронной почты Outlook автоматически в регистрации или выход сценарий

Posted on March 13, 2007 at 8:11 am Добавлено 13 марта 2007 г. в 8:11 утра

If you are a Systems Administrator for your company and everyone is using Outlook or some other desktop email program, you’ve probably run into the situation where someone has lost all of their emails due to the fact that it’s saved locally on the user’s computer and not on the main servers. Если вы системный администратор для вашей компании и каждый использует Outlook или другую почтовую программу на рабочем столе, Вы, возможно, столкнетесь с ситуацией, когда кто-то потерял всех своих писем объясняется тем, что сохраненные локально на пользователя "ы компьютере, а не на основных серверах. So if you’re a small shop and can’t afford to get Exchange server, then here’s a simply way to automate the backup of user’s Outlook PST files onto your server in a login or logoff script. Поэтому если Вы хотите небольшой магазин и не могут позволить себе получить Обмен сервера, а затем here'sa просто способ автоматизировать резервное копирование пользователей Outlook тихоокеанскому времени файлы на сервере, регистрации или выход скрипта.

First here’s the code and then I’ll explain it: Во-первых вот код, а затем я объяснить:

Set shell= WScript.CreateObject(”WScript.Shell”) Установить корпус = WScript.CreateObject ( "WScript.Shell")
strUserName = shell.ExpandEnvironmentStrings(”%USERNAME%”) strUserName = shell.ExpandEnvironmentStrings ( "% USERNAME%")

Dim fso Dim fso
set fso = CreateObject(”Scripting.FileSystemObject”) набор fso = CreateObject ( "Scripting.FileSystemObject")

lnDayOfWeek = weekday(now()) lnDayOfWeek = день (в настоящее время ())

if lnDayOfWeek = 5 then если lnDayOfWeek = 5 Затем

If fso.DriveExists(”G:”) Then Если fso.DriveExists ( "G:") Тогда

Dim lcDrive Dim lcDrive
Set lcDrive = fso.GetDrive(”G:”) Установить lcDrive = fso.GetDrive ( "G:")

If lcDrive.IsReady Then Если lcDrive.IsReady Тогда

newfolderpath = “\\servername\users\” & strUserName & “\EmailBackup” newfolderpath = "\ \ servername \ пользователей \" и strUserName и "\ EmailBackup"

               If Not fso.FolderExists(newfolderpath) Then Если не fso.FolderExists (newfolderpath) Тогда
                    Set newfolder = fso.CreateFolder(newfolderpath) Установить newfolder = fso.CreateFolder (newfolderpath)
               End If Конец Если

Dim file Dim файл
file = “C:\Documents and Settings\” & strUserName & “\Local Settings\Application Data\Microsoft\Outlook\Outlook.pst” Файл = "C: \ Documents и Settings \" и strUserName и "\ Local Settings \ Application Data \ Microsoft \ Outlook \ Outlook.pst"

If fso.FileExists(file) Then Если fso.FileExists (файл) Тогда
fso.CopyFile “C:\Documents and Settings\” & strUserName & “\Local Settings\Application Data\Microsoft\Outlook\Outlook.pst”, “\\servername\users\” & strUserName & “\EmailBackup\Outlook.pst” fso.CopyFile "C: \ Documents и Settings \" и strUserName и "\ Local Settings \ Application Data \ Microsoft \ Outlook \ Outlook.pst", "\ \ servername \ пользователей \" и strUserName и "\ EmailBackup \ Outlook.pst "

                    set fso = nothing набор fso = ничего
                    wscript.echo “Your email has been backed up!” wscript.echo "Ваше сообщение было подкреплено"!
               end if конец если
          end if конец если
     end If Если конец
end if конец если

Unforunately, the code is not indented very well here, so you’ll have to copy it and fix it so that you can read it correctly. Unforunately, кодекс не отступом очень хорошо здесь, поэтому Вам придется скопировать и исправить ее так, что вы можете читать ее правильно. Basically, it starts off creating a FileSystem object that will take care of copying the file to the server. По существу, она начинается за создание FileSystem объекта, что будет заботиться о копировании файлов на сервер. Then I do a check to see which day of the week it is and I use 5 (Friday), so that the script only runs once a week. Затем я выполняю посмотреть, что день недели он и я использую 5 (пятница), так что скрипт проходит только раз в неделю. I also do a check to make sure the G drive is available (the network drive I’m going to be copying the data to) before I get to the copying. Я также сделать убедитесь в G имеется привод (на сетевой диск я собираюсь быть копирование данных), прежде чем я получаю на копирование.

Then I check to see if the folder exists that I want to copy to and if not, I go ahead and create that folder in the user’s folder on the server. Тогда я посмотреть, если папка существует, что я хочу копию, а если нет, я иду дальше и создать эту папку в папке пользователя на сервере. I also check to make sure the file exists and if so, I then copy it to the user’s folder on the network. Я также удостоверьтесь, что этот файл существует, и если да, я затем скопировать его в папку пользователя в сети. I use the shell.ExpandEnvironmentStrings(”%USERNAME%”) method to get the current user’s username. Я использую shell.ExpandEnvironmentStrings ( "% USERNAME%") метод для получения текущего пользователя имя пользователя.

You can then apply this as either a logon or logoff script using Group Policy! Вы можете применять это либо войти или выход скрипт с использованием групповой политики!

Related Posts: Похожие сообщения:

More VBS Scripts for System Administrators Больше VBS скриптов для системных администраторов

Office Ergonomics - Risks of working at a desktop workstation and how to avoid them Управление рисками - Эргономика работы на компьютере рабочей станции и как их избежать

Gliffy - Online tool to create and share diagrams for free Gliffy - Интернет инструмент для создания диаграмм и обмениваться бесплатно

Great tool for Help Desk/System Admintrator Professionals - Change Analysis Diagnostic tool Великий инструмент Помощь / Система Admintrator специалистов - Изменения Анализ диагностический инструмент

If you enjoyed this post, make sure you Если вам понравилось это сообщение, убедитесь, что subscribe to my RSS feed подписаться на мой канал ! !

» Filed Under Согласно поданной » IT Job Stuff Его работу Stuff

One Response to “VBS Script for System Administrators - How to backup Outlook email automatically in a login or logoff script” Один ответ на "скрипт VBS для администраторов системы - Как резервной электронной почты Outlook автоматически в регистрации или выход сценарий"

Jemas said on : Джемас сказал: August 28th, 2007 at 9:00 pm 28 августа 2007 года в 9:00 вечера
Like your script, for home user how can I modify it to do a backup to external hard drive on a daily basis. Как ваш скрипт, для домашнего пользователя, как я могу изменить ее, сделать резервную копию на жестком диске внешних на ежедневной основе. Thanks Благодаря