diff --git a/ImportService/TrackingDataImport.vbs b/ImportService/TrackingDataImport.vbs index f25b34a..bfd076b 100644 --- a/ImportService/TrackingDataImport.vbs +++ b/ImportService/TrackingDataImport.vbs @@ -1,5 +1,6 @@ Option Explicit Dim dev:dev = True +Dim WaitTime:WaitTime = 15000 Dim DataDirectory Dim ConnectionString Dim glob:set glob = CreateObject("Chilkat_9_5_0.Global") @@ -20,9 +21,14 @@ Dim WorkingDirectory:WorkingDirectory = Replace(WScript.ScriptFullName,WScript.S ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=C:\inetpub\Data\webdata - Copy.mdb;" End If + +Do - -CheckForFiles + CheckForFiles + WScript.Sleep WaitTime + +Loop + Function CheckForFiles() Dim objFSO:Set objFSO = CreateObject("Scripting.FileSystemObject") diff --git a/InstallService.vbs b/InstallService.vbs new file mode 100644 index 0000000..f366177 --- /dev/null +++ b/InstallService.vbs @@ -0,0 +1,4 @@ +Set oShell = CreateObject ("WScript.Shell") + +oShell.Run Replace(WScript.ScriptFullName,WScript.ScriptName,"") & "Dependancies\nssm install" & " TrackingImport C:\Windows\System32\cscript.exe " &_ + Replace(WScript.ScriptFullName,WScript.ScriptName,"") & "ImportService\TrackingDataImport.vbs" \ No newline at end of file