Es gibt zwar unter Windows einige Befehle um sich Resourcen im Netzwerk anzeigen zu lassen (z.B. net view), jedoch fällt mir auf Anhieb keiner ein, der die von Dir gewünschten Dinge direkt tut.
Aber es ist prinzipiell kein Problem sowas mit ein paar Zeilen Script zu machen, dazu hab ich mal ein kurzes Beispielscript gebastelt, speichere einfach folgendes als share.vbs auf deinem Rechner und rufe es auf:
' Script to search the network for shares matching a search string
' Usage:
' share.vbs [searchtext, [search_hidden]]
'
' Example:
' share.vbs dat 1
'
' This will search the network for shares starting with the string "dat"
' and include hidden shares.
'
' writte: 7. Sept 2010 by D. Stein (xafford)
Dim oArgs, bHidden, sSearch, sOutput
Set oArgs = Wscript.Arguments
If oArgs.Count > 2 then
MsgBox "Falsche Anzahl Parameter. Erwartet werden Suchstring und 0/1 für die Suche nach versteckten Freigaben", ,WScript.ScriptName
WScript.Quit
End If
bHidden = false
sSearch = ""
For Each sArg in oArgs
If sArg = "1" Then
bHidden = true
Else
sSearch = sArg
End If
Next
sOutput = "Suche nach Freigaben" & vbCrLf & "Suchstring: " & sSearch & vbCrLf & "versteckte Freigaben suchen: " & bHidden & vbCrLf & "gefundene Freigaben:" & vbCrLf & vbCrLf
Dim dHosts
Set dHosts = FindHosts()
If dHosts.Count sOutput = sOutput & "Keine Server im Netzwerk gefunden" & vbCrLf
Else
For Each sHost in dHosts.Items
Dim cShares, oShare
Set cShares = FindShares(sHost,sSearch,bHidden)
For Each oShare In cShares
sOutput = sOutput & sHost & "\" & oShare.Name & vbCrLf
Next
Next
End If
WScript.Echo sOutput
Function FindHosts ()
Dim oWSHShell, oExec, sHost
Set FindHosts = CreateObject("Scripting.Dictionary")
Set oWSHShell = WScript.CreateObject("WScript.Shell")
Set oExec = oWSHShell.Exec("%comspec% /c net view" )
Do While Not oExec.StdOut.AtEndOfStream
sHost = Trim(oExec.StdOut.ReadLine())
If InStr(sHost, "\\" ) 0 Then
FindHosts.add FindHosts.Count, sHost
End If
Loop
End Function
Function FindShares ( sHost, sStartString, bFindHidden )
Dim oWMIService, cShares, oShare
Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!" & sHost & "\root\cimv2")
If bFindHidden = true Then
Set FindShares = oWMIService.ExecQuery("Select * from Win32_Share WHERE Name LIKE '" & sStartString & "%'")
Else
Set FindShares = oWMIService.ExecQuery("Select * from Win32_Share WHERE Name LIKE '" & sStartString & "%' AND NOT Name LIKE '%$'")
End If
End Function
xafford
nordic
