UNC Path Error when running Shell

[AccessPower]

Hey Everyone,



So I'm trying to run a script from Access, but I keep getting an error. The issue is that all user accounts on my network are migrated to a server, so cmd starts in a UNC path, which is apparently not supported according to the error. I am trying to use this code:

Dim sPath As String
sPath = "cmd / k S:\Workgroups\Information Resources\Validation\"
sCommand = "RunValidationTest.wsf RemoteValidation"


Call Shell(Environ$("COMSPEC") & " /k " & """ & sPath & """ & sCommand, vbNormalFocus)

This I managed to get to run without the UNC error, but I can tell it isn't working because the /k switch isn't working (the window closes) and no email is sent.

Any ideas as to how to go about this? I am stuck at this point.

Edit:

I tried a few other things. I tried to get Application.followhyperlink to run a cmd file that references the wsf file. That didn't work either. Just opens/closes. I don't see anything, and when I try to pipe the output to a txtfile to see if there is an error, it's blank. lol

Thanks!

[aytee111]

There is also ShellExecute.

[AccessPower]

It still isn't working. I think i may just have to recode the vbs in VBA.

[AccessPower]

So for those of you looking for an answer for this, what I did was have the script file check for a pc name inside of a text file in the temp folder (if found, it uses the pc name as a variable and then deleted the file when it's done). I had access create the file and write the pc name to it. Then I had access shell open the executable. It works like a charm.

[Micron]

Thanks for sharing your solution! I was going to dive into my notes about UNC paths in command files, but I'm not sure what sCommand is in your code. Then I suspected the spaces in your path needed hard coded quotes around it (inside the quotes used to assign the string to the variable) so that it becomes
"S:\Workgroups\Information Resources\Validation" and not
S:\Workgroups\Information Resources\Validation\