求助!局域网内访问注册表的问题?

wjb5645

我想在A机的窗体上显示查到B机注册表的键值,如:B机的:HKEY_LOCAL_MACHINE\SYSTEM  下, 键名是:SYS    键值:AAA
找来找去好象只能用API,请教前辈们该咋写?谢谢!!!

Grant

你需要访问局域网注册表还要共享注册表,你能确定你访问的机器都开启了注册表共享?
用RegConnectRegistry和远程的计算机注册表连按
再用RegQueryInfoKey等函数读和写

wjb5645

谢谢Grant
B机的注册表共享服务我是可以手工打开的
用API连接和读取能帮忙写个例子吗,我对API一窍不通呀
再次感谢!

Grant

年底比较忙,这里也才一台电脑要回去后才有电脑给你测试

wjb5645

好的,谢谢!等你的好消息

wjb5645

对等网的我试出来了.建了域的我没试,用域的朋友可试试不知行不行

Dim hKey As Long, ret As Long
Dim Name As String
Dim aa As String * 256
Name = "iFormat"
ret = RegConnectRegistry("\\B机", HKEY_CURRENT_USER, lKey)
If ret = 0 Then
ret = RegOpenKey(lKey, "Software\Microsoft\Clock", hKey)
ret = RegQueryValueEx(hKey, Name, 0, REG_SZ, ByVal aa, 50)
ret = RegCloseKey(lKey)
ret = RegCloseKey(hKey)
aa = Replace(aa, Chr(1), "")
MsgBox aa
End If

前提是用户名和密码需和B机相同

wjb5645

再顶下.....................

jxq998

哈哈，都能打开B的注册表了

shiningdays

？？新手，不太懂！