'1、Scripting.FileSystemObject —> 提供一整套文件系统操作函数
'2、Scripting.Dictionary —> 用来返回存放键值对的字典对象
'3、Wscript.Shell —> 提供一套读取系统信息的函数,如读写注册表、查找指定文件的路径、读取DOS 环境变量,读取链接中的设置
'4、Wscript.NetWork —> 提供网络连接和远程打印机管理的函数。(其中,所有Scripting 对象都存放在SCRRUN.DLL 文件中,所有的Wscript 对象都存放在WSHOM.ocx 文件中。)
'0 是在后台运行;1 表示正常运行;2 表示激活程序并且显示为最小化;3 表示激活程序并且显
'示为最大化;如果设为了true,脚本就会等待调用的程序退出后再向后执行
Set objShell=CreateObject("wscript.shell")
'objShell.Run "notepad",0,True
'objShell.Run "calc",0,True
'讀注冊表值
v=objShell.RegRead("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Office/11.0/Common/InstallRoot/path")
'MsgBox v
Dim fso
Set fso=WScript.CreateObject("scripting.filesystemobject")
'FSO 包含的常见对象有:
'Drive 对象:包含储存设备的信息,包括硬盘、光驱、ram 盘、网络驱动器
'Drives 集合:提供一个物理和逻辑驱动器的列表
'File 对象:检查和处理文件
'Files 集合:提供一个文件夹中的文件列表
'Folder 对象:检查和处理文件夹
'Folders 集合:提供文件夹中子文件夹的列表
'Textstream 对象:读写文本文件
'FSO 的常见方法有:
'BulidPath:把文件路径信息添加到现有的文件路径上
'CopyFile:复制文件
'CopyFolder:复制文件夹
'CreateFolder:创建文件夹
'CreateTextFile:创建文本并返回一个TextStream 对象
'DeleteFile:删除文件
'DeleteFolder:删除文件夹及其中所有内容
'DriveExits:确定驱动器是否存在
'FileExits:确定一个文件是否存在
'FolderExists:确定某文件夹是否存在
'GetAbsolutePathName:返回一个文件夹或文件的绝对路径
'GetBaseName:返回一个文件或文件夹的基本路径
'GetDrive:返回一个dreve 对象
'GetDriveName:返回一个驱动器的名字
'GetExtensionName:返回扩展名
'GetFile:返回一个file 对象
'GetFileName:返回文件夹中文件名称
'GetFolder:返回一个文件夹对象
'GetParentFolderName:返回一个文件夹的父文件夹
'GetSpecialFolder:返回指向一个特殊文件夹的对象指针
'GetTempName:返回一个可以被createtextfile 使用的随机产生的文件或文件夹的名称
'MoveFile:移动文件
'MoveFolder:移动文件夹
'OpenTextFile:打开一个存在的文件并返回一个TextStream 对象
Set fso=Nothing '釋放fso模型
'SendKeys 简化重复操作
Set wshObject =WScript.CreateObject("wscript.shell")
wshObject.SendKeys "e"
'Provider="Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=192.168.50.9; user id=sa;pwd=mis"
'Set Objconn = createobject("ADODB.Connection")
'Objconn.Open Provider & "QCDB"
'Set Objrs = CreateObject("ADODB.Recordset") '創建記錄集
'執行sql
'Sql="select count(*) from qcuser_file" '例如:Select count(*) from table1
'Set objrs = objconn.execute(sql)
'Wscript.Echo "This is the first line of text." & VbCrLF & VbCrLF & _
'"This is the second line of text."
'Wscript.Echo " 1" & VbTab & " 2" & VbTab & " 3"
'Wscript.Echo "A" & VbTab & "B" & VbTab & "C"
'Wscript.Echo "D" & VbTab & "E" & VbTab & "F"
Const Fixed = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDiskDrives = objFSO.Drives
For Each objDiskDrive in colDiskDrives
If objDiskDrive.DriveType = Fixed then
MsgBox objDiskDrive.DriveLetter
End if
Next
DateInfo = DateInfo & Now & VbCrLf
DateInfo = DateInfo & Date & VbCrLf
DateInfo = DateInfo & Time & VbCrLf
Wscript.Echo DateInfo