VBScriptの16進数の値を確認します -- vbscript フィールド と hex フィールド と securitycenter フィールド 関連 問題

Checking Hex values in VBScript












0
vote

問題

日本語

Windows 7または8のWindows Security Center 2からウイルス対策の状況を取得しようとしています。ヘクスが正しく機能します。私が今持っているものです。

<事前> <コード> Dim objWMIServiceAV,objAntiVirusProduct,colFiles,colItems,itemFile,AvStatus,PathToSignedProductExe Dim strdisplayName,strproductState,strdefinitionState Set objWMIServiceAV = GetObject("winmgmts:{impersonationLevel=impersonate}!\. ootSecurityCenter2") Set colItems = objWMIServiceAV.ExecQuery("Select * from AntiVirusProduct") For Each objAntiVirusProduct In colItems Set colFiles = objWMIServiceAV.ExecQuery ("Select * from CIM_Datafile Where name = '" & PathToSignedProductExe & "'",,48) For Each itemFile In colFiles strdisplayName = (objAntiVirusProduct.displayName) AvStatus = Hex(objAntiVirusProduct.ProductState) If Mid(AvStatus, 2, 2) = "10" Or Mid(AvStatus, 2, 2) = "11" Then strproductState = "Scanning Enabled" ElseIf Mid(AvStatus, 2, 2) = "00" Or Mid(AvStatus, 2, 2) = "01" Then strproductState = "Scanning Not Enabled" errors("AntiVirus Product State: ") = "Off" End If If Mid(AvStatus, 4, 2) = "00" Then strdefinitionState = "AntiVirus up-to-date" ElseIf Mid(AvStatus, 4, 2) = "10" Then strdefinitionState = "AntiVirus outdated" End If objFile.Write "AntiVirus Display Name= " & strdisplayName & vbNewLine objFile.Write "AntiVirus Scanning Status= " & strproductState & vbNewLine objFile.Write "AntiVirus Definition Status= " & strdefinitionState & vbNewLine Next Next

私は何が足りないの?

編集:私の出力の例をいくつか提供するように求められました。

私が受けているものは:

<事前> <コード> AntiVirus Display Name= Norton Endpoint Protection AntiVirus Scanning Status= AntiVirus Definition Status=

私が期待しているのは:

<事前> <コード> AntiVirus Display Name= Norton Endpoint Protection AntiVirus Scanning Status= (SCANNING STATUS) AntiVirus Definition Status= (AV UPDATE STATUS)
英語

I'm trying to get the status of AntiVirus from Windows Security Center 2 in Windows 7 or 8. I can pull the data from the "objAntiVirusProduct.displayName" and display the information, however I can't seem to make the Hex work correctly. Here's what I have right now.

Dim objWMIServiceAV,objAntiVirusProduct,colFiles,colItems,itemFile,AvStatus,PathToSignedProductExe Dim strdisplayName,strproductState,strdefinitionState  Set objWMIServiceAV = GetObject("winmgmts:{impersonationLevel=impersonate}!\. ootSecurityCenter2")  Set colItems = objWMIServiceAV.ExecQuery("Select * from AntiVirusProduct") For Each objAntiVirusProduct In colItems      Set colFiles = objWMIServiceAV.ExecQuery ("Select * from CIM_Datafile Where name = '" & PathToSignedProductExe & "'",,48)      For Each itemFile In colFiles         strdisplayName = (objAntiVirusProduct.displayName)           AvStatus = Hex(objAntiVirusProduct.ProductState)         If Mid(AvStatus, 2, 2) = "10" Or Mid(AvStatus, 2, 2) = "11" Then             strproductState = "Scanning Enabled"         ElseIf Mid(AvStatus, 2, 2) = "00" Or Mid(AvStatus, 2, 2) = "01" Then             strproductState = "Scanning Not Enabled"              errors("AntiVirus Product State: ") = "Off"         End If          If Mid(AvStatus, 4, 2) = "00" Then             strdefinitionState = "AntiVirus up-to-date"         ElseIf Mid(AvStatus, 4, 2) = "10" Then             strdefinitionState = "AntiVirus outdated"         End If          objFile.Write "AntiVirus Display Name= " & strdisplayName & vbNewLine         objFile.Write "AntiVirus Scanning Status= " & strproductState & vbNewLine         objFile.Write "AntiVirus Definition Status= " & strdefinitionState & vbNewLine     Next  Next  

What am I missing?

EDIT: I've been asked to provide some examples of my output.

What I'm receiving is:

AntiVirus Display Name= Norton Endpoint Protection AntiVirus Scanning Status=  AntiVirus Definition Status=  

What I'm expecting is:

AntiVirus Display Name= Norton Endpoint Protection AntiVirus Scanning Status= (SCANNING STATUS) AntiVirus Definition Status= (AV UPDATE STATUS) 
</div
        
     
     

回答リスト

0
 
vote
vote
ベストアンサー
 

私の問題が何であるかを調べて、私は本質的に仕事を達成するために必要な仕事の量を倍増させていました。私がしたことは私の行8とampを削除しました。 9、これはすべてが正しく機能してきました。私はまた、不要になった変数を除去し、それをもう少しものにしました。

私の完成したコードは次のようになります:

<事前> <コード> <%@ page import="java.net.InetAddress;" %> 1
 

Find out what my issue was, I was essentially doubling up the amount of work needed to accomplish the task. What I did was I removed lines 8 & 9, this got everything working correctly. I also went through and removed variables that were no longer needed, and prettied things up a bit more.

My finished code looks like this:

Dim objWMIServiceAV,objAntiVirusProduct,colItems Dim strdisplayName,AvStatus,strproductState,strdefinitionState  Set objWMIServiceAV = GetObject("winmgmts:{impersonationLevel=impersonate}!\. ootSecurityCenter2")  Set colItems = objWMIServiceAV.ExecQuery("Select * from AntiVirusProduct") For Each objAntiVirusProduct In colItems      strdisplayName = (objAntiVirusProduct.displayName)       AvStatus = Hex(objAntiVirusProduct.ProductState)     If Mid(AvStatus, 2, 2) = "10" Or Mid(AvStatus, 2, 2) = "11" Then         strproductState = "Scanning Enabled"     ElseIf Mid(AvStatus, 2, 2) = "00" Or Mid(AvStatus, 2, 2) = "01" Then         strproductState = "Scanning Not Enabled"     End If      If Mid(AvStatus, 4, 2) = "00" Then         strdefinitionState = "AntiVirus up-to-date"     ElseIf Mid(AvStatus, 4, 2) = "10" Then         strdefinitionState = "AntiVirus outdated"     End If      objFile.Write "AntiVirus Display Name= " & strdisplayName & vbNewLine     objFile.Write "AntiVirus Scanning Status= " & strproductState & vbNewLine     objFile.Write "AntiVirus Definition Status= " & strdefinitionState & vbNewLine Next 
</div
 
 

関連する質問

2  HP Fortify - Software Security Center、監査問題ボタンが有効になっていません  ( Hp fortify software security center audit issues button is not enabled ) 
HP SCA(Audit Workbench)からソフトウェアセキュリティセンターへのレポートをアップロードしました。ボタンが除去されている「監査問題」できません。私はあらゆる可能なオプションを試しました。 1.管理者としてログインしているユーザー(そのため...

0  Windowsセキュリティセンターではどのようなコントロールが使用されていますか?  ( What kind of controls are used in the windows security center ) 
コントロールパネル - &gt。セキュリティセンター ファイアウォールまたは自動更新が有効になっているかどうかを示すために使用されるコンポーネント/コントロールが本当に好きです。 これらの再利用可能なコントロールはC#またはDelphiですか? ...

0  GCPのセキュリティセンターアセットをクラウド機能を介してクラウドストレージにエクスポートする方法  ( How to export gcps security center assets to a cloud storage via cloud function ) 
Cloud関数はSCCのlist_assetsを呼び出し、ページ化された出力をリストに変換します(すべての結果を取得する)。ただし、組織ツリーではかなり多くの資産があるため、FETCH機能を取得してクラウド機能を取り出すのに多くの時間がかかります(540秒の...

0  VBScriptの16進数の値を確認します  ( Checking hex values in vbscript ) 
Windows 7または8のWindows Security Center 2からウイルス対策の状況を取得しようとしています。ヘクスが正しく機能します。私が今持っているものです。 <事前> <コード> Dim objWMIServiceAV,objAntiV...

0  セキュリティセンターがWebhookをトリガーできるようにできます  ( Can security center trigger a webhook ) 
推奨事項や警戒がされたときはいつでもセキュリティセンターがWebhookをトリガーする方法はありますか? 現在、Azure Monitorでアラートを作成し、OMSをクエリすることができます。その後、アラートが発生した場合は、WebHookを使用してアクション...

1  自動的にセキュリティセンターのPlayBookをトリガーします  ( Automatically trigger security center playbook ) 
セキュリティセンターでプレイブックを作成し、セキュリティアラートに移動してプレイブックを手動でトリガーし、PlayBookで[実行]をクリックします。 今度は、新しいセキュリティアラートがあるときはいつでもこのプレイブックをトリガーしたいと思います。 最初に、...

0  SecurityCenter2を呼び出すときにWindows Defenderを無視する方法  ( How do i ignore windows defender when calling securitycenter2 ) 
Windowsマシン上で実行されているウイルス対策ソリューションがあるかどうかを検出するためのスクリプトに取り組んでいます。 Windows 8 で実行中の場合は、無効になっていますが、Windows Defenderが常に終わります。 サードパーティのウ...

1  Security Centerを使用してVMMスケールを設定します  ( Securing vmm scale set using security center ) 
私は waf の後ろに VMMスケールセットに展開されています。セキュリティセンターブレードの下で VMMスケールセットのVMが見えません。 Azure Security Centerを使用してSCALE SETのVMSを保護する方法 ありがとう ...

0  Azure Portal以外のAzure Security Centerの推奨事項にアクセスすることは可能ですか?  ( Is it possible to access azure security center recommendations outside of azure ) 
プロジェクトの一部には、Webページ上の特定のリソースグループに対してセキュリティセンターの推奨事項を表示できる必要があります。クリアするには、Azure Security Centerの Recommendations Bladeのデータにアクセスし、その...

4  文字列の新しい行を置き換えます  ( Replace new line in string ) 
セキュリティセンターにセキュリティアラートがある場合にトリガーされているロジックアプリがあります。 入力のサブセットをJSON文書にマッピングし、それを使用してファイルを作成するステップを持っています。 私がすべての行に作成しているJSON文書が必要なので、入...




© 2022 cndgn.com All Rights Reserved. Q&Aハウス 全著作権所有