procedure tform1.bitbtn1click(sender: tobject);
varlocator: olevariant;
wmi: olevariant;
ret: olevariant;
enum: ienumvariant;
tmp: olevariant;
value: cardinal;
s: string;
begin
memo1.lines.clear;
locator := createoleobject('wbemscripting.swbemlocator');
wmi := locator.connectserver('.', '', '', '');
ret := wmi.execquery('select * from win32_product');
enum := iunknown(ret._newenum) as ienumvariant;
while (enum.next(1, tmp, value) = s_ok) do
begin
s := tmp.name + '(' + tmp.version + ')';
memo1.lines.add(s);
end;
end;
檢測本機埠存活
需求 檢測本機3128埠的存活狀態，不存活則重新啟動。因本機的3128埠的服務是用docker啟動的，故啟動命令和原啟動命令不同 使用到的命令 while do done if while do d date f t n netstat tunpl grep w 3128 wc l if n eq ...
本機嗅探程式的檢測
本機嗅探的程式檢測方法比較簡單，只要檢查一下網絡卡是否處於混雜模式就可以了，在linux下，這個比較容易實現，而在windows平台上，並沒有現成的函式可供我們實現這個功能，我們來用一點小技巧 include define max pack len 65535 define max hostname...
如何檢測電腦是否已經中毒？
如何知道自己的電腦是不是中木馬或者中毒了？僅僅從反映慢來判斷是很武斷的，那麼您可以通過如下方法來知道您的電腦是不是已經中毒了。1.最簡單，最有效，最直觀用防毒軟體。3.用網路抓包工具，看是否向外傳送不明資料報。4.檢視啟動項，執行msconfig，然後在啟動裡看看有沒有可疑的啟動項，有的話去看看原始...