Take ownership of multiple folders?

I have the following script that will take ownership of 1 folder, what
I want to do is to have this take ownership of a large amount of
folders at once by either pulling the folder name from a text file or
just listing it in the script. So I have a directory called owner and
say I have 10 folders under that called 1 through 10.. is this
possible?

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * From Win32_Directory Where Name = 'C:\\Owner'")

For Each objFolder in colFolders
objFolder.TakeOwnershipEx
Next

bob
Thu Nov 09 10:35:21 CST 2006

sure. create a text file at C:\folders.txt that contains the full path to
each folder you want to take ownership of, one per line.

watch the wrap...

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set fso = CreateObject("Scripting.FileSystemObject")
Set infile = fso.OpenTextFile("c:\folders.txt")
Do While Not infile.AtEndOfStream
strFolder = Trim(infile.ReadLine)
Set colFolders = objWMIService.ExecQuery("Select * From Win32_Directory
Where Name = '" & strFolder & "'")
For Each objFolder in colFolders
objFolder.TakeOwnershipEx
Next
Loop




"rtm" <mcmullin10@comcast.net> wrote in message
news:1163088477.871191.192170@m73g2000cwd.googlegroups.com...
>I have the following script that will take ownership of 1 folder, what
> I want to do is to have this take ownership of a large amount of
> folders at once by either pulling the folder name from a text file or
> just listing it in the script. So I have a directory called owner and
> say I have 10 folders under that called 1 through 10.. is this
> possible?
>
> strComputer = "."
>
> Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> "\root\cimv2")
> Set colFolders = objWMIService.ExecQuery _
> ("Select * From Win32_Directory Where Name = 'C:\\Owner'")
>
> For Each objFolder in colFolders
> objFolder.TakeOwnershipEx
> Next
>

rtm
Thu Nov 09 11:42:42 CST 2006

I'm getting the following when running, any ideas?

C:\Take Ownership Loop.vbs(25, 5) (null): 0x80041017

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set fso = CreateObject("Scripting.FileSystemObject")
Set infile = fso.OpenTextFile("c:\folders.txt")
Do While Not infile.AtEndOfStream
strFolder = Trim(infile.ReadLine)
Set colFolders = objWMIService.ExecQuery("Select * From
Win32_Directory Where Name = '" & strFolder & "'")
For Each objFolder in colFolders
objFolder.TakeOwnershipEx
Next
Loop

bob
Thu Nov 09 12:16:25 CST 2006

either the path doesnt exist, or... i noticed in your original example you
were using 2 slashes "\\"... maybe you need that? if so just append it to
the string

or try this for error checking:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set fso = CreateObject("Scripting.FileSystemObject")
Set infile = fso.OpenTextFile("c:\folders.txt")
Do While Not infile.AtEndOfStream
strFolder = Trim(infile.ReadLine)
On Error Resume Next
Set colFolders = objWMIService.ExecQuery("Select * From Win32_Directory
Where Name = '" & strFolder & "'")
If err.number <> 0 Then
wscript.echo err.number & vbnewline & err.description
exit do
End if
For Each objFolder in colFolders
objFolder.TakeOwnershipEx
Next
Loop



"rtm" <mcmullin10@comcast.net> wrote in message
news:1163094162.838987.300450@i42g2000cwa.googlegroups.com...
> I'm getting the following when running, any ideas?
>
> C:\Take Ownership Loop.vbs(25, 5) (null): 0x80041017
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> "\root\cimv2")
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set infile = fso.OpenTextFile("c:\folders.txt")
> Do While Not infile.AtEndOfStream
> strFolder = Trim(infile.ReadLine)
> Set colFolders = objWMIService.ExecQuery("Select * From
> Win32_Directory Where Name = '" & strFolder & "'")
> For Each objFolder in colFolders
> objFolder.TakeOwnershipEx
> Next
> Loop
>

rtm
Thu Nov 09 14:12:39 CST 2006

Perfect! Thank you bob m, it was the \\ in the folders :)