'有时候需要扫描远程计算机的注册表，判断一些键值项的存在与否，或者修改他们
    '.NET 里的Microsoft.Win32命名空间下的RegistryKey ,Registry,RegistryHive就是用来操作注册表的

    '|______  ScanRemoteRegister ___________|
    '|  Coypright wgscd (c)2005             |
    '|  QQ:153964481 E-mail:wgscd@126.com   |
    '|  Blog:http://blog.csdn.net/wgsnet    |
    '|______________________________________|

    Dim treeV As New TreeView
    Dim SubNode As New TreeNode
    Dim treeN As New TreeNode
    Function OpenRemoteRegister(ByVal RemoteBaseKey As String, ByVal ComputerName As String) As String
        Dim subkey 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)
        Dim s As String
        For Each s In k.GetSubKeyNames '得到子键项Name
            treeN.Nodes.Add(s)
            subkey = k.OpenSubKey(s)
            OpenKeys(subkey) '打开子项/键
        Next
        treeV.Nodes.Add(treeN)
    End Function
    Sub OpenKeys(ByVal Key As Microsoft.Win32.RegistryKey)
        'k.SubKeyCount'得到子键项数
        Dim s As String
        Dim SubKey As Microsoft.Win32.RegistryKey
        treeN.Nodes.Add(Key.Name)
        If Key.GetSubKeyNames.Length > 0 Then
            For Each s In Key.GetSubKeyNames '得到子键项Name
                treeN.Nodes.Add(s)
                Try
                    SubKey = Key.OpenSubKey(s, False)

                    Me.Text = s
       &

[1] [2] [3] 下一页

在google里搜索更多.NET扫描远程计算机注册表

	Web www.51ec.org

上一篇信息学院： 解读ASP.NET 2.0 Internals…

下一篇信息学院： 利用.NET的File控件上传文件的最终解决方案(个人版)