gelöst 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:
01.
set objwmi = GetObject("winmgmts:") 02.
wql = "Select * from CIM_LogicalFile where Drive='D:'and Extension='lnk'" 03.
' wql = "Select * from CIM_DataFile where Drive='D:' and Extension='lnk'" 04.
' wql = "Select * from CIM_DataFile where Drive='D:' and Extension='lnk' and Path Like 'D:\\%'" 05.
06.
set colFiles = objWMI.ExecQuery(wql,,48) 07.
08.
On Error Resume Next 09.
10.
For Each objFile In colFiles 11.
WScript.Echo objFile.Name 12.
Next 13.
WScript.Echo "Die Suche ist beendet"Die Suche soll auf alle fälle über WMI laufen.
Wie komme ich zu meinem Ziel?
Danke für eure Hilfe!
0cool
3 Antworten
- LÖSUNG AndreasHoster schreibt am 28.06.2011 um 14:51:30 Uhr
- LÖSUNG 0cool schreibt am 28.06.2011 um 15:03:15 Uhr
- LÖSUNG TsukiSan schreibt am 28.06.2011 um 18:01:45 Uhr
- LÖSUNG 0cool schreibt am 28.06.2011 um 15:03:15 Uhr
LÖSUNG 28.06.2011 um 14:51 Uhr
Die Suche klappt nach Deiner Aussage, was also bekommst Du nicht hin?
Die Suche im Pfad einschränken?
Dann würde ich in Zeile 11.5 mal
miteintragen, dann könntest Du eventuell erkennen, wo das Problem in Zeile 04 liegt.
Die Suche im Pfad einschränken?
Dann würde ich in Zeile 11.5 mal
01.
WScript.Echo objFile.Path
LÖSUNG 28.06.2011 um 15:03 Uhr
Vielen Dank!
Damit komme ich weiter.
Ich werds ausprobieren und mich wieder melden.
Gruß
0cool
Damit komme ich weiter.
Ich werds ausprobieren und mich wieder melden.
Gruß
0cool
LÖSUNG 28.06.2011 um 18:01 Uhr
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
01.
CScript MeineVBS.vbs //NOLOGO >Ergebnis.txt01.
set objwmi = GetObject("winmgmts:") 02.
wql = "Select * from CIM_LogicalFile where Drive='D:'and Extension='lnk'" 03.
04.
set colFiles = objWMI.ExecQuery(wql,,48) 05.
06.
On Error Resume Next 07.
08.
For Each objFile In colFiles 09.
strShortcut = objFile.Name 10.
set objShell = CreateObject("WScript.Shell") 11.
set objApplicationLink = objShell.CreateShortcut(strShortcut) 12.
13.
Tmp = objApplicationLink.TargetPath 14.
IF Left(Tmp,1) = "D" then Wscript.Echo strShortcut 15.
16.
set objShell = Nothing 17.
set objApplicationLink = Nothing 18.
Next 19.
WScript.Echo "Die Suche ist beendet"Gruss
Tsuki
Ähnliche Inhalte
Neue Wissensbeiträge
Heiß diskutierte Inhalte
