PDA

Vollständige Version anzeigen : Wmi


mike-ao
30.08.2013, 00:58
ist es möglich, ein bestimmtes verzeichnis per WMI aus einem remotecomputer auszulesen? also etwas ähnliches wie das auslesen der logischen laufwerke (siehe code)?

strComputer = "."
Set objSWbemServices = GetObject("winmgmts:\\" & strComputer)
Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_LogicalDisk")
For Each objSWbemObject In colSWbemObjectSet
Wscript.Echo objSWbemObject.DeviceID
Next


das problem ist dabei, dass ich unter FoxPro zwei mängel habe
1.) liefert mir VFP dateinamen nur in großbuchstaben zurück
2.) wenn ein dateiname mit fremdzeichen (ê, ô oder ähnlichem) vorhanden ist, diese zeichen mit einem "?" ersetzt werden.

ich benötige den Dateinamen, Pfad, Dateigrösse und das änderungsadatum

lg mike

ps: wo finde ich eine umfassende beschreibung, was alles über WMI möglich ist.

CptChaos
11.09.2013, 16:03
WMI-Referenz bei Microsoft: http://msdn.microsoft.com/en-us/library/aa394572(v=vs.85).aspx

Konkret zu Deiner Frage:
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Windows")
Set subFolders = folder.Subfolders
For Each subFolder in subFolders
Wscript.Echo subFolder.Name, SubFolder.Size
Next