VBS教程：函数-CreateObject 函数( 三 ) _对象

Set objUser = GetObject("WinNT://" &strComputer &"/Guest")
If objUser.AccountDisabled Then
Wscript.Echo "The Guest account is already disabled."
Else
objUser.AccountDisabled = True
objUser.SetInfo
Wscript.Echo "The Guest account has been disabled."
End If
--------------------------------------------------------------------------------
12 检索本地共象
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &strComputer &"\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
For each objShare in colShares
Wscript.Echo "Name: " &objShare.Name
Wscript.Echo "Path: " &objShare.Path
Wscript.Echo "Type: " &objShare.Type
Next
--------------------------------------------------------------------------------
13 脚本检索一个文件夹下.txt文件汗哦值得学习
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\Administrator\\桌面\\' AND Drive = 'E:' AND Extension = 'txt'")
Wscript.Echo "Number of .txt files found: " &colFiles.Count
for each aa in colFiles
NL=NL &vbcrlf &aa.name
next
Wscript.Echo NL
--------------------------------------------------------------------------------
14 我如何向用户显示一个用来选择文件的对话框？
问：
嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？
-- BF
答：
您好，BF 。如果您使用的是 Windows 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。
但如果您使用的是 Windows XP，情况就不同了。在 Windows XP 上，
您可以使用“UserAccounts.CommonDialog”对象向用户显示一个标准的“文件打开”对话框。可以用类似以下代码的脚本：
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen
If intResult = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If
这是一个小脚本，所以让我们逐行进行解释吧。我们首先创建一个对 UserAccounts.CommonDialog
对象的对象引用（名为“objDialog”）。接着，我们设置对话框的“筛选”属性。我们要显示所有文件，
所以我们将筛选设置成这样：
objDialog.Filter = "All Files|*.*"
假如我们只想显示文本文件，那该怎么办？在这种情况下，我们将使用以下筛选：
objDialog.Filter = "Text Files|*.txt"
您也许能够看出它是如何运行的：我们为文件类型提供说明 (Text Files)，然后插入一个竖线分隔符 (|)，
最后使用标准的通配符来指示所有 .txt 文件 (*.txt) 。是不是想默认显示 .txt 文件，然后为用户提供查看所有文件的选项？
那么可以使用以下代码：
objDialog.Filter = "Text Files|*.txt|All Files|*.*"
试一试，您就明白我们的意思了。
然后，我们指定默认文件夹。默认情况下，我们希望对话框显示位于驱动器 C 的根文件夹中的文件，
所以我们这样设置“InitialDir”属性：
objDialog.InitialDir = "C:\"
希望显示 C:\Windows 文件夹中的文件吗？那么可以使用以下代码：
objDialog.InitialDir = "C:\Windows"
不必担心：这是一个真正的“文件打开”对话框，所以您可以随意单击，并且可以随时停下来。
您从 C:\Windows 开始并不意味着您只能打开该文件夹中的文件。
最后，我们使用下面这行代码显示对话框：
intResult = objDialog.ShowOpen
现在，我们只需坐下来，等待用户选择文件并单击“确定”（或者等待用户单击“取消”）。如果用户单击“取消”，
则变量 intResult 将被设置为 0 。在我们的脚本中，我们检查 intResult 的值，如果是 0，
我们将只需要使用 Wscript.Quit 来终止此脚本。
但是如果用户实际上选择了文件并单击了“确定”，那该怎么办？在这种情况下，intResult 将被设置为 -1，
“FileDialog”属性将被设置为所选文件的路径名。我们的脚本只回显路径名，这意味着我们将得到类似以下内容的输出：
C:\WINDOWS\Prairie Wind.bmp
不用说，您并不局限于只回显文件路径。实际上，您可以使用 WMI、FileSystemObject 或一些其他技术来绑定该文件，
然后对其执行删除、复制、压缩或检索文件属性等操作 — 您对文件能够执行的操作差不多都可以对它执行。
但无论如何，您都需要使用脚本。

VBS教程：函数-CreateObject 函数( 三 )

推荐阅读

不管遇到什么困难，都会默默的藏在心里，懂得隐忍的星座有哪些呢？

原神迪奥娜有什么技能-原神迪奥娜技能解析新

栀子花枯萎了怎么挽救室内栀子花叶子发黄怎么办

沃尔沃s90机油加几升沃尔沃s90l机油加多少

安阳哪吃三不沾

2020呼和浩特市地生会考成绩，2020年呼和浩特市地生会考？

龙虾粥怎么做好吃,广东虾粥怎么做好吃龙虾粥怎么做好吃

干了的牛肉怎么吃干了的牛肉怎么吃才好吃

宝鸡购买单位房改房提取公积金指南

飞盘为什么突然火了飞盘运动为什么火了

周末睡懒觉小心不规律的睡眠时间不利健康

牛肩肉适合炒还是炖

云端祭扫是什么意思

王昌龄简介50字王昌龄介绍

怎么将电影下载到电脑如何下载电影到电脑

厦门软件园二期在哪里厦门软件园二期属于什么区

这是什么花，怎么养，浇了水放在太阳下面晒了晒怎么感觉叶子就焉了…

茶油价格在多少钱一斤现在的茶油多少钱一斤？

Facebook明文密码-租号玩明文密码怎么上-

罗汉果怎么泡水喝罗汉果壳能一起泡水吗