使用VBScript自动化任务

痛定思痛。 2022-08-04 01:00 217阅读 0赞

作者 [Haidong Ji][]  翻译 [GoodKid ][GoodKid]

###  ###

维护一个平稳、高效的SQL Server的关键是做好主动预防。我们需要经常性的找出加强SQL Server的方法并不断改善性能。使用主动式监护，当我们看到任何不正常的行为信号时，我们应调研和找出什么是真正的问题。在问题找到我们之前，发现并解决它。也就是说，在萌芽状态消灭它。

主动监护的关键是自动化。如果我们能够自动化日常任务，我们则能够将主要精力集中在更正有的问题上。另外，作为一个忙碌的DBA，自动化也可以让你更悠闲，这样你还可以学习更多的东西并不断提升自己。

SQL Server可用的自动化工具包括 SQL Server Agent， SQL (存储过程Stored Procedures), DTS, ActiveX 脚本(VBScript), SQL Server 命令行工具(OSQL/ISQL), DOS 命令批处理文件，WMI, SQL Mail，等等，不一而足。它们具有各自的特点，在不同的情况下各有优缺点。

本篇中，我将主要介绍 VBScript。我将举出两个关于文件删除和FTP 传输文件的VBScript 的例子。希望让你能够了解在哪里和如何使用 VBScript。可以轻松的修改并应用这两个例子。

在以后的几周内，我将提供另外的自动化工具的介绍和实例，如 WMI, shell 命令和批处理文件，存储过程等。

### 什么是VBScript ###

对于更广泛的环境，Visual Basic Scripting Edition 带来了交互式脚本，像网页脚本编程，Windows 管理器，和 SQL Server 管理器等。不像 VB6 或 VB7（(谢天谢地 Microsoft 将放弃 .NET lingo, 我非常恨它。这意义重大。），它不是一个成熟和内容丰富的编程语言。VBScript 集合了VB6更多的内容。 如果你已经非常熟悉 Visual Basic 或 VBA (Visual Basic for Applications)，你学习VBScript将不会有太多麻烦。即时你是一个初学者，VBScript 也并不困难，并且网上有内容丰富的学习资源供你选择。 [Andy Warren had an article a few months ago on SQL-DMO.][] ，在这篇文章中提出了许多方法和技术可以应用于一般的VBScript 编程当中。

VBScript 包含一个Variant的数据类型。Variant 是一个特别的数据类型，它可以包含不同的信息，这取决于不同的使用方式。一个 variant子类型是一个对象。当设计和初始化一个对象时 (FileSystemObject, File object，等)，记住如何使用SET 关键字。对于初学者来说，这是非常重要的。

在 SQL Server中，你可以使用 VBScript 创建一个DTS中的 ActiveX 任务。你可以添加你的script到 SQL Server Agent 工作中作为一个step。仅仅需要记住选择 ActiveX Script 作为 step 类型。. 下面的两个例子可以用在两种方式中。

### 例子1: VBScript 删除一个文件夹中旧的文件 ###

作为灾难恢复计划的部分，你可能需要从一个服务器向另一个服务器传输备份文件。然而，你可能不想积累下来的备份文件，它们可能导致超出你的备份服务器的空间。在这种情况下，你想删除几天（或几周）以前的旧文件。下面的VBScript 轻松搞定这个任务。你可以客户化这个代码，例如改变 iDaysOld 的数值，以满足你的需要。大部分的代码含义是浅显自明的。为了求得更多的磁盘空间管理， [我几周前的一篇文章。][Link 1]

### 例子2: VBScript 自动FTP 文件 ###

我们许多的工作在不同的技术环境中进行。我们的环境可能需要我们从\*nix 服务或框架中获得文件。下面的例子介绍通过FTP获得文件的技术，并假设你想获得的文件的命名方式是 YYYYMMDDData.csv。因为文件名是每日变化的，因此我们生成的脚本文件是变化的。其余的代码应该是含义自明的。

Option Explicit
    Dim objFSO, objMyFile, objShell, strFTPScriptFileName, strFile2Get
    Dim strLocalFolderName, strFTPServerName, strLoginID
    Dim strPassword, strFTPServerFolder
    
    'Customize code here to fit your needs
    strLocalFolderName = "My Folder Name where we put the file to be FTPed"
    strFTPServerName = "FTP Server Name"
    strLoginID = "FTP Server Login ID"
    strPassword = "FTP Login ID Password"
    strFTPServerFolder = "Folder Name on FTP server where the file resides"
    
    'The following code converts date to the right format, YYYYMMDD
    strFile2Get = DatePart("yyyy",Date)
    
    If DatePart("m",Date) < 10 Then
    	strFile2Get = strFile2Get & "0"
    End If
    
    strFile2Get = strFile2Get & DatePart("m",Date)
    
    If DatePart("d",Date) < 10 Then
    	strFile2Get = strFile2Get & "0"
    End If
    
    strFile2Get = strFile2Get & DatePart("d",Date)
    
    'The following code generates the file name on the FTP server you want to get
    strFile2Get = "Data" & strFile2Get & ".csv"
    
    'The follow lines of code generate the FTP script file on the fly,
    'because the get file name changes every day
    
    strFTPScriptFileName = strLocalFolderName & "/FTPScript.txt"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    If (objFSO.FileExists(strFTPScriptFileName)) Then
        objFSO.DeleteFile (strFTPScriptFileName)
    End If
    
    Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)
    objMyFile.WriteLine ("open " & strFTPServerName)
    objMyFile.WriteLine (strLoginID)
    objMyFile.WriteLine (strPassword)
    objMyFile.WriteLine ("cd " & strFTPServerFolder)
    objMyFile.WriteLine ("ascii")
    objMyFile.WriteLine ("lcd " & strLocalFolderName)
    objMyFile.WriteLine ("get " & strFile2Get)
    objMyFile.WriteLine ("bye")
    objMyFile.Close
    Set objFSO = Nothing
    Set objMyFile = Nothing
    
    'The following code executes the FTP script. It creates a Shell
    'object and run FTP program on top of it.
    Set objShell = WScript.CreateObject( "WScript.Shell" )
    objShell.Run ("ftp -s:" & chr(34) & strFTPScriptFileName & chr(34))
    Set objShell = Nothing
    
    结论

本篇中，我主要介绍了VBScript 并提供了两个实例。希望它们能够给予你获得起步的充分技术。请继续关注我的关于SQL Server 自动化管理的更多文章。

*  [使用VBScript自动化任务][VBScript]
 *  [通过对一个病毒源码的分析，了解VBS脚本语言的应用][VBS]
 *  [Oracle驱动的比较–（2）][Oracle_2]
 *  [Oracle与SQL Server数据互易性（1）][Oracle_SQL Server_1]
 *  [CTDP linux 程序员手册 (4.2) Linux 测试条件][CTDP linux _ _4.2_ Linux]

[Haidong Ji]: http://www.sqlservercentral.com/Authors/Articles/Haidong_Ji/14430/
[GoodKid]: http://goodkid.2kmegs.com
[Andy Warren had an article a few months ago on SQL-DMO.]: http://www.sqlservercentral.com/columnists/awarren/dmointro.asp
[Link 1]: http://www.sqlservercentral.com/columnists/hji/monitoringdiskspaceandsendingalertswithtsql.asp
[VBScript]: http://goodkid.2kmegs.com/?p=249
[VBS]: http://goodkid.2kmegs.com/?p=92
[Oracle_2]: http://goodkid.2kmegs.com/?p=263
[Oracle_SQL Server_1]: http://goodkid.2kmegs.com/?p=258
[CTDP linux _ _4.2_ Linux]: http://goodkid.2kmegs.com/?p=33