Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB5, VB6 | 14.09.05 |
Alle freigegebenen Resourcen ermitteln (WMI) Mit Hilfe des WMI-Objekts lassen sich alle freigegebenen Laufwerke/Ordner und Drucker schnell ermitteln. | ||
Autor: Dieter Otter | Bewertung: | Views: 15.829 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit Hilfe von WMI lassen sich alle freigegebenen Laufwerke/Ordner und Drucker schnell ermitteln.
Erstellen Sie ein neues Projekt und ziehen auf die Form ein ListBox-, sowie ein CommandButton-Control. Fügen Sie nachfolgenden Code in das Click-Event des CommandButton ein:
Private Sub Command1_Click() Dim oServer As Object Dim oItem As Object ' Fehlerbehandlung einschalten (falls WMI nicht verfügbar) On Error Resume Next Set oServer = GetObject("WinNT://" & Environ$("COMPUTERNAME") & _ "/LANMANSERVER") If Err.Number = 0 Then ' alle Freigaben ermitteln und anzeigen For Each oItem In oServer List1.AddItem oItem.Name & ": " & oItem.Path Next End If On Error GoTo 0 End Sub