Windows Vista Forums
Vista Forums Home Join Vista Forums Windows 7 Forum Vista Tutorials Tags
Welcome to Windows Vista Forums. Our forum is dedicated to helping you find solutions with any problems, errors or issues you are experiencing with Windows Vista. The Vista forum also covers news and updates and has an extensive Windows Vista tutorial section that covers a wide range of tips and tricks.

Go Back   Vista Forums > Misc Newsgroups > VB Script

Vista - subinacl from script

Reply
 
Old 10-27-2008   #1 (permalink)
HoughtonPJ


 
 

subinacl from script

Hi can anyine tell me why i can't get an output when i run following
script.

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("subinacl /share \\computername
\testFolder")
strSUBINACL = objExec.StdOut.ReadAll

WScript.Echo strSUBINACL

if i replace subinacl command with "IPconfig" i get an output.

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ipconfig")
strSUBINACL = objExec.StdOut.ReadAll

testFolder does exist and if run command directly from cmd prompt i
get output:

C:\>subinacl /share \\computername\testFolder

==================================
+Share \\computername\testFolder
==================================
/control=0x0
/audit ace count =0
/perm. ace count =1
/pace =camden\camph009 ACCESS_ALLOWED_ACE_TYPE-0x0
Full Control


Elapsed Time: 00 00:00:00
Done: 1, Modified 0, Failed 0, Syntax
errors 0
Last Done : \\computername\testFolder

My System SpecsSystem Spec
Old 10-27-2008   #2 (permalink)
Pegasus \(MVP\)


 
 

Re: subinacl from script


<HoughtonPJ@xxxxxx> wrote in message
news:692367da-c9f8-42df-9d22-26f42831e1a3@xxxxxx
Quote:

> Hi can anyine tell me why i can't get an output when i run following
> script.
>
> Set objShell = CreateObject("WScript.Shell")
> Set objExec = objShell.Exec("subinacl /share \\computername
> \testFolder")
> strSUBINACL = objExec.StdOut.ReadAll
>
> WScript.Echo strSUBINACL
>
> if i replace subinacl command with "IPconfig" i get an output.
>
> Set objShell = CreateObject("WScript.Shell")
> Set objExec = objShell.Exec("ipconfig")
> strSUBINACL = objExec.StdOut.ReadAll
>
> testFolder does exist and if run command directly from cmd prompt i
> get output:
>
> C:\>subinacl /share \\computername\testFolder
>
> ==================================
> +Share \\computername\testFolder
> ==================================
> /control=0x0
> /audit ace count =0
> /perm. ace count =1
> /pace =camden\camph009 ACCESS_ALLOWED_ACE_TYPE-0x0
> Full Control
>
>
> Elapsed Time: 00 00:00:00
> Done: 1, Modified 0, Failed 0, Syntax
> errors 0
> Last Done : \\computername\testFolder
I have always found it difficult to work with subinacl.exe. Somehow its
syntax eludes me. Why not use xacls.vbs? AFAIK, it gives you everything that
subinacl.exe does and you don't need to shell out to an exe file. You can
get it from here:
http://download.microsoft.com/downlo..._installer.exe


My System SpecsSystem Spec
Old 10-27-2008   #3 (permalink)
Richard Mueller [MVP]


 
 

Re: subinacl from script


<HoughtonPJ@xxxxxx> wrote in message
news:692367da-c9f8-42df-9d22-26f42831e1a3@xxxxxx
Quote:

> Hi can anyine tell me why i can't get an output when i run following
> script.
>
> Set objShell = CreateObject("WScript.Shell")
> Set objExec = objShell.Exec("subinacl /share \\computername
> \testFolder")
> strSUBINACL = objExec.StdOut.ReadAll
>
> WScript.Echo strSUBINACL
>
> if i replace subinacl command with "IPconfig" i get an output.
>
> Set objShell = CreateObject("WScript.Shell")
> Set objExec = objShell.Exec("ipconfig")
> strSUBINACL = objExec.StdOut.ReadAll
>
> testFolder does exist and if run command directly from cmd prompt i
> get output:
>
> C:\>subinacl /share \\computername\testFolder
>
> ==================================
> +Share \\computername\testFolder
> ==================================
> /control=0x0
> /audit ace count =0
> /perm. ace count =1
> /pace =camden\camph009 ACCESS_ALLOWED_ACE_TYPE-0x0
> Full Control
>
>
> Elapsed Time: 00 00:00:00
> Done: 1, Modified 0, Failed 0, Syntax
> errors 0
> Last Done : \\computername\testFolder

Maybe you need to include a path when you run the program.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--


My System SpecsSystem Spec
Reply

Thread Tools


Similar Threads
Thread Forum
Logon Script Causing Laptops To Hang - Problems in script? VB Script
problem passing args to script 'There is no script engine for file extenstion' VB Script
subinacl - vbscript VB Script
SubInACL with Vista and 2008? PowerShell
SubInAcl + Windows x64 General Discussion


Vista Forums is an independent web site and has not been authorized,
sponsored, or otherwise approved by Microsoft Corporation.
"Windows Vista", the Start Orb, and related materials are trademarks of Microsoft Corp.
© Designer Media Ltd

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46