Необходимо с сетевого ресурса скопировать папку на ПК пользователя. от имени другого доменного пользователя
в скрипте ошибка. где-то пароль не проходит. Подскажите где ошибка.
Код:
Код: Выделить всё
set WshShell = WScript.CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set objShare = objWMIService.Get("Win32_Service.Name='linemon'")
Set objShare = objWMIService.Get("Win32_Service.Name='avp'")
Set objOutParams = objWMIService.ExecMethod("Win32_Service.Name='Linemon'", "StopService")
Set objOutParams = objWMIService.ExecMethod("Win32_Service.Name='avp'", "StopService")
Const OverWriteFiles = True
sFolder = "\\192.168.1.1\klshare\stat"
dFolder = "C:\Documents and Settings\All Users\Application Data\Kaspersky Lab\AVP60MP4\Bases\stat"
Set objFSO = CreateObject ("scripting.fileSystemObject")
WshShell.run "runas /user:domen\user ""objFSO.CopyFolder sFolder, dFolder , OverWriteFiles"""
WScript.Sleep 1000
WshShell.SendKeys "pass" 'send password
WshShell.SendKeys "{ENTER}"
WScript.Sleep 60000*0.1
WshShell.SendKeys "exit" 'Close command prompt
WshShell.SendKeys "{ENTER}"
Set objOutParams = objWMIService.ExecMethod("Win32_Service.Name='avp'", "StartService")
WScript.Sleep 60000*0.1
Set objOutParams = objWMIService.ExecMethod("Win32_Service.Name='Linemon'", "StartService")
.