脚本内容.txt

来自「用vb脚本文件来创建表格」· 文本 代码 · 共 122 行

VBS脚本病毒:
    VBS脚本病毒的大量流行，现在大家对它也开始重视起来。VBS代码在本地是通过Windows Script Host(WSH)解释执行的。VBS脚本的执行离不开WSH，WSH是微软提供的一种基于32位Windows平台的、与语言无关的脚本解释机制，它使得脚本能够直接在Windows桌面或命令提示符下运行。利用WSH，用户能够操纵WSH对象、ActiveX对象、注册表和文件系统。在Windows 2000下，还可用WSH来访问Windows NT活动目录服务。用VBS编写的脚本程序在窗口界面是由wscript.exe文件解释执行的，在字符界面由cscript.exe文件解释执行。wscript.exe是一个脚本语言解释器，正是它使得脚本可以被执行，就象执行批处理一样。


脚本定义:
    脚本只不过一种通过记事本程序或其它文本编辑器创建、并被保存为特定文件扩展名（例如：对于VBScript脚本编程语言来说，脚本文件扩展名为.VBS）的普通文本文件。

脚本编程技术:
    为完成某项特定任务而不得不一遍又一遍反复输入相同命令集合的情况呢？为完成某些琐碎事务而在相同向导程序中以同样顺序反复点击同一套按钮，并且不得不针对多台计算机或多个用户帐号重复上述操作呢？ 
    脚本将消除此类重复性工作。脚本是一种用以描述完成特定任务所需步骤的文件。一旦创建了相应脚本，可以对其加以“运行”，该脚本将代替执行所有步骤，从而节省大量时间与精力。只需创建一次脚本，之后，便可根据需要在执行特定任务时随时对其进行重用。
    此外，脚本还可以通过定时方式在指定日期的特定时间--甚至无人职守的午夜时分--内执行事先设定的任务。同时，脚本可以被设计为能够在多种不同计算机上执行相同任务。


为编写脚本程序，需要在计算机上安装哪些软件产品:
    只要能够使用记事本程序，便具备了开始编写脚本程序的所有必备条件。


为运行脚本程序，需要在计算机上安装哪些软件产品:
平台                   WSH               VBScript           WMI                 ADSI 
Windows 95             5.6                 5.6          1085.0005 (1.5)   5,0,00,0 (DSClient)
 
Windows 98             5.6                 5.6          1085.0005 (1.5)   5,0,00,0 (DSClient)
 
Windows NT 4.0         5.6                 5.6          1085.0005 (1.5)   5,0,00,0 (DSClient)
 
Windows 2000           5.6                 5.6          1085.0005 (1.5)   5,0,00,0
 
Windows XP             5.6                 5.6          2600.0000         5,0,00,0
 
Windows .NET Server    TDB                 TBD          TBD               TBD


CREATE DATABASE:
Set objConnection = CreateObject("ADOX.Catalog")
objConnection.Create "Provider = Microsoft.Jet.OLEDB.4.0; " & "Data Source = c:\data\new_db.mdb"

CREATE TABLE:
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open _
    "Provider= Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=c:\data\new_db.mdb" 
objConnection.Execute "CREATE TABLE EventTable(" & _
    "EventKey COUNTER ," & _
    "Category TEXT(50) ," & _
    "ComputerName TEXT(50) ," & _
    "EventCode INTEGER ," & _
    "RecordNumber INTEGER ," & _
    "SourceName TEXT(50) ," & _
    "TimeWritten DATETIME ," & _
    "UserName TEXT(50) ," & _
    "EventType TEXT(50) ," & _
    "Logfile TEXT(50) ," & _
    "Message MEMO)" 

objConnection.Close

	





WORD SEARCH:
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
objWord.FileSearch.FileName = "*.mdb"
objWord.FileSearch.LookIn = "C:\data"
objWord.FileSearch.SearchSubfolders = True
objWord.FileSearch.Execute
For Each objFile in objWord.FileSearch.FoundFiles
    Wscript.Echo objFile
Next
objWord.Quit
	



EXCEL:
dim content(2)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\test.xls")
intRow = 2
Do Until objExcel.Cells(intRow,1).Value = ""
    Wscript.Echo objExcel.Cells(intRow, 1).Value
    Wscript.Echo "sAMAccountName: " & objExcel.Cells(intRow, 2).Value
    Wscript.Echo "GivenName: " & objExcel.Cells(intRow, 3).Value
    'content(0)=objExcel.Cells(intRow, 1).Value
    'content(1)=objExcel.Cells(intRow, 2).Value
    'content(2)=objExcel.Cells(intRow, 3).Value
    intRow = intRow + 1
Loop




WORD:
Set objWord = CreateObject("Word.Application")
objWord.Caption = "Test Caption"
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.TypeParagraph()
objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.Font.Size = "10"
objDoc.SaveAs("C:\testdoc.doc")
objWord.Quit