delphi GLibWMI MiTeC WMI Delphi Code Creator robvanderwoude wmigen
Windows Management Instrumentation
https://www.delphipraxis.net/1351685-post14.html
(* SysUtils, ActiveX, ComObj, Variants; *)
Winapi.Windows,
System.SysUtils,
Winapi.ActiveX,
System.Win.ComObj,
System.Variants;
const
WbemUser ='';
WbemPassword ='';
WbemComputer ='localhost';
wbemFlagForwardOnly = $00000020;
var
FSWbemLocator : OLEVariant;
FWMIService : OLEVariant;
FWbemObjectSet: OLEVariant;
FWbemObject : OLEVariant;
oEnum : IEnumvariant;
iValue : LongWord;
begin;
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM CIM_PhysicalMemory','WQL',wbemFlagForwardOnly);
oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
while oEnum.Next(1, FWbemObject, iValue) = 0 do
https://github.com/MicrosoftDocs/win32/blob/docs/desktop-src/WmiSdk/using-wmi.md
https://github.com/RRUZ/delphi-dev-shell-tools
https://theroadtodelphi.wordpress.com/
https://github.com/RRUZ/wmi-delphi-code-creator
https://github.com/mandiant/flare-wmi
PJConsoleApp.pas
http://delphidabbler.com/software/consoleapp.html
https://searchcode.com/codesearch/view/11776132/
/Sources/WorkstationScanning/WMI/WbemScripting_TLB.pas
03_通常使うプリンタの変更 - WMI を OleVariant 型で扱う
http://mrxray.on.coocan.jp/Delphi/plSamples/017_ChangeDefaultPrinter.htm
https://www.manning.com/books/powershell-and-wmi
https://github.com/daharper/WmiExample
https://github.com/pyscripter/Pcre-Jit-Delphi
https://www.magsys.co.uk/delphi/magwmi.asp
WMISet NTSet TMTShare
https://docs.microsoft.com/zh-tw/windows/win32/api/lmshare/nf-lmshare-netshareenum?redirectedfrom=MSDN
https://docs.microsoft.com/en-us/previous-versions//t9zt39at(v=vs.85)?redirectedfrom=MSDN
NTSet (Delphi 7) - Download
Components > System > System. Torry's Delphi Pages
沒有留言:
張貼留言