Script to backup file and export favorites 1

[butkus]

Does anyone have a script that will export a users favorites (from a W2K machine) and also copy files to a network location?

I'm not a programmer, and therefore have no idea how to begin scripting this. The problem I see with scripting a traditional copy (for favorites) is that more than one user could have used the networked computer at some time, and created their own user profile. How then do you have the script just copy for the user logged in if multiple profiles exist. As always, anything will help.

Thanks
James

 

[ralphtrent]

'start script

Dim onet, ofso
'create network object
Set onet = CreateObject("wscript.network&quot

'create file system objects
set ofso = CreateObject("scripting.filesystemobject&quot

'copy favorites folder of current logged on user to c:\temp
call ofso.CopyFolder("C:\Documents and Settings\"&onet.UserName&"\Favorites","c:\temp\&quot

'destroy objects
set ofso = nothing
set onet = nothing

'end script

of couse you would replace "c:\temp\" with your desired sourse. You might need to use a system variable for the documents and folder location since it may be different on each computer, but IM not sure that that is, or is one even exsist. Hope this helps.

 

[ralphtrent]

use this instead, it will use the system variables:

'begin script
Dim onet, ofso, oshell
Set onet = CreateObject("wscript.network&quot
Set oshell = CreateObject("wscript.shell&quot
Set ofso = CreateObject("scripting.filesystemobject&quot
call ofso.CopyFolder(oshell.SpecialFolders.item("Favorites&quot,"c:\temp\&quot
set oNet = nothing
set oShell = nothing
set ofso = nothing

'end script

still need to replace c:\temp with desired source though

 

[butkus]

Both examples work like a champ. Thank you both