VB Sccript WMI Dateisuche mit Paramter
Hey Leute,
ich versuche gerade eine Script zu schreiben, dass mir alle LNK Dateien die im Ziel ein bestimmten Laufwerksbuchstaben enhalten anzeigt.
Vorab informationen:
OS: Vista
Sprache VB Script mit WMI
Was ich bisher klappt, ist die suche auf dem Laufwerk D: nach LNK Dateien.
Hier mal mein bisheriger Quellcode:
Wie ihr an den auskommentierten Objekten sehen könnt, habe ich schon ein bisschen getestet aber ich bekomme es einfach nicht hin.
Die Suche soll auf alle fälle über WMI laufen.
Wie komme ich zu meinem Ziel?
Danke für eure Hilfe!
0cool
ich versuche gerade eine Script zu schreiben, dass mir alle LNK Dateien die im Ziel ein bestimmten Laufwerksbuchstaben enhalten anzeigt.
Vorab informationen:
OS: Vista
Sprache VB Script mit WMI
Was ich bisher klappt, ist die suche auf dem Laufwerk D: nach LNK Dateien.
Hier mal mein bisheriger Quellcode:
set objwmi = GetObject("winmgmts:")
wql = "Select * from CIM_LogicalFile where Drive='D:'and Extension='lnk'"
' wql = "Select * from CIM_DataFile where Drive='D:' and Extension='lnk'"
' wql = "Select * from CIM_DataFile where Drive='D:' and Extension='lnk' and Path Like 'D:\\%'"
set colFiles = objWMI.ExecQuery(wql,,48)
On Error Resume Next
For Each objFile In colFiles
WScript.Echo objFile.Name
Next
WScript.Echo "Die Suche ist beendet"
Wie ihr an den auskommentierten Objekten sehen könnt, habe ich schon ein bisschen getestet aber ich bekomme es einfach nicht hin.
Die Suche soll auf alle fälle über WMI laufen.
Wie komme ich zu meinem Ziel?
Danke für eure Hilfe!
0cool
Please also mark the comments that contributed to the solution of the article
Content-ID: 168739
Url: https://administrator.de/contentid/168739
Printed on: October 7, 2024 at 02:10 o'clock
3 Comments
Latest comment
Wenn ich alles richtig verstanden habe, funktioniert die Suche nach Verknüpfungen und das einzigste das fehlt ist das Ausfiltern der sog. lnk-Verknüpfungen nach bestimmten Kriterien (Laufwerksbuchstabe).
Dann hätte ich deinen Code wie folgt über eine Batch-Datei aufgerufen
und in MeinerVBS.vbs stände folgendes (nach deinem Muster angepasst!)
Berichtige mich bitte, wenn ich falsch liege! (Getestet mit WinXPSP3)
Gruss
Tsuki
Dann hätte ich deinen Code wie folgt über eine Batch-Datei aufgerufen
CScript MeineVBS.vbs //NOLOGO >Ergebnis.txt
set objwmi = GetObject("winmgmts:")
wql = "Select * from CIM_LogicalFile where Drive='D:'and Extension='lnk'"
set colFiles = objWMI.ExecQuery(wql,,48)
On Error Resume Next
For Each objFile In colFiles
strShortcut = objFile.Name
set objShell = CreateObject("WScript.Shell")
set objApplicationLink = objShell.CreateShortcut(strShortcut)
Tmp = objApplicationLink.TargetPath
IF Left(Tmp,1) = "D" then Wscript.Echo strShortcut
set objShell = Nothing
set objApplicationLink = Nothing
Next
WScript.Echo "Die Suche ist beendet"
Berichtige mich bitte, wenn ich falsch liege! (Getestet mit WinXPSP3)
Gruss
Tsuki