我想从另一台PC使用ManagementScope连接到运行Windows 7的远程PC，这两台计算机都在本地网络中。在远程PC上，我已创建了一个名为"Samuel"的新用户账户，没有设置密码并将其设置为管理员。
ConnectionOptions options = new ConnectionOptions();
options.Username = "Samuel";
options.Password = "";
ManagementScope scope = new ManagementScope("\\\\192.168.0.2\\root\\cimv2", options);
scope.Connect();
我收到的错误信息：
拒绝访问。（来自 HRESULT: 0x80070005 (E_ACCESSDENIED) 的异常）
更新：
在为用户设置密码后，我收到了新的错误信息：
RPC 服务器不可用。（来自 HRESULT: 0x800706BA 的异常）
scope.Options.EnablePrivileges = true;
来自MSDN (ConnectionOptions.EnablePrivileges Property)：
获取或设置一个值，指示连接操作是否需要启用用户权限。仅在执行的操作需要启用某个特定用户权限时才应使用此属性(例如，机器重启)。
编辑： 如果不起作用，请尝试将模拟级别设置为“模拟”：
scope.Options.Impersonation = System.Management.ImpersonationLevel.Impersonate;
模拟级别 Impersonate： 模拟级别 COM 模拟，允许对象使用调用者的凭据。这是 WMI 调用的推荐模拟级别。
Authority更改为我的域名而不是“DOMAIN”对我有用。 - MaslowAccording to the WMI FAQ on TechNet, the 0x80070005 error indicates a DCOM issue:
0x80070005 (DCOM ACCESS_DENIED)
This error occurs when the connected user is not recognized or is restricted in some fashion by the remote server (for example, the user might be locked out). This happens most often when accounts are in different domains. Recent changes to WMI security can also cause this error to occur:
Blank passwords, formerly permitted, are not allowed in Windows XP and Windows Server 2003.
WMI does not allow asynchronous callbacks to a Windows 98 client. A call like SWbemServices.ExecNotificationQueryAsync from a Windows 98 computer to a Windows XP computer will result in an Access Denied error returned to the Windows 98 machine.
The DCOM configuration access setting might have been changed.
If the target computer is running Windows XP, the Forceguest value under the registry key HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa might be set to force the Guest account off (value is zero).
(Although Windows XP is mentioned, this may be applied to Windows 7 as well.)
The 0x800706BA error, in its rurn, indicates a firewall issue:
0x800706xx (DCOM RPC error)
This often occurs when a firewall is configured on the remote computer. You will need to open the appropriate ports on the firewall to permit remote administration using DCOM.
Try enabling the Remote administration exception in Windows Firewall on the remote computer and see if it helps. To do this from the command line, run the following command in the elevated command prompt:
netsh advfirewall firewall set rule group="remote admin" new enable=yes
You can also find the DCOM, UAC, Windows Firewall and other settings required for remote WMI access in the Connecting to WMI Remotely Starting with Windows Vista article on MSDN.
Also, since Samuel is a nondomain account, you need to grant this account DCOM Remote Access, Remote Launch and Remote Activation permissions on the remote computer as described here.
不确定是因为远程机器上的WMI引擎没有监听，还是您有其他登录/连接问题导致被拒绝。
这是我用来连接到远程机器的代码，它完美地工作。也许它能帮到你：
ConnectionOptions oConn = new ConnectionOptions();
ManagementScope oScope = null;
oConn.Username = txtLogin;
oConn.Password = txtPassword;
oConn.Authority = "ntlmdomain:" + txtDomain;
oScope = new ManagementScope("\\\\" + txtHostName + "\\root\\CIMV2", oConn);
oScope.Connect();
我也遇到了这个问题。我试图编写C#代码来获取远程PC的WMI信息和文件。但是遇到了两个访问被拒绝错误：
长话短说，我不得不对远程PC进行更改。请参见下文：
System.Management：访问被拒绝：“使用 System.Management 和 WMI”： https://support.microsoft.com/en-us/help/317012/process-and-request-identity-in-asp.net
使用“net view \\服务器名”的解决方案
我知道使用控制台命令并对输出进行一些字符串操作并不是很理想，但另一方面它确实有效，并且对我来说，也不太希望去搞乱DCOM默认设置以使WMI方式工作（至少在Win7上）。
已在Win7和XP客户端以及MS和Linux服务器上进行了测试。
Function GetShares(ServerName As String) As List(Of String)
Try
Dim P As New Process
Dim Read As Boolean = False
Dim Str As String
Dim Shares As New List(Of String)
With P.StartInfo
.FileName = "net"
.Arguments = "view " & ServerName
.RedirectStandardOutput = True
.RedirectStandardError = True
.CreateNoWindow = True
.UseShellExecute = False
End With
P.Start()
P.WaitForExit()
If P.ExitCode <> 0 Then
MsgBox(P.StandardError.ReadToEnd, MsgBoxStyle.OkOnly, "Error")
Else
Do Until P.StandardOutput.EndOfStream = True
If Read = True Then
Str = P.StandardOutput.ReadLine
If Str = "The command completed successfully." Then Exit Do
Str = Strings.RTrim(Str) 'Removes any trailing spaces
Str = Strings.Mid(Str, 1, Strings.InStrRev(Str, " ")) 'remove Type
Str = Strings.RTrim(Str) ''Removes any trailing spaces
Shares.Add(Str)
Else
If Strings.Left(P.StandardOutput.ReadLine, 10) = "----------" Then Read = True
End If
Loop
End If
Return Shares
Catch ex As Exception
MsgBox("Error in """ & System.Reflection.MethodInfo.GetCurrentMethod.Name & """: " & vbCr & ex.Message, MsgBoxStyle.OkOnly, "Runtime error")
Debug.Print("--------------------------" & vbCr & "Error: " & ex.Message & vbCr & ex.StackTrace)
Return Nothing
End Try
End Function