vbs脚本大全，配有实例 DOS命令，批处理 脚本 代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 闭Guest Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName 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 现在，我们只需坐下来，等待用户选择文件并单击“确定”（或者等待用户单击“取消”）。如果用户单 击“取消”，则变量 intResul |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbs脚本大全，配有实例 DOS命令，批处理 脚本 代码的所有评论
