Hi, I have just recently been thrown into VB Scripting as a means to make me and my fellow admin's jobs a bit easier. Right now we are migrating about 1000 user shares off a server and onto a new CIF. I wrote a script for this that lists all user folders in a directory (all of them are shared folders) and then runs that list (a saved txt file) through a loop that first unshares their drive, then xcopy's their data to the new server. The script runs...but it is extremely slow. I'm pretty sure it is getting hung up on querying all of the shares via:
Set
objWMIService = GetObject("winmgmts:"
_
& "{impersonationLevel=impersonate}!\\"
& strServer & "\root\cimv2"
)
Set
colShares = objWMIService.ExecQuery _
("Select * from Win32_Share Where Name = '"
& strUsrShare & "'"
)
For
Each
objShare in
colShares
objShare.Delete
Next
As we have over 1000 shares on that server. So I figure it might be easier on the front end to delete all shares then migrate their data. However I can't delete the standard C$ and D$ share, as that is how I am xcopying their data over. But I am specifically noticing the "Select * from Win32_Share" in that snippet of code and was wondering if there is a way to select all the shares that start with "a" and so on and so forth (i.e. a*).
If anyone has any ideas, thoughts, suggestions that would be awesome.
Thanks a lot!