---
title: "Skapa nyklar i registret"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/70991-skapa-nyklar-i-registret"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "firstchoice"
published: "2003-03-13T13:01:37.000Z"
updated: "2003-03-19T13:53:09.000Z"
replies: 9
views: 253
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/70991-skapa-nyklar-i-registret"
---

# Skapa nyklar i registret

## #1 — firstchoice, 2003-03-13T13:01Z

någon som vet något om att spara nyklar i registret på en annan dator?

är detta möjligt?

Permalänk: https://www.webforum.nu/p/70991

## #2 — Jon, 2003-03-13T13:15Z

Vad menar du men en annan dator? Över nätverk eller?

Permalänk: https://www.webforum.nu/p/977035

## #3 — niko, 2003-03-13T13:36Z

> **firstchoice skrev:**
>
> är detta möjligt?

Ja, i den mån den andra maskinen har sin "Remote Registry Service" startad och du har tillräckliga rättigheter så går det alldeles utmärkt. [RegConnectRegistry](http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/regconnectregistry.asp) heter API:et.

Permalänk: https://www.webforum.nu/p/977048

## #4 — firstchoice, 2003-03-13T13:59Z

har en applikation på er server som skall kunna lägga till nyklar i en annan servers register

Permalänk: https://www.webforum.nu/p/977079

## #5 — firstchoice, 2003-03-13T14:22Z

om jag har en "RegOpenKey" då kan jag väl byta ut den mot "RegConnectRegistry" ??

någon som kan ge exempel i så fall

Permalänk: https://www.webforum.nu/p/977108

## #6 — niko, 2003-03-13T14:41Z

Nej, du anropar RegConnectRegistry först och skickar sedan in handtaget som förstaparameter i RegOpenKey. 

Kolla funktionen *ReadRemoteReg* på denna sida: <http://www.andreavb.com/tip080007.html> så ser du ungefär hur du ska göra.

Glöm sedan inte rättigheterna. Om du startar Regedit lokalt och väljer *Registry-\>Connect Network Registry* kan du testa vilka skrivrättigheter du har på fjärrdatorn.

Permalänk: https://www.webforum.nu/p/977124

## #7 — firstchoice, 2003-03-13T14:55Z

tack för hjälpen!
får se om jag förstår något :)

Permalänk: https://www.webforum.nu/p/977134

## #8 — firstchoice, 2003-03-19T10:52Z

niko kanske kan ge mig ett exempel på kod ?

Permalänk: https://www.webforum.nu/p/983687

## #9 — niko, 2003-03-19T11:41Z

Works for me:

```
Option Explicit
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003
Private Const HKEY_PERFORMANCE_DATA = &H80000004
Private Const HKEY_DYN_DATA = &H80000006
Private Const HKEY_CURRENT_CONFIG = &H80000005
Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_EVENT = &H1
Private Const KEY_NOTIFY = &H10
Private Const READ_CONTROL = &H20000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or _
    KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or _
    KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Private Const REG_SZ = 1
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _
    (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
    ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
    (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
    ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" _
    (ByVal lpMachineName As String, ByVal hKey As Long, phkResult As Long) As Long

Private Sub Command1_Click()
    Dim lhRemoteRegistry As Long, res As Long
    Dim keyhand As Long
    res = RegConnectRegistry("\\andradatornsnamn", HKEY_LOCAL_MACHINE, lhRemoteRegistry)
    res = RegCreateKey(lhRemoteRegistry, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Tips", keyhand)
    Dim strValue As String
    strValue = "0" 'Namnet på nyckeln.
    Dim strdata As String 'Det vi vill skriva.
    strdata = "Visste du att man kan ändra i andras registernycklar?"
    res = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
    res = RegCloseKey(keyhand)
End Sub
```

Nu förutsätter jag att det är ett strängvärde du vill ändra (REG_SZ ).

Permalänk: https://www.webforum.nu/p/983714

## #10 — firstchoice, 2003-03-19T13:53Z

tack! fick det att funka!
nu är det DeleteKey som skall göras

Permalänk: https://www.webforum.nu/p/983791

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/70991-skapa-nyklar-i-registret