How to excecute xcacls from vbs script? 2

[confusedtekguy]

I need to create a script in vbs that opens xcacls on

\\server1\Resource kit
and run the following command on the command line

D:\users\%username% /G %username%:F /R everyone

Where %username% is the current username, and xcacls is ran off the server.
Is this possible? Thanks for your help!

 

[PHV]

You can try something like this:

cmd=Chr(34)&"\\server1\Resource kit\xcacls"&Chr(34)
arg="D:\users\%USERNAME% /G %USERNAME%:F /R everyone"
Set Sh=Wscript.CreateObject("Wscript.Shell")
ReturnCode=Sh.Run(cmd&" "&arg,1,True)

Hope This Help
PH.

 

[confusedtekguy]

That worked perfectly! One thing though... when I run the script, xcacl.exe comes up with the prompt "Do you wish to continue (Y/N)?" and I have to type in "y" for it to continue, is there a way to do that from the script?

 

[PHV]

Try this:

cmd=Chr(34)&"\\server1\Resource kit\xcacls"&Chr(34)
arg="D:\users\%USERNAME% /G %USERNAME%:F /R everyone"
Set Sh=Wscript.CreateObject("Wscript.Shell")
Sh.Run cmd&" "&arg,1,False
Sh.Sleep 1000
Sh.SendKeys "Y~"

Hope This Help
PH.

 

[confusedtekguy]

I ran that, but I'm getting an error on the Sh.Sleep line. When I comment it out, it runs but still get the same Y/N prompt.

 

[confusedtekguy]

Oh, the error is "Object doesn'T support this property or method: 'Sh.Sleep'"

 

[confusedtekguy]

Ok, I got it... I think:

cmd=Chr(34)&"\\smcd1\Resource kit\xcacls"&Chr(34)
arg="F:\users\%USERNAME% /G SMC\%USERNAME%:F administrators:F"
Set Sh = Wscript.CreateObject("Wscript.Shell&quot
Sh.Run cmd&" "&arg,1,False
Wscript.sleep 500
Sh.SendKeys "Y~"
Wscript.sleep 500
Sh.SendKeys "{ENTER}"

 

[confusedtekguy]

Ok, I got it... I think:

cmd=Chr(34)&"\\smcd1\Resource kit\xcacls"&Chr(34)
arg="F:\users\%USERNAME% /G SMC\%USERNAME%:F administrators:F"
Set Sh = Wscript.CreateObject("Wscript.Shell&quot
Sh.Run cmd&" "&arg,1,False
Wscript.sleep 500
Sh.SendKeys "Y~"
Wscript.sleep 500
Sh.SendKeys "{ENTER}"

Thanks for the help PHV

 

[PHV]

I'm sorry for the typo on the Sleep line. Glad you fixed it yourself.