Søg
Avatar billede frede92 Nybegynder
18. oktober 2007 - 12:06 Der er 27 kommentarer og
1 løsning

Script til at kopiere mappe fra server til computer (LAN)

Hey..

Skal bruge hjælp til et script der kopierer en mappe (MED undermapper) fra en server (over LAN), til en anden computer på netværket (Den computer scriptet køres fra).

Hvis nogle vil hjælpe med det, ville det bare være superb! :D


Btw, en ting der skal inkluderes i scriptet, er dette (Laver en genvej på skrivebordet til exe-filen, og den del her virker!):

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Folder = WScript.CreateObject("Scripting.FileSystemObject")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLinkDesktop = WshShell.CreateShortcut(strDesktop & "\WoW Private Server.lnk")
oShellLinkDesktop.TargetPath = "C:\WOWPRiV\WoW.exe"
oShellLinkDesktop.Arguments = ""
oShellLinkDesktop.WindowStyle = 1
oShellLinkDesktop.IconLocation = ", 0"
oShellLinkDesktop.Description = "World of Warcraft v. 2.1.3 prepared for Private Server"
oShellLinkDesktop.WorkingDirectory = "C:\WOWPRiV\"
oShellLinkDesktop.Save
Avatar billede frede92 Nybegynder
18. oktober 2007 - 13:51 #1
Slet ingen her der kan hjælpe med det?
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 14:09 #2
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\framappe","c:\WOWPRiV"
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLinkDesktop = WshShell.CreateShortcut(strDesktop & "\WoW Private Server.lnk")
oShellLinkDesktop.TargetPath = "C:\WOWPRiV\WoW.exe"
oShellLinkDesktop.Arguments = ""
oShellLinkDesktop.WindowStyle = 1
oShellLinkDesktop.IconLocation = ", 0"
oShellLinkDesktop.Description = "World of Warcraft v. 2.1.3 prepared for Private Server"
oShellLinkDesktop.WorkingDirectory = "C:\WOWPRiV\"
oShellLinkDesktop.Save
Avatar billede frede92 Nybegynder
18. oktober 2007 - 14:13 #3
læs dog spørgsmålet ;)

Den del jeg har skrevet, virker!

Skal bruge den anden del af scriptet..
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 14:31 #4
læs dog selv, jeg har sq da tilføjet noget
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 14:32 #5
hint: kig på linje to og tre
Avatar billede frede92 Nybegynder
18. oktober 2007 - 14:36 #6
Sry, takker, vil lige teste skidtet :)
Avatar billede frede92 Nybegynder
18. oktober 2007 - 14:40 #7
Får en fejl på Linje 3, char 1
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 14:41 #8
husk at ændre \\server\framappe til det der passer hos dig
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 14:46 #9
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\framappe","c:\WOWPRiV

oprindeligt havde du
Set Folder = WScript.CreateObject("Scripting.FileSystemObject")
Avatar billede frede92 Nybegynder
18. oktober 2007 - 14:46 #10
Er gjort..

Får stadig fejl
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 14:48 #11
men hvilken fejl får du, det er jo nemmere at løse hvis jeg ved hvilken fejl du får
Avatar billede frede92 Nybegynder
18. oktober 2007 - 14:48 #12
Linje: 3
Tegn: 1
Fejl: Procedurekaldet eller argumentet er ugyldigt
Kode: 800A0005
Kilde: Der opstod en Microsoft VBScript-kørselsfejl
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 14:52 #13
prøv lige disse to linier i en vbs for sig selv


Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "\\server\framappe","c:\WOWPRiV"
Avatar billede frede92 Nybegynder
18. oktober 2007 - 14:53 #14
samme fejl..
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 15:04 #15
her virker det da perfekt, hvordan kører du scriptet?
Avatar billede frede92 Nybegynder
18. oktober 2007 - 15:25 #16
Dobbeltklikker på filen?

.vbs
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 15:36 #17
hmmmm, hvis du nu laver en mappe på dit c-drev, og kalder den for testmappe1
og fylder et par ting ind i den.

dernæst prøver du denne vbs

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "c:\testmappe1","c:\testmappe2"
Avatar billede frede92 Nybegynder
18. oktober 2007 - 15:51 #18
Virker fint..

Prøvede at rette lidt i destinationen (kaldte mappen et nyt sharenavn og lidt andet), og det funker, næsten da...

For nu er der så lige det med login.. Serveren er en Windows 2003 Server edition..

Skal på en eller anden måde have integreret et login i scriptet
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 16:06 #19
du mener at det kræver en speciel bruger/kode at få adgang til mappen der skal hentes fra?

hvad med at lave rettigheden på mappen til everyone read

at begynde med brugernavne/koder i din vbs vil jo være et alvorligt sikkerhedsproblem
Avatar billede frede92 Nybegynder
18. oktober 2007 - 16:09 #20
Har skam sat den til everyone read..

Også anonymous read, men den giver stadig fejl..
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 16:23 #21
anonymous read kan ikke bruges

men er vi enige om at det er ntfs rettighederne du har sat til everyone read ?
share rettighederne er jo som standard sat til everyone read.

der er vel ikke sat nogen deny rettighedder på mappen?
Avatar billede frede92 Nybegynder
18. oktober 2007 - 16:33 #22
Der er ingen deny rettigheder..

NTFS rettigheder?
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 16:37 #23
så er det nok der det er galt, når du opretter et share kan du sætte rettigheder på dit share, men selve mappen har også sine egne rettighedder.

hklik på mappen --> properties --> security --> tilføj everyone
Avatar billede frede92 Nybegynder
18. oktober 2007 - 16:51 #24
Så burde den vidst være der..

Men er det muligt at lave så den viser hvor langt den er i kopieringen? For det er temmelig meget data der skal kopieres..

Bare sig hvis det er for besværligt
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 17:18 #25
muligt, ja
let, nej

man kunne jo køre den som en hta istedet for, og så lave en linie der viser hvilken fil den er i gang med at kopiere. alternativt kunne du jo bare lave en dialogboks der kommer frem når den er færdig med at kopiere

MsgBox("det hele er nu kopieret")
Avatar billede frede92 Nybegynder
18. oktober 2007 - 17:23 #26
Mange tak..

Smid et svar, så får du points ;)
Avatar billede cool_m_f Nybegynder
18. oktober 2007 - 17:31 #27
Det var så lidt. Ingen points til mig, tak.

tag du dem bare selv.

MVH
  COOL_M_F
Avatar billede frede92 Nybegynder
18. oktober 2007 - 17:46 #28
Bare iorden ;)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB
Seneste spørgsmål Seneste aktivitet
I dag 13:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
I går 11:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »