Deling

NetshareAdd

Jens B

hvordan virker det??

prøv at skrive NetShareAdd, og stil din cursor ovenpå, tryk derefter på F1.

( Online hjælp er en god ting )

borrisholt >> netshareadd virker da ikke bare lige, det er jo noget netapi....

/ZIRON

og så....

API kald er ikke noget specielt svært i delhpi

kan jeg ikke få et lille eks.

Hvad så med en shellexecute hvor man bruger \"net\" programmet :)

og det skal virke i win98

wisen >> det kunne man da også, du må heller lave et eks. det lyder som om han gerne vil have det. men for 5 point...

/ZIRON

hehe. Ja 5 point er jo ikke meget, og det var mest ment som et spøg :) Til gengæld er shellexecute da nem at bruge...

FRA MSDN :

/*++

Copyright (c) 1995, 1996  Microsoft Corporation

Module Name:

    netshare.c

Abstract:

    This module illustrates how to use the Windows NT Lan Manager API
    in conjunction with the Win32 security API to create a new share
    on an arbitrary machine with permissions that grant an arbitrary
    user/group Full Access to the share.

Author:

    Scott Field (sfield)    01-Oct-95

--*/

#include <windows.h>
#include <lm.h>
#include <stdio.h>

#define RTN_OK 0
#define RTN_USAGE 1
#define RTN_ERROR 13

//
// Note: UNICODE entry point and argv.  This way, we don\'t need to bother
// with converting commandline args to Unicode
//

int
__cdecl
wmain(
    int argc,
    wchar_t *argv[]
    )
{
    LPWSTR DirectoryToShare;
    LPWSTR Sharename;
    LPWSTR Username;
    LPWSTR Server;

    PSID pSid = NULL;
    DWORD cbSid;

    WCHAR RefDomain[DNLEN + 1];
    DWORD cchDomain = DNLEN + 1;
    SID_NAME_USE peUse;

    SECURITY_DESCRIPTOR sd;
    PACL pDacl = NULL;
    DWORD dwAclSize;

    SHARE_INFO_502 si502;
    NET_API_STATUS nas;

    BOOL bSuccess = FALSE; // assume this function fails

    if(argc < 4) {
        printf(\"Usage: %ls <directory> <sharename> <user/group> [\\\\\\\\Server]\\n\", argv[0]);
        printf(\" directory is fullpath of directory to share\\n\");
        printf(\" sharename is name of share on server\\n\");
        printf(\" user/group is an WinNT user/groupname (REDMOND\\\\sfield, Administrators, etc)\\n\");
        printf(\" optional Server is the name of the computer to create the share on\\n\");
        printf(\"\\nExample: %ls c:\\\\public public Everyone\\n\", argv[0]);
        printf(\"c:\\\\public shared as public granting Everyone full access\\n\");
        printf(\"\\nExample: %ls c:\\\\private cool$ REDMOND\\\\sfield \\\\\\\\WINBASE\\n\", argv[0]);
        printf(\"c:\\\\private on \\\\\\\\WINBASE shared as cool$ (hidden) granting REDMOND\\\\sfield access\\n\");

        return RTN_USAGE;
    }

    //
    // since the commandline was Unicode, just provide pointers to
    // the relevant items
    //

    DirectoryToShare = argv[1];
    Sharename = argv[2];
    Username = argv[3];

    if( argc > 4 ) {
        Server = argv[4];
    } else {
        Server = NULL; // local machine
    }

    //
    // initial allocation attempt for Sid
    //
#define SID_SIZE 96
    cbSid = SID_SIZE;

    pSid = (PSID)HeapAlloc(GetProcessHeap(), 0, cbSid);
    if(pSid == NULL) {
        printf(\"HeapAlloc error!\\n\");
        return RTN_ERROR;
    }

    //
    // get the Sid associated with the supplied user/group name
    // force Unicode API since we always pass Unicode string
    //

    if(!LookupAccountNameW(
        NULL,      // default lookup logic
        Username,  // user/group of interest from commandline
        pSid,      // Sid buffer
        &cbSid,    // size of Sid
        RefDomain,  // Domain account found on (unused)
        &cchDomain, // size of domain in chars
        &peUse
        )) {

        //
        // if the buffer wasn\'t large enough, try again
        //

        if(GetLastError() == ERROR_INSUFFICIENT_BUFFER) {

            pSid = (PSID)HeapReAlloc(GetProcessHeap(), 0, pSid, cbSid);

            if(pSid == NULL) {
                printf(\"HeapReAlloc error!\\n\");
                goto cleanup;
            }

            cchDomain = DNLEN + 1;

            if(!LookupAccountNameW(
                NULL,      // default lookup logic
                Username,  // user/group of interest from commandline
                pSid,      // Sid buffer
                &cbSid,    // size of Sid
                RefDomain,  // Domain account found on (unused)
                &cchDomain, // size of domain in chars
                &peUse
                )) {
                    printf(\"LookupAccountName error! (rc=%lu)\\n\", GetLastError());
                    goto cleanup;
                }

        } else {
            printf(\"LookupAccountName error! (rc=%lu)\\n\", GetLastError());
            goto cleanup;
        }
    }

    //
    // compute size of new acl
    //

    dwAclSize = sizeof(ACL) +
        1 * ( sizeof(ACCESS_ALLOWED_ACE) - sizeof(DWORD) ) +
        GetLengthSid(pSid) ;

    //
    // allocate storage for Acl
    //

    pDacl = (PACL)HeapAlloc(GetProcessHeap(), 0, dwAclSize);
    if(pDacl == NULL) goto cleanup;

    if(!InitializeAcl(pDacl, dwAclSize, ACL_REVISION))
        goto cleanup;

    //
    // grant GENERIC_ALL (Full Control) access
    //

    if(!AddAccessAllowedAce(
        pDacl,
        ACL_REVISION,
        GENERIC_ALL,
        pSid
        )) goto cleanup;

    if(!InitializeSecurityDescriptor(&sd, SECURITY_DESCRIPTOR_REVISION))
        goto cleanup;

    if(!SetSecurityDescriptorDacl(&sd, TRUE, pDacl, FALSE)) {
        fprintf(stderr, \"SetSecurityDescriptorDacl error! (rc=%lu)\\n\",
            GetLastError());
        goto cleanup;
    }

    //
    // setup share info structure
    //

    si502.shi502_netname = (LPTSTR) Sharename;
    si502.shi502_type = STYPE_DISKTREE;
    si502.shi502_remark = NULL;
    si502.shi502_permissions = 0;
    si502.shi502_max_uses = SHI_USES_UNLIMITED;
    si502.shi502_current_uses = 0;
    si502.shi502_path = (LPTSTR) DirectoryToShare;
    si502.shi502_passwd = NULL;
    si502.shi502_reserved = 0;
    si502.shi502_security_descriptor = &sd;

    nas = NetShareAdd(
        (LPTSTR) Server,        // share is on local machine
        502,            // info-level
        (LPBYTE)&si502, // info-buffer
        NULL            // don\'t bother with parm
        );

    if(nas != NO_ERROR) {
        printf(\"NetShareAdd error! (rc=%lu)\\n\", nas);
        goto cleanup;
    }

    bSuccess = TRUE; // indicate success

cleanup:

    //
    // free allocated resources
    //
    if(pDacl != NULL)
        HeapFree(GetProcessHeap(), 0, pDacl);

    if(pSid != NULL)
        HeapFree(GetProcessHeap(), 0, pSid);

    if(!bSuccess) {
        return RTN_ERROR;
    }

    return RTN_OK;
}



Jens B

det ser ud til at vi skal glemme vores shellexecute, Jens er lidt for syg med ham og hans MSDN....

vi må heller glemme de 5 point og lade jens få dem...

/ZIRON

Øhh, Borrisholt; Hører din kode ikke mere til i gruppen c/c++ ?!?

du kan skrive c++ i delphi...

Uses ShellAPI;
 
ShellExecute(Handle,\'open\',PChar(\'net.exe\'),pchar(\'use drev server\'),pchar(\'\'),SW_HIDE);

\"Handle\", \"drev\" og \"server\" skal selvfølgelig være sigende :)

/wisen

ziron >> cool, det var jeg ikke klar over :=)

k... men handle skal bare være handle...

/ZIRON

ShellExecute svarer bare til at gå i en DOS-box og udføre komendoen NET USE .....

/Martin

er, ved det... det er også lidt af en fakemåde...

En af jer må forklare jer så 14årige begyndere kan forstå, det eneste jeg vil er at dele en mappe med en funktion der eks. skulle se sådan her ud: deling(\'c:\\windows\\\');

jeg er ligeglad med om jeg skal bruge et delphiprogram eller bat fil bare jeg får et eksempel der er let at ændre!!!

Ja, så er det jo ikke lige NET USE, men NET SHARE mener jeg den heder, prøv at gå ud i en dos-box og skriv \"NET /?\" og se om ikke du får svar på dit spørgsmål

C:\\>net share /?
The syntax of this command is:


NET SHARE sharename
          sharename=drive:path [/USERS:number | /UNLIMITED]
                              [/REMARK:\"text\"]
                              [/CACHE:Manual | Automatic | No ]
          sharename [/USERS:number | /UNLIMITED]
                    [/REMARK:\"text\"]
                    [/CACHE:Manual | Automatic | No ]
          {sharename | devicename | drive:path} /DELETE

C:\\>

Ikke så svært endda *S*

/Martin

kan i ikke skrive et eksempel på hvordan man deler mappen c:\\windows\\ og hvordan man afdeler den igen??? Så får i hele 30 point !!!!!!!!!

Åh ja, det havde jeg ikke lige tænkt på. Skal du dele et drev/folder (net share) eller skal du bruge et delt drev/folder (net use) ?

jeg skal dele og afdele en mappe på min computer via en kommando enten i delphi eller dos

Dele :

net share delt=c:\\windows

\"afdele\"

net share delt /delete

( tror jeg nok )

men netshare virker ikke hos mig :-(

TIL :

NET SHARE C:\\Windows /UNLIMITED

FRA :

NET SHARE C:\\Windows /DELETE

/Martin

...det burde virke...

det skal være mellemrum mellem \"net\" og \"share\"

Besked fra dosén: kommandoen share er ukendt

Hvilket OS bruger du ?

Det virker bortset fra at jeg glemte sharenavnet
der skal stå :

NET SHARE DeltBib=C:\\Windows /UNLIMITED

NET SHARE Deltbib /DELETE



hvor DeltBib er det share navn du vælger selv.

/Martin

Den fra win98

Det skal virke i win98... (det virker i Win95)

Prøv at skrive net /? og dump det her...

hvis det er på dit arb. du sider er der sikkert lukket af for den mulighed.

Den staår ikke under \"net /?\"

Og det er helt privat jeg laver dette

ja og det virker i W2K

mystisk, det er en std. dos MSlan komando.

Har du installeret NETBUI protokolen, hvis ikke så prøv at install. den og prøv igen.

NET HELP    Viser oplysninger om kommandoer og
            fejlmeddelelser.
NET INIT    Indlæser protokoller og drivere til netværkskort
            uden at binde dem til Protokolstyring.
NET LOGOFF  Afbryder forbindelsen mellem computeren og
            de delte ressourcer, den er forbundet til.
NET LOGON    Identificerer dig som medlem af en arbejdsgruppe.
NET PASSWORD Ændrer din logon-adgangskode.
NET PRINT    Viser oplysninger om udskriftskøer
            og kontrollerer udskriftsjob.
NET START    Starter serviceprogrammer.
NET STOP    Stopper serviceprogrammer.
NET TIME    Viser klokkeslættet eller synkroniserer computerens
            ur med uret på en Microsoft Windows til
            Workgroups, Windows NT, Windows 95, eller NetWare tidsserver.
NET USE      Opretter eller afbryder forbindelse til en
            delt ressource eller viser oplysninger om
            forbindelser.
NET VER      Viser typen og versionsnummeret for den
            arbejdsgrupperedirector, du bruger.
NET VIEW    Viser en liste med computere, der deler
            ressourcer eller en liste med delte ressourcer
            på en bestemt computer.

hmm, meget mystisk....

jeg har ikke netbui men jeg kan godt dele mapper fra windows af, det eneste er at jeg skal bruge et program der kan gøre det (eller dos)

<gæt>

Har du installeret fil- og printerdeling i kontrolpanel->netværk ?

Jeg ved ikke, om den installerer en anden net.exe...
</gæt>

Har du givet andre lov til at bruge dine filer og printere, det er et must, eller kan du ikke share noget ud.

Kan du dele noget ved at højreclicke fra stifinder ?, hvis ikke du kan derfra kan du heller ikke andre steder fra

Ok, så er der nok kun og lave et program til det.

Men mystisk det er det nu stadig.

okey eg kommer igen i morgen og ser om i har et par eks.

wisen>> Ja det har jeg

martinlind>> Ja det kan jeg

Er der ikke nogen som vil lave et DELPHI eksempel til mig??? please, please.

kan du ikke bare porte de C++ eksemple jeg gav ?

Jens B

hvis du fortæller hvordan man compilerer det til et program

borrisholt>> KAn jeg så ikke få dig til at compilere programmet sådan at man kan skrive eks.: C:\\deling.exe del c:\\windows\\ og C:\\deling.exe undel c:\\windows\\ eller noget i den retning????????

Er der ikke en måde man kan dele i delphi eller en som kan fortælle mig hvordan man compilere c++ i delphi???????

Det gør man ved at konvertere det c eks. som Jens skrev.

...Er der ikke et sted hvor man kan konvertere eksemplet automatisk???

Nej, ikke så vist jeg ved, men det er altså ikke det helt store, hvis du bare starter fra en ende af, så vel jeg tro det kan gøres på en times tid, uden dog at love noget, men hvis jeg får tid i weekenden så vil jeg da gerne kigge på det.

hvis du gerne vil havde det så drop en mail til mig. martin@e-lind.dk

Det var nu det script som borisholt har skrevet jeg mente :-)

er der så ikke en der kender en GRATIS eller prøveversion af en c++ compiler der kan downloades???

Hvis du har denne fil på din maskine \"svrapi.dll\"
så gi mig din mail adr. og jeg sender et delphi program der kan mappe, du kan evt. få sourcen LANMAN 3.0 API, du kan lave et delings program på 3 liner, men det kører ikke under min W2K-workstation så jeg kan ikke rigtig lave det sidste for dig.

/Martin

kan jeg ikke få sourcen til det program på 3 liner???

ziron@wanadoo.dk

ikke uden koden til API\'et også.

fra demoen:

NetCheck(NetShareAdd(PChar(MainForm.ServerName), 50, @ShareInfo, Sizeof(ShareInfo)));

måske jeg skal rette til 10 liner, man skal lige fylde ShareInfo også.

jeg har svrapi.dll filen o min email er dennis.ssh@computer.dk