home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 May / Disc 1 / PCU0503CD1.iso / resource / network / files / lannetsc.exe / {app} / InstallScript.vbs < prev    next >
Encoding:
Text File  |  2003-02-18  |  614 b   |  24 lines
  1. On Error Resume Next
  2.  
  3. ' Declare variables
  4. Dim WshShell
  5. Dim strDate
  6. Dim strDay, strMonth, strYear
  7.  
  8. ' Get the current DD/MM/YY as strings.
  9. strDay   = Right("00" & Cstr(Day(Date())),2)
  10. strMonth = Right("00" & Cstr(Month(Date())),2)
  11. strYear  = Cstr(Year(Date()))
  12.  
  13. ' Compose strDate
  14. strDate = strDay & "/" & strMonth & "/" & strYear
  15.  
  16. ' Create shell object
  17. Set WshShell = WScript.CreateObject("WScript.Shell")
  18.  
  19. ' Create registry key
  20. WshShell.RegWrite "HKLM\SOFTWARE\GFI Fax & Voice\LNSS\InstalledOn", strDate
  21.  
  22. ' Install Scheduled Scan Service
  23. WshShell.Run "sscansvc.exe /INSTALL /SILENT", 0, true
  24.