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

wjb5645

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

wjb5645

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

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

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