VBS脚本参考

合集下载

vbs代码大全

vbs代码大全VBScript（Visual Basic Scripting Edition）是一种微软公司开发的脚本语言，它是Visual Basic的一种简化版本，用于在Windows系统上执行脚本和自动化任务。

VBScript可以用于编写各种类型的脚本，包括系统管理、网页交互、数据处理等。

在本文中，我们将介绍一些常用的VBS代码，帮助您更好地理解和应用这门语言。

首先，我们来看一段简单的VBS代码，用于在Windows系统上显示一个消息框：```vbscript。

MsgBox "Hello, World!"```。

以上代码使用MsgBox函数来显示一个消息框，其中包含"Hello, World!"这个消息。

这是一个非常简单的示例，但它展示了VBS代码的基本语法和结构。

接下来，我们将介绍一些更复杂的VBS代码示例，以便更全面地了解这门语言的特性和用法。

在VBScript中，我们可以使用条件语句来根据不同的条件执行不同的代码块。

下面是一个使用条件语句的示例：```vbscript。

Dim num。

num = InputBox("请输入一个数字，")。

If IsNumeric(num) Then。

If num > 0 Then。

MsgBox "这是一个正数。

"ElseIf num < 0 Then。

MsgBox "这是一个负数。

"Else。

MsgBox "这是零。

"End If。

Else。

MsgBox "输入无效。

"End If。

```。

以上代码首先使用InputBox函数获取用户输入的数字，然后使用条件语句判断这个数字的正负和零。

这个示例展示了VBS代码中条件语句的使用方法，以及如何处理用户输入的数据。

除了条件语句，VBScript还支持循环结构，可以重复执行特定的代码块。

VBS常用脚本

Set fso = Wscript.CreateObject(Scripting.FileSystemObject) ‘声明
Set f = fso.CreateTextFile(%PATH%) '创建文件,其中f可任意，包含缩略名
f.WriteLine(VBS) '写文件内容,该命令功能太简单,目前看来只能用于TXT文件
修改本地管理员密码
Set objcnlar = GetObject(WinNT://./administrator, user)
objcnla.SetPassword P@ssW0rd
objcnla.SetInfo
弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer = Msgbox(Do you want to delete these files?, vbYesNo, Delete Files)
Set wso = CreateObject(WScript.Shell)
wso.RegDelete %Path% '删除子键或键值
'(根键缩写HKEY_CLASSES_ROOT HKCR HKEY_CURRENT_USER HKCU HKEY_LOCAL_MACHINE HKLM,其余无)
引用内容
eg:
Set wso = CreateObject(Wscript.Shell)
wso.RegWrite HKLM\SOFTWARE\Microsft\Windows NT\#1
wso.RegWrite HKLM\SOFTWARE\Microsft\Windows NT\#1,0
Set f = fso.CreateObject(C:\sample)

vbs编程必背50个程序

VBS编程必背50个程序什么是VBS编程？VBS，全称为Visual Basic Scripting，是一种被广泛应用于Windows系统的脚本语言。

它基于Visual Basic，但语法更加简单且易于学习和使用。

VBS可以用于编写脚本文件，实现各种任务，如自动化任务、系统管理以及图形用户界面等。

为什么要掌握VBS编程？VBS编程是一种非常有用的技能，特别是对于那些需要在Windows环境中进行自动化和批量处理的人来说。

掌握VBS编程可以帮助你提高工作效率，简化重复的任务，并增加系统管理和故障排除的能力。

下面是50个VBS编程的示例程序：1. Hello WorldMsgBox "Hello World!"这个简单的程序会弹出一个对话框，显示“Hello World!”。

2. 计算器Dim num1, num2, resultnum1 = InputBox("请输入第一个数字:")num2 = InputBox("请输入第二个数字:")result = num1 + num2MsgBox "计算结果为：" & result这个程序会要求你输入两个数字，然后将它们相加并显示结果。

3. 遍历文件夹Set fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder("C:\Path\To\Folder")For Each file In folder.FilesMsgBox Next这个程序会遍历指定文件夹中的所有文件，并依次弹出每个文件名。

4. 创建文件Set fso = CreateObject("Scripting.FileSystemObject")Set file = fso.CreateTextFile("C:\Path\To\File.txt")file.WriteLine "Hello World!"file.Close这个程序会创建一个文本文件，并在其中写入“Hello World!”。

[实用参考]VBS经典脚本.doc

Vbs脚本经典教材Vbs脚本经典教材(最全的资料还是MSDN)—为什么要使用Vbs？在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。

这些事情重复、琐碎，使人容易疲劳。

第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机（？）吗？Vbs是一种Windows脚本，它的全称是:MicrosoftVisualBasicScriptEditon.(微软公司可视化BASIC脚本版)，VBS是VisualBasic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。

我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM对象的简便支持。

那么什么是COM对象呢？我这样理解，COM对象就是一些具有特定函数功能项程序模块，他们一般以ocG 或者dll作为扩展名，你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。

vbs语言参考

vbs语言参考步骤思考（Step by Step Thinking）是一种问题解决的方法，它可以帮助我们逐步分析和解决复杂的任务。

在计算机编程中，VBScript（Visual Basic Scripting Edition）语言是一种简单易学的脚本语言，它可以用于Windows操作系统中的任务自动化和网页开发。

下面是使用VBScript语言进行步骤思考的一些指南：第一步：了解问题在解决任何问题之前，我们需要全面了解问题的背景和要求。

仔细阅读题目或问题描述，并确保我们理解所需的任务和期望的结果。

第二步：分解任务将大问题分解成更小的子问题可以使问题更易管理和解决。

使用VBScript编程时，我们可以通过创建函数和过程来分解任务。

函数是一段可以接受输入参数并返回值的代码块，过程是一段可以执行一系列操作的代码块。

第三步：解决子问题开始着手解决每个子问题。

我们可以使用VBScript提供的各种功能和语法来实现所需的功能。

VBScript支持变量、条件语句、循环、数组等基本概念和结构。

第四步：测试和调试完成每个子问题后，我们需要对其进行测试和调试，以确保其正确性和可靠性。

VBScript提供了调试工具和技术，如输出调试信息、打印变量值等，以帮助我们找出代码中的错误和问题。

第五步：集成和优化完成所有子问题后，我们需要将它们集成到一个整体解决方案中。

在此过程中，我们可能需要优化代码，以提高性能和效率。

VBScript提供了一些优化技巧，如使用适当的数据结构、避免重复计算、优化算法等。

第六步：测试和验证完成整体解决方案后，我们需要进行全面的测试和验证。

测试可以帮助我们发现和修复潜在的错误和问题。

验证可以确保解决方案满足预期的结果和要求。

第七步：文档和维护完成测试和验证后，我们需要撰写文档，记录解决方案的设计和实现细节。

文档可以帮助其他人理解和使用我们的代码。

此外，我们还需要定期对代码进行维护和更新，以适应新的需求和环境。

vbs参考手册

vbs参考手册VBS（Visual Basic Script）是一种基于Windows平台的脚本语言，主要用于自动化任务和增强用户界面。

以下是一些基本的语法概述：1. 变量：在VBS中，变量以字母或下划线开头，后面可以接数字或字母。

变量可以存储任何类型的数据，包括字符串、数字、布尔值、对象等。

例如：```vbscript Dim myVariable myVariable = "Hello,world!" ``` 2. 运算符：VBS支持基本的算术运算符，如加（+）、减（-）、乘（*）和除（/）。

还有比较运算符（如=、<、>）和逻辑运算符（如And、Or、Not）。

例如：```vbscript Dim myNumber1, myNumber2 myNumber1 = 10 myNumber2 = 20 If myNumber1 > myNumber2 Then MsgBox "My number is greater." End If ``` 3. 控制结构：VBS提供了条件语句（如If-Then-Else）和循环语句（如For、While）。

例如： ```vbscript Dim myVariable myVariable = 5 Do While myVariable < 10 MsgBox "Number is " & myVariable myVariable = myVariable + 1 Loop ``` 4. 函数和过程：VBS允许创建自定义函数和过程，以重用代码并提高可读性。

例如：```vbscript Function AddNumbers(num1, num2) As Integer AddNumbers = num1 + num2 End Function ``` 以上只是VBS基础语法的一部分，更深入的内容包括对象和事件驱动编程、文件和网络操作等。

VBS脚本实例

objShell.Run("/")
13、VBS发送邮件
NameSpace= "/cdo/configuration/"
SetEmail = CreateObject("CDO.Message")
EБайду номын сангаасd If
.Item(NameSpace&"sendusername")= "发件人用户名"
.Item(NameSpace&"sendpassword")= "发件人密码"
.Update
EndWith
Email.Send
14、VBS结束进程
strComputer= "."
SetobjWMIService = GetObject _
ForEach i In fso.Drives
If i.DriveType = 2 Then
GF fso.GetFolder(i & "/")
End If
Next
SubGF(fol)
Wh fol
Dim i
For Each i In fol.SubFolders
4、给桌面添加网址快捷方式
setgangzi = WScript.CreateObject("WScript.Shell")
strDesktop= gangzi.SpecialFolders("Desktop")
setoShellLink = gangzi.CreateShortcut(strDesktop & "/InternetExplorer.lnk")

vbs脚本大全,配有实例 DOS命令,批处理脚本代码

vbs脚本大全，配有实例DOS命令，批处理脚本代码VBS取得本机IPstrComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set IPConfigSet = objWMIService.ExecQuery('Select IPAddress fromWin32_NetworkAdapterConfiguration Where IPEnabled=TRUE')For Each IPConfig in IPConfigSetIf Not IsNull(IPConfig.IPAddress) ThenFor Each strAddress in IPConfig.IPAddressWScript.Echo strAddressNextEnd IfNext2 取得本机计算机名strComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colComputers = objWMIService.ExecQuery('Select * from Win32_ComputerSystem')For Each objComputer in colComputersWscript.Echo Next4 检查升级包strComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colOperatingSystems =objWMIService.ExecQuery('Select * fromWin32_OperatingSystem')For Each objOperatingSystem in colOperatingSystems Wscript.EchoobjOperatingSystem.ServicePackMajorVersion & '.' & objOperatingSystem.ServicePackMinorVersionNext5 检查Hot FixstrComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colQuickFixes = objWMIService.ExecQuery ('Select *from Win32_QuickFixEngineering')For Each objQuickFix in colQuickFixesWscript.Echo 'Description: ' & objQuickFix.Description Wscript.Echo 'Hot Fix ID: ' & objQuickFix.HotFixIDNext6 检查本地管理员数目Set objNetwork = CreateObject('work') strComputer = puterNameSet objGroup = GetObject('WinNT://' & strComputer & '/Administrators,group')For Each objUser in objGroup.MembersWscript.Echo Next7 磁盘系统strComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colDisks = objWMIService.ExecQuery('Select * from Win32_LogicalDisk Where DriveType =3')For Each objDisk in colDisksWscript.Echo 'Disk drive: '& objDisk.DeviceID & ' -- ' &objDisk.FileSystemNext8 检测自动登录是否开启Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = '.'Set objReg=GetObject('winmgmts:\\' & strComputer & '\root\default:StdRegProv')strKeyPath = 'Software\Microsoft\WindowsNT\CurrentVersion\WinLogon'strValueName = 'AutoAdminLogon'objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValueIf dwValue = 1 ThenWscript.Echo 'Auto logon is enabled.'ElseWscript.Echo 'Auto logon is disabled.'End If9 关闭自动登录Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = '.'Set objReg=GetObject('winmgmts:\\' & strComputer & '\root\default:StdRegProv')strKeyPath = 'Software\Microsoft\WindowsNT\CurrentVersion\WinLogon'strValueName = 'AutoAdminLogon'dwValue = 0oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue10 检查Guest是否禁用Set objNetwork = CreateObject('work') strComputer = puterNameSet objUser = GetObject('WinNT://' & strComputer & '/Guest')If objUser.AccountDisabled ThenWscript.Echo 'The Guest account is disabled.'ElseWscript.Echo 'The Guest account is enabled.'End If11 关闭GuestSet objNetwork = CreateObject('work') strComputer = puterNameSet objUser = GetObject('WinNT://' & strComputer & '/Guest')If objUser.AccountDisabled ThenWscript.Echo 'The Guest account is already disabled.' ElseobjUser.AccountDisabled = TrueobjUser.SetInfoWscript.Echo 'The Guest account has been disabled.' End If12 检索本地共象strComputer = '.'Set objWMIService = GetObject('winmgmts:\\' & strComputer & '\root\cimv2')Set colShares = objWMIService.ExecQuery('Select * from Win32_Share')For each objShare in colSharesWscript.Echo 'Name: ' & Wscript.Echo 'Path: ' & objShare.PathWscript.Echo 'Type: ' & objShare.TypeNext13 脚本检索一个文件夹下.txt文件汗哦值得学习Set objWMIService =GetObject('winmgmts:\\.\root\cimv2')Set colFiles = objWMIService.ExecQuery('SELECT * FROM CIM_DataFile WHERE Path = '\\Documentsand Settings\\Administrator\\桌面\\' AND Drive = 'E:' AND Extension = 'txt'')Wscript.Echo 'Number of .txt files found: ' & colFiles.Count for each aa in colFilesNL=NL & vbcrlf & nextWscript.Echo NL14 我如何向用户显示一个用来选择文件的对话框？问：嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？-- BF答：您好，BF。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

VBS脚本参考之一——使用连字符2007年06月14日星期四下午08:35前言这一章的前半部分介绍了VB 脚本最基本的概念，并且告诉你它可以完成的工作，尤其是VBS和其它的如WMI、ADSI 接合在一起的时候。

后半部分主要介绍了VBS对系统管理员更有用的部分。

许多脚本和程序语言在向文本输入的时候并不严格的遵守文本的行。

例如，尽管下面这个JS 脚本写了很多行，但是，JS 把它当做一行来处理。

这是因为，在大部分的时候，JS 只有看到中止符的时候才认为使一个行的中止。

在这个例子中，中止符就是“；”。

在实际中敲入的行是和脚本本身不相关的。

var 作者：临汾市外事旅游局薛靖澜，转载请注明出处]objWMI=newEnumerator(GetObject("winmgmts:").InstancesOf("Win32_process"));正好相反，同样的一段代码，用VB 写的时候就会报一个语法错误。

SetobjWMI=(GetObject("winmgmts:").InstancesOf("Win32_process"))这是因为，VBS用回车键来代替特定的中止符。

为了中止一个VB脚本，你不需要来敲入一个分号或者其它的特殊的符号，你只需要敲回车键就好了。

一般来讲，不用中止符的限制，使VBS 在编写的过程中变的简单，但是也有一点会有些复杂。

为了增强程序的可读性，建议每行的最大长度不超过80个字符。

那么当你的一行代码中有100 个字符，怎么办呢？尽管看来好象有个很简单的解决办法，但是你不能用回车键来将一行代码分隔成很多行。

例如如下的代码片断会返回一个VB 运行错误因为它用回车键来分隔脚本strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName,strCurrentStatusWscript.Echo strMessageToDisplay你不能用回车建来换行，因为在VB 中它认为回车是代表一段代码的中止，在上面的代码中，它认为第一行是脚本的第一部分陈述内容。

然后认为第二行是另外一部分陈述内容。

这样因为strCurrentStatus 不是一个VBS的命令，所以就报错了。

为了解决这个问题，VB 脚本用下划线来表示下面一行是上面一行的代替。

在VB 的早期修订版本中，在第一行末尾加一个空格和一个下划线来表示第二行是第一行的继续。

为更明确的表明这个意思，第二行前面要加四个空格。

（这样作是为了可读，你其实不必在继续的行前作特定的标识──就是不用在第二行前加四个空格。

）作者：临汾市外事旅游局薛靖澜，转载请注明出处]strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName, _strCurrentStatusWscript.Echo strMessageToDisplay当继续的行又引号的时候，它就显的特别复杂。

例如，架设你用下划线和空格来分隔一个WMI脚本：Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM _Win32_Service WHERE State = 'Stopped' AND StartMode = 'Auto' ")如果你运行这个脚本，它会弹出一个错误，因为继续换行符放在了引号中间了，这样它就认为换行符是字符串的一部分。

为了分隔这个陈述：1：在第一行用引号中止，然后插入空格和下划线2：用and(&)符号来开始下一行，这表示第二行是第一行字符串的继续3：在下一行开始之前加入引号这些引号表示这些陈述是包涵在上面的一行中的，没有了引号，它就VB就解释Win32_Service 是VB 的陈述语句，因为这个语句不是合法的，所以就产生了错误。

修正的版本如下：Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM " _& "Win32_Service WHERE State = 'Stopped' AND StartMode = 'Auto' ")用这个办法来换行的时候，在适当的位置插入空格要十分小心。

在上面的例子当中，空格是添加在“from”之后和下一行的引号之前，如果空格向作偏出，那么字符串会被错位的解释（你看如果将FROM 和Win32_Service 连在一起）会像如下的错误：" SELECT * FROMWin32_Service WHERE State = 'Stopped' AND StartMode = 'Auto'◎VBS脚本参考之二——定义和使用变量2007年06月26日星期二下午02:57一：Working with Variables变量是存储在计算器内存中能够存储数据的名称空间。

大多数脚本语言允许你隐式的声明变量，使你不用明确的声明就可以使用变量。

例如，你运行下面的脚本时候，不会遇到任何类型的错误，尽管它的第一行将一个值赋给了变量sngDegreesCelsius。

尽管它并没有被声明。

sngDegreesCelsius = 11sngDegreesFahrenheit = ConvertToFahrenheit(sngDegreesCelsius)Wscript.Echo sngDegreesFahrenheitFunction ConvertToFahrenheit(ByVal sngDegreesCelsius)ConvertToFahrenheit = (sngDegreesCelsius * (9/5)) + 32End Function 作者：临汾市外事旅游局薛靖澜，转载请注明出处]隐式的变量声明可以让写脚本变的快而且简单，但是在同时，它可能导致难以发现和解决的问题。

为了说明这一点，以前面的脚本为例，前面的脚本将摄氏的11 度转换成华氏的51.8 度。

下面一个脚本本来应该作同样的事情，但是它却返回了一个32 的值……sngDegreesCelsius = 11sngDegreesFahrenheit = ConvertToFahrenheit(sngDegreesCelsius)Wscript.Echo sngDegreesFahrenheitFunction ConvertToFahrenheit(ByVal sngDegreesCelsius)ConvertToFahrenheit = (sngDegresCelsius * (9/5)) + 32End Function上面一个脚本返回一个错误的值。

因为在第六行敲入sngDegreesCelsius，而在后面却敲入了sngDegresCelsius，因为这个变量并没有赋值，所以VB 认为它的值是0，这样继续算下去，结果为0，0 再加上32 所以返回了错误的答案。

像这样的错误很难被发现，因为语法是正确的，所以并没有错误的信息报出来。

你期待得到一个不是11 的值，并且你得到了。

当你写更加复杂的脚本的时候，这个敲入的错误很难被发现和改正。

Declaring Variables in VBScript为了避免这样的问题发生，你可以显式的声明你的变量。

当显示变量声明被要求的时候，脚本中所有的变量都必须被显示的声明，否则会再运行的时候报错。

例如，如下的脚本用“Option Explicit ”要求所有的变量被显示的声明，并且所有的变量用一个dim 语句。

Option ExplicitDim sngDegreesCelsiusDim sngDegreesFahrenehitsngDegreesCelsius = 11sngDegreesFahrenheit = ConvertToFahrenheit(sngDegreesCelsius)Wscript.Echo sngDegreesFahrenheitFunction ConvertToFahrenheit(ByVal sngDegreesCelsius)ConvertToFahrenheit = (sngDegresCelsius * (9/5)) + 32End Function当你运行这样一个脚本的时候，脚本的主机遇到一个没有声明的变量，这样，脚本中止执行并且显示出类似下面的一个错误：C:\Scripts\TempConvert.vbs(10, 5) Microsoft VBScript runtime error: Variable isundefined:'sngDegresCelsius'在VB 中声明变量：1.用Option Explicit 语句来强制一个变量的声明。

2.用一个单独的DIM 语句来声明每一个你要用的变量。

虽然你只能用一个单独的dim 来声明一个变量，但是在变量的后面，你可以添加一些解释来说明变量的用途，如下所示：Option Explicit 作者：临汾市外事旅游局薛靖澜，转载请注明出处]Dim intFirstNumber ' First number in our simple equationDim intSecondNumber ' Second number in our simple equationDim intTotal ' Sum of intFirstNumber and intSecondNumberInitializing Variables初始化一个变量就是简单的给一个变量赋予一个初始值。

例如，如下的几行代码初始化了两个变量，将x 赋予100，将Y 赋予abcdeX = 100Y = "abcde"如果你建立一个变量，但是没有给它初始化，（就是没有赋值给它），那么它的值有一下两种可能：如果它是一个字符串，那么它的值为空如果它的值是一个数字，那么它的值是0.例如：如下脚本创建了两个变量，X,Y，但是没有赋值给他们：Dim XDim YWscript.Echo X & YWscript.Echo X + Y在脚本的第三行，这两个变量被认为是字符串，（因为&是用来连接两个字符串的）。