Source Code - Cut and paste from the Source Code field. Website Information Author Bradley Buskey Email deckyon@gmail.com Website http://scripts.deckyon.com Script Name Restore Desktop Language VBS Purpose This script was created to restore the desktop of a use migrated with a different tool. The other tool did not restore the desktop, even though it backed it up. Source Code - Use <CTRL> - <A> to select all and then <CTRL> - <C> to Copy the text. Option Explicit Dim strComputer, SWBemlocator, objWMIService, colItems, wshShell, oFS, WshNetwork Dim varUsername, arrUserName, strUsername, strSource, strDestination, zip, InstallErr Dim objItem strComputer = "." Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) Set wshShell = CreateObject ("Wscript.Shell") Set oFS = CreateObject ("Scripting.FileSystemObject") Set WshNetwork = WScript.CreateObject("WScript.Network") For Each objItem in colItems varUsername = objItem.UserName arrUserName = Split(varUsername, "\", -1, 1) strUsername = arrUserName(1) Next strSource = "\\louwpfs01\usmt$\" & strUsername strDestination = "C:\Documents and Settings\" & strUsername wscript.echo strUsername & vbCRLF & strSource & vbCRLF & strDestination zip = "F:\USMT\BIN\7za.exe" Install zip, " x -pmmcgmd -y -o" & Chr(34) & strDestination & Chr(34) & " " & strSource & "\AR_Desktop.zip", 7, True, "1" wscript.echo "Desktop restore is now complete." Sub Install(sProg, sOpt, sWindow, sWait, sExcep) On Error Resume Next If Not oFS.FileExists(strSource & "\AR_Desktop.zip") Then wscript.echo "Desktop Backup File does not exist." wscript.quit Else InstallErr = wshShell.Run (Chr(34) & sProg & Chr(34) & sOpt, sWindow, sWait) End If End Sub

Deckyon's Script Center - Select a script to see the source code and purpose. View Script Name Language Author Email Website SysInfo VBS Bradley Buskey GroupMembers VBS Bradley Buskey UserInfo VBS Bradley Buskey WB Emailer WinBatch Bradley Buskey GeoConvert WinBatch Bradley Buskey CheckWks WinBatch Bradley Buskey Template - View PHP/HTML Bradley Buskey Template - Admin PHP/HTML Bradley Buskey Template - DB Functions PHP Bradley Buskey Template - Table SQL Bradley Buskey Rollover Javascript Bradley Buskey Restore Desktop VBS Bradley Buskey User Backup VBS Bradley Buskey Printer Map VBS Bradley Buskey Ghost Server VBS Bradley Buskey Profile Remover VBS Bradley Buskey