'場合によっては、リモート コンピューターのレジストリをスキャンして、キーと値の項目の存在を確認したり、それらを変更したりする必要があります。
'.NET の Microsoft.Win32 名前空間にある RegistryKey、Registry、および RegistryHive は、レジストリの操作に使用されます
'|______ ScanRemoteRegister ____________|
'| 著作権 wgscd (c)2005 |
'| QQ:153964481 電子メール:[email protected] |
'| ブログ:http://blog.csdn.net/wgsnet |
'|____________________________________________|
新しいツリービューとしての Dim TreeV
新しいツリーノードとしての Dim サブノード
新しいツリーノードとしての薄暗いツリーN
Function OpenRemoteRegister(ByVal RemoteBaseKey As String, ByVal ComputerName As String) As String
Dim サブキー As 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) 'コンピューター名を TreeView に追加します
TreeV.Nodes.Add(k.Name)
文字列としてのディム
For Each s In k.GetSubKeyNames 'サブキー名を取得します
ツリーN.Nodes.Add(s)
サブキー = k.OpenSubKey(s)
OpenKeys(subkey) 'サブキー/キーを開きます
次
TreeV.Nodes.Add(treeN)
終了機能
サブ OpenKeys (Microsoft.Win32.RegistryKey としての ByVal キー)
'k.SubKeyCount' はサブキーの数を取得します
文字列としてのディム
Microsoft.Win32.RegistryKey としての Dim SubKey
TreeN.Nodes.Add(Key.Name)
Key.GetSubKeyNames.Length > 0 の場合
For Each s In Key.GetSubKeyNames 'サブキー名を取得します
ツリーN.Nodes.Add(s)
試す
SubKey = Key.OpenSubKey(s, False)
Me.Text = s
If s Like "*microsoft*" or s Like "*wgscd*" then '検索用語を追加Then '検索用語を追加
「コードを追加してください...」
メッセージボックス
終了の場合
オープンキー(サブキー)
元を例外としてキャッチ
終了
次へ
試す
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) 'ClassesRoot 項目をスキャンします
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.CurrentConfig, Net.Dns.GetHostByName("wgscd").HostName) 'CurrentConfig 項目をスキャンします
'OpenRemoteRegister(Microsoft.Win32.RegistryHive.DynData, Net.Dns.GetHostByName("wgscd").HostName) 'DynData 項目をスキャンします
エンドサブ
Sub ScanRemoteRegistry()
新しい Threading.Thread (ドームのアドレス) として Mythread を暗くする
Mythread.Start()
エンドサブ
Sub AddTreeViewToForm() 'TreeView を Formss に追加
ツリー付きV
.幅 = 400
.高さ = 500
で終わる
Me.Controls.Add(treeV)
End Sub
呼び出し:
ScanRemoteRegistry()