2010-01-29 2 views

Répondre

1

Voici quelque chose que vous aider:

'Set the machine name 
    Dim MachineName = "file-server" 
    'This will hold the value of the query if successful 
    Dim Value As String = Nothing 
    'Open the remote HKLM hive 
    Dim Reg = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.LocalMachine, MachineName) 
    'Open the key 
    Dim Key = Reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion") 
    'OpenSubKey returns Nothing on keys that don't exist so make sure we've got something 
    If Key IsNot Nothing Then 
     'Grab the value 
     Value = Key.GetValue("CommonFilesDir") 
    Else 
     'Unable to open key, do something here 
    End If 
    'Very important, close the key and the hive 
    Key.Close() 
    Reg.Close() 
    Trace.WriteLine(Value) 
Questions connexes