VB-Script - Namen von Ordnern auf RemoteComputern anzeigen

geschlossengelöstFrage Batch, Shell Entwicklung

Hallo ans Forum

Ich komme bei einem VBScript-Schnippsel nicht weiter:

strComputer = "."  
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  

Set colSubfolders = objWMIService.ExecQuery _
    ("Associators of {Win32_Directory.Name='c:\Users'} " _  
        & "Where AssocClass = Win32_Subdirectory " _  
            & "ResultRole = PartComponent")  

For Each objFolder in colSubfolders
    wscript.echo objFolder.name
next

Ich will folgendes machen: Von allen Unterordnern des Ordners C:\users möchte ich den Verzeichnissnamen ausgeben. Das Problem ist nun, wenn ich mit

wscript.echo objFolder.name

den Namen des Ordners ausgeben will, bringt er so etwas:

c:\Users\Ordnername

Ich möchte aber nur den Ordnernamen ausgeben, ohne das C:\Users vorne dran. Wie mache ich das?

Ich habe bereits beim MSDN geschaut, ob es eine Eingeschaft vom win32_directory Objekt gibt, welches mir nur den Ordnernamen ausgibt. Gibt es aber nicht. Ich habe dann etwas recherchiert und bin auf "Split" gestossen. Ich habs dann aber nicht hingekriegt.

Kann mir jemand eine Codezeile liefern, wo der Teil vor dem letzten "\" abgeschnitten wird und in eine Variable gespeichert wird?

Grüsse aus der Schweiz
TuXHunT3R

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 88083

Url: https://administrator.de/forum/vb-script-namen-von-ordnern-auf-remotecomputern-anzeigen-88083.html

Ausgedruckt am: 19.06.2025 um 13:06 Uhr

3 Kommentare

Neuester Kommentar

Hallo TuXHunt3R!

Pfad = objFolder.name
Ordner = Mid(Pfad, InStrRev(Pfad, "\") + 1)  

Die "Split"-Variante (funktioniert auch, wenn kein "\" enthalten sein sollte):

Pfad = objFolder.name
Teile = Split(Pfad, "\")  
Ordner = Teile(UBound(Teile))

Grüße
bastla

Tja, VBS ist halt nicht so meins, aber ich durfte das Ganze leider nicht per PowerShell realisieren (höhere Gewalt, d.h. mein Chef).

Ich werds testen, herzlichen Dank schon mal.