28、高效系统管理：VBScript 实用指南

高效系统管理：VBScript 实用指南

在当今数字化办公环境中，系统管理工作既繁杂又关键。VBScript 作为一种强大的脚本语言，能帮助我们自动化完成许多系统管理任务，提高工作效率。下面将详细介绍 VBScript 在多个系统管理场景中的应用。

1. 屏幕保护设置

VBScript 可以通过修改注册表值来配置屏幕保护程序。以下是一个示例脚本，它能开启屏幕保护密码保护，设置 10 分钟无操作后启动屏幕保护，并选择“Mystify”屏幕保护程序：

'Turns on password protection
objWshShl.RegWrite "HKCU\Control Panel\Desktop\ScreenSaverIsSecure", 1
'Establishes a 10 - minute inactivity period (600 seconds)
objWshShl.RegWrite "HKCU\Control Panel\Desktop\ScreenSaveTimeOut", 600
'Enables the Mystify screensaver
objWshShl.RegWrite "HKCU\Control Panel\Desktop\SCRNSAVE.EXE", _
"C:\Windows\System32\Mystify.scr"

这个脚本修改了四个注册表值，其具体作用如下：
| 注册表值 | 作用 |
| ---- | ---- |
| ScreenSaverIsSecure | 开启屏幕保护密码保护，即屏幕保护启动后，用户需重新输入密码才能回到系统 |
| ScreenSaveTimeOut | 设置用户无操作 10 分钟（600 秒）后屏幕保护程序启动 |
| SCRNSAVE.EXE | 选择要运行的屏幕保护程序为“Mystify” |

要测试此脚本，运行它后注销并重新登录系统即可。

2. 网络管理

网络管理涵盖了网络驱动器映射和网络打印机连接等任务。

2.1 映射网络驱动器

使用 VBScript 可以将网络驱动器映射为本地驱动器，方便文件操作。要创建网络驱动器映射，需使用 WshNetwork 对象的 MapNetworkDrive() 方法，其语法如下：

WshNetwork.MapNetworkDrive letter, name, [persistent], [username], [password]

参数说明：
- letter ：计算机上可用的逻辑磁盘驱动器字母。
- name ：网络驱动器的通用命名约定（UNC）名称和网络路径。
- persistent ：可选参数，决定映射是否为永久映射。值为 True 时创建永久映射，默认值为 False ，表示连接仅在当前工作会话期间有效。
- username 和 password ：可选参数，用于提供访问驱动器所需的用户名和密码。

以下是一个建立临时网络驱动器映射的 VBScript 示例：

'*************************************************************************
'Script Name: DriveMapper.vbs
'Author: Jerry Ford
'Created: 02/25/14
'Description: This script demonstrates how to add logic to VBScripts in
'order to support network drive mapping.
'*************************************************************************
'Initialization Section
Option Explicit
On Error Resume Next
Dim objWshNet
'Instantiate the objWshNetwork object
Set objWshNet = WScript.CreateObject("WScript.Network")
'Main Processing Section
'Call the procedure that maps drive connections, passing it an available
'drive letter and the UNC pathname of the drive
MapNetworkDrive "X:", "\\HP - PC\Scripts"
WScript.Quit()  'Terminate script execution
'Procedure Section
'This subroutine creates network drive mappings
Sub MapNetworkDrive(DriveLetter, NetworkPath)
'Use the objWshNetwork object’s MapNetworkDrive() method to map to drive
objWshNet.MapNetworkDrive DriveLetter, NetworkPath
End Sub

不过，在运行脚本时需要注意：从 Windows 桌面或命令行运行脚本时，脚本使用你的安全凭据执行；但如果计划执行 VBScript，脚本将没有你的权限，可能无法建立网络驱动器连接。解决方法有两种：一是在脚本中嵌入用户名和密码，但这会存在安全风险；二是在脚本执行时提示输入有效的用户名和密码，并授权周围的人提供这些凭据。

2.2 断开映射的网络驱动器

当不再需要网络驱动器映射时，可以使用 WshNetwork 对象的 RemoveNetworkDrive() 方法断开连接，其语法如下：

WshNetwork.RemoveNetworkDrive letter, [kill], [persistent]

参数说明：
- letter ：已分配给映射驱动器的驱动器字母。
- kill ：可选参数，值为 True 或 False 。设置为 True 时，即使驱动器当前正在使用，也会断开连接。
- persistent ：可选参数，设置为 True 时，断开永久映射的驱动器。

以下是断开上述脚本中映射的网络驱动器的 VBScript 示例：

'*************************************************************************
'Script Name: DriveBuster.vbs
'Author: Jerry Ford
'Created: 02/25/14
'Description: This script demonstrates how to add logic to VBScripts in
'order to terminate a network drive mapping.
'*************************************************************************
'Initialization Section
Option Explicit
On Error Resume Next
Dim objWshNet
'Instantiate the objWshNetwork object
Set objWshNet = WScript.CreateObject("WScript.Network")
'Main Processing Section
'Call procedure that deletes network drive connections, passing it 
'the drive letter to be removed
MapNetworkDrive "X:"
WScript.Quit()  'Terminate script execution
'Procedure Section
'This subroutine disconnects the specified network drive connection
Sub MapNetworkDrive(DriveLetter)
'Use the objWshNetwork object’s RemoteNetworkDrive() method to disconnect
'the specified network drive
objWshNet.RemoveNetworkDrive DriveLetter
End Sub

3. 打印机管理

打印机管理包括设置网络打印机连接、管理打印作业和移除打印机连接等任务。

3.1 连接网络打印机

在 Windows 7 和 Windows 8.1 系统中，使用 WshNetwork 对象的 AddWindowsPrinterConnection() 方法连接网络打印机，语法如下：

WshNetwork.AddWindowsPrinterConnection(strPrinterPath)

strPrinterPath 是网络打印机的 UNC 路径和名称。以下是设置网络打印机连接的 VBScript 示例：

'*************************************************************************
'Script Name: PrinterMapper.vbs
'Author: Jerry Ford
'Created: 02/25/14
'Description: This script demonstrates how to use a VBScript to set up a
'connection to a network printer.
'*************************************************************************
'Initialization Section
Option Explicit
Dim objWshNet
'Instantiate the objWshNetwork object
Set objWshNet = WScript.CreateObject("WScript.Network")
'Main Processing Section
'Call the procedure that creates network printer connections, passing
'it a port number and the UNC pathname of the network printer
SetupNetworkPrinterConnection "\\HP - PC\HPLaserJet"
WScript.Quit()  'Terminate script execution
'Procedure Section
Sub SetupNetworkPrinterConnection(NetworkPath)
'Use the objWshNetwork object’s AddWindowsPrinterConnection() method
'to connect to the network printer
objWshNet.AddWindowsPrinterConnection NetworkPath
End Sub

3.2 断开网络打印机连接

使用 WshNetwork 对象的 RemovePrinterConnection() 方法断开网络打印机连接，语法如下：

WshNetwork.RemovePrinterConnection resource, [kill], [persistent]

参数说明：
- resource ：标识打印机连接，可以是连接分配的端口号或其 UNC 名称和路径。
- kill ：可选参数，值为 True 或 False 。设置为 True 时，即使打印机当前正在使用，也会断开连接。
- persistent ：可选参数，设置为 True 时，断开永久打印机连接。

以下是断开上述脚本中建立的打印机连接的 VBScript 示例：

'*************************************************************************
'Script Name: PrinterBuster.vbs
'Author: Jerry Ford
'Created: 02/25/14
'Description: This script demonstrates how to use a VBScript to disconnect
'a network printer connection.
'*************************************************************************
'Initialization Section
Option Explicit
Dim objWshNet
'Instantiate the objWshNetwork object
Set objWshNet = WScript.CreateObject("WScript.Network")
'Main Processing Section
'Call the procedures that disconnect network printer connections, passing
'it the UNC pathname of the network printer
SetupNetworkPrinterConnection "\\HP - PC\HPLaserJet"
'Terminate script execution
WScript.Quit()
'Procedure Section
Sub SetupNetworkPrinterConnection(NetworkPath)
'Use the objWshNetwork object’s RemovePrinterConnection() method to
'disconnect from a network printer
objWshNet.RemovePrinterConnection NetworkPath, "True", "True"
End Sub

4. 计算机管理

计算机管理包含服务管理和用户账户管理等任务。

4.1 服务管理

在 Windows 7 和 Windows 8.1 系统中，许多系统核心功能以服务的形式提供。可以使用 net stop 和 net start 命令来停止和启动 Windows 服务，在 VBScript 中使用 WshShell 对象的 Run() 方法执行这些命令。以下是一个示例脚本：

'*************************************************************************
'Script Name: ServiceCycler.vbs
'Author: Jerry Ford
'Created: 02/25/14
'Description: This script demonstrates how to use VBScript to stop and
'start Windows services.
'*************************************************************************
'Initialization Section
Option Explicit
On Error Resume Next
Dim objWshShl, strServiceToManage
'Instantiate the WshShell object
Set objWshShl = WScript.CreateObject("WScript.Shell")
'Main Processing Section
'Prompt the user to specify the name of the service to cycle
strServiceToManage = InputBox("What service would you like to cycle?")
'Call the procedure that stops a service
StopService(strServiceToManage)
'Pause for five seconds
WScript.Sleep(5000)
'Call the procedure that starts a service
StartService(strServiceToManage)
'Terminate script execution
WScript.Quit()
'Procedure Section
'This subroutine stops a specified service
Function StopService(ServiceName)
objWshShl.Run "net stop " & ServiceName, 0, "True"
End Function
'This subroutine starts a specified service
Function StartService(ServiceName)
objWshShl.Run "net start " & ServiceName, 0, "True"
End Function

需要注意的是，此脚本需要以管理员权限运行。操作步骤如下：
1. 找到并右键单击 Windows 命令提示符图标。
2. 从弹出菜单中选择“以管理员身份运行”。
3. 导航到脚本所在的文件夹并执行脚本。

4.2 用户账户管理

用户账户管理涉及创建、修改和删除用户账户等任务。可以使用 net user 命令在 Windows 7 或 Windows 8.1 系统中创建新用户账户。以下是一个示例脚本：

'*************************************************************************
'Script Name: AccountCreator.vbs
'Author: Jerry Ford
'Created: 02/25/14
'Description: This script demonstrates how to use VBScript to create new
'user accounts.
'*************************************************************************
'Initialization Section
Option Explicit
On Error Resume Next
Dim objFsoObject, objWshShl, strNewAccts, strAcctName
'Instantiate the FileSystemObject object
Set objFsoObject = CreateObject("Scripting.FileSystemObject")
'Instantiate the WshShell object
Set objWshShl = WScript.CreateObject("WScript.Shell")
'Specify the location of the file containing the new user account name
Set strNewAccts = _
objFsoObject.OpenTextFile("C:\Temp\UserNames.txt", 1, "True")
'Main Processing Section
CreateNewAccts()  'Call the procedure that creates new user accounts
WScript.Quit()    'Terminate script execution
'Procedure Section
Sub CreateNewAccts()  'This procedures creates new accounts
'Create a Do...While loop to process each line in the input file
Do while False = strNewAccts.AtEndOfStream
'Each line of the file specifies a unique username
strAcctName = strNewAccts.ReadLine()
'Create the new account
objWshShl.Run "net user " & strAcctName & " " & strAcctName & _
" /add", 0
Loop
'Close the input file
strNewAccts.Close
End Sub

此脚本也需要以管理员权限运行，操作步骤与服务管理脚本相同。为了使脚本更灵活，它使用了 VBScript 的 FileSystemObject 方法，从 C:\Temp 文件夹中的 UserNames.txt 文件中读取用户名列表。这样，只需修改该文本文件，脚本就可以反复使用。

5. 磁盘管理

VBScript 可用于自动化执行 Windows 系统管理实用程序，如 Windows 磁盘清理。该实用程序通过删除计算机磁盘驱动器上的不必要文件来回收丢失的磁盘空间，执行时会删除以下类型的文件：
- 回收站中的文件
- 临时文件
- 下载的程序文件
- 临时 Internet 文件
- 内容索引器的目录文件
- WebClient/Publisher 临时文件

在自动化执行磁盘清理实用程序之前，需要进行一次性配置：
1. 点击“开始”，然后选择“运行”，打开“运行”对话框。
2. 输入 cleanmgr /sageset:1 并点击“确定”。
3. 打开“磁盘清理设置”对话框，选择要删除的文件类型，然后点击“确定”。

配置完成后，可以使用以下示例脚本创建磁盘清理执行脚本：

'*************************************************************************
'Script Name: VBSCleanup.vbs
'Author:      Jerry Ford
'Created:     02/25/14
'Description: This script automates the execution of the Windows Disk
'             Cleanup utility.
'*************************************************************************
'Initialization Section
Option Explicit
Dim objWshShl
Set objWshShl = WScript.CreateObject("WScript.Shell")
'Main Processing Section
ExecuteCleanupUtility()
RecordMsgToAppEventLog()
WScript.Quit()  'Terminate the script’s execution
'Procedure Section
Function ExecuteCleanupUtility()  'Run the Windows Disk Cleanup utility
objWshShl.Run "C:\WINDOWS\SYSTEM32\cleanmgr /sagerun:1"
End Function
Function RecordMsgToAppEventLog() 'Record message in Application event log
objWshShl.LogEvent 4, "VBSCleanup.vbs - Disk Cleanup has been started."
End Function

创建脚本时，务必按上述示例准确指定 /sagerun:1 参数。

6. 集成 VBScript 与其他应用程序

VBScript 不仅可以与 Windows 资源交互，还能自动化执行流行的 Windows 应用程序，如 Microsoft Word 和 WinZip。

6.1 自动化生成 Microsoft Word 报告

要使用 VBScript 自动化 Word 任务，需要了解 Word 对象模型。以下是一个使用 VBScript 和 WSH 自动化创建 Word 文档的示例脚本：

'*************************************************************************
'Script Name:  WordObjectModelExample.vbs
'Author:       Jerry Ford
'Created:      02/25/14
'Description:  This script demonstrates how to integrate VBScript and
'              the Microsoft Word object model.
'*************************************************************************
'Initialization Section
Option Explicit
On Error Resume Next
Dim objWord  'Used to establish a reference to Word application object
Set objWord = WScript.CreateObject("Word.Application") 'Instantiate Word
'Main Processing Section
CreateNewWordDoc()
WriteWordReport()
SaveWordDoc()
CloseDocAndEndWord()
TerminateScript()
'Procedure Section
Function CreateNewWordDoc()
'Documents is a collection. Add() is a method belonging to the Documents
'collection that opens a new empty Word document
objWord.Documents.Add()
End Function
Function WriteWordReport()
'Specify Font object’s Name, Size, Underline, and Bold properties
objWord.Selection.Font.Name = "Arial"
objWord.Selection.Font.Size = 16
objWord.Selection.Font.Underline = True
objWord.Selection.Font.Bold = True
'Use the Selection object’s TypeText() method to write text output
objWord.Selection.TypeText("Sample VBScript Word Report")
'Use the Selection object’s TypeParagraph() method to insert linefeeds
objWord.Selection.TypeParagraph
objWord.Selection.TypeParagraph
objWord.Selection.TypeParagraph
'Use the Font object’s Underline and Bold properties
objWord.Selection.Font.Underline = False
objWord.Selection.Font.Bold = False
'Use the Font object’s Size and Bold properties
objWord.Selection.Font.Size = 12
objWord.Selection.Font.Bold = False
'Use the Selection object’s TypeText() method to write text output
objWord.Selection.TypeText("Prepared on " & Date())
'Use the Selection object’s TypeParagraph() method to insert linefeeds
objWord.Selection.TypeParagraph
objWord.Selection.TypeParagraph
'Use the Selection object’s TypeText() method to write text output
objWord.Selection.TypeText("Copyright - Jerry Lee Ford, Jr.")
End Function
Function SaveWordDoc()
'The Applications object’s ActiveDocument property establishes a
'reference to the current Word document.
'The Document object’s SaveAs() method provides the ability to save
'the Word file
'Save the new document to C:\Temp
objWord.ActiveDocument.SaveAs("c:\Temp\TextFile.doc")
End Function
Function CloseDocAndEndWord()
'Use the Document object’s Close() method to close the document
objWord.ActiveDocument.Close()
'Terminate Word
objWord.Quit()
End Function
Function TerminateScript()
WScript.Quit()  'Terminate script execution
End Function

此脚本的流程如下：
1. 初始化 Word 应用程序对象。
2. 创建新的 Word 文档。
3. 写入报告内容，设置字体、字号等格式。
4. 保存文档到指定位置。
5. 关闭文档并退出 Word 应用程序。
6. 终止脚本执行。

6.2 自动化执行第三方应用程序

以 WinZip 为例，可以使用 VBScript 自动化创建新的 ZIP 文件。以下是一个示例脚本：

'*************************************************************************
'Script Name:  WinZipDemo.vbs
'Author:       Jerry Ford
'Created:      02/25/14
'Description:  This script creates a new ZIP file made up of all the
'              VBScripts found in the C:\VBScriptsGames folder.
'*************************************************************************
'Initialization Section
Option Explicit
Dim intUserResponse, objWshShl
'Instantiate the Windows shell object
Set objWshShl = WScript.CreateObject("WScript.Shell")
'Main Processing Section
PromptForPermission()
If intUserResponse = vbYes Then
CreateZipFile()
End If
TerminateScriptExecution()
'Procedure Section
Function PromptForPermission()  'Ask user for permission to continue
intUserResponse = MsgBox("This script creates a ZIP file containing" & _
" all the VBScripts found in C:\VBScriptGames." & vbCrLf & vbCrLf & _
"Do you wish to continue?", 36, "VBScript Zipper!")
End Function

此脚本的执行流程如下：
1. 初始化 Windows 外壳对象。
2. 提示用户是否继续创建 ZIP 文件。
3. 如果用户选择“是”，则创建 ZIP 文件。
4. 终止脚本执行。

需要注意的是，此脚本需要计算机上安装有注册版的 WinZip 才能运行。

通过以上介绍，我们可以看到 VBScript 在系统管理的各个方面都有着广泛的应用，能够帮助我们高效地完成各种任务。合理运用这些脚本，可以大大提高系统管理的效率和准确性。

高效系统管理：VBScript 实用指南

7. 总结与最佳实践

在使用 VBScript 进行系统管理时，我们已经了解了它在多个方面的应用，包括屏幕保护设置、网络管理、打印机管理、计算机管理、磁盘管理以及与其他应用程序的集成。为了更好地发挥 VBScript 的作用，以下是一些总结和最佳实践：

7.1 脚本安全

• 权限管理 ：许多脚本需要以管理员权限运行，如服务管理和用户账户管理脚本。务必按照正确的步骤以管理员身份执行脚本，避免因权限不足导致脚本执行失败。
• 密码处理 ：在网络驱动器映射中，如果需要提供用户名和密码，应谨慎处理。嵌入用户名和密码会带来安全风险，建议在脚本执行时提示用户输入。

7.2 脚本灵活性

• 外部文件引用 ：如用户账户管理脚本中，使用 FileSystemObject 方法从外部文件读取用户名列表，使脚本可以反复使用，只需修改输入文件即可。
• 参数化设计 ：在编写脚本时，尽量将一些常量和配置信息作为参数，方便后续修改和扩展。

7.3 错误处理

• On Error Resume Next ：在脚本中使用 On Error Resume Next 可以避免因小错误导致脚本中断，但要注意在关键步骤进行错误检查和处理，确保脚本的健壮性。

8. 常见问题与解决方案

在使用 VBScript 进行系统管理过程中，可能会遇到一些常见问题，以下是一些解决方案：

问题	解决方案
脚本执行失败，提示权限不足	以管理员身份运行脚本。找到并右键单击 Windows 命令提示符图标，选择“以管理员身份运行”，然后导航到脚本所在文件夹执行脚本。
网络驱动器映射失败	检查网络连接是否正常，确保有访问网络驱动器的权限。同时，注意用户名和密码的正确性。
打印机连接失败	检查打印机的 UNC 路径是否正确，确保打印机处于可用状态。

9. 未来趋势与拓展

随着技术的发展，VBScript 可能会面临一些新的挑战和机遇。以下是一些未来可能的趋势和拓展方向：

9.1 与新兴技术的集成

• 云计算 ：将 VBScript 与云计算平台集成，实现对云资源的自动化管理。
• 人工智能 ：结合人工智能技术，实现更智能的系统管理，如自动检测系统故障并进行修复。

9.2 跨平台支持

目前 VBScript 主要用于 Windows 系统，未来可能会有更多的跨平台支持，使其在不同操作系统上都能发挥作用。

10. 案例分析

为了更好地理解 VBScript 在实际场景中的应用，以下是一个简单的案例分析：

案例背景 ：某公司有多个部门，每个部门都有自己独立的网络驱动器和打印机。系统管理员需要定期对这些资源进行管理，包括映射网络驱动器、连接打印机、清理磁盘等。

解决方案 ：使用 VBScript 编写一系列脚本，实现自动化管理。以下是一个简化的脚本流程：

graph TD;
    A[开始] --> B[映射网络驱动器];
    B --> C[连接打印机];
    C --> D[清理磁盘];
    D --> E[结束];

具体脚本如下：

' 映射网络驱动器
'*************************************************************************
'Script Name: DriveMapper.vbs
'Author: Jerry Ford
'Created: 02/25/14
'Description: This script demonstrates how to add logic to VBScripts in
'order to support network drive mapping.
'*************************************************************************
'Initialization Section
Option Explicit
On Error Resume Next
Dim objWshNet
'Instantiate the objWshNetwork object
Set objWshNet = WScript.CreateObject("WScript.Network")
'Main Processing Section
'Call the procedure that maps drive connections, passing it an available
'drive letter and the UNC pathname of the drive
MapNetworkDrive "X:", "\\HP-PC\Scripts"
'Procedure Section
'This subroutine creates network drive mappings
Sub MapNetworkDrive(DriveLetter, NetworkPath)
'Use the objWshNetwork object’s MapNetworkDrive() method to map to drive
objWshNet.MapNetworkDrive DriveLetter, NetworkPath
End Sub

' 连接打印机
'*************************************************************************
'Script Name: PrinterMapper.vbs
'Author: Jerry Ford
'Created: 02/25/14
'Description: This script demonstrates how to use a VBScript to set up a
'connection to a network printer.
'*************************************************************************
'Initialization Section
Option Explicit
Dim objWshNet
'Instantiate the objWshNetwork object
Set objWshNet = WScript.CreateObject("WScript.Network")
'Main Processing Section
'Call the procedure that creates network printer connections, passing
'it a port number and the UNC pathname of the network printer
SetupNetworkPrinterConnection "\\HP-PC\HPLaserJet"
'Procedure Section
Sub SetupNetworkPrinterConnection(NetworkPath)
'Use the objWshNetwork object’s AddWindowsPrinterConnection() method
'to connect to the network printer
objWshNet.AddWindowsPrinterConnection NetworkPath
End Sub

' 清理磁盘
'*************************************************************************
'Script Name: VBSCleanup.vbs
'Author:      Jerry Ford
'Created:     02/25/14
'Description: This script automates the execution of the Windows Disk
'             Cleanup utility.
'*************************************************************************
'Initialization Section
Option Explicit
Dim objWshShl
Set objWshShl = WScript.CreateObject("WScript.Shell")
'Main Processing Section
ExecuteCleanupUtility()
RecordMsgToAppEventLog()
'Procedure Section
Function ExecuteCleanupUtility()  'Run the Windows Disk Cleanup utility
objWshShl.Run "C:\WINDOWS\SYSTEM32\cleanmgr /sagerun:1"
End Function
Function RecordMsgToAppEventLog() 'Record message in Application event log
objWshShl.LogEvent 4, "VBSCleanup.vbs - Disk Cleanup has been started."
End Function

效果评估 ：通过使用这些脚本，系统管理员可以大大减少手动操作的时间，提高管理效率。同时，脚本的自动化执行也减少了人为错误的可能性，提高了系统的稳定性。

11. 学习资源推荐

如果你想进一步学习 VBScript 进行系统管理，以下是一些学习资源推荐：

• 官方文档 ：Microsoft 官方提供了详细的 VBScript 文档，可以在 MSDN 上查找相关信息。
• 在线教程 ：许多技术网站提供了 VBScript 的在线教程，如 W3Schools 等。
• 书籍 ：有一些专门介绍 VBScript 编程的书籍，可以帮助你深入学习。

通过不断学习和实践，相信你可以熟练掌握 VBScript 在系统管理中的应用，提高工作效率和技能水平。

总之，VBScript 是一种强大的系统管理工具，通过合理运用它的各种功能，我们可以实现系统管理的自动化和高效化。在实际应用中，要注意脚本的安全、灵活性和错误处理，同时不断学习和探索新的应用场景和技术趋势。