Hi All,

I wrote a small script to get some properties of a share like Name, Description etc

On Error Resume Next
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Share")

For Each objItem In colItems
WScript.Echo "Name: " & objItem.Name
 WScript.Echo "Description: " & objItem.Description
Next


Now I have a new description for each share. How do I push that back into that share? I have all the descriptions in an excel file. I can do the Excel initiation but I just wanted to know the way we push it back.

 I am assuming we can use PUT method. But I am not sure. Any help appreciated.

 Thanks

Hi kalcee,

The quickest way that I could think of off the top of my head was to do this using ADSI; e.g.:

share = GetObject("WinNT://./LanmanServer/ShareName")
share.Description = "Updated description"
share.SetInfo()

Microsoft KB article 234234 also provides some more information.

Bill