VPF::VBS и сетевые диски - Форум программистов

SkyHawk

Дата 20.5.2008, 06:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 164
Регистрация: 17.8.2006
Где: г. Новосибирск

Репутация: 1
Всего: 2

Доброго времени суток! Помогите!
Есть рабочая группа. Пытаюсь написать скрипт, который бы удаленно заставлял компьютер копировать определенный файл с сетевого ресурса. Проблема в том, что копирование файликов внутри локальных дисков выполняется без проблем, а вот с сетевых ресурсов - не хочет... :( Как можно побороть данную проблему? Текст скрипта прилагаю.

Код


' скрипт копирования файла
strComputer = "COMP1"        
srcDrive="T:"
srcName="T:\\1\\123.txt"
destFile="c:\\1\\2.txt"
 
Set oFile=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\Cimv2")

QueryString="Select * from CIM_DataFile where Drive= '" & srcDrive & "' and Name= '" & srcName & "'"

Set colItems = oFile.ExecQuery(QueryString)

For Each objItem in colItems
  R=objItem.Copy(destFile)
  WScript.Echo R
Next
WScript.Echo "Конец!"

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

Быть может все, что может быть, И даже то, что быть не может.