Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Frage Entwicklung VB for Applications

VB Sccript WMI Dateisuche mit Paramter

Mitglied: 0cool

0cool (Level 2) - Jetzt verbinden

28.06.2011 um 10:52 Uhr, 4363 Aufrufe, 3 Kommentare

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:

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"
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
Mitglied: AndreasHoster
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
01.
WScript.Echo objFile.Path
miteintragen, dann könntest Du eventuell erkennen, wo das Problem in Zeile 04 liegt.
Bitte warten ..
Mitglied: 0cool
28.06.2011 um 15:03 Uhr
Vielen Dank!

Damit komme ich weiter.
Ich werds ausprobieren und mich wieder melden.


Gruß

0cool
Bitte warten ..
Mitglied: TsukiSan
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
01.
CScript MeineVBS.vbs //NOLOGO >Ergebnis.txt
und in MeinerVBS.vbs stände folgendes (nach deinem Muster angepasst!)
01.
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"
Berichtige mich bitte, wenn ich falsch liege! (Getestet mit WinXPSP3)

Gruss
Tsuki
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
PowerShell Script für Dateisuche
gelöst Frage von Stefan007Batch & Shell4 Kommentare

Hi Leute, ich suche ein Script welches für die Suche nach einer Datei zuständig sein soll. Meine Vorstellung: Es ...

Windows Server
Professionelle Dateisuche mit Datenbank gesucht
Frage von cobain86Windows Server5 Kommentare

Hallo ich bin auf der suche nach einem Professionellen Suchsystem für Windows Dateiserver. Vorzugsweise mit Datenbank hinten dran. Grund ...

Apache Server
Redirect Regeln für URLs mit Paramtern
gelöst Frage von qwertz1Apache Server3 Kommentare

Hallo, wegen eines Wechsel des Websystems und wegen Suchmaschinenoptimierung muss ich ca. 8000 Redirect Rules in .htaccess einfügen. Mit ...

Batch & Shell
Powershell - Geschwindigkeit Dateisuche
gelöst Frage von internet2107Batch & Shell16 Kommentare

Ich habe das Problem, dass eine Suche nach einer Datei extrem lange dauert, obwohl ich dem Befehl schon Grundsätze ...

Neue Wissensbeiträge
Microsoft

Letzte Updates für Win10 und Server2016 müssen bei Bedarf über den Update catalogue in den WSUS importiert werden!

Tipp von DerWoWusste vor 1 StundeMicrosoft

automatisch kommt da nichts an im WSUS und auch nicht im SCCM. Siehe Hinweise zum Bezug der jeweils neuesten ...

Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 2 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 3 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 3 TagenSicherheit13 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Heiß diskutierte Inhalte
Firewall
Penetrationstester-Labor - Firewalls
Frage von Oli-nuxFirewall10 Kommentare

Mich würde interessieren warum man beim Einrichten eines Penetrationstester-Labor (VMs) die Firewall der Systeme deaktivieren soll? Hat das nur ...

SAN, NAS, DAS
Wer kennt sich mit QNAP und CISCO aus ?
gelöst Frage von MachelloSAN, NAS, DAS9 Kommentare

Hallo Zusammen hier im Forum, Ich habe ein QNas 451+ und dieses NAS hat zwei GBit Lan Adapter die ...

Netzwerkgrundlagen
IPv6 Inter-VLAN Routing
gelöst Frage von clSchakNetzwerkgrundlagen9 Kommentare

Hi ich befasse mich gerade mit der Implementierung von IPv6 was bisher (in einem VLAN) korrekt funktioniert inkl. DNS ...

Windows Netzwerk
Ist ein Portforwarding auf einen PC ohne lauschendes Programm ein (großes) Sicherheitsproblem?
Frage von PluwimWindows Netzwerk8 Kommentare

Hallo zusammen, zur Fernwartung eines Rechners an einem anderen Ort nutze ich VNC. Da dieser Rechner einfach nur eine ...