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 2012-03-26 13:18:06