Login Script to copy shared folder to user desktops

[trevstonbury]

Hi Guys.

This is probably a fairly simple one for but I am quite a novice with scripts.

Bascialy I want a script to be able to copy a directory in a share from a server to all user desktops when they login, so far I have the following;

If possible can it be set so that it only copies the directory if it see's is does not exist? Any help would be much appreciated


Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "file://server/share/foldertocopy" , "%userprofile%\desktop" , OverWriteFiles

 

[PHV]

have a look at the FolderExists method.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GrimR]

Here's a start

Option Explicit
'On Error Resume Next

Dim WshShell, Desktop, FolderName, DestDir, oFSO, NewFolder

FolderName = "SomeFolder"

'Variables
Set WshShell = CreateObject( "WScript.Shell" )
Desktop = = WshShell.SpecialFolders("Desktop")
SDir = "\\server\share"
DDir = Desktop & "\" & FolderName

'Look for "Somefolder" Folder on user desktop - if not there then create it.
Set oFso = CreateObject("Scripting.FileSystemObject")

If Not oFso.FolderExists(DDir) Then
'Create New Folder
   oFso.CreateFolder(DDir)
End If

objFSO.CopyFile SDir, DDir, overwrite = True

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP

 

[tsuji]

>objFSO.CopyFolder "file://server/share/foldertocopy" , "%userprofile%\desktop" , OverWriteFiles
[tt]objFSO.CopyFolder "\\server\share\foldertocopy" , createobject("wscript.shell").expandenvironmentstrings("%userprofile%\desktop"), OverWriteFiles [/tt]

 

[trevstonbury]

I have managed to get the following working;

its pretty basic but at the moment the destination doesnt work; %userprofile%\desktop\destfolder

I get a 'path not found error'

dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists("\\server\folder") Then
filesys.CopyFolder "\\storage-server\Support\Default Client Install\Desktop Shortcuts\", "%userprofile%\desktop\destfolder"
End If

 

[GrimR]

tsuji showed you already.

Dim WshShell:Set WshShell = WScript.CreateObject("WScript.Shell")
Dim filesys:Set filesys=CreateObject("Scripting.FileSystemObject")
strUserProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
If filesys.FolderExists("\\server\folder") Then
	filesys.CopyFolder "\\storage-server\Support\Default Client Install\Desktop Shortcuts\", strUserProfile &  "\Desktop\destfolder", overwrite = False
End If

you may want to wscript.echo the destination path to check it's correct.
e.g.

Dim WshShell:Set WshShell = WScript.CreateObject("WScript.Shell")
Dim filesys:Set filesys=CreateObject("Scripting.FileSystemObject")
	strUserProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%")

source = "\\storage-server\Support\Default Client Install\Desktop Shortcuts\"
dest =  strUserProfile &  "\Desktop\destfolder"

wscript.echo dest

If filesys.FolderExists("\\server\folder") Then
	filesys.CopyFolder source, dest, overwrite = False
End If

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP

 

[trevstonbury]

Thanks guys, sorry like I said im a total novice with these;

I have tried running the code you sent below GrimR but am getting an error. Line 3, char 5, error: object required: 'objShell'



Dim WshShell:Set WshShell = WScript.CreateObject("WScript.Shell")
Dim filesys:Set filesys=CreateObject("Scripting.FileSystemObject")
strUserProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%")

source = "\\storage-server\Support\Default Client Install\Desktop Shortcuts"
dest = strUserProfile & "\Desktop\destfolder"

wscript.echo dest

If filesys.FolderExists("\\storage-server\Support\Default Client Install\Desktop Shortcuts") Then
filesys.CopyFolder source, dest, overwrite = False
End If

 

[GrimR]

Just change this
strUserProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
To
strUserProfile = wshShell.ExpandEnvironmentStrings("%USERPROFILE%")



MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP

 

[tsuji]

also
>overwrite = False
at its place, should be simply
[tt]False[/tt]
or according to need
[tt]True[/tt]