vb使用WMI读取局域网内电脑时间，可总是提示没有权限

Dim objmethod As SWbemMethod
Dim objinparam As SWbemObjectEx
Dim objoutparam As SWbemObjectEx
Dim intstatus As Long
'连接主机

     Set objSWbemServices = objSWbemLocator.ConnectServer("192.168.1.101", "root/cimv2", "administrator", "") '连接到本机的WMI，返回一个对 SWbemServices 对象的引用
我的电脑是WIN7，对方电脑也是win7，登陆账号是“administrator”，密码为空，但是我怎么都连接不了，总是提示拒绝的权限，而我的登陆账号是“xml”密码为空。

然后我又在对方电脑上新建了一个账号为“xml”的用户，还是连接不上，这是怎么回事呢？忘大家指点指点。



--------------------编程问答-------------------- 可能组策略不允许是密码为空靠成的,建议楼主用密码相同的账号进行连接.... --------------------编程问答-------------------- 你的意思是我也要用administator这个用户登陆我的电脑？

补充：VB ,  基础类