<div>
Hm...<br />
That is my code:<br />
<br />
Set objWMIService = GetObject(&quot;winmgmts:\\.\ro<wbr />ot\cimv2&quot;)<wbr /><br />
Set colShares = objWMIService.ExecQuery(&quot;S<wbr />elect * from Win32_Share&quot;)<br />
&nbsp; &nbsp; <br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
For Each ShareItem in colShares<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ShareItem.Delete &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br />
Next
</div>


Hm...
That is my code:

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
   
      
For Each ShareItem in colShares
            ShareItem.Delete                                    
Next

<div>
Hmmm...It works only on XP. Why?
</div>


<div>
<div class="content wysiwyg-content">
Greetings, - )<br />
I want to delete a remote share. I started from trying to delete local share with this code:<br />
(look at the code)<br />
<br />
This is a part of code (I exclused the part where I write to log file my results).<br />
<br />
So when I opened my log file I see that all my shares where found but they are not deleted.<br />
<br />
I tried to use &quot;If Err.Number &lt;&gt;&nbsp;0 Then&quot;<br />
but it didn't help.<br />
<br />
I try to run it on MS Vista.
</div>
</div>


Greetings, - )
I want to delete a remote share. I started from trying to delete local share with this code:
(look at the code)

This is a part of code (I exclused the part where I write to log file my results).

So when I opened my log file I see that all my shares where found but they are not deleted.

I tried to use "If Err.Number <> 0 Then"
but it didn't help.

I try to run it on MS Vista.

I try to delete a remote shares by VBS

Most development for the Microsoft platform is done utilizing the technologies supported by the.NET framework. Other development is done using Visual Basic for Applications (VBA) for programs like Access, Excel, Word and Outlook, with PowerShell for scripting, or with SQL for large databases.

Microsoft Development

Microsoft Windows XP is the sixth release of the NT series of operating systems, and was the first to be marketed in a variety of editions: XP Home and XP Professional, designed for business and power users. The advanced features in XP Professional are generally disabled in Home Edition, but are there and can be activated. There were two 64-bit editions, an embedded edition and a tablet edition.

Windows XP

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

Windows Vista is an operating system created by Microsoft as the successor to Windows XP. It was intended for PCs, workstations and laptops, and shares the same code base as its successor, Windows 7. New features included an updated graphical user interface (GUI) and visual style dubbed Aero, a new search component called Windows Search, redesigned networking, audio, print and display subsystems, and new multimedia tools. Vista aimed to increase the level of communication between machines on a home network, using peer-to-peer technology to simplify sharing files and media between computers and devices. Windows Vista included version 3.0 of the .NET Framework, allowing software developers to write applications without traditional Windows APIs.