• Home
 · 
• Internet/HTML
 · 
• WMI sample: list shares on a local or a remote computer. Written in VBScript

WMI sample: list shares on a local or a remote computer. Written in VBScript

WMI sample: list shares on a local or a remote computer. Written in VBScript

Rate WMI sample: list shares on a local or a remote computer. Written in VBScript

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' This function lists all shares on a local or remote computer

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


Option Explicit

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

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

End Sub



' Main

Dim strComputer
Do
   strComputer = inputbox( "Please enter the name of a computer in your network (or . for local host)", "Input" )
Loop until strComputer <> ""

ListShares( strComputer )

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