Category: Windows

Simple error checking when running batch files from T-SQL in SQL Server

Published January 14, 2017 / by Chris Smith / Leave a Comment

A while ago we added error trapping to the batch file called by a SQL script, this was to ensure if a program failed the rest of the process would not run:

After ensuring the program would return an error level if something went wrong we then I then used the ErrorLevel and an if statement. If the error level is equal to or greater than 1, I make it go to the end of the file and exit with code 1 (By default its zero which normally means the batch or program executed as expected)

rem Batch Code here must support returning errors otherwise it will be assumed to have run without issue
echo Error Level %ERRORLEVEL%
IF ERRORLEVEL GEQ 1 GOTO EOF
rem add any further Batch Code here
echo Error Level 0 so closing
exit
:EOF
echo Reached End of file due to program error
exit /b 1

rem Batch Code here must support returning errors otherwise it will be assumed to have run without issue

echo Error Level %ERRORLEVEL%

IF ERRORLEVEL GEQ 1 GOTO EOF

rem add any further Batch Code here

echo Error Level 0 so closing

exit

:EOF

echo Reached End of file due to program error

exit /b 1

We then modified our existing code in SQL to ensure the batch program is run and the exit code is captured in a variable. It can then be dealt with and the example below can easily be changed to suit whatever is required.

----------------------------------------------------------------------------------------------------------
print 'Running Windows Batch Script'
----------------------------------------------------------------------------------------------------------
--Capture the exit code into @result and run the batch script
DECLARE @result int
       EXEC @result = xp_cmdshell '<Patch_to_Batch_Script>'
--Only one command can be run in this if statement if more than one required consider a GOTO command!
              IF (@result = 0)
--Run if program ran fine
                     EXEC xp_cmdshell '<Patch_to_Batch_Script>'
--Run if program did not run fine
                     ELSE '<Patch_to_Batch_Script>'

----------------------------------------------------------------------------------------------------------

print 'Running Windows Batch Script'

----------------------------------------------------------------------------------------------------------

--Capture the exit code into @result and run the batch script

DECLARE @result int

EXEC @result = xp_cmdshell '<Patch_to_Batch_Script>'

--Only one command can be run in this if statement if more than one required consider a GOTO command!

IF (@result = 0)

--Run if program ran fine

EXEC xp_cmdshell '<Patch_to_Batch_Script>'

--Run if program did not run fine

ELSE '<Patch_to_Batch_Script>'

Credits:
SS64
Microsoft MSDN (Example Set C)

Posted In Batch File Scripting | SQL Server

Microsoft Access 2010 loader

Published January 08, 2017 / by Chris Smith / Leave a Comment

Credits (As what I consider the hard stuff was actually done by other people):
TheSmileyCoder for the solid awesome little VBS File, this basically gets around the limitation of not actually getting Access to load another Access Database. At the time I only ever needed one modification (A rarely issue affected two P4 machines with a 5400RPM drive and bloated AV software). More than likely WScript.Sleep(200) won’t be required and the original file can be used.
UtterAccess for the AddTrustedLocation code.
http://www.accessmvp.com/DJSteele/DSNLessLinks.html – AccessMVP (LINK BROKEN!) as for this loader I tend to use the DSNLESS code to remove the need to deploy yet another ODBC link to user machines.
VBA Tips and Tricks for the FileExists module.

About:
The following contains what I call the Microsoft Access 2010 Loader. It was put together to try and stop heavily used Microsoft Access database front ends from corrupting (We had a point where one particular Access front end would be corrupted up to 3 or 4 times a day as around 40 to 50 people would be in a 40MB Access front end at any time). The included version will require the table to be linked to a database, we use a central SQL database.
This access file will treat its own filename as the file it will launch, so be aware the loader and your actual access front ends needs to be located in different places.

What does it do:
It checks if a copy of the Access front end and VBS file exists locally (I use the %appdata% folder, you may want to use another location or %localappdata% instead)
If it exists it checks if the version in registry (HKEY_LOCAL_USER\Software\VB and VBA Program Settings\\Version\Version) matches what is in the database table “dbo_access_version_master”
If it doesn’t exist locally or the version does not match it then downloads from a location such as “\\myserver\access$\”
If downloaded the registry is updated with the new version number
It then passes parameters to a VBS file created by TheSmileyCoder and launches it

Limitations:
The first form of the called Access file MUST have VBA code of some sort or else the Access file simply closes.
I haven’t found a way to detect if a local copy of an Access ACCDR file has corrupt VBA.
I have found users copy and rename the loaders file breaking it, try and ensure shortcuts are used.
I haven’t been able to trap where Windows AD accounts have expired or locked, as the error occurs when Access connects to our central SQL database.
If the locations aren’t added to the Trusted Locations the user will be prompted twice to allow the Access files to open. The loader uses code to add this on first launch.
I sometimes find the repaints don’t always work.
Looking at the code used its a bit horrible looking, more than likely it can be optimized much better.

What do I need to change in VBA (Alt + F11):
Replaced in the VBA code “MyCompany” with your own on the main form and module SwitchFrontEnd.
Replace \\myserver\access$\ with where you will store your files (I used access$ as this is hidden if someone views the server)
If you don’t use .accdr files replace .accdr on the forms code

The actual files:
Microsoft Access Loader Files

Posted In Access 2010 | Visual Basic for Applications

Why use ACCDE and then ACCDR Access Front Ends

Published January 08, 2017 / by Chris Smith / Leave a Comment

Nearly every single Microsoft Access “database” I use has a proper database attached instead of using the internal Jet Engine, this means data is not actually stored in the Access “database” and I therefore call them Access Frontends.
Compiling your Access front ends to ACCDE provides a compiled copy of your Access Front End.
I find it is much harder for users to corrupt the Access front ends when compiled.
Making a compiled Access ACCDE file a runtime file is as simple as renaming the extension from ACCDE to ACCDR, all this does is make sure full installs of Microsoft Access launch in the runtime mode. It also means you can use the Access Runtime which is free from Microsoft (However always ensure you read through the EULA).
As runtime mode is used, its easier for development as I don’t have to hide menus.

To create an ACCDE from a Microsoft Access file, open the file in question, ensure your “Visual Basic for Applications” Code compiles otherwise the next step will fail.
Go to File –> Save & Publish –> Make ACCDE
Save the file in the location you want.
You can now rename the extension from ACCDE to ACCDR.
Now test the file launches.

Posted In Access 2010

Within a batch file run a program for a certain length of time before killing it

Published January 08, 2017 / by Chris Smith / Leave a Comment

I needed to run a scheduled batch job and kill it off after a certain amount of time, this was because the program would run what it needed and then run as normal (If it exists then there is no reason to use start or timeout). As it actually ran as a service I didn’t want to leave it running in this way.
As I use Taskkill on the programs exe name, obviously don’t use it if it will be run on a server where it is running other executables with the same program name.
I replaced timeout with ping as the process launched fully utilises the CPU cores.

ECHO Running the program with start allows the batch script to move on to the next line
start "DBCapture" "d:\myprogram.exe" -runparameter1 -runparameter2
ECHO Waiting 120 seconds before killing off the task
ECHO Credit For lower CPU usage, instead of using WAIT use Ping as suggested on http://ss64.com/nt/timeout.html
PING -n 121 127.0.0.1>nul
ECHO Kill the program
Taskkill /IM "myprogram.exe" /F

ECHO Running the program with start allows the batch script to move on to the next line

start "DBCapture" "d:\myprogram.exe" -runparameter1 -runparameter2

ECHO Waiting 120 seconds before killing off the task

ECHO Credit For lower CPU usage, instead of using WAIT use Ping as suggested on http://ss64.com/nt/timeout.html

PING -n 121 127.0.0.1>nul

ECHO Kill the program

Taskkill /IM "myprogram.exe" /F

Credits: I replaced my use of timeout based on a suggestion on SS64.com

Posted In Batch File Scripting | Windows Server 2012

Windows 10 Remove Unwanted Bloat from Windows 10

Published December 09, 2016 / by Chris Smith / Leave a Comment

A number of the default “apps” that Microsoft provide tend to get on my nerves, as I have Skype and Office already installed I was annoyed to see the “Get Skype” and “Get Office” were listed.
I tweak the below on all new machines as some members of my family do have a Windows Phone (So in some instances I leave windowsphone and people).

Get-AppxPackage *3d* | Remove-AppxPackage
Get-AppxPackage *xbox* | Remove-AppxPackage
Get-AppxPackage *bing* | Remove-AppxPackage
Get-AppxPackage *zune* | Remove-AppxPackage
Get-AppxPackage *photo* | Remove-AppxPackage
Get-AppxPackage *communi* | Remove-AppxPackage
Get-AppxPackage *solit* | Remove-AppxPackage
Get-AppxPackage *phone* | Remove-AppxPackage
Get-AppxPackage *windowsphone* | Remove-AppxPackage
Get-AppxPackage *soundrec* | Remove-AppxPackage
Get-AppxPackage *people* | Remove-AppxPackage
Get-AppxPackage *officehub* | Remove-AppxPackage
Get-AppxPackage *skypeapp* | Remove-AppxPackage
Get-AppxPackage *getstarted* | Remove-AppxPackage
Get-AppxPackage *windowsstore* | Remove-AppxPackage
Get-AppxPackage *windowsmaps* | Remove-AppxPackage

Get-AppxPackage *3d* | Remove-AppxPackage

Get-AppxPackage *xbox* | Remove-AppxPackage

Get-AppxPackage *bing* | Remove-AppxPackage

Get-AppxPackage *zune* | Remove-AppxPackage

Get-AppxPackage *photo* | Remove-AppxPackage

Get-AppxPackage *communi* | Remove-AppxPackage

Get-AppxPackage *solit* | Remove-AppxPackage

Get-AppxPackage *phone* | Remove-AppxPackage

Get-AppxPackage *windowsphone* | Remove-AppxPackage

Get-AppxPackage *soundrec* | Remove-AppxPackage

Get-AppxPackage *people* | Remove-AppxPackage

Get-AppxPackage *officehub* | Remove-AppxPackage

Get-AppxPackage *skypeapp* | Remove-AppxPackage

Get-AppxPackage *getstarted* | Remove-AppxPackage

Get-AppxPackage *windowsstore* | Remove-AppxPackage

Get-AppxPackage *windowsmaps* | Remove-AppxPackage

Credit: MS Technet

Posted In Windows 10

Outlook 2010: VBA delay sending of emails until the next working day if outside of reasonable hours

Published October 30, 2016 / by Chris Smith / Leave a Comment

This Outlook 2010 VBA code was used to impose a time when emails could not be sent and were instead delayed until the next work day.
This was put together (Credits go to key parts of this VBA are in the actual code) because the Managing Director where I work realised he was making people work outside of their core hours.
The script however will send emails if the email is set to high priority or if a user is in the email group “Send_at_all_times”.
Restrictions include having to sign the code (Otherwise Outlook VBA security has to be lowered), the other is since the code doesnt do anything fancy it will always send if someone it sends to is in the group “Send_at_all_times”.

This has only been tested in Microsoft Outlook 2010 on Windows 7.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo Err_Application_ItemSend
 
'Credits for core script is https://www.mikesel.info/delay-outlook-mail-sending/
'and http://www.vbforums.com/showthread.php?574491-RESOLVED-Outlook-VB-Macro-Deffered-Delivery-Time
'Credits for dist group grab is http://blogs.technet.com/b/heyscriptingguy/archive/2007/03/27/how-can-i-list-all-the-members-of-a-microsoft-outlook-distribution-list.aspx
'This script is to delay emails until the next working day if outside of reasonable hours.  The script can be bypassed by sending emails with the importance level of HIGH
'There is also a group lookup to also always send if in this group.
    Dim obj As Object
    Dim Mail As Outlook.MailItem
    Dim WkDay, SendNow, SendtoAddress As String
    Dim MinNow, SendHour As Integer
    Dim SendDate As Date
    Dim emailItem As Outlook.MailItem
    Dim objOutlook, objNamespace, objDistList, colContacts As Object
    Dim i, j, intCount As Integer
    Dim groupaddresses() As String
'Grab list of contacts from Dist Group, done after importance check as important emails don't require this check anyway
    Const olFolderContacts = 10
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items
'Grab email address being sent to
    Set emailItem = Application.ActiveInspector.CurrentItem
        SendtoAddress = emailItem.To
'MsgBox colContacts.Count & SendtoAddress
'Grab amount of users in email group and redim array
        Set objDistList = colContacts.Item("Send_at_all_times")
        ReDim groupaddresses(objDistList.MemberCount)
        SendNow = "N"
'Added a limit of intCount users to try and prevent any unexpected looping issues
        i = 1
            For j = 1 To objDistList.MemberCount
                groupaddresses(j) = objDistList.GetMember(j).Name
'If address does not match anything in group address run code below otherwise skip
        If InStr(1, SendtoAddress, groupaddresses(j), 1) = 0 Then
'Should never happen but just in case trap going over member count to prevent an endless loop!
                    If i <= objDistList.MemberCount Then
                        i = i + 1
                    Else
'This error should never occur!!  Bail out of For loop to prevent endless loop.
                        MsgBox "Failed! More than " & objDistList.MemberCount & "users are in this group"
                            Exit For
                    End If
        Else
'Set SendNow to Yes as a match was found
            SendNow = "Y"
                Exit For
        End If
            Next
'Check if email is set to Normal or low importance
'Our requirement is for anything set to important to always send immediately, if not required comment out the if statement and the associated end if
    If emailItem.Importance <> olImportanceHigh And SendNow = "N" Then
'Code to check whether email needs to be delayed
'Set Variables
SendDate = Now()
SendHour = Hour(Now)
MinNow = Minute(Now)
WkDay = Weekday(Now)
SendNow = "Y"
'Check if Before 8am
If SendHour < 8 Then
    SendHour = 8 - SendHour
    SendDate = DateAdd("h", SendHour, SendDate)
    SendDate = DateAdd("n", -MinNow, SendDate)
    SendNow = "N"
End If
'Check if after on or after 7PM
If SendHour >= 19 Then           'After 7 PM amended to >=
    SendHour = 32 - SendHour    'Send a 8 am next day
    SendDate = DateAdd("h", SendHour, SendDate)
    SendDate = DateAdd("n", -MinNow, SendDate)
    SendNow = "N"
End If
'Check if Sunday
If WkDay = 1 Then
    SendHour = 8 - SendHour
    SendDate = DateAdd("d", 1, SendDate)
    SendDate = DateAdd("h", SendHour, SendDate)
    SendDate = DateAdd("n", -MinNow, SendDate)
    SendNow = "N"
End If
'Check if Saturday
If WkDay = 7 Then
    SendHour = 8 - SendHour
    SendDate = DateAdd("d", 2, SendDate)
    SendDate = DateAdd("h", SendHour, SendDate)
    SendDate = DateAdd("n", -MinNow, SendDate)
    SendNow = "N"
End If
'Send the Email or Queue it if variable SendNow = N
  Set obj = Application.ActiveInspector.CurrentItem
  If TypeOf obj Is Outlook.MailItem Then
    Set Mail = obj
    'Check if we need to delay delivery
    If SendNow = "N" Then
      Mail.DeferredDeliveryTime = SendDate
    End If
    'Mail.Send
  End If
'End if for date checks
        Else
        End If
Err_Application_ItemSend_Exit:
'Destroy Variables
    Exit Sub
Err_Application_ItemSend:
    'MsgBox Error$
    Resume Err_Application_ItemSend_Exit
End Sub

100

101

102

103

104

105

106

107

108

109

110

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

On Error GoTo Err_Application_ItemSend

'Credits for core script is https://www.mikesel.info/delay-outlook-mail-sending/

'and http://www.vbforums.com/showthread.php?574491-RESOLVED-Outlook-VB-Macro-Deffered-Delivery-Time

'Credits for dist group grab is http://blogs.technet.com/b/heyscriptingguy/archive/2007/03/27/how-can-i-list-all-the-members-of-a-microsoft-outlook-distribution-list.aspx

'This script is to delay emails until the next working day if outside of reasonable hours. The script can be bypassed by sending emails with the importance level of HIGH

'There is also a group lookup to also always send if in this group.

Dim obj As Object

Dim Mail As Outlook.MailItem

Dim WkDay, SendNow, SendtoAddress As String

Dim MinNow, SendHour As Integer

Dim SendDate As Date

Dim emailItem As Outlook.MailItem

Dim objOutlook, objNamespace, objDistList, colContacts As Object

Dim i, j, intCount As Integer

Dim groupaddresses() As String

'Grab list of contacts from Dist Group, done after importance check as important emails don't require this check anyway

Const olFolderContacts = 10

Set objOutlook = CreateObject("Outlook.Application")

Set objNamespace = objOutlook.GetNamespace("MAPI")

Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items

'Grab email address being sent to

Set emailItem = Application.ActiveInspector.CurrentItem

SendtoAddress = emailItem.To

'MsgBox colContacts.Count & SendtoAddress

'Grab amount of users in email group and redim array

Set objDistList = colContacts.Item("Send_at_all_times")

ReDim groupaddresses(objDistList.MemberCount)

SendNow = "N"

'Added a limit of intCount users to try and prevent any unexpected looping issues

i = 1

For j = 1 To objDistList.MemberCount

groupaddresses(j) = objDistList.GetMember(j).Name

'If address does not match anything in group address run code below otherwise skip

If InStr(1, SendtoAddress, groupaddresses(j), 1) = 0 Then

'Should never happen but just in case trap going over member count to prevent an endless loop!

If i <= objDistList.MemberCount Then

i = i + 1

Else

'This error should never occur!! Bail out of For loop to prevent endless loop.

MsgBox "Failed! More than " & objDistList.MemberCount & "users are in this group"

Exit For

End If

Else

'Set SendNow to Yes as a match was found

SendNow = "Y"

Exit For

End If

'Check if email is set to Normal or low importance

'Our requirement is for anything set to important to always send immediately, if not required comment out the if statement and the associated end if

If emailItem.Importance <> olImportanceHigh And SendNow = "N" Then

'Code to check whether email needs to be delayed

'Set Variables

SendDate = Now()

SendHour = Hour(Now)

MinNow = Minute(Now)

WkDay = Weekday(Now)

SendNow = "Y"

'Check if Before 8am

If SendHour < 8 Then

SendHour = 8 - SendHour

SendDate = DateAdd("h", SendHour, SendDate)

SendDate = DateAdd("n", -MinNow, SendDate)

SendNow = "N"

End If

'Check if after on or after 7PM

If SendHour >= 19 Then 'After 7 PM amended to >=

SendHour = 32 - SendHour 'Send a 8 am next day

SendDate = DateAdd("h", SendHour, SendDate)

SendDate = DateAdd("n", -MinNow, SendDate)

SendNow = "N"

End If

'Check if Sunday

If WkDay = 1 Then

SendHour = 8 - SendHour

SendDate = DateAdd("d", 1, SendDate)

SendDate = DateAdd("h", SendHour, SendDate)

SendDate = DateAdd("n", -MinNow, SendDate)

SendNow = "N"

End If

'Check if Saturday

If WkDay = 7 Then

SendHour = 8 - SendHour

SendDate = DateAdd("d", 2, SendDate)

SendDate = DateAdd("h", SendHour, SendDate)

SendDate = DateAdd("n", -MinNow, SendDate)

SendNow = "N"

End If

'Send the Email or Queue it if variable SendNow = N

Set obj = Application.ActiveInspector.CurrentItem

If TypeOf obj Is Outlook.MailItem Then

Set Mail = obj

'Check if we need to delay delivery

If SendNow = "N" Then

Mail.DeferredDeliveryTime = SendDate

End If

'Mail.Send

End If

'End if for date checks

Else

End If

Err_Application_ItemSend_Exit:

'Destroy Variables

Exit Sub

Err_Application_ItemSend:

'MsgBox Error$

Resume Err_Application_ItemSend_Exit

End Sub

Posted In Outlook 2010 | Visual Basic for Applications

Compress and move existing Windows 2012 and Microsoft SQL Server 2008 Express backups

Published October 23, 2016 / by Chris Smith / Leave a Comment

The following has been used to backup a server with Cisco Cubac on. The software runs on Windows 2012 machine and uses SQL Server 2008 Express.
As its not on a managed server I had to find a way to backup the server and the database, plus keep the backup as small as possible.
I get the Windows backup tool to backup once a day and save it to D:\WindowsImageBackup\, I then get the script below to run which then backs up SQL Server 2008 Express separately. I then get the backups compressed with 7zip and move them to a network storage device.
The destination NAS required a username and password, I had to put in a username and password (Not recommended although I believe SAMBA may not have been configured correctly).
If the server was on the same domain as the backup destination then get rid of “/user:username Password” from the net use line, normally having an account with the same username and password should work.

This batch requires RoboCopy (I believe is installed with the OS), 7Zip, a destination device and lots of disc space to fit the backups.

This has been used on a server with Windows 2012 and Microsoft SQL Server 2008 Express to backup a Cisco Cubac install.
The script will call SqlBackup.sql to tell SQL to backup the databases (As it installed with SQL Server 2008 Express).
Everything surrounded by <> needs to be changed, anything calling a directory needs to be checked.
%hostname% is not used for ServerHostName variable, its used for the SQL instance name (Which normally is the hostname).

echo Script runs a manual backup of SQL before moving it to the NAS.
echo Additional files such as backups by Windows are also copied across, but these must be generated by Windows Server Backup.
echo Setting up Variables
Set FileDate=%date:~-10,2%%date:~-7,2%%date:~-4,4%
rem change to SQL instance name
Set ServerHostName=<SQL_Server_Instance_Name>
rem change backup destination
Set NasPath=\\BackupDestination\Cisco_Cubac\
Set Nasoldfiles=%NasPath%\OldFiles\
rem Set where the script runs from
Set BackupScript=C:\Wherethescriptrunsfrom\
Set Sqllocal=<Sql Backup Path>
rem Change username and password as required
net use %NasPath% /user:username Password /persistent:no > %BackupScript%logs\%filedate%-MapDrive.log
c:
mkdir %BackupScript%logs
mkdir %BackupScript%7ztemp
echo Run SQL Backup and put output into log file and append with date %FileDate%
sqlcmd -S %ServerHostName% -i %BackupScript%SqlBackup.sql > %BackupScript%logs\%filedate%-SqlBackup.log
echo Compress and move the latest SQL backup to the NAS
"C:\Program Files\7-Zip\7z.exe" a -t7z %BackupScript%7ztemp\%filedate%-FileSystem.7z %Sqllocal%*.bak > %BackupScript%logs\%filedate%-SqlBackupCompress.log
Robocopy %BackupScript%7ztemp\ %NasPath%Sqlbackup *.7z /E /MOVE /V /R:3 /W:5 > %BackupScript%logs\%filedate%-MoveSQLBackup.log
del %Sqllocal%*.* /Q > %BackupScript%logs\%filedate%-DeleteSQLBackup.log
echo Compress and move Windows backup from drive to NAS and remove old files
d:
mkdir D:\7ztemp
rem Change "D:\WindowsImageBackup\" to where the Windows backup is located
"C:\Program Files\7-Zip\7z.exe" a -t7z D:\7ztemp\%filedate%-ServerBackup.7z "D:\WindowsImageBackup\" > %BackupScript%logs\%filedate%-WinBackupCompress.log
Robocopy D:\7ztemp %NasPath%Winbackup\%filedate%\ *.* /E /MOVE /V /R:3 /W:5 > %BackupScript%logs\%filedate%-MoveWinBackup.log
rmdir "D:\WindowsImageBackup\" /S /Q >> %BackupScript%logs\%filedate%-DeleteWinBackup.log
mkdir "D:\WindowsImageBackup\" >> %BackupScript%logs\%filedate%-DeleteWinBackup.log
echo Remove old Files on NAS by using Robocopy to copy files over a certain age into a specific folder
mkdir %Nasoldfiles%
ROBOCOPY %NasPath%Sqlbackup %Nasoldfiles% /move /minage:7 >> %BackupScript%logs\%filedate%-NasRemoveOldFiles.log
ROBOCOPY %NasPath%Winbackup %Nasoldfiles% /E /move /minage:7 >> %BackupScript%logs\%filedate%-NasRemoveOldFiles.log
ROBOCOPY %NasPath%Backuplogs %Nasoldfiles% /move /minage:7 >> %BackupScript%logs\%filedate%-NasRemoveOldFiles.log
del %Nasoldfiles%*.* /Q > %BackupScript%logs\%filedate%-NasDeleteOldFiles.log
echo Move Backupscript logs to NAS to complete job
Robocopy %BackupScript%logs\ %NasPath%Backuplogs\ *.* /E /MOVE /V /R:3 /W:5

echo Script runs a manual backup of SQL before moving it to the NAS.

echo Additional files such as backups by Windows are also copied across, but these must be generated by Windows Server Backup.

echo Setting up Variables

Set FileDate=%date:~-10,2%%date:~-7,2%%date:~-4,4%

rem change to SQL instance name

Set ServerHostName=<SQL_Server_Instance_Name>

rem change backup destination

Set NasPath=\\BackupDestination\Cisco_Cubac\

Set Nasoldfiles=%NasPath%\OldFiles\

rem Set where the script runs from

Set BackupScript=C:\Wherethescriptrunsfrom\

Set Sqllocal=<Sql Backup Path>

rem Change username and password as required

net use %NasPath% /user:username Password /persistent:no > %BackupScript%logs\%filedate%-MapDrive.log

mkdir %BackupScript%logs

mkdir %BackupScript%7ztemp

echo Run SQL Backup and put output into log file and append with date %FileDate%

sqlcmd -S %ServerHostName% -i %BackupScript%SqlBackup.sql > %BackupScript%logs\%filedate%-SqlBackup.log

echo Compress and move the latest SQL backup to the NAS

"C:\Program Files\7-Zip\7z.exe" a -t7z %BackupScript%7ztemp\%filedate%-FileSystem.7z %Sqllocal%*.bak > %BackupScript%logs\%filedate%-SqlBackupCompress.log

Robocopy %BackupScript%7ztemp\ %NasPath%Sqlbackup *.7z /E /MOVE /V /R:3 /W:5 > %BackupScript%logs\%filedate%-MoveSQLBackup.log

del %Sqllocal%*.* /Q > %BackupScript%logs\%filedate%-DeleteSQLBackup.log

echo Compress and move Windows backup from drive to NAS and remove old files

mkdir D:\7ztemp

rem Change "D:\WindowsImageBackup\" to where the Windows backup is located

"C:\Program Files\7-Zip\7z.exe" a -t7z D:\7ztemp\%filedate%-ServerBackup.7z "D:\WindowsImageBackup\" > %BackupScript%logs\%filedate%-WinBackupCompress.log

Robocopy D:\7ztemp %NasPath%Winbackup\%filedate%\ *.* /E /MOVE /V /R:3 /W:5 > %BackupScript%logs\%filedate%-MoveWinBackup.log

rmdir "D:\WindowsImageBackup\" /S /Q >> %BackupScript%logs\%filedate%-DeleteWinBackup.log

mkdir "D:\WindowsImageBackup\" >> %BackupScript%logs\%filedate%-DeleteWinBackup.log

echo Remove old Files on NAS by using Robocopy to copy files over a certain age into a specific folder

mkdir %Nasoldfiles%

ROBOCOPY %NasPath%Sqlbackup %Nasoldfiles% /move /minage:7 >> %BackupScript%logs\%filedate%-NasRemoveOldFiles.log

ROBOCOPY %NasPath%Winbackup %Nasoldfiles% /E /move /minage:7 >> %BackupScript%logs\%filedate%-NasRemoveOldFiles.log

ROBOCOPY %NasPath%Backuplogs %Nasoldfiles% /move /minage:7 >> %BackupScript%logs\%filedate%-NasRemoveOldFiles.log

del %Nasoldfiles%*.* /Q > %BackupScript%logs\%filedate%-NasDeleteOldFiles.log

echo Move Backupscript logs to NAS to complete job

Robocopy %BackupScript%logs\ %NasPath%Backuplogs\ *.* /E /MOVE /V /R:3 /W:5

This second file (SQL Backup File for Microsoft SQL Server 2008 Express) is called separately, above I have called it SqlBackup.sql in the folder specified in variable BackupScript.

BACKUP DATABASE [ATTCFG] TO  [FileSystem] WITH NOFORMAT, NOINIT,  NAME = N'ATTCFG-Full Database Backup', SKIP, NOREWIND, NOUNLOAD,  STATS = 10
GO
BACKUP DATABASE [ATTLOG] TO  [FileSystem] WITH NOFORMAT, NOINIT,  NAME = N'ATTLOG-Full Database Backup', SKIP, NOREWIND, NOUNLOAD,  STATS = 10
GO
BACKUP DATABASE [master] TO  [FileSystem] WITH NOFORMAT, NOINIT,  NAME = N'master-Full Database Backup', SKIP, NOREWIND, NOUNLOAD,  STATS = 10
GO
BACKUP DATABASE [model] TO  [FileSystem] WITH NOFORMAT, NOINIT,  NAME = N'model-Full Database Backup', SKIP, NOREWIND, NOUNLOAD,  STATS = 10
GO
BACKUP DATABASE [msdb] TO  [FileSystem] WITH NOFORMAT, NOINIT,  NAME = N'msdb-Full Database Backup', SKIP, NOREWIND, NOUNLOAD,  STATS = 10
GO

BACKUP DATABASE [ATTCFG] TO [FileSystem] WITH NOFORMAT, NOINIT, NAME = N'ATTCFG-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10

BACKUP DATABASE [ATTLOG] TO [FileSystem] WITH NOFORMAT, NOINIT, NAME = N'ATTLOG-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10

BACKUP DATABASE [master] TO [FileSystem] WITH NOFORMAT, NOINIT, NAME = N'master-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10

BACKUP DATABASE [model] TO [FileSystem] WITH NOFORMAT, NOINIT, NAME = N'model-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10

BACKUP DATABASE [msdb] TO [FileSystem] WITH NOFORMAT, NOINIT, NAME = N'msdb-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10

Posted In SQL Server 2008 Express | Windows Server 2012

Synctoy 2.1 setup batch script

Published October 23, 2016 / by Chris Smith / Leave a Comment

This code was used to speed up the setup of SyncToy 2.1 (I see no reason to backup the entire user profile folder, but I hate having to setup multiple sync jobs). As Microsoft has not updated SyncToy it may not work on anything other than Windows 7.
The script expects SyncToy 2.1 is installed and that the destination is always the H drive (For whatever reason I am not using a variable for the main location, I may update this at some point as code to select another path is already in).

rem Batch Script to setup Synctoy 2.1.  Tested on Windows 7 for standard Users.
rem Additional Credits https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/kOsN-QIOYEY for on the fly generation of VBS code
rem Amended 2/4/2014 to use Contribute instead of Synchronise to prevent unexpected deletions for users being moved servers with an out of date backup.
 
                REM Check Windows Version is 7
                                ver | findstr /i "6\.1\." > nul
                                IF %ERRORLEVEL% EQU 0 goto sub_begincheck
                                                goto sub_wrongos
:sub_begincheck
                rem Show Home Drive for troubleshooting purposes
                                rem set homedrive
                rem show profile directory for troubleshooting purposes
                                rem set userprofile
                rem If Homedrive is H begin copy
                                if "%homedrive%"=="H:" then
                                                Set backupdir=%homedrive%
                                                                goto :sub_synctoysetup
                                                Else
                rem If Homedrive is not H: ask for new filepath
                                goto :BrowseFolder
:sub_synctoysetup
                rem Create Directories on H:
                                mkdir "H:\LaptopBackup\"
                                mkdir "H:\LaptopBackup\Desktop"
                                mkdir "H:\LaptopBackup\Favorites"
                                mkdir "H:\LaptopBackup\Documents"
                                mkdir "H:\LaptopBackup\Downloads"
                                mkdir "H:\LaptopBackup\Music"
                                mkdir "H:\LaptopBackup\Pictures"
                                mkdir "H:\LaptopBackup\Videos"
 
                rem Change drive to C to action copy
                                C:
                rem Change Directory to Synctoy
                                CD %ProgramFiles%\SyncToy 2.1
                rem Setup SyncToy Folders for Windows 7
                                SyncToy.exe
                                SyncToy.exe -d(left="%USERPROFILE%\Desktop",right="H:\LaptopBackup\Desktop",name=Desktop,operation=Echo)
                                SyncToy.exe -d(left="%USERPROFILE%\Favorites",right="H:\LaptopBackup\Favorites",name=Favorites,operation=Echo)
                                SyncToy.exe -d(left="%USERPROFILE%\Documents",right="H:\LaptopBackup\Documents",name=Docs,operation=Echo)
                                SyncToy.exe -d(left="%USERPROFILE%\Downloads",right="H:\LaptopBackup\Downloads",name=Downloads,operation=Echo)
                                SyncToy.exe -d(left="%USERPROFILE%\Music",right="H:\LaptopBackup\Music",name=Music,operation=Echo)
                                SyncToy.exe -d(left="%USERPROFILE%\Pictures",right="H:\LaptopBackup\Pictures",name=Pictures,operation=Echo)
                                SyncToy.exe -d(left="%USERPROFILE%\Videos",right="H:\LaptopBackup\Videos",name=Videos,operation=Echo)
 
                rem Clear Screen to make it easier to view next message
                                CLS
                rem Copy Complete Echo and Pause
                                ECHO Setup of SyncToy is now Complete.  Files are setup to be backed up to H:\LaptopBackup\.  Please open SyncToy and run a backup now.
                                                PAUSE
                                                                EXIT
:BrowseFolder 
                rem Set Temporary files
                rem Below is the Visual Basic Script, do not indent!
                                set vbs=%temp%\_.vbs
                                set tmp=%temp%\_.cmd
 
> "%vbs%" echo set WshShell=WScript.CreateObject("WScript.Shell")
>>"%vbs%" echo set shell = WScript.CreateObject("Shell.Application")
>>"%vbs%" echo set folder=shell.BrowseForFolder(0,"Select Backup Location",0)
>>"%vbs%" echo if typename(folder)="Nothing" Then
>>"%vbs%" echo wscript.echo "set backupdir=Dialog Cancelled"
>>"%vbs%" echo WScript.Quit(1)
>>"%vbs%" echo end if
>>"%vbs%" echo set folderItems=folder.Items()
>>"%vbs%" echo set folderItem=folderItems.Item()
>>"%vbs%" echo pathname=folderItem.Path
>>"%vbs%" echo wscript.echo "set backupdir="^& chr(34) ^& pathname ^& chr(34)
 
                rem Run the script with WSH
                                cscript //nologo "%vbs%" > "%tmp%"
 
                rem Read the output file and set Path as Env variable %backupdir%
                                for /f "delims=" %%a in (%tmp%) do %%a
                rem Clear up
                                DEL %VBS%
                                DEL %TMP%
                rem Finished now go to copy
                                goto :sub_synctoysetup
                                                                
 
:sub_wrongos
                rem Wrong Operating System Detected, echo and exit
                                CLS
                                                ECHO This script is only supported on Windows 7.  You are running
                                                                ver
                                                                                PAUSE
                                                                                                EXIT
:EOF
                rem End of File Catch for Errors
                                ECHO End of file called!
                                                PAUSE
                                                                EXIT

rem Batch Script to setup Synctoy 2.1. Tested on Windows 7 for standard Users.

rem Additional Credits https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/kOsN-QIOYEY for on the fly generation of VBS code

rem Amended 2/4/2014 to use Contribute instead of Synchronise to prevent unexpected deletions for users being moved servers with an out of date backup.

REM Check Windows Version is 7

ver | findstr /i "6\.1\." > nul

IF %ERRORLEVEL% EQU 0 goto sub_begincheck

goto sub_wrongos

:sub_begincheck

rem Show Home Drive for troubleshooting purposes

rem set homedrive

rem show profile directory for troubleshooting purposes

rem set userprofile

rem If Homedrive is H begin copy

if "%homedrive%"=="H:" then

Set backupdir=%homedrive%

goto :sub_synctoysetup

Else

rem If Homedrive is not H: ask for new filepath

goto :BrowseFolder

:sub_synctoysetup

rem Create Directories on H:

mkdir "H:\LaptopBackup\"

mkdir "H:\LaptopBackup\Desktop"

mkdir "H:\LaptopBackup\Favorites"

mkdir "H:\LaptopBackup\Documents"

mkdir "H:\LaptopBackup\Downloads"

mkdir "H:\LaptopBackup\Music"

mkdir "H:\LaptopBackup\Pictures"

mkdir "H:\LaptopBackup\Videos"

rem Change drive to C to action copy

rem Change Directory to Synctoy

CD %ProgramFiles%\SyncToy 2.1

rem Setup SyncToy Folders for Windows 7

SyncToy.exe

SyncToy.exe -d(left="%USERPROFILE%\Desktop",right="H:\LaptopBackup\Desktop",name=Desktop,operation=Echo)

SyncToy.exe -d(left="%USERPROFILE%\Favorites",right="H:\LaptopBackup\Favorites",name=Favorites,operation=Echo)

SyncToy.exe -d(left="%USERPROFILE%\Documents",right="H:\LaptopBackup\Documents",name=Docs,operation=Echo)

SyncToy.exe -d(left="%USERPROFILE%\Downloads",right="H:\LaptopBackup\Downloads",name=Downloads,operation=Echo)

SyncToy.exe -d(left="%USERPROFILE%\Music",right="H:\LaptopBackup\Music",name=Music,operation=Echo)

SyncToy.exe -d(left="%USERPROFILE%\Pictures",right="H:\LaptopBackup\Pictures",name=Pictures,operation=Echo)

SyncToy.exe -d(left="%USERPROFILE%\Videos",right="H:\LaptopBackup\Videos",name=Videos,operation=Echo)

rem Clear Screen to make it easier to view next message

CLS

rem Copy Complete Echo and Pause

ECHO Setup of SyncToy is now Complete. Files are setup to be backed up to H:\LaptopBackup\. Please open SyncToy and run a backup now.

PAUSE

EXIT

:BrowseFolder

rem Set Temporary files

rem Below is the Visual Basic Script, do not indent!

set vbs=%temp%\_.vbs

set tmp=%temp%\_.cmd

> "%vbs%" echo set WshShell=WScript.CreateObject("WScript.Shell")

>>"%vbs%" echo set shell = WScript.CreateObject("Shell.Application")

>>"%vbs%" echo set folder=shell.BrowseForFolder(0,"Select Backup Location",0)

>>"%vbs%" echo if typename(folder)="Nothing" Then

>>"%vbs%" echo wscript.echo "set backupdir=Dialog Cancelled"

>>"%vbs%" echo WScript.Quit(1)

>>"%vbs%" echo end if

>>"%vbs%" echo set folderItems=folder.Items()

>>"%vbs%" echo set folderItem=folderItems.Item()

>>"%vbs%" echo pathname=folderItem.Path

>>"%vbs%" echo wscript.echo "set backupdir="^& chr(34) ^& pathname ^& chr(34)

rem Run the script with WSH

cscript //nologo "%vbs%" > "%tmp%"

rem Read the output file and set Path as Env variable %backupdir%

for /f "delims=" %%a in (%tmp%) do %%a

rem Clear up

DEL %VBS%

DEL %TMP%

rem Finished now go to copy

goto :sub_synctoysetup

:sub_wrongos

rem Wrong Operating System Detected, echo and exit

CLS

ECHO This script is only supported on Windows 7. You are running

ver

PAUSE

EXIT

:EOF

rem End of File Catch for Errors

ECHO End of file called!

PAUSE

EXIT

Posted In Batch File Scripting | SyncToy 2.1 | Windows 7

Simple backup and restore scripts

Published October 23, 2016 / by Chris Smith / Leave a Comment

Back when my workplace migrated from Windows XP to Windows 7, I became lazy and automated backing up and restoring a users profiles important files in a batch script.
Here I backup to the drive H, this drive is pretty much our standard user drive. If the user does not have a H drive some pretty neat code from https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/kOsN-QIOYEY displays a folder selection box (As annoyingly some users didn’t have their home drive set as H). Although I have set the filepath as LaptopBackup I have used it on Desktops as well.
The code deliberately terminates if it detects it isn’t on Windows 7, this is purely because I haven’t tested this in a network environment on other OS’s!
Known faults are pinned shortcuts in the taskbar don’t appear and printer settings don’t migrate (I never got around to correcting it).

This section of code is to backup to %backupdir%\LaptopBackup\

Echo Off
rem Batch Script to Copy certain folders for the convenience of Users.  The batch file backs up to the H drive, which is a standard drive for user folders.  Tested on Windows 7 for standard Users.
rem Changed backup folder location to something that is more suitable.  Removed printer backup as it doesnt work and added Signature Backup 10/03/2015.
rem Additional Credits https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/kOsN-QIOYEY for on the fly generation of VBS code
 
                REM Check Windows Version is 7
                                ver | findstr /i "6\.1\." > nul
                                IF %ERRORLEVEL% EQU 0 goto sub_begincheck
                                                goto sub_wrongos
:sub_begincheck
                rem If Homedrive is H begin copy
                                if "%homedrive%"=="H:" goto sub_sethomedrive
                rem If Homedrive is not H: ask for new filepath
                                                ECHO Please select a location to backup the profile, it must be contained in a folder even if on an external drive due to a limiation in this script!!!
                                                                PAUSE
                                                                                goto BrowseFolder                         
:sub_sethomedrive
                rem Setup Backupdir variable to homedrive
                                Set backupdir=%homedrive%
:sub_begincopy
                rem Create Directory Structure
                                ECHO Creating Directories
                                mkdir "%backupdir%\LaptopBackup\"
                                mkdir "%backupdir%\LaptopBackup\Desktop"
                                mkdir "%backupdir%\LaptopBackup\Favorites"
                                mkdir "%backupdir%\LaptopBackup\Recent"
                                mkdir "%backupdir%\LaptopBackup\Documents"
                                mkdir "%backupdir%\LaptopBackup\Downloads"
                                mkdir "%backupdir%\LaptopBackup\Outlook"
                                mkdir "%backupdir%\LaptopBackup\Outlook\Application Data"
                                mkdir "%backupdir%\LaptopBackup\Links"
                                mkdir "%backupdir%\LaptopBackup\Music"
                                mkdir "%backupdir%\LaptopBackup\Pictures"
                                mkdir "%backupdir%\LaptopBackup\Videos"
                                mkdir "%backupdir%\LaptopBackup\Contacts"
                                mkdir "%backupdir%\LaptopBackup\SyncToy"
                                mkdir "%backupdir%\LaptopBackup\Sticky Notes"
                                mkdir "%backupdir%\LaptopBackup\OfficeQuickAccess"
                                mkdir "%backupdir%\LaptopBackup\ShortcutsPinned"
                rem Added Signatures
                                mkdir "%backupdir%\LaptopBackup\Signatures"
                rem Change drive to C to action copy
                                C:
                rem Use robocopy to copy specific folders and Echo Folder Copies, amended December 2013 so smaller files copied first and setup on new machine can be started earlier, amended March 2014 to include Quick Access and Pinned Shortcuts
                                ECHO Copying Files and Folders from %LOCALAPPDATA%\Local\Microsoft\Office
                                                robocopy "%LOCALAPPDATA%\Microsoft\Office" "%backupdir%\LaptopBackup\OfficeQuickAccess" *.officeUI /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned
                                                robocopy "%AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned" "%backupdir%\LaptopBackup\ShortcutsPinned" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %LOCALAPPDATA%\microsoft\synctoy\2.0
                                                robocopy "%LOCALAPPDATA%\microsoft\synctoy\2.0" "%backupdir%\LaptopBackup\SyncToy" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\Application Data\Microsoft\Outlook
                                                robocopy "%AppData%\Microsoft\Outlook" "%backupdir%\LaptopBackup\Outlook\Application Data" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\Links
                                                robocopy "%USERPROFILE%\Links" "%backupdir%\LaptopBackup\Links" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from "%AppData%\Microsoft\Sticky Notes"
                                                robocopy "%AppData%\Microsoft\Sticky Notes" "%backupdir%\LaptopBackup\Sticky Notes" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\Favorites
                                                robocopy "%USERPROFILE%\Favorites" "%backupdir%\LaptopBackup\Favorites" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\Recent
                                                robocopy "%USERPROFILE%\Recent" "%backupdir%\LaptopBackup\Recent" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %AppData%\Microsoft\Signatures
                                                robocopy "%AppData%\Microsoft\Signatures" "%backupdir%\LaptopBackup\Signatures" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\Desktop
                                                robocopy "%USERPROFILE%\Desktop" "%backupdir%\LaptopBackup\Desktop" /E /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\Documents
                                                robocopy "%USERPROFILE%\Documents" "%backupdir%\LaptopBackup\Documents" /E /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\Downloads
                                                robocopy "%USERPROFILE%\Downloads" "%backupdir%\LaptopBackup\Downloads" /E /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\Music
                                                robocopy "%USERPROFILE%\Music" "%backupdir%\LaptopBackup\Music" /E /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\Pictures
                                                robocopy "%USERPROFILE%\Pictures" "%backupdir%\LaptopBackup\Pictures" /E /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders from %USERPROFILE%\My Videos
                                                robocopy "%USERPROFILE%\Videos" "%backupdir%\LaptopBackup\Videos" /E /MT:6 /R:1 /V /W:1
                                ECHO Saving Printer Settings doesnt work commented out.
                                                rem "%windir%\System32\spool\tools\PrintBrm.exe" -B -F %backupdir%\LaptopBackup\Printers.cab
                rem Clear Screen to make it easier to view next message
                                CLS
                rem Copy Complete Echo and Pause
                                ECHO Backup copy now complete, please check and ensure your files have been copied in the folder %backupdir%
                                                PAUSE
                                                                EXIT
:BrowseFolder 
                rem Set Temporary files
                rem Below is the Visual Basic Script, do not indent!
                                set vbs=%temp%\_.vbs
                                set tmp=%temp%\_.cmd
 
> "%vbs%" echo set WshShell=WScript.CreateObject("WScript.Shell")
>>"%vbs%" echo set shell = WScript.CreateObject("Shell.Application")
>>"%vbs%" echo set folder=shell.BrowseForFolder(0,"Select Backup Location",0)
>>"%vbs%" echo if typename(folder)="Nothing" Then
>>"%vbs%" echo wscript.echo "set backupdir=Dialog Cancelled"
>>"%vbs%" echo WScript.Quit(1)
>>"%vbs%" echo end if
>>"%vbs%" echo set folderItems=folder.Items()
>>"%vbs%" echo set folderItem=folderItems.Item()
>>"%vbs%" echo pathname=folderItem.Path
>>"%vbs%" echo wscript.echo "set backupdir="^& chr(34) ^& pathname ^& chr(34)
 
                rem Run the script with WSH
                                cscript //nologo "%vbs%" > "%tmp%"
 
                rem Read the output file and set Path as Env variable %backupdir%
                                for /f "delims=" %%a in (%tmp%) do %%a
                rem Clear up
                                DEL %VBS%
                                DEL %TMP%
                rem Finished now go to copy
                                goto :sub_begincopy
                                                                
:sub_wrongos
                rem Wrong Operating System Detected, echo and exit
                                CLS
                                                ECHO This script is only supported on Windows 7.  You are running
                                                rem Use ver command
                                                                ver
                                                                                PAUSE
                                                                                                EXIT
:EOF
                rem End of File Catch for Errors
                                ECHO End of file called!
                                                PAUSE
                                                                EXIT

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

Echo Off

rem Batch Script to Copy certain folders for the convenience of Users. The batch file backs up to the H drive, which is a standard drive for user folders. Tested on Windows 7 for standard Users.

rem Changed backup folder location to something that is more suitable. Removed printer backup as it doesnt work and added Signature Backup 10/03/2015.

rem Additional Credits https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/kOsN-QIOYEY for on the fly generation of VBS code

REM Check Windows Version is 7

ver | findstr /i "6\.1\." > nul

IF %ERRORLEVEL% EQU 0 goto sub_begincheck

goto sub_wrongos

:sub_begincheck

rem If Homedrive is H begin copy

if "%homedrive%"=="H:" goto sub_sethomedrive

rem If Homedrive is not H: ask for new filepath

ECHO Please select a location to backup the profile, it must be contained in a folder even if on an external drive due to a limiation in this script!!!

PAUSE

goto BrowseFolder

:sub_sethomedrive

rem Setup Backupdir variable to homedrive

Set backupdir=%homedrive%

:sub_begincopy

rem Create Directory Structure

ECHO Creating Directories

mkdir "%backupdir%\LaptopBackup\"

mkdir "%backupdir%\LaptopBackup\Desktop"

mkdir "%backupdir%\LaptopBackup\Favorites"

mkdir "%backupdir%\LaptopBackup\Recent"

mkdir "%backupdir%\LaptopBackup\Documents"

mkdir "%backupdir%\LaptopBackup\Downloads"

mkdir "%backupdir%\LaptopBackup\Outlook"

mkdir "%backupdir%\LaptopBackup\Outlook\Application Data"

mkdir "%backupdir%\LaptopBackup\Links"

mkdir "%backupdir%\LaptopBackup\Music"

mkdir "%backupdir%\LaptopBackup\Pictures"

mkdir "%backupdir%\LaptopBackup\Videos"

mkdir "%backupdir%\LaptopBackup\Contacts"

mkdir "%backupdir%\LaptopBackup\SyncToy"

mkdir "%backupdir%\LaptopBackup\Sticky Notes"

mkdir "%backupdir%\LaptopBackup\OfficeQuickAccess"

mkdir "%backupdir%\LaptopBackup\ShortcutsPinned"

rem Added Signatures

mkdir "%backupdir%\LaptopBackup\Signatures"

rem Change drive to C to action copy

rem Use robocopy to copy specific folders and Echo Folder Copies, amended December 2013 so smaller files copied first and setup on new machine can be started earlier, amended March 2014 to include Quick Access and Pinned Shortcuts

ECHO Copying Files and Folders from %LOCALAPPDATA%\Local\Microsoft\Office

robocopy "%LOCALAPPDATA%\Microsoft\Office" "%backupdir%\LaptopBackup\OfficeQuickAccess" *.officeUI /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned

robocopy "%AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned" "%backupdir%\LaptopBackup\ShortcutsPinned" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %LOCALAPPDATA%\microsoft\synctoy\2.0

robocopy "%LOCALAPPDATA%\microsoft\synctoy\2.0" "%backupdir%\LaptopBackup\SyncToy" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\Application Data\Microsoft\Outlook

robocopy "%AppData%\Microsoft\Outlook" "%backupdir%\LaptopBackup\Outlook\Application Data" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\Links

robocopy "%USERPROFILE%\Links" "%backupdir%\LaptopBackup\Links" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from "%AppData%\Microsoft\Sticky Notes"

robocopy "%AppData%\Microsoft\Sticky Notes" "%backupdir%\LaptopBackup\Sticky Notes" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\Favorites

robocopy "%USERPROFILE%\Favorites" "%backupdir%\LaptopBackup\Favorites" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\Recent

robocopy "%USERPROFILE%\Recent" "%backupdir%\LaptopBackup\Recent" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %AppData%\Microsoft\Signatures

robocopy "%AppData%\Microsoft\Signatures" "%backupdir%\LaptopBackup\Signatures" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\Desktop

robocopy "%USERPROFILE%\Desktop" "%backupdir%\LaptopBackup\Desktop" /E /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\Documents

robocopy "%USERPROFILE%\Documents" "%backupdir%\LaptopBackup\Documents" /E /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\Downloads

robocopy "%USERPROFILE%\Downloads" "%backupdir%\LaptopBackup\Downloads" /E /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\Music

robocopy "%USERPROFILE%\Music" "%backupdir%\LaptopBackup\Music" /E /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\Pictures

robocopy "%USERPROFILE%\Pictures" "%backupdir%\LaptopBackup\Pictures" /E /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders from %USERPROFILE%\My Videos

robocopy "%USERPROFILE%\Videos" "%backupdir%\LaptopBackup\Videos" /E /MT:6 /R:1 /V /W:1

ECHO Saving Printer Settings doesnt work commented out.

rem "%windir%\System32\spool\tools\PrintBrm.exe" -B -F %backupdir%\LaptopBackup\Printers.cab

rem Clear Screen to make it easier to view next message

CLS

rem Copy Complete Echo and Pause

ECHO Backup copy now complete, please check and ensure your files have been copied in the folder %backupdir%

PAUSE

EXIT

:BrowseFolder

rem Set Temporary files

rem Below is the Visual Basic Script, do not indent!

set vbs=%temp%\_.vbs

set tmp=%temp%\_.cmd

> "%vbs%" echo set WshShell=WScript.CreateObject("WScript.Shell")

>>"%vbs%" echo set shell = WScript.CreateObject("Shell.Application")

>>"%vbs%" echo set folder=shell.BrowseForFolder(0,"Select Backup Location",0)

>>"%vbs%" echo if typename(folder)="Nothing" Then

>>"%vbs%" echo wscript.echo "set backupdir=Dialog Cancelled"

>>"%vbs%" echo WScript.Quit(1)

>>"%vbs%" echo end if

>>"%vbs%" echo set folderItems=folder.Items()

>>"%vbs%" echo set folderItem=folderItems.Item()

>>"%vbs%" echo pathname=folderItem.Path

>>"%vbs%" echo wscript.echo "set backupdir="^& chr(34) ^& pathname ^& chr(34)

rem Run the script with WSH

cscript //nologo "%vbs%" > "%tmp%"

rem Read the output file and set Path as Env variable %backupdir%

for /f "delims=" %%a in (%tmp%) do %%a

rem Clear up

DEL %VBS%

DEL %TMP%

rem Finished now go to copy

goto :sub_begincopy

:sub_wrongos

rem Wrong Operating System Detected, echo and exit

CLS

ECHO This script is only supported on Windows 7. You are running

rem Use ver command

ver

PAUSE

EXIT

:EOF

rem End of File Catch for Errors

ECHO End of file called!

PAUSE

EXIT

This section of code is to restore from %backupdir%\LaptopBackup\

Echo Off
rem Batch Script to Copy certain folders for the convenience of Users.  Tested on Windows 7 for standard Users.
rem Removed printer restore as it doesnt work and added Signature Restore 10/03/2015.
rem Additional Credits https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/kOsN-QIOYEY for on the fly generation of VBS code
 
                REM Check Windows Version is 7
                                ver | findstr /i "6\.1\." > nul
                                IF %ERRORLEVEL% EQU 0 goto sub_begincheck
                                                goto sub_wrongos
:sub_begincheck
                rem If Homedrive is H begin copy
                                if "%homedrive%"=="H:" goto :sub_sethomedrive
                rem If Homedrive is not H: ask for new filepath
                                                ECHO Please select a location to backup the profile, it must be contained in a folder even if on an external drive due to a limiation in this script!!!
                                                                PAUSE
                                                                                goto BrowseFolder         
:sub_sethomedrive
                rem Setup Backupdir variable to homedrive
                                Set backupdir=%homedrive%
:sub_begincopy
                rem Change drive to C to setup local folders
                                C:
                rem Create Directory Structure
                                mkdir "%AppData%\Microsoft"
                                mkdir "%AppData%\Microsoft\Outlook"
                                mkdir "%AppData%\Microsoft\Signatures"
                                mkdir "%LOCALAPPDATA%\microsoft\synctoy"
                                mkdir "%LOCALAPPDATA%\microsoft\synctoy\2.0"
                rem Added Sticky Notes 09/09/2013
                                mkdir "%AppData%\Microsoft\Sticky Notes"
                rem Added Quick Access and pinned Shortcuts 03/03/2014
                                mkdir "%LOCALAPPDATA%\Microsoft\Office"
                                mkdir "%AppData%\Microsoft\Internet Explorer"
                                mkdir "%AppData%\Microsoft\Internet Explorer\Quick Launch"
                rem Use robocopy to copy specific folders and Echo Folder Copies, changed copy order in December 2013 to help get smaller files required for user setup done first.  Changed March 2013 to include Office Quick Access and Quick Launch
                                ECHO Copying Files and Folders to %LOCALAPPDATA%\Local\Microsoft\Office
                                                robocopy "%backupdir%\LaptopBackup\OfficeQuickAccess" "%LOCALAPPDATA%\Microsoft\Office" *.officeUI /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders to %AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned
                                                robocopy "%backupdir%\LaptopBackup\ShortcutsPinned" "%AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders to %LOCALAPPDATA%\microsoft\synctoy\2.0
                                                robocopy "%backupdir%\LaptopBackup\SyncToy" "%LOCALAPPDATA%\microsoft\synctoy\2.0" /E /MT:6 /R:2 /V /W:1
                                ECHO Copying Files and Folders to %USERPROFILE%\Favorites
                                                robocopy "%backupdir%\LaptopBackup\Favorites" "%USERPROFILE%\Favorites" /E /MT:6 /R:2 /V /W:1
                                ECHO Copying Files and Folders to %USERPROFILE%\Links
                                                robocopy "%backupdir%\LaptopBackup\Links" "%USERPROFILE%\Links" /E /MT:6 /R:2 /V /W:1
                                ECHO Copying Files and Folders to %USERPROFILE%\Application Data\Microsoft\Outlook
                                                robocopy "%backupdir%\LaptopBackup\Outlook\Application Data" "%AppData%\Microsoft\Outlook" /E /MT:6 /R:2 /V /W:1
                                ECHO Copy Files and Folder to "%AppData%\Microsoft\Sticky Notes"
                                                robocopy "%backupdir%\LaptopBackup\Sticky Notes" "%AppData%\Microsoft\Sticky Notes" /E /MT:6 /R:2 /V /W:1         
                                ECHO Copying Files and Folders from %AppData%\Microsoft\Signatures
                                                robocopy "%backupdir%\LaptopBackup\Signatures" "%AppData%\Microsoft\Signatures" /S /MT:6 /R:1 /V /W:1
                                ECHO Copying Files and Folders to %USERPROFILE%\Desktop
                                                robocopy "%backupdir%\LaptopBackup\Desktop" "%USERPROFILE%\Desktop"  /E /MT:6 /R:2 /V /W:1
                                ECHO Copying Files and Folders to %AppData%\Microsoft\Windows\Recent
                                                robocopy "%backupdir%\LaptopBackup\Recent" "%AppData%\Microsoft\Windows\Recent" /E /MT:6 /R:2 /V /W:1
                                ECHO Copying Files and Folders to %USERPROFILE%\Documents
                                                robocopy "%backupdir%\LaptopBackup\Documents" "%USERPROFILE%\Documents" /E /MT:6 /R:2 /V /W:1
                                ECHO Copying Files and Folders to %USERPROFILE%\Downloads
                                                robocopy "%backupdir%\LaptopBackup\Downloads" "%USERPROFILE%\Downloads" /E /MT:6 /R:2 /V /W:1
                                ECHO Copying Files and Folders to %USERPROFILE%\My Music
                                                robocopy "%backupdir%\LaptopBackup\Music" "%USERPROFILE%\Music" /E /MT:6 /R:2 /V /W:1
                                ECHO Copying Files and Folders to %USERPROFILE%\Pictures
                                                robocopy "%backupdir%\LaptopBackup\Pictures" "%USERPROFILE%\Pictures" /E /MT:6 /R:2 /V /W:1
                                ECHO Copying Files and Folders to %USERPROFILE%\Videos
                                                robocopy "%backupdir%\LaptopBackup\Videos" "%USERPROFILE%\Videos" /E /MT:6 /R:2 /V /W:1
                REM Added Sticky Notes and Printer Restore
                                rem ECHO Restoring Printer Settings, this may take a while!
                                                rem "%windir%\System32\spool\tools\PrintBrm.exe" -R -F %backupdir%\LaptopBackup\Printers.cab
                rem Clear Screen to make it easier to view next message
                                CLS
                rem Copy Complete Echo and Pause
                                ECHO Your files from your previous machine have now been restored.
                                ECHO Please ensure you see all your files.
                                                PAUSE
                                                                EXIT
 
:BrowseFolder 
                rem Set Temporary files
                rem Below is the Visual Basic Script, do not indent!
                                set vbs=%temp%\_.vbs
                                set tmp=%temp%\_.cmd
 
> "%vbs%" echo set WshShell=WScript.CreateObject("WScript.Shell")
>>"%vbs%" echo set shell = WScript.CreateObject("Shell.Application")
>>"%vbs%" echo set folder=shell.BrowseForFolder(0,"Select Backup Location",0)
>>"%vbs%" echo if typename(folder)="Nothing" Then
>>"%vbs%" echo wscript.echo "set backupdir=Dialog Cancelled"
>>"%vbs%" echo WScript.Quit(1)
>>"%vbs%" echo end if
>>"%vbs%" echo set folderItems=folder.Items()
>>"%vbs%" echo set folderItem=folderItems.Item()
>>"%vbs%" echo pathname=folderItem.Path
>>"%vbs%" echo wscript.echo "set backupdir="^& chr(34) ^& pathname ^& chr(34)
 
                rem Run the script with WSH
                                cscript //nologo "%vbs%" > "%tmp%"
 
                rem Read the output file and set Path as Env variable %backupdir%
                                for /f "delims=" %%a in (%tmp%) do %%a
                rem Clear up
                                DEL %VBS%
                                DEL %TMP%
                rem Finished now go to copy
                                goto :sub_begincopy
                                                                
:sub_wrongos
                rem Wrong Operating System Detected, echo and exit
                                CLS
                                                ECHO This script is only supported on Windows 7.  You are running
                                                                ver
                                                                                PAUSE
                                                                                                EXIT
:EOF
                rem End of File Catch for Errors
                                ECHO End of file called!
                                                PAUSE
                                                                EXIT

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

Echo Off

rem Batch Script to Copy certain folders for the convenience of Users. Tested on Windows 7 for standard Users.

rem Removed printer restore as it doesnt work and added Signature Restore 10/03/2015.

rem Additional Credits https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/kOsN-QIOYEY for on the fly generation of VBS code

REM Check Windows Version is 7

ver | findstr /i "6\.1\." > nul

IF %ERRORLEVEL% EQU 0 goto sub_begincheck

goto sub_wrongos

:sub_begincheck

rem If Homedrive is H begin copy

if "%homedrive%"=="H:" goto :sub_sethomedrive

rem If Homedrive is not H: ask for new filepath

ECHO Please select a location to backup the profile, it must be contained in a folder even if on an external drive due to a limiation in this script!!!

PAUSE

goto BrowseFolder

:sub_sethomedrive

rem Setup Backupdir variable to homedrive

Set backupdir=%homedrive%

:sub_begincopy

rem Change drive to C to setup local folders

rem Create Directory Structure

mkdir "%AppData%\Microsoft"

mkdir "%AppData%\Microsoft\Outlook"

mkdir "%AppData%\Microsoft\Signatures"

mkdir "%LOCALAPPDATA%\microsoft\synctoy"

mkdir "%LOCALAPPDATA%\microsoft\synctoy\2.0"

rem Added Sticky Notes 09/09/2013

mkdir "%AppData%\Microsoft\Sticky Notes"

rem Added Quick Access and pinned Shortcuts 03/03/2014

mkdir "%LOCALAPPDATA%\Microsoft\Office"

mkdir "%AppData%\Microsoft\Internet Explorer"

mkdir "%AppData%\Microsoft\Internet Explorer\Quick Launch"

rem Use robocopy to copy specific folders and Echo Folder Copies, changed copy order in December 2013 to help get smaller files required for user setup done first. Changed March 2013 to include Office Quick Access and Quick Launch

ECHO Copying Files and Folders to %LOCALAPPDATA%\Local\Microsoft\Office

robocopy "%backupdir%\LaptopBackup\OfficeQuickAccess" "%LOCALAPPDATA%\Microsoft\Office" *.officeUI /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders to %AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned

robocopy "%backupdir%\LaptopBackup\ShortcutsPinned" "%AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders to %LOCALAPPDATA%\microsoft\synctoy\2.0

robocopy "%backupdir%\LaptopBackup\SyncToy" "%LOCALAPPDATA%\microsoft\synctoy\2.0" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Favorites

robocopy "%backupdir%\LaptopBackup\Favorites" "%USERPROFILE%\Favorites" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Links

robocopy "%backupdir%\LaptopBackup\Links" "%USERPROFILE%\Links" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Application Data\Microsoft\Outlook

robocopy "%backupdir%\LaptopBackup\Outlook\Application Data" "%AppData%\Microsoft\Outlook" /E /MT:6 /R:2 /V /W:1

ECHO Copy Files and Folder to "%AppData%\Microsoft\Sticky Notes"

robocopy "%backupdir%\LaptopBackup\Sticky Notes" "%AppData%\Microsoft\Sticky Notes" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders from %AppData%\Microsoft\Signatures

robocopy "%backupdir%\LaptopBackup\Signatures" "%AppData%\Microsoft\Signatures" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Desktop

robocopy "%backupdir%\LaptopBackup\Desktop" "%USERPROFILE%\Desktop" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %AppData%\Microsoft\Windows\Recent

robocopy "%backupdir%\LaptopBackup\Recent" "%AppData%\Microsoft\Windows\Recent" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Documents

robocopy "%backupdir%\LaptopBackup\Documents" "%USERPROFILE%\Documents" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Downloads

robocopy "%backupdir%\LaptopBackup\Downloads" "%USERPROFILE%\Downloads" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\My Music

robocopy "%backupdir%\LaptopBackup\Music" "%USERPROFILE%\Music" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Pictures

robocopy "%backupdir%\LaptopBackup\Pictures" "%USERPROFILE%\Pictures" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Videos

robocopy "%backupdir%\LaptopBackup\Videos" "%USERPROFILE%\Videos" /E /MT:6 /R:2 /V /W:1

REM Added Sticky Notes and Printer Restore

rem ECHO Restoring Printer Settings, this may take a while!

rem "%windir%\System32\spool\tools\PrintBrm.exe" -R -F %backupdir%\LaptopBackup\Printers.cab

rem Clear Screen to make it easier to view next message

CLS

rem Copy Complete Echo and Pause

ECHO Your files from your previous machine have now been restored.

ECHO Please ensure you see all your files.

PAUSE

EXIT

:BrowseFolder

rem Set Temporary files

rem Below is the Visual Basic Script, do not indent!

set vbs=%temp%\_.vbs

set tmp=%temp%\_.cmd

> "%vbs%" echo set WshShell=WScript.CreateObject("WScript.Shell")

>>"%vbs%" echo set shell = WScript.CreateObject("Shell.Application")

>>"%vbs%" echo set folder=shell.BrowseForFolder(0,"Select Backup Location",0)

>>"%vbs%" echo if typename(folder)="Nothing" Then

>>"%vbs%" echo wscript.echo "set backupdir=Dialog Cancelled"

>>"%vbs%" echo WScript.Quit(1)

>>"%vbs%" echo end if

>>"%vbs%" echo set folderItems=folder.Items()

>>"%vbs%" echo set folderItem=folderItems.Item()

>>"%vbs%" echo pathname=folderItem.Path

>>"%vbs%" echo wscript.echo "set backupdir="^& chr(34) ^& pathname ^& chr(34)

rem Run the script with WSH

cscript //nologo "%vbs%" > "%tmp%"

rem Read the output file and set Path as Env variable %backupdir%

for /f "delims=" %%a in (%tmp%) do %%a

rem Clear up

DEL %VBS%

DEL %TMP%

rem Finished now go to copy

goto :sub_begincopy

:sub_wrongos

rem Wrong Operating System Detected, echo and exit

CLS

ECHO This script is only supported on Windows 7. You are running

ver

PAUSE

EXIT

:EOF

rem End of File Catch for Errors

ECHO End of file called!

PAUSE

EXIT

Update August 2017. I have found Windows 10 Sticky Notes needs to be moved to a different location so data can be imported, the below has been added as where I work is currently planning to migrate from Windows 7 to Windows 10.
Further amendments may be needed and obviously the backup script above doesn’t account for the new data location for Sticky Notes.
Corrected restore location of restore script April 2018 (Whoops)

Echo Off
rem Checked to work against Windows 10, stickynotes amended to account for changes
rem Additional Credits https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/kOsN-QIOYEY for on the fly generation of VBS code

	REM Check Windows Version is 10
		ver | findstr /i "10\.0\." > nul
		IF %ERRORLEVEL% EQU 0 goto sub_begincheck
			goto sub_wrongos
:sub_begincheck
	rem If Homedrive is H begin copy
		if "%homedrive%"=="H:" goto :sub_sethomedrive
	rem If Homedrive is not H: ask for new filepath
			ECHO Please select a location to backup the profile, it must be contained in a folder even if on an external drive due to a limiation in this script!!!
				PAUSE
					goto BrowseFolder	
:sub_sethomedrive
	rem Setup Backupdir variable to homedrive
		Set backupdir=%homedrive%
:sub_begincopy
	rem Change drive to C to setup local folders
		C:
	rem Create Directory Structure
		mkdir "%AppData%\Microsoft"
		mkdir "%AppData%\Microsoft\Outlook"
		mkdir "%AppData%\Microsoft\Signatures"
		mkdir "%LOCALAPPDATA%\microsoft\synctoy"
		mkdir "%LOCALAPPDATA%\microsoft\synctoy\2.0"
	rem Added Sticky Notes 09/09/2013
		rem mkdir "%AppData%\Microsoft\Sticky Notes"
	rem http://www.winhelponline.com/blog/recover-backup-sticky-notes-data-file-windows-10/
		mkdir "%LocalAppData%\Local\Packages\Microsoft.MicrosoftStickyNotes_8wekyb3d8bbwe\LocalState\Legacy"
	rem Added Quick Access and pinned Shortcuts 03/03/2014
		mkdir "%LOCALAPPDATA%\Microsoft\Office"
		mkdir "%AppData%\Microsoft\Internet Explorer"
		mkdir "%AppData%\Microsoft\Internet Explorer\Quick Launch"
	rem Use robocopy to copy specific folders and Echo Folder Copies, changed copy order in December 2013 to help get smaller files required for user setup done first.  Changed March 2013 to include Office Quick Access and Quick Launch
		ECHO Copying Files and Folders to %LOCALAPPDATA%\Local\Microsoft\Office
			robocopy "%backupdir%\LaptopBackup\OfficeQuickAccess" "%LOCALAPPDATA%\Microsoft\Office" *.officeUI /MT:6 /R:1 /V /W:1
		ECHO Copying Files and Folders to %AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned
			robocopy "%backupdir%\LaptopBackup\ShortcutsPinned" "%AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned" /S /MT:6 /R:1 /V /W:1
		ECHO Copying Files and Folders to %LOCALAPPDATA%\microsoft\synctoy\2.0
			robocopy "%backupdir%\LaptopBackup\SyncToy" "%LOCALAPPDATA%\microsoft\synctoy\2.0" /E /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders to %USERPROFILE%\Favorites
			robocopy "%backupdir%\LaptopBackup\Favorites" "%USERPROFILE%\Favorites" /E /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders to %USERPROFILE%\Links
			robocopy "%backupdir%\LaptopBackup\Links" "%USERPROFILE%\Links" /E /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders to %USERPROFILE%\Application Data\Microsoft\Outlook
			robocopy "%backupdir%\LaptopBackup\Outlook\Application Data" "%AppData%\Microsoft\Outlook" /E /MT:6 /R:2 /V /W:1
		ECHO Copy Files and Folder to "%LocalAppData%\Packages\Microsoft.MicrosoftStickyNotes_8wekyb3d8bbwe\LocalState\Legacy"
	rem Modified for Windows 10 where the folder has changed and the file must bhe imported via a Legavy Folder
			copy "%backupdir%\LaptopBackup\Sticky Notes\StickyNotes.snt" "%LocalAppData%\Packages\Microsoft.MicrosoftStickyNotes_8wekyb3d8bbwe\LocalState\Legacy\ThresholdNotes.snt" /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders from %AppData%\Microsoft\Signatures
			robocopy "%backupdir%\LaptopBackup\Signatures" "%AppData%\Microsoft\Signatures" /S /MT:6 /R:1 /V /W:1
		ECHO Copying Files and Folders to %USERPROFILE%\Desktop
			robocopy "%backupdir%\LaptopBackup\Desktop" "%USERPROFILE%\Desktop"  /E /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders to %AppData%\Microsoft\Windows\Recent
			robocopy "%backupdir%\LaptopBackup\Recent" "%AppData%\Microsoft\Windows\Recent" /E /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders to %USERPROFILE%\Documents
			robocopy "%backupdir%\LaptopBackup\Documents" "%USERPROFILE%\Documents" /E /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders to %USERPROFILE%\Downloads
			robocopy "%backupdir%\LaptopBackup\Downloads" "%USERPROFILE%\Downloads" /E /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders to %USERPROFILE%\My Music
			robocopy "%backupdir%\LaptopBackup\Music" "%USERPROFILE%\Music" /E /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders to %USERPROFILE%\Pictures
			robocopy "%backupdir%\LaptopBackup\Pictures" "%USERPROFILE%\Pictures" /E /MT:6 /R:2 /V /W:1
		ECHO Copying Files and Folders to %USERPROFILE%\Videos
			robocopy "%backupdir%\LaptopBackup\Videos" "%USERPROFILE%\Videos" /E /MT:6 /R:2 /V /W:1
	REM Added Sticky Notes and Printer Restore
		rem ECHO Restoring Printer Settings, this may take a while!
			rem "%windir%\System32\spool\tools\PrintBrm.exe" -R -F %backupdir%\LaptopBackup\Printers.cab
	rem Clear Screen to make it easier to view next message
		CLS
	rem Copy Complete Echo and Pause
		ECHO Your files from your previous machine have now been restored.
		ECHO Please ensure you see all your files.
			PAUSE
				EXIT

:BrowseFolder 
	rem Set Temporary files
	rem Below is the Visual Basic Script, do not indent!
		set vbs=%temp%\_.vbs
		set tmp=%temp%\_.cmd

> "%vbs%" echo set WshShell=WScript.CreateObject("WScript.Shell")
>>"%vbs%" echo set shell = WScript.CreateObject("Shell.Application")
>>"%vbs%" echo set folder=shell.BrowseForFolder(0,"Select Backup Location",0)
>>"%vbs%" echo if typename(folder)="Nothing" Then
>>"%vbs%" echo wscript.echo "set backupdir=Dialog Cancelled"
>>"%vbs%" echo WScript.Quit(1)
>>"%vbs%" echo end if
>>"%vbs%" echo set folderItems=folder.Items()
>>"%vbs%" echo set folderItem=folderItems.Item()
>>"%vbs%" echo pathname=folderItem.Path
>>"%vbs%" echo wscript.echo "set backupdir="^& chr(34) ^& pathname ^& chr(34)

	rem Run the script with WSH
		cscript //nologo "%vbs%" > "%tmp%"

	rem Read the output file and set Path as Env variable %backupdir%
		for /f "delims=" %%a in (%tmp%) do %%a
	rem Clear up
		DEL %VBS%
		DEL %TMP%
	rem Finished now go to copy
		goto :sub_begincopy
				
:sub_wrongos
	rem Wrong Operating System Detected, echo and exit
		CLS
			ECHO This script is only supported on Windows 10.  You are running
				ver
					PAUSE
						EXIT
:EOF
	rem End of File Catch for Errors
		ECHO End of file called!
			PAUSE
				EXIT

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

Echo Off

rem Checked to work against Windows 10, stickynotes amended to account for changes

rem Additional Credits https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/kOsN-QIOYEY for on the fly generation of VBS code

REM Check Windows Version is 10

ver | findstr /i "10\.0\." > nul

IF %ERRORLEVEL% EQU 0 goto sub_begincheck

goto sub_wrongos

:sub_begincheck

rem If Homedrive is H begin copy

if "%homedrive%"=="H:" goto :sub_sethomedrive

rem If Homedrive is not H: ask for new filepath

ECHO Please select a location to backup the profile, it must be contained in a folder even if on an external drive due to a limiation in this script!!!

PAUSE

goto BrowseFolder

:sub_sethomedrive

rem Setup Backupdir variable to homedrive

Set backupdir=%homedrive%

:sub_begincopy

rem Change drive to C to setup local folders

rem Create Directory Structure

mkdir "%AppData%\Microsoft"

mkdir "%AppData%\Microsoft\Outlook"

mkdir "%AppData%\Microsoft\Signatures"

mkdir "%LOCALAPPDATA%\microsoft\synctoy"

mkdir "%LOCALAPPDATA%\microsoft\synctoy\2.0"

rem Added Sticky Notes 09/09/2013

rem mkdir "%AppData%\Microsoft\Sticky Notes"

rem http://www.winhelponline.com/blog/recover-backup-sticky-notes-data-file-windows-10/

mkdir "%LocalAppData%\Local\Packages\Microsoft.MicrosoftStickyNotes_8wekyb3d8bbwe\LocalState\Legacy"

rem Added Quick Access and pinned Shortcuts 03/03/2014

mkdir "%LOCALAPPDATA%\Microsoft\Office"

mkdir "%AppData%\Microsoft\Internet Explorer"

mkdir "%AppData%\Microsoft\Internet Explorer\Quick Launch"

ECHO Copying Files and Folders to %LOCALAPPDATA%\Local\Microsoft\Office

robocopy "%backupdir%\LaptopBackup\OfficeQuickAccess" "%LOCALAPPDATA%\Microsoft\Office" *.officeUI /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders to %AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned

robocopy "%backupdir%\LaptopBackup\ShortcutsPinned" "%AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders to %LOCALAPPDATA%\microsoft\synctoy\2.0

robocopy "%backupdir%\LaptopBackup\SyncToy" "%LOCALAPPDATA%\microsoft\synctoy\2.0" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Favorites

robocopy "%backupdir%\LaptopBackup\Favorites" "%USERPROFILE%\Favorites" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Links

robocopy "%backupdir%\LaptopBackup\Links" "%USERPROFILE%\Links" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Application Data\Microsoft\Outlook

robocopy "%backupdir%\LaptopBackup\Outlook\Application Data" "%AppData%\Microsoft\Outlook" /E /MT:6 /R:2 /V /W:1

ECHO Copy Files and Folder to "%LocalAppData%\Packages\Microsoft.MicrosoftStickyNotes_8wekyb3d8bbwe\LocalState\Legacy"

rem Modified for Windows 10 where the folder has changed and the file must bhe imported via a Legavy Folder

copy "%backupdir%\LaptopBackup\Sticky Notes\StickyNotes.snt" "%LocalAppData%\Packages\Microsoft.MicrosoftStickyNotes_8wekyb3d8bbwe\LocalState\Legacy\ThresholdNotes.snt" /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders from %AppData%\Microsoft\Signatures

robocopy "%backupdir%\LaptopBackup\Signatures" "%AppData%\Microsoft\Signatures" /S /MT:6 /R:1 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Desktop

robocopy "%backupdir%\LaptopBackup\Desktop" "%USERPROFILE%\Desktop" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %AppData%\Microsoft\Windows\Recent

robocopy "%backupdir%\LaptopBackup\Recent" "%AppData%\Microsoft\Windows\Recent" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Documents

robocopy "%backupdir%\LaptopBackup\Documents" "%USERPROFILE%\Documents" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Downloads

robocopy "%backupdir%\LaptopBackup\Downloads" "%USERPROFILE%\Downloads" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\My Music

robocopy "%backupdir%\LaptopBackup\Music" "%USERPROFILE%\Music" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Pictures

robocopy "%backupdir%\LaptopBackup\Pictures" "%USERPROFILE%\Pictures" /E /MT:6 /R:2 /V /W:1

ECHO Copying Files and Folders to %USERPROFILE%\Videos

robocopy "%backupdir%\LaptopBackup\Videos" "%USERPROFILE%\Videos" /E /MT:6 /R:2 /V /W:1

REM Added Sticky Notes and Printer Restore

rem ECHO Restoring Printer Settings, this may take a while!

rem "%windir%\System32\spool\tools\PrintBrm.exe" -R -F %backupdir%\LaptopBackup\Printers.cab

rem Clear Screen to make it easier to view next message

CLS

rem Copy Complete Echo and Pause

ECHO Your files from your previous machine have now been restored.

ECHO Please ensure you see all your files.

PAUSE

EXIT

:BrowseFolder

rem Set Temporary files

rem Below is the Visual Basic Script, do not indent!

set vbs=%temp%\_.vbs

set tmp=%temp%\_.cmd

> "%vbs%" echo set WshShell=WScript.CreateObject("WScript.Shell")

>>"%vbs%" echo set shell = WScript.CreateObject("Shell.Application")

>>"%vbs%" echo set folder=shell.BrowseForFolder(0,"Select Backup Location",0)

>>"%vbs%" echo if typename(folder)="Nothing" Then

>>"%vbs%" echo wscript.echo "set backupdir=Dialog Cancelled"

>>"%vbs%" echo WScript.Quit(1)

>>"%vbs%" echo end if

>>"%vbs%" echo set folderItems=folder.Items()

>>"%vbs%" echo set folderItem=folderItems.Item()

>>"%vbs%" echo pathname=folderItem.Path

>>"%vbs%" echo wscript.echo "set backupdir="^& chr(34) ^& pathname ^& chr(34)

rem Run the script with WSH

cscript //nologo "%vbs%" > "%tmp%"

rem Read the output file and set Path as Env variable %backupdir%

for /f "delims=" %%a in (%tmp%) do %%a

rem Clear up

DEL %VBS%

DEL %TMP%

rem Finished now go to copy

goto :sub_begincopy

:sub_wrongos

rem Wrong Operating System Detected, echo and exit

CLS

ECHO This script is only supported on Windows 10. You are running

ver

PAUSE

EXIT

:EOF

rem End of File Catch for Errors

ECHO End of file called!

PAUSE

EXIT

Posted In Batch File Scripting | Windows 10 | Windows 7

CJSmith dot me

I dump stuff I find useful here

Category: Windows

Simple error checking when running batch files from T-SQL in SQL Server

Microsoft Access 2010 loader

Why use ACCDE and then ACCDR Access Front Ends

Within a batch file run a program for a certain length of time before killing it

Windows 10 Remove Unwanted Bloat from Windows 10

Outlook 2010: VBA delay sending of emails until the next working day if outside of reasonable hours

Compress and move existing Windows 2012 and Microsoft SQL Server 2008 Express backups

Synctoy 2.1 setup batch script

Simple backup and restore scripts