Permission denied

[dniskin]

This is my code, but it says on line 16 char 1 permission is denied:

Const HIDDEN_WINDOW = 12
strComputer = "ADMIN-PC"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create _
("cmd /K cd C:\Program Files\ & md NetMessage", null, objConfig, intProcessID)

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFile "\\ADMIN-PC\C$\Program Files\receiver.exe", "\\ADMIN-PC\C$\Program

Files\NetMessage", OverWriteExisting

strComputer = "ADMIN-PC"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create _
("cmd /K cd C:\Program Files\NetMessage & receiver.exe", null, objConfig, intProcessID)

Any ideas?

 

[PHV]

Replace this:
("cmd /K cd C:\Program Files\ & md NetMessage", null, objConfig, intProcessID)
with this:
("cmd /K cd ""C:\Program Files\"" & md NetMessage", null, objConfig, intProcessID)

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

 

[dniskin]

Sorry didn't help, the problem is with the objFSO.CopyFile line. Thanks anyway.

 

[PHV]

Sorry didn't help
Your original code didn't raise any error on that line ?
Anyway, what about this:
objFSO.CopyFile "\\ADMIN-PC\C$\Program Files\receiver.exe", "\\ADMIN-PC\C$\Program Files\NetMessage\receiver.exe", OverWriteExisting

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

 

[PHV]

In fact, you had a problem at least here:
objFSO.CopyFile "\\ADMIN-PC\C$\Program Files\receiver.exe", "\\ADMIN-PC\C$\Program Files\NetMessage[highlight][!]\[/!][/highlight]", OverWriteExisting

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

 

[dniskin]

Thanks for your help, but sadly it's still not working.

 

[PHV]

You obviously have necessary credentials on ADMIN-PC ?
What happens if you do the same thing manually ?

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

 

[dniskin]

It works manually, yes I have the necessary credentials. Should I making 3 scripts instead of 1 i.e split it up?

 

[PHV]

What is your actual code (as I suggested 3 modifications: 2 for cmd /K and 1 for CopyFile)

BTW, \\ADMIN-PC\C$\Program Files\receiver.exe is open by no one at the time you try to copy it ?

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

 

[dniskin]

Yes it was open I looked in processes, my script had worked once but under a hidden window, then when I tried to do it again, it came up with permission denied and has done since. Thanks for your help.

 

[PHV]

Just to know, did you apply the 3 modifications I suggested you ?

 

[dniskin]

Yes, one of them was not helpful, this was the one concerning changing the path of my program. Thankyou.

 

[PHV]

So, for the benefit of other members, what is your actual working code ?

 

[dniskin]

Const HIDDEN_WINDOW = 12
strComputer = "ADMIN-PC"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create _
("cmd /K cd C:\Program Files\ & md NetMessage & exit", null, objConfig, intProcessID)

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFile "C:\Program Files\NetMessage\receiver.exe", "\\ADMIN-PC\C$\Program Files\NetMessage\", OverWriteExisting

strComputer = "ADMIN-PC"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create _
("cmd /K cd C:\Program Files\NetMessage & receiver.exe", null, objConfig, intProcessID)

 

[mrmovie]

try to get out of the habit of binding to WMI root and classes etc over and over again in your scripts, it is not required and the more often you bind the slower your scripts become