运行.vbs 提示没有权限“GetObject” 错误代码800A0046

[WangSongYuan]

Function GetDnsServers(authority, domainDnsName)
	Dim objWmi, colItems, objItem, objPing, count, servers

	Set objWmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & authority & "\root\MicrosoftDNS")
	Set colItems = objWmi.ExecQuery("Select * from MicrosoftDNS_NSType where DomainName = '" & domainDnsName & "'")

	servers = ""

	For Each objItem in colItems
		Set objPing = GetObject("winmgmts:").Get("Win32_PingStatus.Address='" & objItem.NSHost & "'")
		
		If objPing.ProtocolAddress <> "" Then
			servers = servers & "," & objPing.ProtocolAddress
		
			If count = 2 Then
				Exit For
			End If

			count = count + 1
		End If
	Next

	GetDnsServers = Mid(servers, 2)
End Function

[Go 旅城通票]

当前登录系统的账户不是administrators组的？不是确实有权限问题，更改为administrators组的用户登录

[WangSongYuan]

引用 1 楼 showbo 的回复:

当前登录系统的账户不是administrators组的？不是确实有权限问题，更改为administrators组的用户登录

就一个administrators账号 是administrators组的