KiXtart: Enumerate Local Shares

Break ON

$strComputer = "."
$tab = Chr(9)

$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\$strComputer\root\cimv2")
$colShares = $objWMIService.ExecQuery("Select * from Win32_Share")
$numshares = $colShares.Count

? "shares found: $numshares"

For each $objShare in $colShares
    $n = $objShare.Name
    If Right($n,1) = "$$"
        $shareType = "HIDDEN"
    Else
        $shareType = "OPEN"
    EndIf
    ? $objShare.Name + $tab + $shareType + $tab +
        $objShare.Path + $tab + $objShare.Caption + $tab +
        $objShare.Type
Next