通过MSSQL语句获取主板或CPU，硬盘ID

qwasd3

如题：
VBA里使用ADO连接MSSQL，想返回MSSQL这台电脑的主板或CPU序列号，应该怎样写？
通过使用MSSQL语句是否可以实现？

直接用VBA获取，有时候会报错：

1. Dim Obj As Object, sn As String
   
2. 
   
3. ComputerName = "192.168.1.101"
   
4. 
   
5. For Each Obj In GetObject("WinMgmts:{impersonationLevel=impersonate}!//" & ComputerName & "").InstancesOf("Win32_BaseBoard")
   
6. 
   
7. sn = Obj.SerialNumber
   
8. Next
   
9. 
   
10. MsgBox "主板的序列号" & sn

复制代码

通过以上代码可以获取到指定IP计算机的主板续列号；
但测试时发现有部份内网不同系统的计算机获取时会报错如下：
1.win7及windows server 2008r计算机 报错： -2147217405自动化(Automation)错误
2.winxp系统计算机 报错：70 拒绝权限
注：测试PING都通，并且可以通过IP访问共享目录。

好学的乌鸦

win 7 测试 无报错啊