Ændre i registreringsdatabasen

Hvorfor har du brug for at gøre det via registreringsdatabasen?

Har du rettigheder til at ligge komponenter/dll'er på serveren?

Sorry :-( Så ikke dette var i VB-kategorien... sorry /out

Du kan bruge de indbyggede VB-funktioner:

SaveSetting (appname, section, key, setting)
Derudover er der : GetSetting, GetAllSettings og DeleteSetting

Hvis du ønsker en større grad af kontrol, skal du bruge API-kald:

f.eks:

Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long

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

Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long        ' Note that if you declare the lpData parameter as String, you must pass it By Value.

/tjacob

Her er et lille eksempel på hvordan man sharer en folder fra VB
http://www.swk-surf.dk/downloads/akj/share.zip

Hvis du vil have den med kommentarer så se her :o)
http://www.vbvbvb.com/jp/gtips/0251/gNetShareAddFolder.html

Den er KUN testet på w2k

akj

Til Tipsen
Det er fordi jeg skal sætte flere maskiner op og derfor vil lavet et VBS script der kan lave disse ting for mig såsom at lave deling, ændre sti til skabelonsbibliotek, oprette diverse mapper osv osv. Og jeg mangler kun det at lave deling. Delingen er noget jeg laver på de enkelte når jeg installer dem og ikke noget jeg gør fra serveren.
hilsen Mickey

Så skal du da bare bruge Net share.

F.eks Net share MinDelteFolder=c:\data\share

Akj

Hej Akj
Det ser meget enkelt ud. Men, hvordan skal jeg få dette til at virke. Jeg har siddet lidt og kigget på dit eksembel og kan ikke ikke finde oplysninger som kan forklare mig funktionen i din kode. Kan du hjælpe mig med en mindre forklaring.
Hilsen Mickey

Det er en dos komando, du skriver det bare i din command prompt.
Hvis du f.eks ønsker at share din temp folder som diverse skriver du blot diverse=c:\temp.
Dette kan du også lave i en .bat fil

Hvis du vil gøre det fra VB er koden her:

Declare Function ShellExecuteA Lib "shell32.dll" ( _
    ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



Private Sub Command2_Click()
ls_Command = "open"
ls_Dir = ""
ls_Args = "/c Net share diverse=c:\temp"
ls_URL = "cmd"


ShellExecuteA 0, ls_Command, ls_URL, ls_Args, ls_Dir, 5
End Sub

Tak for hjælpen

Hvilken løsning brugte du ??