• Home
 · 
• Miscellaneous
 · 
• WMI sample showing how to list all shares on the local computer using WMI's Win32_Share object.

WMI sample showing how to list all shares on the local computer using WMI's Win32_Share object.

WMI sample showing how to list all shares on the local computer using WMI's Win32_Share object.

Rate WMI sample showing how to list all shares on the local computer using WMI's Win32_Share object.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' This function lists all shares on the local computer

' Check out http://www.activxperts.com for more samples and components


Option Explicit

Sub ListShares()
	Dim strObject
	Dim colShares
	Dim objWMIService, objShare

	Set objWMIService = GetObject( "winmgmts:" )
	Set colShares = objWMIService.ExecQuery( "Select * from Win32_Share" )
	For Each objShare In colShares
		Wscript.Echo objShare.Name & " [" & objShare.Path & "]"
	Next

End Sub



' Main


ListShares()

WScript.Echo( vbCrlf & "Ready." & vbCrlf & "Check out http://www.activxperts.com For more samples And components." )