WindowsScript

WindowsScript

更多请见个人主页https://www.bajins.com

flag

• Scripting
• Windows Script Host
• 属性和方法及子对象
• https://github.com/mrpapercut/wscript

• Visual Basic for Applications (VBA) 语言参考
• VBA学习笔记
• xcel之VBA简单宏编程

• JScript、VBScript同属于官方支持的Windows Script，这俩脚本都需要依赖于特定的宿主(Host)才能执行，
  JavaScript浏览器环境之外，还可以运行在Windows Script Host中。
• Windows Script Host是一个language-independent的脚本宿主环境，主要用于执行Windows管理任务
• Windows脚本宿主有两个版本：
  • 一个基于Windows的版本（WScript.exe）
    ，它提供用于设置脚本属性的属性表；运行以vbs为后缀的文件
  • 一个基于命令提示符的版本（CScript.exe
    直接执行可查看帮助），它提供命令行。用于设置脚本属性的开关。
    • //E:engine 使用执行脚本的引擎有：VBScript和JScript

WScript对象

所有的Wscript对象都存放在WSHOM.ocx文件中

• Windows Script Host APIS

WScript对象的属性

属性	返回值类型	说明
Application	Object	返回 IHost_Class 对象（Wscript 对象）。
Arguments	IArguments_Class	返回 WshArguments 对象（参数集）。
BuildVersion	Long	返回 Windows 脚本宿主的内部版本。
FullName	String	返回宿主可执行文件（CScript.exe 或 WScript.exe）的全路径。
Interactive	Boolean	设置或确定脚本模式。
Name	String	WScript 对象（宿主可执行文件）的名称。
Path	String	返回包含宿主可执行文件（CScript.exe 或 WScript.exe）的路径名称。
ScriptFullName	String	返回当前运行脚本的完整路径。
ScriptName	String	返回当前运行脚本的文件名。
StdIn	TextStream	显示当前脚本的输入流。
StdErr	TextStream	显示当前脚本的错误输出流。Write输出，WriteLine换行输出
StdOut	TextStream	显示当前脚本的输出流。Write输出，WriteLine换行输出
Timeout	Long	超时设定秒：允许脚本运行的最长时间。
Version	String	返回 Windows 脚本宿主的版本。

WScript对象的方法

方法	参数	返回值	说明
ConnectObject	(Object As Object, Prefix As String)	无	将对象的事件源连接到具有给定前缀的函数。
CreateObject	(ProgID As String, [Prefix As String])	Object	创建对象。
DisconnectObject	(Object As Object)	无	断开已连接对象的事件源的连接。
Echo	(ParamArray pArgs() As Variant)	无	将文本输出到消息框中或命令控制台窗口。
GetObject	(Pathname As String, [ProgID As String], [Prefix As String])	Object	检索现有的对象或从文件中创建新对象。
Quit	([ExitCode As Long])	无	强制脚本停止执行。
Sleep	(Time As Long)	无	在指定的时间长度内将脚本执行挂起，然后继续执行。

常用组件对象

所有对象都可通过Power Shell命令查看属性和方法New-Object -ComObject "对象名称" | Get-Member，
获取本机所有COM组件对象脚本 Get-COM-Objects.bat

都在注册表HKEY_CLASSES_ROOT注册表项中，正常情况下项中带有CLSID键的是脚本可创建的

对象	说明
WScript.Shell	脚本外壳
Wscript.NetWork	提供网络连接和远程打印机管理的函数。

ADODB对象	说明
ADODB.Command
ADODB.Connection	提供数据库连接对象
ADODB.Error
ADODB.Parameter
ADODB.Record
ADODB.Recordset	提供数据库返回结果集对象
ADODB.Stream
ADOMD.Catalog
ADOMD.Cellset
ADOX.Catalog	包含描述数据源模式目录的集合
ADOX.Column	表示表、索引或关键字的列
ADOX.Group	表示在安全数据库内有访问权限的组帐号
ADOX.Index	表示数据库表中的索引
ADOX.Key	表示数据库表中的主关键字、外部关键字或唯一关键字
ADOX.Procedure	表示存储的过程
ADOX.Table	表示数据库表，包括列、索引和关键字
ADOX.User	表示在安全数据库内具有访问权限的用户帐号
ADOX.View	表示记录或虚拟表的过滤集

office对象	说明
Word.Application	office
Word.Document
Excel.Application	提供EXCEL操作对象
Excel.Chart
Excel.Sheet
Outlook.Application	office
PowerPoint.Application	office
MSGraph.Application	office

WIA对象	说明
WIA.ImageFile	图像处理组件：加载图片
WIA.ImageProcess	图像处理组件：转换图片格式
WIA.Rational
WIA.Vector

所有Scripting对象都存放在SCRRUN.DLL文件中

Scripting对象	说明
Scripting.Dictionary	用来返回存放键值对的字典对象，读取DOS环境变量，读取链接中的设置
Scripting.Encoder	编码
Scripting.FileSystemObject	提供一整套文件系统操作函数
Scripting.Signer	签名

对象	说明
AspSmartUpload.SmartUpload
CDO.Configuration
CDONTS.NewMail	邮件发送的组件
Huang.UploadFile
InternetExplorer.application
JMail.message	邮件发送的组件
MSWC.AdRotator
MSWC.BrowserType
MSWC.NextLink
Shell.Application	Windows外壳
SQLOLE.SQLServer
WSHController
System.IO.StringWriter

Collections对象	说明
System.Collections.ArrayList	包含动态数组的添加元素、删除元素、遍历、统计元素个数、清空
System.Collections.Hashtable
System.Collections.Queue	包含队列的添加元素（入队）、删除元素（出队）、遍历、统计元素个数、清空
System.Collections.SortedList
System.Collections.Stack	包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空

HTTP

微软提供了二套API：WinINet, WinHTTP（分别封装于system32目录下的wininet.dll和winhttp.dll内）
二者主要区别在于后者更为安全和稳定，可以说WinHTTP是WinINet的升级版

XMLHttpRequest是基于WinInet封装的，而WinHttpRequest和ServerXMLHTTPRequest则是基于WinHTTP封装的
稳定性属XMLHttpRequest为最差,封装成COM形式主要是为了方便js、vbs等脚本的调用

XMLRequest成员参考缺点：和浏览器挂钩，大多情况下会共享cookies、session、不支持单独设置代理。
优点：和浏览器挂钩，大多情况下会共享cookies、session

ServerXMLHTTP成员参考缺点：系统没有对应dll的情况下程序需要外挂一个dll文件。优点：脱离浏览器，使用代理方便

WinHttpRequest成员参考缺点：暂无。优点：脱离浏览器，使用代理方便，
WinHttp.WinHttpRequest.5.1是msxml4.0的底层对象，也就是说XMLHTTP、ServerXMLHTTP也是在它的基础上封装而来

• WinHttpRequest对象
• DOM参考

图像处理

WIA全称：WindowsImageAcquisition，自动化层是一个功能齐全的图像处理组件，可提供端到端的图像处理功能。
WIA自动化层可以轻松地从数码相机，扫描仪或网络摄像头获取图像，以及旋转，缩放和注释图像文件。
WIA Automation Layer取代了Windows Image Acquisition（WIA）1.0提供的WIA脚本模型。

New-Object -ComObject "WIA.ImageFile" | Get-Member

New-Object -ComObject "WIA.ImageProcess" | Get-Member

• Windows图像采集（WIA）
• 使用
• 常量
• Windows Image Acquisition
• WIA图片处理

操作文件

Scripting.FileSystemObject对象提供的功能：New-Object -ComObject "Scripting.FileSystemObject" | Get-Member

• FileSystemObject简介
• FileSystemObject 对象
• FileSystemObject操作文件

对象和集合

对象/集合	描述
Drive	包含储存设备的信息，包括硬盘、光驱、ram盘、网络驱动器
Drives	提供一个物理和逻辑驱动器的列表
File	检查和处理文件
Files	提供包含在文件夹内的所有文件的列表
Folder	检查和处理文件夹
Folders	提供在 Folder 内的所有文件夹的列表
TextStream	对象。用来读写文本文件。

注意:TextStream对文件只可以从上往下读取，指针无法任意定位，也无法往回走。

方法和属性

方法和属性	说明
fso.BuildPath(path,name)	将名称附加到现有路径。
fso.CopyFile(src,dst,[overwrite])	复制文件，其中overwrite表示文件存在时是否替换，默认为true
fso.CopyFolder	用法同CopyFile
fso.CreateFolder(path)	创建一个文件夹
fso.CreateTextFile(path)	创建一个文件
fso.CreateTextFile(path,[overrwite,unicode])	创建一个文本文件
fso.DeleteFile(path,[force])	删除文件，其中force表示是否删除只读文件，默认为false
fso.DeleteFolder(path,[force])	用法同DeleteFile
fso.DriveExists(drivespec)	检查指定的驱动器是否存在。
fso.FileExists(path)	判断文件是否存在,返回结果为真或假
fso.FolderExists(path)	判断文件夹是否存在,返回结果为真或假
fso.GetAbsolutePathname(path)	得到文件的绝对路径
fso.GetBaseName(path)	得到文件的不带扩展名的那个文件名
fso.GetDrive(drivespec)	返回对应于指定路径中的驱动器的 Drive 对象。
fso.GetDriveName(path)	返回指定路径的驱动器名称。
fso.GetExtensionName(path)	得到文件的扩展名
fso.GetFile(path)	获得指定路径下文件的File对象
fso.GetFileName(path)	得到文件的文件名
fso.GetFolder(path)	获得指定路径下目录的Folder对象
fso.GetParentFolderName(path)	得到文件的父目录
fso.GetSpecialFolder(folderspec)	返回某些 Windows 特殊文件夹的路径。
fso.GetTempName()	返回随机生成的临时文件或文件夹。
fso.MoveFile(src,dst)	移动文件，如果目标有同名文件则会有报错提示文件已存在，可以通过该方法给文件改名
fso.MoveFolder(src,dst)	用法同MoveFile
fso.OpenTextFile(path,[mode,create,encoding])	打开一个文本文件
object.Attributes	表示文件的属性，用各个二制位置位组合表示。1标识只读，2标识隐藏，4标识系统。该属性部分位可读写
object.Close	关闭文件
object.Copy(dst,[overwrite])	复制文件，overwrite表示目标文件存在时是否覆盖，默认为true
object.Count	目录下的项目数，该属性只读
object.DateCreated	文件创建时间，该属性只读
object.DateLastAccessed	最近访问时间，该属性只读
object.DateLastModified	最后修改时间，该属性只读
object.Delete([force])	删除文件，force表示是否删除只读文件，默认为false
object.Files	得到目录下的所有文件对象集合
object.Move(dst)	移动文件，如果目标有同名文件则会有报错提示文件已存在
object.Name	文件名称，该属性可读写
object.OpenAsTextStream([ iomode, [ format ]])	打开指定文件并返回可用于从该文件读取、写入该文件或追加到该文件的 TextStream 对象。
object.ParentFolder	父文件夹，该属性只读
object.Path	文件路径
object.Read(个数)	读取指定个数的字符
object.ReadAll	读取文件中所有内容
object.ReadLine	读取一行内容
object.Size	文件大小，以字节计
object.Skip(个数)	跳过指定个数的字符SkipLine方法
object.SkipLine	跳过文件中一行
object.SubFolders	得到目录下的所有文件夹对象集合
object.Write(文本内容)	写入指定的字符串
object.WriteLine	写一行内容

• fso.OpenTextFile(path,[mode,create,encoding])

mode 模式,缺省为只读方式打开

ForReading=1 以只读方式打开

ForWriting=2 以读写方式打开

ForAppending=8 以附加方式打开

create 不存在时是否创建缺省为否,即不创建文件

encoding 何种方式打开,缺省以ASCII方式

TristateUseDefault=-2 以系统默认方式打开

TristateTrue=-1 以Unicode方式打开

TristateFalse=0 以ASCII方式打开

• fso.CreateTextFile(path,[overrwite,unicode])

overrwite 是否覆盖,缺省为是

unicode 是否以Unicode方式创建,缺省为false,即以ASCII方式创建

Shell

• Wscript.Shell 对象详细介绍
• WshShell 对象

Wscript.Shell对象提供的功能：New-Object -ComObject "Wscript.Shell" | Get-Member

• Run Exec 执行cmd命令
• CreateShortcut 创建快捷方式
• SpecialFolders 访问Windows的shell文件夹
• Environment 操作环境变量
• RegRead 从注册表中返回指定的键或值
• RegWrite 在注册表中设置指定的键或值
• RegDelete 从注册表中删除指定的键或值
• SendKeys 模拟按键
• Popup 显示包含指定消息的消息窗口
• ExpandEnvironmentStrings 返回环境变量的扩展值
  • ExpandEnvironmentStrings("%USERNAME%") 获取用户名
  • ExpandEnvironmentStrings("%ComputerName%") 获取计算机名

变量名	说明
NUMBER_OF_PROCESSORS	计算机上运行的处理器数目。
PROCESSOR_ARCHITECTURE	用户工作站使用的处理器类型。
PROCESSOR_IDENTIFIER	用户工作站的处理器 ID。
PROCESSOR_LEVEL	用户工作站的处理器级。
PROCESSOR_REVISION	用户工作站的处理器版本。
OS	用户工作站所用的操作系统。
COMSPEC	用于运行“命令提示”窗口的命令（通常为 cmd.exe）。
HOMEDRIVE	本地主驱动器（通常为 C 驱动器）。
HOMEPATH	用户的默认路径（在 Windows NT 上通常为 usersdefault）。
PATH	路径环境变量。
PATHEXT	可执行文件的扩展名（通常为 .com、 .exe、.bat 或 .cmd）。
PROMPT	命令提示符（通常为 ＄P＄G）。
SYSTEMDRIVE	系统所在的本地驱动器（例如，c:）。
SYSTEMROOT	系统目录（例如，c:winnt）。和 WINDIR 相同。
WINDIR	系统目录（例如 c:winnt）。和 SYSTEMROOT 相同。
TEMP	存储临时文件的目录（例如，c:temp）。用户可更改。
TMP	存储临时文件的目录（例如，c:temp）。用户可更改。

执行命令

Run

执行命令完成后返回值是一个整数，就是0成功或1失败两个状态。

int Run(string, Variant, Variant)第二个是cmd窗口的风格，第三个是否等待执行完成。

窗口风格	说明
0	隐藏一个窗口并激活另一个窗口。
1	如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。第一次显示该窗口时，应用程序应指定此标志。
2	激活窗口并将其显示为最小化窗口。
3	激活窗口并将其显示为最大化窗口。
4	按最近的窗口大小和位置显示窗口。活动窗口保持活动状态。
5	激活窗口并按当前的大小和位置显示它。
6	最小化指定的窗口，并按照Z顺序激活下一个顶部窗口。
7	将窗口显示为最小化窗口。活动窗口保持活动状态。
8	将窗口显示为当前状态。活动窗口保持活动状态。
9	如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。还原最小化窗口时，应用程序应指定此标志。
10	根据启动应用程序的程序状态来设置显示状态

Exec

返回值是一个对象，从返回对象中可以获得控制台输出信息和控制台错误信息，即StdOut 和 StdErr 属性等。

Exec类具有属性ExitCode、ProcessID、Status、StdErr、StdIn、StdOut以及一个函数Terminate

Status属性具有三个值：0为正在执行，1为完成，2为失败

获取输出信息：StdOut.ReadAll()

特殊文件夹

SpecialFolders属性提供WshSpecialFolders对象以便访问Windows的shell文件夹

使用：WshShell.SpecialFolders("strFolderName")，如果没有查询的目录则返回NULL

变量名	说明
AllUsersDesktop	公共桌面
AllUsersStartMenu	公共程式
AllUsersPrograms	公共程序
AllUsersStartup	公共启动
Desktop	桌面
Favorites	收藏
Fonts	字体
MyDocuments	我的文档
NetHood	网络
PrintHood	打印机
Programs	程序
Recent	最近
SendTo	发给
StartMenu	开始菜单
Startup	启动
Templates	模板
AppData	应用程序数据

模拟按键

• SendKeys键击参数说明

Enter回车建表示{Enter}、字母A表示{A}、数字2表示{2}等

示例Wshshell.SendKeys("{Enter}")、Wshshell.SendKeys("{A}")、Wshshell.SendKeys("{2}")

组合键Shift用+代替、Ctrl用^代替、Alt用%代替

示例Wshshell.SendKeys("+%{DELETE}")、Wshshell.SendKeys("^{C}")、Wshshell.SendKeys("^{V}")

模拟快捷键Ctrl + S保存内容：Wshshell.SendKeys("^{s}")

VMI

SWBEM脚本是可以用来访问和控制WMI内部对象的一系列可用在脚本中的对象，
脚本通过访问wbemdisp.dll这个library来访问VMI对象，这个仅被设计用来为脚本工作。

WbemScripting.SWbemLocator对象提供的功能：New-Object -ComObject "WbemScripting.SWbemLocator" | Get-Member

查询方式类似sql语句（其实系统信息也是存储在计算中一个类似数据库的文件中）获取我们需要的对象的记录集

WbemScripting对象	说明
WbemScripting
WbemScripting.SWbemDateTime
WbemScripting.SWbemLastError
WbemScripting.SWbemLocator	VMIAPI对象
WbemScripting.SWbemObjectPath
WbemScripting.SWbemRefresher
WebPlatStorage.WebPlatStorage

• https://docs.microsoft.com/zh-cn/windows/win32/cimwin32prov/operating-system-classes

表名	说明
Win32_BaseBoard	主板
Win32_BIOS	BIOS芯片
Win32_BootConfiguration	系统启动配置
Win32_CDROMDrive	光盘驱动器
Win32_ComputerSystem	操作系统信息，系统位数
Win32_DesktopMonitor	显示器
Win32_DiskDrive	硬盘驱动器
Win32_DiskPartition	磁盘分区
Win32_Group	系统管理组
Win32_GroupUser	系统组帐号
Win32_Keyboard	键盘
Win32_LogicalDisk	逻辑磁盘
Win32_LogicalMemoryConfiguration	逻辑内存配置
Win32_NetworkAdapter	网络适配器
Win32_NetworkAdapterConfiguration	网络适配器设置
Win32_NetworkClient	已安装的网络客户端
Win32_NetworkProtocol	已安装的网络协议
Win32_OperatingSystem	操作系统信息，系统版本
Win32_PageFile	系统页文件信息
Win32_PageFileSetting	页文件设置
Win32_ParallelPort	并口
Win32_PhysicalMemory	物理内存
Win32_PointingDevice	点输入设备，如鼠标
Win32_POTSModem	MODEM
Win32_POTSModemToSerialPort	MODEM端口
Win32_Printer	打印机
Win32_PrinterConfiguration	打印机设置
Win32_PrintJob	打印机任务
Win32_Process	系统进程
Win32_Processor	CPU处理器
Win32_SerialPort	串口
Win32_Service	系统安装的服务
Win32_Share	共享
Win32_SoundDevice	多媒体设置
Win32_StartupCommand	系统自动启动程序
Win32_SystemDriver	驱动程序
Win32_TCPIPPrinterPort	打印机端口
Win32_Thread	系统线程
Win32_TimeZone	时区
Win32_USBController	USB控制器
Win32_UserAccount	用户帐号
Win32_VideoController	显卡细节。
Win32_VideoSettings	显卡支持的显示模式。

VBScript

• VBScript
• Visual Basic 指南
• VBScript语言参考
• VBScript基础知识
• VBScript 语言
• VBScript 教程
• VBScript 函数
• https://github.com/MishaVernik/WScirpt

vbs特殊符号

• String Constants

常数	值	描述
vbCr	Chr(13)	回车符。
vbCrLf	Chr(13)&Chr(10)	回车符与换行符。
vbFormFeed	Chr(12)	换页符；在MicrosoftWindows中不适用。
vbLf	Chr(10)	换行符。
vbNewLine	Chr(13)&Chr(10)或Chr(10)	平台指定的新行字符；适用于任何平台。
vbNullChar	Chr(0)	值为0的字符。
vbNullString	值为0的字符串	与零长度字符串("")不同；用于调用外部过程。
vbTab	Chr(9)	水平附签。
vbVerticalTab	Chr(11)	垂直附签；在MicrosoftWindows中不用

vbs函数封装

数组转换为字符串

'数组转换为字符串
'Writer         Bajins
'Create Date    2019-10-22
'arrayName      数组
'separator      separator
'Example        ConvertArrayToString(array, ",")
Public Function ConvertArrayToString(array, separator)
    Dim elementString

    For Each element In array
        elementString = elementString + Cstr(element) + separator
    Next

    elementString = StrReverse(elementString)
    elementString = Replace(elementString, separator,"",1,1)
    elementString = StrReverse(elementString)
    ' 设置返回值
    ConvertArrayToString = elementString
End Function

获取对象的属性和值

' 获取对象的属性和值
'Writer         Bajins
'Create Date    2019-10-22
'obj            对象
'Example        GetObjectPropertieValue(obj)
Public Function GetObjectPropertieValue(obj)
    IF Not IsObject(obj) Then
        'Exit Function
        Err.Raise Err.Number
    END IF
    
    Dim kv
    
    For Each Propertie in obj.Properties_
       kv = kv & Propertie.name & " : " & Propertie.value & vbCrLf
    Next
    
    kv = "属性数量：" & obj.Properties_.count & vbCrLf & kv
    
    ' 设置返回值
    GetObjectPropertieValue = kv
End Function

获取系统信息

此方式完全不会显示CMD窗口（包括闪现）

' 获取系统位数
'Writer         Bajins
'Create Date    2019-10-22
'Example        GetSystemBit()
Public Function GetSystemBit()
    ' 查找进程，方式一
    'Set WMIService = GetObject("winmgmts:\\.\root\cimv2")
    'Set ComputerSystem = WMIService.ExecQuery("select * from Win32_ComputerSystem")
    ' 查找进程，方式二
    'Set locator = CreateObject("WbemScripting.SWbemLocator")
    'Set WMIService = locator.ConnectServer(, "root\cimv2")
    'Set ComputerSystem = WMIService.ExecQuery("select * from Win32_ComputerSystem")
    ' 查找进程，方式三
    Set WMIService = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
    Set ComputerSystem = WMIService.InstancesOf("Win32_ComputerSystem")

    For Each System in ComputerSystem
        IF InStr(System.SystemType,"86") > 0 Then
            GetSystemBit = "i386"
            Exit For
        End IF
        
        IF InStr(System.SystemType,"64") > 0 Then
            GetSystemBit = "amd64"
            Exit For
        End IF
    Next

End Function

隐藏窗口运行

' 创建运行命令数组
commands = Array("D:\frp内网穿透工具\frpc.exe -c D:\frp内网穿透工具\frpc.ini")

' 创建运行命令动态数组
'Set commands = CreateObject("System.Collections.ArrayList")
'commands.Add "D:\frp内网穿透工具\frpc.exe -c D:\frp内网穿透工具\frpc.ini"

' 启动项键名称
keyName = "frp"

Set shell = WScript.CreateObject("WScript.Shell")

For Each command In commands
    ' cmd /c运行之后关闭窗口，0隐藏运行，false不同步运行
    shell.Run "cmd /c " & command, 0, false
Next

' 注册表项
item = "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"

' 设置开机启动
shell.RegWrite item & keyName, WScript.ScriptFullName

查看进程是否存在

ProcesseName="rclone.exe"

' 查找进程
Set WMIService = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
Set Processes = WMIService.ExecQuery("select * from win32_process where name='" & ProcesseName & "'")

For Each Process In Processes
    ' 比较两个字符串
    If InStr(UCase(Process.name), UCase(ProcesseName)) = 0 Then
        ' 如果进程存在就不重复执行后面的代码
        Exit for
    End If
    ' 运行程序
    Set WS = Wscript.CreateObject("Wscript.Shell")
    WS.Run "rclone mount GDrive:/ x: --cache-dir F:\Temp --vfs-cache-mode writes", 0
Next