scripter@microsoft.com (in English, if possible)<\/B><\/A>. Note that Greg, in particular, would be interested in hearing more about traditional Catalan delicacies like gato d’avellanes amb gelat de vainilla<\/I> (hazelnut cake with vanilla ice cream).<\/P>\nOf course, as we noted, TechEd IT Forum isn\u2019t until November, which means we need to do something to pass the time between now and then. Hey, we have an idea: what do you say we write a script that copies two files to each of the shared folders on a computer? You know, a script like this one:<\/P>
Const OverwriteExisting = TRUE<\/p>\nstrComputer = “atl-fs-01”<\/p>\n
Set objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\n
Set colItems = objWMIService.ExecQuery(“Select * From Win32_Share Where Type = 0”)<\/p>\n
Set objFSO = CreateObject(“Scripting.FileSystemObject”)<\/p>\n
For Each objItem in colItems\n strFolderName = objItem.Name\n If InStr(strFolderName, “$”) = 0 Then\n strPath = “\\\\” & strComputer & “\\” & strFolderName & “\\”\n objFSO.CopyFile “C:\\Scripts\\Test.txt”, strPath, OverwriteExisting\n objFSO.CopyFile “C:\\Scripts\\Test2.txt”, strPath, OverwriteExisting\n End If\nNext\n<\/PRE>\n
You say that this doesn\u2019t sound like a very good idea after all? Well, sorry; too late now.<\/P>\n
Good idea or not, we might as well see if we can figure out how the script performs its magic. (Legal disclaimer<\/B>: The script does not actually perform magic.) We start out by defining a constant named OverwriteExisting and setting the value to True; this tells the script to overwrite any existing instances of the two files should either one be found in any of the shared folders. We then use this block of code to connect to the WMI service on the target computer (that is, the computer we want to copy the files to):<\/P>strComputer = “atl-fs-01”<\/p>\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)\n<\/PRE>\n
After connecting to the WMI service our next task is to retrieve a list of all the shared folders on the computer. That\u2019s what this line of code is for:<\/P>
Set colItems = objWMIService.ExecQuery(“Select * From Win32_Share Where Type = 0”)\n<\/PRE>\nAs you can see, we\u2019re selecting all instances of the Win32_Share<\/B> class where the value of the Type<\/B> property is equal to 0. Why the Where clause, and why Type equals 0? As it turns out, the Win32_Share class covers more than just shared folders; it also includes shared printers, shared devices such as CD-ROM drives, and administrative shares (such as C$). Because we\u2019re only interested in shared folders, we limit the returned data to shared items of Type 0. <\/P>\n
Which, needless to say, will be nothing but shared folders.<\/P>\n
After we execute the query we get back a collection of shared folders on the remote computer. Once we have that collection we set up a For Each loop to loop through all those shared folders. What\u2019s the first thing we do inside that loop? That\u2019s easy: we grab the value of folder\u2019s Name<\/B> property (that is, the share name) and store it in a variable named strFolderName.<\/P>\n
The next part of the script is optional, but we thought we\u2019d toss it in as a sort of a bonus. It\u2019s not unusual for computers (particularly servers) to have hidden shares (shares that are not readily visible over the network). Because these shares aren\u2019t typically accessed by users, you might not feel the need to copy files to hidden shares. But how can you identify which shares are hidden and which ones are not?<\/P>\n
Interestingly enough, there\u2019s no property that distinguishes a hidden share from a regular share. However, hidden shares always have a name that ends in a dollar sign (for example, Public$). What we do in our next line of code is use the InStr<\/B> function to determine whether or not a $ character can be found in the folder name:<\/P>If InStr(strFolderName, “$”) = 0 Then\n<\/PRE>\nIf a $ is<\/I> found then InStr returns a value greater than 0 (technically, it returns the character position in the folder name where the $ was found). In other words, if InStr returns anything other than 0 we\u2019ll assume that we\u2019re dealing with a hidden share and we do not<\/I> copy any files to that folder.<\/P>\n
On the other hand, if InStr returns a 0 we\u2019ll assume that we are not<\/I> dealing with a hidden share. Therefore, the next thing we do is execute this line of code:<\/P>strPath = “\\\\” & strComputer & “\\” & strFolderName & “\\”\n<\/PRE>\nWhat we\u2019re doing here is constructing a UNC path to the share folder, something we do by combining:<\/P>\n
\n\n\n| \u2022<\/TD>\n | \n \\\\<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n atl-fs-01 (the name of the remote computer, stored in the variable strComputer)<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n \\<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n public (the name of the shared folder, stored in the variable strFolderName)<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n \\<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n Put them all together and you end up with a path similar to this:<\/P> \\\\atl-fs-01\\public\\\n<\/PRE>\n \n<\/THEAD>\n\n\n| \n Note<\/B>. Don\u2019t leave the trailing \\ off the end of the path. If you do, your script is going to fail.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n | |
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n