Avatar billede acoon Nybegynder
11. september 2005 - 21:54 Der er 7 kommentarer

Lave et lille script

Hejsa,

Jeg har en bat fil som jeg skal have skrevet om til vbs.

Bat filen ser således ud
------------------------------------------
@ECHO OFF
SET CWRSYNCHOME=c:\Program Files\cwRsync
SET CYGWIN=nontsec
SET HOME=%HOMEDRIVE%%HOMEPATH%
SET CWOLDPATH=%PATH%
SET PATH=%CWRSYNCHOME%\BIN;%PATH%

rsync -qrlpt /cygdrive/f/Tekst/ acoon@10.0.1.1:/samba/Tekst/
rsync -qrlpt /cygdrive/f/NAVISION/ acoon@10.0.1.1:/samba/NAVISION/

set CWRSYNCHOME=
set CYGWIN=
set PATH=%CWOLDPATH%
---------------------------------

Alternatict skal det være et vbs som kan kalde bat filen, UDEN der bliver åbnet en dos prompt.
Avatar billede leif Seniormester
11. september 2005 - 22:11 #1
Ud fra hukommelsen:
dim WshSell
set WshShell=WScript.CreateObject("wscript.shell")

WshShell.Run "SET CWRSYNCHOME=c:\Program Files\cwRsync", 1, True
WshShell.Run "SET CYGWIN=nontsec", 1, true
osv. der ned af
Avatar billede akh Nybegynder
11. september 2005 - 22:14 #2
Dette vil køre din bat fil uden der vises et en dos prompt

Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("c:\minbat.bat"),0
set WshShell= nothing
Avatar billede acoon Nybegynder
11. september 2005 - 23:02 #3
AKH:

Jeg har prøvet det du skrev, men jeg får en fejl.
"The system cannot find the file specified."

Jeg har checket om stien til bat filen er rigtig, men fejlen kommer alligevel.
Avatar billede acoon Nybegynder
11. september 2005 - 23:04 #4
Bat filen som bliver kaldt ligger i "c:\Program Files\cwRsync\"
Flytter jeg filen til "C:\" virker det fint. Hvorfor?
Avatar billede leif Seniormester
12. september 2005 - 06:49 #5
Fordi du beder om at den kører c:\minbat.bat eller har du ændret så stien er c:\Program Files\cwRsync\minbat.bat ? Ellers prøv med c:\progra~1\cwRsync\minbat.bat
Avatar billede akh Nybegynder
13. september 2005 - 13:51 #6
Jeg gætter på at det er et langt sti navn der driller.
Her er et eksempel med et lang stinavn. Læg mærke til
at der er 6 anførselstegn på hver side af stien, 3 på hver
side.

Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("""c:\program files\minbat.bat"""),0
set WshShell= nothing
Avatar billede akh Nybegynder
13. september 2005 - 13:52 #7
Mener selvfølgelig 6 anførsels tegn i alt, 3 på hver side :)
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