有趣的vbs代码

以下是一个有趣的VBScript代码示例，可以显示当前计算机上的系统信息。此代码通过显示一些关键的系统变量值，可以让你知道系统的相关信息。请根据你的需要自由修改此代码或尝试编写自己的代码。

这是一个非常简单的VBScript代码示例：

```vbscript

@echo off

Set objShell = CreateObject("WScript.Shell")

MsgBox "操作系统名称: " & objShell.OS & vbCrLf & _

"操作系统版本: " & objShell.Version & vbCrLf & _

"用户账户名: " & objShell.UserName & vbCrLf & _

"系统目录路径: " & objShell.SpecialFolders("System") & vbCrLf & _

"公共用户文件路径: " & objShell.SpecialFolders("AllUsersProfile") & vbCrLf & _

"计算机名称: " & objShell.ComputerName & vbCrLf & _

"用户所在时区: " & objShell.TimeZone

```

这个脚本会显示以下信息：操作系统名称和版本，用户账户名，系统目录路径，公共用户文件路径，计算机名称以及用户所在的时区。这只是VBScript可以完成的一个非常小的任务示例，你可以通过添加更多的代码来完成更复杂的任务。注意VBScript具有执行许多强大的任务的能力，但也存在一些安全问题，因此在运行任何未知的VBScript代码时要小心谨慎。