利用Server 2008的一键共享功能，用户无需繁琐配置即可在局域网内轻松搭建文件服务器，该方案操作简便，能大幅提升文件传输效率，非常适合家庭及小型办公环境使用，满足集中式文件管理的需求。
在 Windows Server 2008 系统中，出于安全考虑，默认情况下并不开启局域网文件共享功能，如果需要让局域网内的其他电脑访问服务器上的文件，手动配置共享文件夹、设置权限以及开启 Guest 账户往往比较繁琐,且容易因为防火墙或服务未启动而连接失败。
为了解决这一痛点，我们可以利用 VBScript（VB 脚本）编写一个“一键共享”工具，快速完成共享配置,以下是详细的操作步骤：
准备工作
在开始之前,请确保：
- IP 设置：服务器与客户端在同一网段，且 IP 地址固定（192.168.1.10）。
- 工作组：确保服务器和所有客户端都加入了同一个工作组（默认为 WORKGROUP）。
- Guest 账户：确保 Guest 账户未被禁用（这是局域网访问的基础）。
创建“一键共享”脚本
为了实现真正的“一键”操作，我们需要创建一个 VBScript 文件，该脚本将自动创建一个共享文件夹，并赋予 Everyone（所有人）完全控制的权限。
- 在服务器桌面上，右键点击“新建” -> “文本文档”。
- 将以下代码复制并粘贴到文本文档中：
' Server 2008 局域网一键共享脚本
On Error Resume Next
Dim fso, shell, shareName, folderPath, wshNetwork
Dim strComputer
' --- 配置区域 ---
' 设置共享文件夹的名称
shareName = "PublicShare"
' 设置要共享的物理路径（如果不存在会自动创建）
folderPath = "C:\PublicShare"
' --- 配置结束 ---
Set fso = CreateObject("Scripting.FileSystemObject")
Set shell = CreateObject("WScript.Shell")
Set wshNetwork = CreateObject("WScript.Network")
' 1. 创建文件夹（如果不存在）
If Not fso.FolderExists(folderPath) Then
fso.CreateFolder(folderPath)
WScript.Echo "文件夹已创建: " & folderPath
Else
WScript.Echo "文件夹已存在: