Dim wmins = ("//192.168.1.5/root/cimv2")
objOS = New ManagementObjectSearcher(wmins, "SELECT * FROM Win32_OperatingSystem ")
objCS = New ManagementObjectSearcher(wmins, "SELECT * FROM Win32_ComputerSystem")
objPR = New ManagementObjectSearcher(wmins, "SELECT * FROM Win32_Processor")
objHS = New ManagementObjectSearcher(wmins, "SELECT * FROM Win32_DiskDrive")
objIS = New ManagementObjectSearcher(wmins, "SELECT * FROM Win32_Product")
For Each objMgmt In objOS.Get
The error is: Access is denied. (Exception from HRESULT: 0x80070005 (E_ACCESSDENIED))
m_strOSName = objMgmt("name").ToString()
m_strOSVersion = objMgmt("version").ToString()
m_strComputerName = objMgmt("csname").ToString()
m_strWindowsDir = objMgmt("windowsdirectory").ToString()
Next
私はちょうど私があなたがアクセスしたいパスにアクセスするためのいかなる権利を持っていないと思うすべてのローカルネットワークシステムにインストールされたソフトウェアを取得する際にエラーが発生しました!アクセスは拒否されました。 (HRESULTからの例外:0x80070005(E_ACCESSDENIED))
どのようなシステムですか? – Aristos