I want to write a simple vbscript to delete a folder on a share on our
NetApp Filer. I don't know how exactly I can define this in a vbscript. If
I map a drive to it, it doesn't work (I didn't think it would but had to
try). Code below I haven't tried since I don't know how I would integrate
it being that there are no physical drives exposed... This was pulled from
Microsoft's Script Center.

Does anyone have a snippet they could provide?

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where Name = 'c:\\Scripts'")

For Each objFolder in colFolders
errResults = objFolder.Delete
Next

--
Paul Bergson
MVP - Directory Services
MCT, MCSE, MCSA, Security+, BS CSci
2003, 2000 (Early Achiever), NT

http://www.pbbergs.com

Please no e-mails, any questions should be posted in the NewsGroup
This posting is provided "AS IS" with no warranties, and confers no rights.

Re: Delete Folder on a SAN (NetApp) by Paul

Paul
Thu Jan 31 13:54:42 CST 2008

Well I have it partially working, I can unc copy it (As opposed to just
doing a move) but I am unable to delete it. Get an error about permission
denied yet as the same user I can delete it. I have taken ownership and
defined the permissions to be read/write and still no luck. DANG!

--
Paul Bergson
MVP - Directory Services
MCT, MCSE, MCSA, Security+, BS CSci
2003, 2000 (Early Achiever), NT

http://www.pbbergs.com

Please no e-mails, any questions should be posted in the NewsGroup
This posting is provided "AS IS" with no warranties, and confers no rights.

"Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
news:OMiCoEDZIHA.3964@TK2MSFTNGP03.phx.gbl...
>I want to write a simple vbscript to delete a folder on a share on our
>NetApp Filer. I don't know how exactly I can define this in a vbscript. If
>I map a drive to it, it doesn't work (I didn't think it would but had to
>try). Code below I haven't tried since I don't know how I would integrate
>it being that there are no physical drives exposed... This was pulled from
>Microsoft's Script Center.
>
> Does anyone have a snippet they could provide?
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
>
> Set colFolders = objWMIService.ExecQuery _
> ("Select * from Win32_Directory where Name = 'c:\\Scripts'")
>
> For Each objFolder in colFolders
> errResults = objFolder.Delete
> Next
>
> --
> Paul Bergson
> MVP - Directory Services
> MCT, MCSE, MCSA, Security+, BS CSci
> 2003, 2000 (Early Achiever), NT
>
> http://www.pbbergs.com
>
> Please no e-mails, any questions should be posted in the NewsGroup
> This posting is provided "AS IS" with no warranties, and confers no
> rights.
>
>



Re: Delete Folder on a SAN (NetApp) by Paul

Paul
Thu Jan 31 16:07:42 CST 2008

Placing a True (To force delete) seemed to do the trick, but I wanted to do
a move ended up instead doing a copy and delete
objFSOUser.DeleteFolder txtSourceFolder, True


--
Paul Bergson
MVP - Directory Services
MCT, MCSE, MCSA, Security+, BS CSci
2003, 2000 (Early Achiever), NT

http://www.pbbergs.com

Please no e-mails, any questions should be posted in the NewsGroup
This posting is provided "AS IS" with no warranties, and confers no rights.

"Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
news:%23DJngMEZIHA.1208@TK2MSFTNGP03.phx.gbl...
> Well I have it partially working, I can unc copy it (As opposed to just
> doing a move) but I am unable to delete it. Get an error about permission
> denied yet as the same user I can delete it. I have taken ownership and
> defined the permissions to be read/write and still no luck. DANG!
>
> --
> Paul Bergson
> MVP - Directory Services
> MCT, MCSE, MCSA, Security+, BS CSci
> 2003, 2000 (Early Achiever), NT
>
> http://www.pbbergs.com
>
> Please no e-mails, any questions should be posted in the NewsGroup
> This posting is provided "AS IS" with no warranties, and confers no
> rights.
>
> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
> news:OMiCoEDZIHA.3964@TK2MSFTNGP03.phx.gbl...
>>I want to write a simple vbscript to delete a folder on a share on our
>>NetApp Filer. I don't know how exactly I can define this in a vbscript.
>>If I map a drive to it, it doesn't work (I didn't think it would but had
>>to try). Code below I haven't tried since I don't know how I would
>>integrate it being that there are no physical drives exposed... This was
>>pulled from Microsoft's Script Center.
>>
>> Does anyone have a snippet they could provide?
>>
>> strComputer = "."
>> Set objWMIService = GetObject("winmgmts:" _
>> & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
>>
>> Set colFolders = objWMIService.ExecQuery _
>> ("Select * from Win32_Directory where Name = 'c:\\Scripts'")
>>
>> For Each objFolder in colFolders
>> errResults = objFolder.Delete
>> Next
>>
>> --
>> Paul Bergson
>> MVP - Directory Services
>> MCT, MCSE, MCSA, Security+, BS CSci
>> 2003, 2000 (Early Achiever), NT
>>
>> http://www.pbbergs.com
>>
>> Please no e-mails, any questions should be posted in the NewsGroup
>> This posting is provided "AS IS" with no warranties, and confers no
>> rights.
>>
>>
>
>



Re: Delete Folder on a SAN (NetApp) by John

John
Thu Jan 31 19:30:19 CST 2008

Did you have antivirus enabled on the filer?


"Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
news:eI0p0WFZIHA.748@TK2MSFTNGP04.phx.gbl...
> Placing a True (To force delete) seemed to do the trick, but I wanted to
> do a move ended up instead doing a copy and delete
> objFSOUser.DeleteFolder txtSourceFolder, True
>
>
> --
> Paul Bergson
> MVP - Directory Services
> MCT, MCSE, MCSA, Security+, BS CSci
> 2003, 2000 (Early Achiever), NT
>
> http://www.pbbergs.com
>
> Please no e-mails, any questions should be posted in the NewsGroup
> This posting is provided "AS IS" with no warranties, and confers no
> rights.
>
> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
> news:%23DJngMEZIHA.1208@TK2MSFTNGP03.phx.gbl...
>> Well I have it partially working, I can unc copy it (As opposed to just
>> doing a move) but I am unable to delete it. Get an error about
>> permission denied yet as the same user I can delete it. I have taken
>> ownership and defined the permissions to be read/write and still no luck.
>> DANG!
>>
>> --
>> Paul Bergson
>> MVP - Directory Services
>> MCT, MCSE, MCSA, Security+, BS CSci
>> 2003, 2000 (Early Achiever), NT
>>
>> http://www.pbbergs.com
>>
>> Please no e-mails, any questions should be posted in the NewsGroup
>> This posting is provided "AS IS" with no warranties, and confers no
>> rights.
>>
>> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
>> news:OMiCoEDZIHA.3964@TK2MSFTNGP03.phx.gbl...
>>>I want to write a simple vbscript to delete a folder on a share on our
>>>NetApp Filer. I don't know how exactly I can define this in a vbscript.
>>>If I map a drive to it, it doesn't work (I didn't think it would but had
>>>to try). Code below I haven't tried since I don't know how I would
>>>integrate it being that there are no physical drives exposed... This was
>>>pulled from Microsoft's Script Center.
>>>
>>> Does anyone have a snippet they could provide?
>>>
>>> strComputer = "."
>>> Set objWMIService = GetObject("winmgmts:" _
>>> & "{impersonationLevel=impersonate}!\\" & strComputer &
>>> "\root\cimv2")
>>>
>>> Set colFolders = objWMIService.ExecQuery _
>>> ("Select * from Win32_Directory where Name = 'c:\\Scripts'")
>>>
>>> For Each objFolder in colFolders
>>> errResults = objFolder.Delete
>>> Next
>>>
>>> --
>>> Paul Bergson
>>> MVP - Directory Services
>>> MCT, MCSE, MCSA, Security+, BS CSci
>>> 2003, 2000 (Early Achiever), NT
>>>
>>> http://www.pbbergs.com
>>>
>>> Please no e-mails, any questions should be posted in the NewsGroup
>>> This posting is provided "AS IS" with no warranties, and confers no
>>> rights.
>>>
>>>
>>
>>
>
>



Re: Delete Folder on a SAN (NetApp) by Paul

Paul
Fri Feb 01 07:36:34 CST 2008

Yeah

--
Paul Bergson
MVP - Directory Services
MCT, MCSE, MCSA, Security+, BS CSci
2003, 2000 (Early Achiever), NT

http://www.pbbergs.com

Please no e-mails, any questions should be posted in the NewsGroup
This posting is provided "AS IS" with no warranties, and confers no rights.

"John Fullbright" <fjohn@donotspamnetappdotcom> wrote in message
news:%23OcKDIHZIHA.4808@TK2MSFTNGP05.phx.gbl...
> Did you have antivirus enabled on the filer?
>
>
> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
> news:eI0p0WFZIHA.748@TK2MSFTNGP04.phx.gbl...
>> Placing a True (To force delete) seemed to do the trick, but I wanted to
>> do a move ended up instead doing a copy and delete
>> objFSOUser.DeleteFolder txtSourceFolder, True
>>
>>
>> --
>> Paul Bergson
>> MVP - Directory Services
>> MCT, MCSE, MCSA, Security+, BS CSci
>> 2003, 2000 (Early Achiever), NT
>>
>> http://www.pbbergs.com
>>
>> Please no e-mails, any questions should be posted in the NewsGroup
>> This posting is provided "AS IS" with no warranties, and confers no
>> rights.
>>
>> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
>> news:%23DJngMEZIHA.1208@TK2MSFTNGP03.phx.gbl...
>>> Well I have it partially working, I can unc copy it (As opposed to just
>>> doing a move) but I am unable to delete it. Get an error about
>>> permission denied yet as the same user I can delete it. I have taken
>>> ownership and defined the permissions to be read/write and still no
>>> luck. DANG!
>>>
>>> --
>>> Paul Bergson
>>> MVP - Directory Services
>>> MCT, MCSE, MCSA, Security+, BS CSci
>>> 2003, 2000 (Early Achiever), NT
>>>
>>> http://www.pbbergs.com
>>>
>>> Please no e-mails, any questions should be posted in the NewsGroup
>>> This posting is provided "AS IS" with no warranties, and confers no
>>> rights.
>>>
>>> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
>>> news:OMiCoEDZIHA.3964@TK2MSFTNGP03.phx.gbl...
>>>>I want to write a simple vbscript to delete a folder on a share on our
>>>>NetApp Filer. I don't know how exactly I can define this in a vbscript.
>>>>If I map a drive to it, it doesn't work (I didn't think it would but had
>>>>to try). Code below I haven't tried since I don't know how I would
>>>>integrate it being that there are no physical drives exposed... This
>>>>was pulled from Microsoft's Script Center.
>>>>
>>>> Does anyone have a snippet they could provide?
>>>>
>>>> strComputer = "."
>>>> Set objWMIService = GetObject("winmgmts:" _
>>>> & "{impersonationLevel=impersonate}!\\" & strComputer &
>>>> "\root\cimv2")
>>>>
>>>> Set colFolders = objWMIService.ExecQuery _
>>>> ("Select * from Win32_Directory where Name = 'c:\\Scripts'")
>>>>
>>>> For Each objFolder in colFolders
>>>> errResults = objFolder.Delete
>>>> Next
>>>>
>>>> --
>>>> Paul Bergson
>>>> MVP - Directory Services
>>>> MCT, MCSE, MCSA, Security+, BS CSci
>>>> 2003, 2000 (Early Achiever), NT
>>>>
>>>> http://www.pbbergs.com
>>>>
>>>> Please no e-mails, any questions should be posted in the NewsGroup
>>>> This posting is provided "AS IS" with no warranties, and confers no
>>>> rights.
>>>>
>>>>
>>>
>>>
>>
>>
>
>



Re: Delete Folder on a SAN (NetApp) by John

John
Fri Feb 01 15:10:48 CST 2008

What Ontap version? Soundls like an oplock issue.






"Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
news:u2oE4dNZIHA.4028@TK2MSFTNGP06.phx.gbl...
> Yeah
>
> --
> Paul Bergson
> MVP - Directory Services
> MCT, MCSE, MCSA, Security+, BS CSci
> 2003, 2000 (Early Achiever), NT
>
> http://www.pbbergs.com
>
> Please no e-mails, any questions should be posted in the NewsGroup
> This posting is provided "AS IS" with no warranties, and confers no
> rights.
>
> "John Fullbright" <fjohn@donotspamnetappdotcom> wrote in message
> news:%23OcKDIHZIHA.4808@TK2MSFTNGP05.phx.gbl...
>> Did you have antivirus enabled on the filer?
>>
>>
>> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
>> news:eI0p0WFZIHA.748@TK2MSFTNGP04.phx.gbl...
>>> Placing a True (To force delete) seemed to do the trick, but I wanted to
>>> do a move ended up instead doing a copy and delete
>>> objFSOUser.DeleteFolder txtSourceFolder, True
>>>
>>>
>>> --
>>> Paul Bergson
>>> MVP - Directory Services
>>> MCT, MCSE, MCSA, Security+, BS CSci
>>> 2003, 2000 (Early Achiever), NT
>>>
>>> http://www.pbbergs.com
>>>
>>> Please no e-mails, any questions should be posted in the NewsGroup
>>> This posting is provided "AS IS" with no warranties, and confers no
>>> rights.
>>>
>>> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
>>> news:%23DJngMEZIHA.1208@TK2MSFTNGP03.phx.gbl...
>>>> Well I have it partially working, I can unc copy it (As opposed to just
>>>> doing a move) but I am unable to delete it. Get an error about
>>>> permission denied yet as the same user I can delete it. I have taken
>>>> ownership and defined the permissions to be read/write and still no
>>>> luck. DANG!
>>>>
>>>> --
>>>> Paul Bergson
>>>> MVP - Directory Services
>>>> MCT, MCSE, MCSA, Security+, BS CSci
>>>> 2003, 2000 (Early Achiever), NT
>>>>
>>>> http://www.pbbergs.com
>>>>
>>>> Please no e-mails, any questions should be posted in the NewsGroup
>>>> This posting is provided "AS IS" with no warranties, and confers no
>>>> rights.
>>>>
>>>> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
>>>> news:OMiCoEDZIHA.3964@TK2MSFTNGP03.phx.gbl...
>>>>>I want to write a simple vbscript to delete a folder on a share on our
>>>>>NetApp Filer. I don't know how exactly I can define this in a vbscript.
>>>>>If I map a drive to it, it doesn't work (I didn't think it would but
>>>>>had to try). Code below I haven't tried since I don't know how I would
>>>>>integrate it being that there are no physical drives exposed... This
>>>>>was pulled from Microsoft's Script Center.
>>>>>
>>>>> Does anyone have a snippet they could provide?
>>>>>
>>>>> strComputer = "."
>>>>> Set objWMIService = GetObject("winmgmts:" _
>>>>> & "{impersonationLevel=impersonate}!\\" & strComputer &
>>>>> "\root\cimv2")
>>>>>
>>>>> Set colFolders = objWMIService.ExecQuery _
>>>>> ("Select * from Win32_Directory where Name = 'c:\\Scripts'")
>>>>>
>>>>> For Each objFolder in colFolders
>>>>> errResults = objFolder.Delete
>>>>> Next
>>>>>
>>>>> --
>>>>> Paul Bergson
>>>>> MVP - Directory Services
>>>>> MCT, MCSE, MCSA, Security+, BS CSci
>>>>> 2003, 2000 (Early Achiever), NT
>>>>>
>>>>> http://www.pbbergs.com
>>>>>
>>>>> Please no e-mails, any questions should be posted in the NewsGroup
>>>>> This posting is provided "AS IS" with no warranties, and confers no
>>>>> rights.
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>



Re: Delete Folder on a SAN (NetApp) by Paul

Paul
Mon Feb 04 16:22:10 CST 2008

SME matrix conflict, updating and testing on Thursday.

--
Paul Bergson
MVP - Directory Services
MCT, MCSE, MCSA, Security+, BS CSci
2003, 2000 (Early Achiever), NT

http://www.pbbergs.com

Please no e-mails, any questions should be posted in the NewsGroup
This posting is provided "AS IS" with no warranties, and confers no rights.

"John Fullbright" <fjohn@donotspamnetappdotcom> wrote in message
news:OsmTsbRZIHA.3880@TK2MSFTNGP05.phx.gbl...
> What Ontap version? Soundls like an oplock issue.
>
>
>
>
>
>
> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
> news:u2oE4dNZIHA.4028@TK2MSFTNGP06.phx.gbl...
>> Yeah
>>
>> --
>> Paul Bergson
>> MVP - Directory Services
>> MCT, MCSE, MCSA, Security+, BS CSci
>> 2003, 2000 (Early Achiever), NT
>>
>> http://www.pbbergs.com
>>
>> Please no e-mails, any questions should be posted in the NewsGroup
>> This posting is provided "AS IS" with no warranties, and confers no
>> rights.
>>
>> "John Fullbright" <fjohn@donotspamnetappdotcom> wrote in message
>> news:%23OcKDIHZIHA.4808@TK2MSFTNGP05.phx.gbl...
>>> Did you have antivirus enabled on the filer?
>>>
>>>
>>> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
>>> news:eI0p0WFZIHA.748@TK2MSFTNGP04.phx.gbl...
>>>> Placing a True (To force delete) seemed to do the trick, but I wanted
>>>> to do a move ended up instead doing a copy and delete
>>>> objFSOUser.DeleteFolder txtSourceFolder, True
>>>>
>>>>
>>>> --
>>>> Paul Bergson
>>>> MVP - Directory Services
>>>> MCT, MCSE, MCSA, Security+, BS CSci
>>>> 2003, 2000 (Early Achiever), NT
>>>>
>>>> http://www.pbbergs.com
>>>>
>>>> Please no e-mails, any questions should be posted in the NewsGroup
>>>> This posting is provided "AS IS" with no warranties, and confers no
>>>> rights.
>>>>
>>>> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
>>>> news:%23DJngMEZIHA.1208@TK2MSFTNGP03.phx.gbl...
>>>>> Well I have it partially working, I can unc copy it (As opposed to
>>>>> just doing a move) but I am unable to delete it. Get an error about
>>>>> permission denied yet as the same user I can delete it. I have taken
>>>>> ownership and defined the permissions to be read/write and still no
>>>>> luck. DANG!
>>>>>
>>>>> --
>>>>> Paul Bergson
>>>>> MVP - Directory Services
>>>>> MCT, MCSE, MCSA, Security+, BS CSci
>>>>> 2003, 2000 (Early Achiever), NT
>>>>>
>>>>> http://www.pbbergs.com
>>>>>
>>>>> Please no e-mails, any questions should be posted in the NewsGroup
>>>>> This posting is provided "AS IS" with no warranties, and confers no
>>>>> rights.
>>>>>
>>>>> "Paul Bergson [MVP-DS]" <pbergson@allete_nospam.com> wrote in message
>>>>> news:OMiCoEDZIHA.3964@TK2MSFTNGP03.phx.gbl...
>>>>>>I want to write a simple vbscript to delete a folder on a share on our
>>>>>>NetApp Filer. I don't know how exactly I can define this in a
>>>>>>vbscript. If I map a drive to it, it doesn't work (I didn't think it
>>>>>>would but had to try). Code below I haven't tried since I don't know
>>>>>>how I would integrate it being that there are no physical drives
>>>>>>exposed... This was pulled from Microsoft's Script Center.
>>>>>>
>>>>>> Does anyone have a snippet they could provide?
>>>>>>
>>>>>> strComputer = "."
>>>>>> Set objWMIService = GetObject("winmgmts:" _
>>>>>> & "{impersonationLevel=impersonate}!\\" & strComputer &
>>>>>> "\root\cimv2")
>>>>>>
>>>>>> Set colFolders = objWMIService.ExecQuery _
>>>>>> ("Select * from Win32_Directory where Name = 'c:\\Scripts'")
>>>>>>
>>>>>> For Each objFolder in colFolders
>>>>>> errResults = objFolder.Delete
>>>>>> Next
>>>>>>
>>>>>> --
>>>>>> Paul Bergson
>>>>>> MVP - Directory Services
>>>>>> MCT, MCSE, MCSA, Security+, BS CSci
>>>>>> 2003, 2000 (Early Achiever), NT
>>>>>>
>>>>>> http://www.pbbergs.com
>>>>>>
>>>>>> Please no e-mails, any questions should be posted in the NewsGroup
>>>>>> This posting is provided "AS IS" with no warranties, and confers no
>>>>>> rights.
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>