VBS学习笔记 第二章 VBS脚本进阶

[2.1]--CreateObject函数

CreateObject:创建并返回一个对AcliveX对象（VB标准的）的引用。可以访问windows系统内安装的所有com对象（windows的），并且可以调用这些部件中存放的命令。(可以说是VBS中最强大的函效，没有了它，VBS只能用来算算数学题)

Scripting.Filesystemobject：提供一整套文件系统操作函数

Excel.Application：EXCEL实例程序

ADODB.Connection：效据库连接实例

Word.Application：word实例程序

WScript.Network：提供计算机网络相关操作

msxml2.domdocument：提供XML文档操作方法

Wscript.Shell：提供操作系统相关操作

scripting.dictionary：提供字典相关的方法

CreateObject 函数

创建并返回对 Automation 对象的引用。（ActiveX对象）

CreateObject(servername.typename [, location])

参数

servername

必选项。提供对象的应用程序名称。

typename

必选项。要创建的对象类型或类。

location

可选项。对象所在的网络服务器将被创建。

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'以下代码返回运行在命名为"myserver"的远程网络（本地）计算机上 Excel 实例的版本号 :

Function GetVersion
  Dim XLApp
  Set XLApp = CreateObject("Excel.Application")', "MyServer")
  GetVersion = XLApp.Version
End Function

a=GetVersion 
MsgBox a    'a=16.0) C:\Program Files\Microsoft Office\Office16

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

vbs中的"WScript.Network"[属性与方法]

属性

ComputerName    计算机名

UserDomain         所属局域网域的域名

UserName            用户名

方法

AddPrinierConnection                添加dos下的共享打印机

AddWindowsPrimerConnection  添加共享打印机

EnumNetworkDrives                   显示所有网络驱动器的映射信息

EnumPrinterConnections            显示所有网络打印机的映射信息

MapNetworkDrive                      映射网络驱动器

RemoveNetworkDrive                 删除网络驱动器

RemovePrinferConnection          删除网络打印机

SetDefauitPrinter                       设置默认打印机

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'通过WScript.Network控件，获取本地计算机名称
Dim nw
Set nw = CreateObject("WScript.Network")
MsgBox nw.ComputerName

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

lhost:本地计算机对象

WMl(Windows Management Instrumentation)技术