3
VB-Script - Namen von Ordnern auf RemoteComputern anzeigen
Hallo ans Forum
Ich komme bei einem VBScript-Schnippsel nicht weiter:
Ich will folgendes machen: Von allen Unterordnern des Ordners C:\users möchte ich den Verzeichnissnamen ausgeben. Das Problem ist nun, wenn ich mit
den Namen des Ordners ausgeben will, bringt er so etwas:
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
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
nextIch 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.namec:\Users\OrdnernameIch 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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 88083
Url: https://administrator.de/contentid/88083
Printed on: April 18, 2024 at 17:04 o'clock
3 Comments
Latest comment
Hallo TuXHunt3R!
Die "Split"-Variante (funktioniert auch, wenn kein "\" enthalten sein sollte):
Grüße
bastla
Pfad = objFolder.name
Ordner = Mid(Pfad, InStrRev(Pfad, "\") + 1) 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.
Ich werds testen, herzlichen Dank schon mal.
Hat geklappt. Herzlichen Dank, beehre euch bald wieder 
