Kwoon
22-01-2015, 06:50
Здравствуйте уважаемые форумчане.
Возникла проблема при запуске скрепта vbs на удаленной машине через wmi.
Суть есть два ПК Comp1 и Comp2 оба в домене, пользователи на ПК доменные является администраторами для обоих ПК. Пытаюсь выполнить скрипт vbs с comp2 на comp1
Set objWMIService = GetObject ("winmgmts:\\ comp1\root\cimv2:Win32_Process")
Result = objWMIService.Create ("wscript.exe c:\batva\Combin\ comp1.vbs", Null, Null, intProcessID)
Скрипт comp1.vbs
Dim oFSO, oFolder, oFilesCollection
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("\\comp2\C$\CombinAt")
Set oFilesCollection = oFolder.Files
For Each oFile in oFilesCollection
oFile.Copy("\\comp1\c$\Batva\Combin\" & oFile.Name)
Next
При запуски скрипта на comp1 появляется процесс wscript.exe но скрипт comp1.vbs
не отрабатывает .
Смотрел синтексес wscript.exe вроде все верно права все есть почему не отрабатывает не понятно.
Если кто сталкивался с подобной проблемой помогите пожалуйста.
Возникла проблема при запуске скрепта vbs на удаленной машине через wmi.
Суть есть два ПК Comp1 и Comp2 оба в домене, пользователи на ПК доменные является администраторами для обоих ПК. Пытаюсь выполнить скрипт vbs с comp2 на comp1
Set objWMIService = GetObject ("winmgmts:\\ comp1\root\cimv2:Win32_Process")
Result = objWMIService.Create ("wscript.exe c:\batva\Combin\ comp1.vbs", Null, Null, intProcessID)
Скрипт comp1.vbs
Dim oFSO, oFolder, oFilesCollection
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("\\comp2\C$\CombinAt")
Set oFilesCollection = oFolder.Files
For Each oFile in oFilesCollection
oFile.Copy("\\comp1\c$\Batva\Combin\" & oFile.Name)
Next
При запуски скрипта на comp1 появляется процесс wscript.exe но скрипт comp1.vbs
не отрабатывает .
Смотрел синтексес wscript.exe вроде все верно права все есть почему не отрабатывает не понятно.
Если кто сталкивался с подобной проблемой помогите пожалуйста.