[VB]VB Script start niet meer op

[amiga1260]

Deze code werkte vorige week vrijdag wel, maar nu niet meer. Ik heb het geprobeerd met Viual Basic 6 om het op te lossen. Het bestand heb ik gekoppeld aan de Wscript.exe, maar werkt ook niet. Zelfs als ik de paden veranderd, geeft het geen melding.

Dit programma draait op eenn Windows 2000 +SP4 en Visual Webtask 4.

Deze script heb ik ook geprobeerd met een ander machine met Windows XP Pro.

code:

dim sf,x,par
dim WshShell
dim PathToSpider
dim PathToVWT,workDirectory
dim counter,outputFileVWT,outputFile
counter = 0
Set WshShell = CreateObject("WScript.Shell")
Set par = WScript.CreateObject("Scripting.Dictionary")
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")


PathToSpider = "C:\PROGRA~1\LENCOM~1\VISUAL~1\Spider.exe" 'path to Spider.exe
PathToVWT =   "C:\FUNDAS~1\OPDRAC~1\test.vwt"  'path to .vwt

outputFileVWT = "C:\FUNDAS~1\OPDRAC~1\test.txt"  'file output
outputFile = "C:\FUNDAS~1\EINDRE~1\test.txt"  'target file
workDirectory = "C:\FUNDAS~1\temp"

Dim currentParams



Sub Runtask()
   dim k,v,i,pp,na
   pp = ""
   k = par.Keys
   v = par.items
   for i=0 to par.count-1
    pp = pp & " /parameter/" & k(i) & "/" & v(i)
   next
   na = workDirectory & "\L_" & Replace(currentParams,"%","") & ".txt" 
   
   if fs.FileExists (na) then
       exit sub                      '''''''''''''''''if file exists not to repeat task       
   end if

   if fs.FileExists (outputFileVWT) then
       fs.DeleteFile outputFileVWT       
   end if

   WshShell.run PathToSpider & " " & PathToVWT & " /finishOnDone" & pp, , True
   
     if fs.FileExists  (outputFileVWT) then
       counter = counter +1
       fs.CopyFile outputFileVWT ,na,True
       if fs.FileExists  (na) then
          WshShell.run "cmd /C copy " & workDirectory & "\L_*.txt " & outputFile,7,True
       end if
       fs.DeleteFile outputFileVWT       

     end if
    
End Sub


par.RemoveAll
par.Add "plaatspostcode","1000"

currentParams = "1000"
Runtask

[Verwijderd]

Als er niets aan de code is gewijzigd, dan lost het niest op om de code te posten, aangezien daar het probleem niet zit. Er is waarschijnlijk iets gewijzigd in de configuratie, bijvoorbeeld paden naar gebruikte applicaties, te weinig disk ruimte, veranderde toegangsrechten, e.d.

Verder geef je ook niet aan of je een foutmelding krijgt. Heb je bjivoorbeeld in de event log gekeken voor rare meldingen?

[raptorix]

Zet je virusscanner eens uit.

[amiga1260]

Virusscanner heb ik uigezet maar doet nog steeds niets. Zou het komen dat ik ook IIIS heb geinstalleerd?

[amiga1260]

Ik heb de paden van deze code veranderd:

code:

PathToSpider = "C:\PROGRA~1\LENCOM~1\VISUAL~1\Spider.exe" 'path to Spider.exe
PathToVWT =   "C:\FUNDAS~1\OPDRAC~1\test.vwt"  'path to .vwt

outputFileVWT = "C:\FUNDAS~1\OPDRAC~1\test.txt"  'file output
outputFile = "C:\FUNDAS~1\EINDRE~1\test.txt"  'target file
workDirectory = "C:\FUNDAS~1\temp"

Nu werkt het weer

Bedankt voor jullie tips.

[raptorix]

Ben je trouwens funda aan het spideren?