Maxtor One Touch 4 Backup PST and NK2

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Maxtor One Touch 4 Backup PST and NK2

Logged in as: Guest

arrSession:exec spGetSession 2,16,61035

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Maxtor One Touch 4 Backup PST and NK2
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Maxtor One Touch 4 Backup PST and NK2 - 6/4/2008 3:30:33 AM

jcarver_14

Posts: 30
Score: 0
Joined: 6/4/2008
From: Cincinnati
Status: offline

Hi everyone,

Very new to scripting (bout 3 mo.) so this might not be as pretty as some of your scripts but it may help someone. Recenly we ordered some maxtor 4 backup drives to find that the software they include with their drives no longer backup the .pst or .nk2 files for outlook. This has been a huge complaint. This little guy will create some files that will alow you to backup your .pst and .nk2 files. After you run the script you will have to open the Maxtor software and point the button to C:\button.bat. This will alow the button to work as well as a log in script to backup up changed files as you log into the computer.

message = "Please enter the user name."
title = "User Name"
username=InputBox(message, title)

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Destination1 = fso.CreateTextFile ("C:\Button.bat", True)
Set Destination2 = fso.CreateTextFile ("C:\Close_email.vbs", True)
Set Destination3 = fso.CreateTextFile ("C:\Documents and Settings\" & username & "\Start Menu\Programs\Startup\Start_Up.bat", True)

Destination1.WriteLine "@Echo off"
Destination1.WriteLine "CD C:\"
Destination1.WriteLine "Close_email.vbs"
Destination1.WriteLine "taskkill /im OUTLOOK.EXE /f"
Destination1.WriteLine "@echo off"
Destination1.WriteLine "CD " & chr(34) & "C:\Documents and Settings\" & username & "\Local Settings\Application 
Data\Microsoft\Outlook" & chr(34)
Destination1.WriteLine "xcopy *.pst* " & chr(34) & "E:\Maxtor backup" & chr(34) & " /D /Y"
Destination1.WriteLine "CD " & chr(34) & "C:\Documents and Settings\" & username & "\Application Data\Microsoft\Outlook" & chr(34)
Destination1.WriteLine "xcopy *.nk2* " & chr(34) & "E:\Maxtor backup" & chr(34) & " /D /Y"
Destination1.WriteLine "CD " & chr(34) & "C:\Program Files\Maxtor\Maxtor Backup" & chr(34)
Destination1.WriteLine "MaxBackServiceInt.exe"
Destination1.Close

Destination2.WriteLine "MsgBox " & chr(34) & "WARNING -- This backup will close your e-mail.  Please save any unsent e-mails before 
continuing" & chr(34)
Destination2.Close

Destination3.WriteLine "@echo off"
Destination3.WriteLine "CD " & chr(34) & "C:\Documents and Settings\" & username & "\Local Settings\Application 
Data\Microsoft\Outlook" & chr(34)
Destination3.WriteLine "xcopy *.pst* " & chr(34) & "E:\Maxtor backup" & chr(34) & " /D /Y"
Destination3.WriteLine "CD " & chr(34) & "C:\Documents and Settings\" & username & "\Application Data\Microsoft\Outlook" & chr(34)
Destination3.WriteLine "xcopy *.nk2* " & chr(34) & "E:\Maxtor backup" & chr(34) & " /D /Y"
Destination3.WriteLine "CD " & chr(34) & "C:\Program Files\Maxtor\Maxtor Backup" & chr(34)
Destination3.WriteLine "MaxBackServiceInt.exe"
Destination3.Close

-------------------------------------------
'Remember to point the button the C:\button
-------------------------------------------

< Message edited by jcarver_14 -- 10/9/2008 12:44:34 AM >

Revisions: 1 | Post #: 1

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Maxtor One Touch 4 Backup PST and NK2

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts