'일부 키-값 항목이 있는지 확인하거나 수정하기 위해 원격 컴퓨터의 레지스트리를 검사해야 하는 경우가 있습니다.
'.NET의 Microsoft.Win32 네임스페이스 아래에 있는 RegistryKey, Registry 및 RegistryHive는 레지스트리를 작동하는 데 사용됩니다.
'|______ ScanRemoteRegister ___________|
'| 저작권 wgscd (c)2005 |
'| QQ:153964481 이메일:[email protected] |
'| 블로그:http://blog.csdn.net/wgsnet |
'|__________________________|
새로운 TreeView로 Dim treeV
Dim 하위 노드를 새 TreeNode로 사용
Dim treeN을 새 TreeNode로 사용
기능 OpenRemoteRegister(ByVal RemoteBaseKey를 문자열로, ByVal ComputerName을 문자열로) As String
Microsoft.Win32.RegistryKey와 같은 Dim 하위 키
Dim k As Microsoft.Win32.RegistryKey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(RemoteBaseKey, Net.Dns.GetHostByName(ComputerName).HostName)
treeV.Nodes.Add(Net.Dns.GetHostByName(ComputerName).HostName) 'TreeView에 컴퓨터 이름을 추가합니다.
treeV.Nodes.Add(k.이름)
Dim은 문자열로
For Each s In k.GetSubKeyNames '하위 키 이름 가져오기
treeN.노드.추가
하위 키 = k.OpenSubKey(들)
OpenKeys(subkey) '하위 키/키 열기
다음
treeV.Nodes.Add(treeN)
기능 종료
하위 OpenKeys(Microsoft.Win32.RegistryKey와 같은 ByVal 키)
'k.SubKeyCount'는 하위 키 수를 가져옵니다.
Dim은 문자열로
Microsoft.Win32.RegistryKey로 Dim 하위 키
treeN.Nodes.Add(키.이름)
Key.GetSubKeyNames.Length > 0이면
For Each s In Key.GetSubKeyNames '하위 키 이름 가져오기
treeN.노드.추가
노력하다
SubKey = Key.OpenSubKey(s, False)
Me.Text = s
"*microsoft*"와 같은 경우 또는 "*wgscd*"와 같은 경우 '검색어 추가그런 다음 '검색어 추가
'코드를 추가하세요....
메시지박스
종료 조건
오픈키(하위키)
ex를 예외로 잡아라
종료
다음
시도
treeV.Nodes.Add(treeN) 'TreeView에 레지스트리 키를 하위 키로 추가합니다.
End If
서브 끝
서브돔()
OpenRemoteRegister(Microsoft.Win32.RegistryHive.CurrentUser, Net.Dns.GetHostByName("wgscd").HostName) 'CurrentUser 항목 검색
'"wgscd"는 스캔하려는 원격 컴퓨터의 이름입니다. 전제는 "원격 컴퓨터"에 대한 해당 권한이 있다는 것입니다!
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.LocalMachine, Net.Dns.GetHostByName("wgscd").HostName)'LocalMachine 항목 검색
' OpenRemoteRegister(Microsoft.Win32.RegistryHive.Users, Net.Dns.GetHostByName("wgscd").HostName) '사용자 항목 검색
' OpenRemoteRegister(Microsoft.Win32.RegistryHive.ClassesRoot, Net.Dns.GetHostByName("wgscd").HostName) '클래스 루트 항목 검색
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.CurrentConfig, Net.Dns.GetHostByName("wgscd").HostName) 'CurrentConfig 항목 검색
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.DynData, Net.Dns.GetHostByName("wgscd").HostName) 'DynData 항목 검색
서브 끝
하위 스캔RemoteRegistry()
Dim Mythread를 새로운 Threading.Thread(AddressOf 돔)로 사용
신화스레드.시작()
서브 끝
Sub AddTreeViewToForm() 'Formss에 TreeView 추가
나무와 함께V
.폭 = 400
.높이 = 500
끝
나.컨트롤.추가(treeV)
하위 통화 종료
:
ScanRemoteRegistry()