Added service setup

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")

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"