„Manchmal ist es notwendig, die Registrierung des Remote-Computers zu scannen, um das Vorhandensein einiger Schlüsselwertelemente festzustellen oder diese zu ändern.“
'RegistryKey, Registry und RegistryHive unter dem Microsoft.Win32-Namespace in .NET werden zum Betreiben der Registrierung verwendet
'|______ ScanRemoteRegister ___________|
'|. Urheberrecht wgscd (c)2005 |
'|. QQ:153964481 E-Mail:[email protected] |
'|. Blog:http://blog.csdn.net/wgsnet |
'|______________________________|.
BaumV als neue Baumansicht dimmen
Unterknoten als neuen Baumknoten dimmen
TreeN als neuen TreeNode dimmen
Funktion OpenRemoteRegister(ByVal RemoteBaseKey As String, ByVal ComputerName As String) As String
Dimmen Sie den Unterschlüssel als Microsoft.Win32.RegistryKey
Dim k As Microsoft.Win32.RegistryKey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(RemoteBaseKey, Net.Dns.GetHostByName(ComputerName).HostName)
treeV.Nodes.Add(Net.Dns.GetHostByName(ComputerName).HostName) 'Fügen Sie den Computernamen zur TreeView hinzu
treeV.Nodes.Add(k.Name)
Dim s As String
For Each s In k.GetSubKeyNames 'Den Unterschlüsselnamen abrufen
treeN.Nodes.Add(s)
Unterschlüssel = k.OpenSubKey(s)
OpenKeys(subkey) 'Unterschlüssel/Schlüssel öffnen
Nächste
treeV.Nodes.Add(treeN)
Funktion beenden
Sub OpenKeys (ByVal Key As Microsoft.Win32.RegistryKey)
'k.SubKeyCount' ruft die Anzahl der Unterschlüssel ab
Dim s As String
Unterschlüssel als Microsoft.Win32.RegistryKey dimmen
treeN.Nodes.Add(Key.Name)
Wenn Key.GetSubKeyNames.Length > 0, dann
For Each s In Key.GetSubKeyNames 'Den Unterschlüsselnamen abrufen
treeN.Nodes.Add(s)
Versuchen
SubKey = Key.OpenSubKey(s, False)
Me.Text = s
Wenn s wie „*microsoft*“ oder s wie „*wgscd*“ ist, dann „Suchbegriffe hinzufügen“ und dann „Suchbegriffe hinzufügen“.
'FÜGEN SIE IHREN CODE HINZU....
MsgBox(s)
Ende wenn
OpenKeys(SubKey)
Ex als Ausnahme einfangen
Ende. Versuchen Sie es
weiter
treeV.Nodes.Add(treeN) 'Fügen Sie den Registrierungsschlüssel als Unterschlüssel zur TreeView hinzu.
End If
Sub beenden
Subdome()
OpenRemoteRegister(Microsoft.Win32.RegistryHive.CurrentUser, Net.Dns.GetHostByName("wgscd").HostName) 'Scannen Sie das CurrentUser-Element
„wgscd“ ist der Name des Remote-Computers, den Sie scannen möchten. Voraussetzung ist, dass Sie über die entsprechenden Berechtigungen für „Remote-Computer“ verfügen!
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.LocalMachine, Net.Dns.GetHostByName("wgscd").HostName)'Scannen Sie LocalMachine-Einträge
' OpenRemoteRegister(Microsoft.Win32.RegistryHive.Users, Net.Dns.GetHostByName("wgscd").HostName) 'Benutzerelemente scannen
' OpenRemoteRegister(Microsoft.Win32.RegistryHive.ClassesRoot, Net.Dns.GetHostByName("wgscd").HostName) 'ClassesRoot-Elemente scannen
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.CurrentConfig, Net.Dns.GetHostByName("wgscd").HostName) 'CurrentConfig-Elemente scannen
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.DynData, Net.Dns.GetHostByName("wgscd").HostName) 'DynData-Elemente scannen
Sub beenden
Sub ScanRemoteRegistry()
Mythread als neu dimmen Threading.Thread(AddressOf dome)
Mythread.Start()
Sub beenden
Sub AddTreeViewToForm() 'TreeView zu Formss hinzufügen
Mit treeV
.Breite = 400
.Höhe = 500
Ende mit
Me.Controls.Add(treeV)
Unteraufruf beenden
:
ScanRemoteRegistry()