Скрипт Update.Файл существует

[yastreb_oren]

Здравствуйте.
Подскажите пожалуйста где косяк.Я недавно началь использовать скрипты, и поэтому не пойму в чем дело.
Есть скрипт который проверяет наличие необходимых папоки если их нет то копирует их с сервера(Виндоус 2003) на клиент(ХР).
===================================================
Set objFolder = CreateObject("Scripting.FileSystemObject")
If objFolder.FolderExists("D:\LANG") Then
Else
Set objFolder = objFolder.CreateFolder("D:\LANG")
End If

Set objBP = CreateObject("Scripting.FileSystemObject")
If objBP.FolderExists("D:\LANG\BP") Then
Else
objBP.CopyFolder "\\Servervt\ProgrammStudent$\BP" , "D:\LANG\" , OverWriteFiles
End If

Set objBC = CreateObject("Scripting.FileSystemObject")
If objBC.FolderExists("D:\LANG\BC") Then
Else
objBC.CopyFolder "\\Servervt\ProgrammStudent$\BC" , "D:\LANG\" , OverWriteFiles
End If
=======================================================
Этот крипт при загрузке выдает сообщение об ошибке: Файл уже существует существует. А вот если убрать добавлен ие последней папки. Т.Е.
=======================================================
Set objFolder = CreateObject("Scripting.FileSystemObject")
If objFolder.FolderExists("D:\LANG") Then
Else
Set objFolder = objFolder.CreateFolder("D:\LANG")
End If

Set objBP = CreateObject("Scripting.FileSystemObject")
If objBP.FolderExists("D:\LANG\BP") Then
Else
objBP.CopyFolder "\\Servervt\ProgrammStudent$\BP" , "D:\LANG\" , OverWriteFiles
End If
===========================================================

ТО все нормально.Копируется без ошибок. Подскажите кто знает в чем проблема

[yastreb_oren]

Все нашел косяк. скрипт работал даже по сле того когда я завершал сеанс пользователя, а когда снова входил под ним(без перещагрузки) запускалась вторая кпия скрипта и они мешали друг другу.
РЕШЕНО