Avatar billede pera Nybegynder
05. oktober 2006 - 15:05 Der er 6 kommentarer

koble tilet netværk og kopiere filer og koble af netværket igen

Hej lige en lille en her :
problem
jeg skal flytte noget data fra et drev som brugeren normalt ikke har adgang til :
det der  skal ske :
logge x: til \\filserv1\fil\data
logge på med de fornødne brugernavn / pass
x copy data drevet til:
c:\datastore\data

fra koble x:\

nogen der kan lave et sribt til det ?

Per
Avatar billede kabbak Professor
05. oktober 2006 - 19:37 #1
prøv denne, du kan køre det i en batfil og så bruge Xcopy til at flytte data

>NET USE /?

Opretter eller afbryder forbindelser mellem computeren og
delte ressourcer eller viser oplysninger om dine
forbindelser.

NET USE [drev: | *] [\\computer\mappe [adgangskode | ?]]
    [/SAVEPW:NO] [/YES] [/NO]
NET USE [port:] [\\computer\printer [adgangskode | ?]]
    [/SAVEPW:NO] [/YES] [/NO]

NET USE drev: | \\computer\mappe /DELETE [/YES]
NET USE port: | \\computer\printer /DELETE [/YES]
NET USE * /DELETE [/YES]

NET USE drev: | * /HOME

  drev        Angiver det drevbogstav, du tildeler en
              delt mappe.
  *          Angiver det næste tilgængelige drevbogstav.
              Sammen med /DELETE: angiver, at du
              vil afbryde alle forbindelser.
  port        Angiver det parallelle (LPT) portnavn, du
              tildeler til en delt printer.
  computer    Angiver navnet på den computer, der deler
              ressourcen.
  mappe      Angiver navnet på den delte mappe.
  printer    Angiver navnet på den delte printer.
  adgangskode Angiver en eventuel adgangskode
              til den delte ressource.
  ?          Angiver, at du vil bedes om adgangskoden
              til den delte ressource. Du skal ikke
              nødvendigvis bruge denne parameter, med mindre
              adgangskoden er frivillig.
  /SAVEPW:NO  Angiver, at den adgangskode, du skriver,
              ikke skal gemmes i din fil med
              adgangskoder. Du skal skrive adgangskoden igen,
              næste gang du forbinder til ressourcen.
  /YES        Udfører kommandoen NET USE uden at
              bede dig om oplysninger eller at
              bekræfte handlinger.
  /DELETE    Afbryder den angivne forbindelse til en delt
              ressource.
  /NO        Udfører kommandoen NET USE, og svarer automatisk
              NO, når du bliver bedt om at
              bekræfte handlinger.
  /HOME      Opretter en forbindelse til din overordnede
              mappe, hvis den er angivet i din LAN Manager
              eller Windows NT-brugerkonto.

For at se en liste med dine forbindelser skal du skrive NET USE uden
parametre.

Taget harfra http://www.uv.tietgen.dk/Staff/Mlha/PC/Soft/WIN/98/net/NET.htm#USE
Avatar billede pera Nybegynder
05. oktober 2006 - 20:11 #2
Hejsa

Det er nok mig der har skrevet det forkert
Jeg skal bruge det i vb scribt

Per
Avatar billede kabbak Professor
06. oktober 2006 - 00:41 #3
source="c:\datastore\data"
  target="X:\"

    Dim WshNetwork
    dim folder,folderCol
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set oShell = CreateObject("Wscript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    set folder = objFSO.getFolder(source)

    WshNetwork.MapNetworkDrive "X:", "\\filserv1\fil\data" , false  "user", "pass"
  WScript.Echo "Connected." & VbCrLf

  WScript.Echo "Kopiering starter." & VbCrLf
  objFSO.CopyFolder source, target , OverWriteFiles

  WScript.Echo "Kopiering færdig." & VbCrLf
  WshNetwork.RemoveNetworkDrive "X:" , true , true
  WScript.Echo "DisConnected." & VbCrLf

    set folder = nothing
    set objFSO = nothing
    Set oShell = Nothing
    Set WshNetwork = Nothing


' du kan fjerne disse efter test.  WScript.Echo
Avatar billede kabbak Professor
06. oktober 2006 - 00:45 #4
nåå der var lidt fejl

Dim WshNetwork,oShell,objFSO

  source="c:\datastore\data"
  target="X:\"



    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    WshNetwork.MapNetworkDrive "X:", "\filserv1\fil\data" , false , "user", "pass"
    WScript.Echo "Connected." & VbCrLf

    WScript.Echo "Kopiering starter." & VbCrLf
    objFSO.CopyFolder source, target , OverWriteFiles

    WScript.Echo "Kopiering færdig." & VbCrLf
    WshNetwork.RemoveNetworkDrive "X:" , true , true
    WScript.Echo "DisConnected." & VbCrLf

    set objFSO = nothing
    Set WshNetwork = Nothing


' du kan fjerne disse efter test.  WScript.Echo
Avatar billede pera Nybegynder
09. oktober 2006 - 15:36 #5
det virker næsten...
når der ligger filer i biblotekerne i forvejen får jeg en fejl i sciptet


Per
Avatar billede kabbak Professor
09. oktober 2006 - 22:25 #6
Kan du ikke se om du kan finde noget her, jeg har ikke løsningen.

http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/filesfolders/folders/
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester