home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 May / PCWorld_2001-05_cd.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / getdats.vbs < prev    next >
Text File  |  2001-03-04  |  4KB  |  128 lines
  1.  
  2.  
  3.  
  4. Main
  5. Wscript.Quit 0
  6.  
  7.  
  8. Sub Main()
  9.  
  10.     'Declare objects
  11.      
  12.      Dim wsh 'As Wscript.Shell
  13.      Dim fs 'As Scripting.FileSystemObject
  14.      Dim tsScript 'As Scripting.TextStream
  15.      Dim f
  16.      Dim WshSysEnv 'As WshEnvironment
  17.  
  18.      'Declare variables 
  19.    
  20.      Dim strUserName 'As String
  21.      Dim strPassword 'As String
  22.      Dim strRemoteSite 'As String
  23.      Dim strRemoteDirectory 'As String
  24.      Dim strLocalDirectory 'As String
  25.      Dim strWindowsFolder 'As String
  26.      Dim strTempFolder 'As String
  27.      Dim strSystemFolder 'As String
  28.      Dim strFtpScriptFileName 'As String
  29.      Dim strsDatFile 'As String
  30.      Dim strDatFile 'As String
  31.      Dim strFTPDir 'As String
  32.      Dim intWindowStyle 'As Integer
  33.      Dim theOS 'As String
  34.     
  35.     'Define constants
  36.    
  37.      Const TemporaryFolder = 2
  38.      Const WindowsFolder = 0
  39.      Const SystemFolder = 1
  40.      Const WshHide = 0
  41.      Const WshNormalFocus = 1
  42.      Const WshMinimizedFocus = 2
  43.      Const WshMaximizedNoFocus = 3
  44.      Const WshNormalNoFocus = 4
  45.      Const WshMinimizedNoFocus = 6
  46.      
  47.      intWindowStyle = WshNormalFocus
  48.  
  49.     
  50.     Set wsh = CreateObject("Wscript.Shell")
  51.     Set fs = CreateObject("Scripting.FileSystemObject")
  52.     strWindowsFolder = fs.GetSpecialFolder(WindowsFolder)
  53.     strSystemFolder = fs.GetSpecialFolder(SystemFolder)
  54.     strTempFolder = fs.GetSpecialFolder(TemporaryFolder)
  55.     Set WshSysEnv = wsh.Environment("SYSTEM")
  56.     theOS=WshSysEnv("OS")
  57.  
  58.     '=============================================================
  59.     'zde nastavte pot°ebnΘ parametry
  60.     strPassword = "user@home.cz"              'FTP server password
  61.     strUserName = "anonymous"                 'FTP server user name
  62.     strRemoteSite = "ftp.mcafee.com"          'FTP server machine name
  63.     strRemoteDirectory = "/pub/antivirus/datfiles/4.x/"  'FTP server top directory you are synchronizing
  64.     strLocalDirectory = "c:\temp"       'LOCAL directory musφ existovat
  65.     
  66.     strsDatFile="sdat.txt"
  67.     strDatFile="dat.txt"    
  68.     
  69.     ' ============================================================
  70.  'FTP-slo₧ka je nezßvislß na OS
  71.   If theOS ="Windows_NT" Then
  72.     strFTPDir= strSystemFolder
  73.   Else
  74.    strFTPDir= strWindowsFolder
  75.   End If
  76.  
  77.  
  78.     strFtpScriptFileName = fs.BuildPath(strTempFolder, fs.GetBaseName(Wscript.ScriptFullName) & ".script")
  79.     '
  80.     
  81.     Set tsScript = fs.CreateTextFile(strFtpScriptFileName, True)
  82.       tsScript.WriteLine "open " & strRemoteSite
  83.       tsScript.WriteLine strUserName
  84.       tsScript.WriteLine strPassword
  85.       tsScript.WriteLine "cd " &  strRemoteDirectory
  86.       tsScript.WriteLine "prompt"
  87.       tsScript.WriteLine "lcd "& strLocalDirectory
  88.       tsScript.WriteLine "ls dat*.zip "& strDatFile
  89.       tsScript.WriteLine "ls sdat*.exe " & strsDatFile
  90.       tsScript.WriteLine "bye"
  91.       tsScript.Close
  92.     Set tsScript = Nothing
  93.  
  94.     'Start FTP pomocφ skriptu
  95.     'wsh.Run strFTPDir & "\ftp.exe -s:""" & strFtpScriptFileName & """", intWindowStyle, True
  96.  
  97. Set f=fs.OpenTextFile( strLocalDirectory & "\" & strDatFile,1)
  98. If fs.FileExists( strLocalDirectory &"\" & Trim(f.Readline)) Then
  99.    wsh.Popup "Novou verzi ji₧ mßte sta₧enou.", 60
  100.    WScript.Quit
  101. End If
  102.    WScript.Quit
  103. 'Druh² skript pro p°enos soubor∙
  104.     Set tsScript = fs.CreateTextFile(strFtpScriptFileName, True)
  105.      tsScript.WriteLine "open " & strRemoteSite
  106.      tsScript.WriteLine strUserName
  107.      tsScript.WriteLine strPassword
  108.      tsScript.WriteLine "cd " &  strRemoteDirectory
  109.      tsScript.WriteLine "hash"
  110.      tsScript.WriteLine "bin"
  111.      tsScript.WriteLine "prompt"
  112.      tsScript.WriteLine "lcd "& strLocalDirectory
  113.      tsScript.WriteLine "mget dat*.zip"
  114.      tsScript.WriteLine "mget sdat*.exe"  
  115.      tsScript.WriteLine "bye"
  116.      tsScript.Close
  117.     Set tsScript = Nothing
  118.  
  119. 'SpuÜt∞nφ FTP pro p°enos soubor∙
  120. wsh.Run strFTPDir & "\ftp.exe -s:""" & strFtpScriptFileName & """", intWindowStyle, True
  121.  
  122. 'ZjiÜt∞nφ nßzv∙ soubor∙ a spuÜt∞nφ updatu McAfee
  123. 'VÜechna hlßÜenφ se uklßdajφ do souboru sdatlog.txt
  124. Set f=fs.OpenTextFile( strLocalDirectory & "\" & strsDatFile,1)
  125. wsh.Run strLocalDirectory & "\" & f.ReadLine & " /silent /LOGFILE "& strLocalDirectory &"\sdatlog.txt"
  126. f.Close
  127.  
  128. End Sub