过完年后有一个WSUS的部署项目，但又涉及到大量没加入域的客户端。提前写好一个WSUS客户端的配置脚本，以方便年后的项目手到擒来。哈哈。。。。

[code]'==========================================================================
'
' VBScript Source File
'
' NAME: WSUS_Client_Configure
'
' AUTHOR: FuLin , Systems Service Department , Chengdu Microsoft Technology Center
' DATE : 2007/2/20
'
' COMMENT: This Script Can Be Configure WSUS Client.
'
'==========================================================================
ON Error Resume Next

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oreg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
'HTTP(S) URL of the WSUS server used by Automatic Updates and (by default) API callers. This policy is paired with WUStatusServer; both must be set to the same value in order for them to be valid.
strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
strValueName = "WSUS_Server_URL"
strValue = " WUServer "
oreg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

'The HTTP(S) URL of the server to which reporting information will be sent for client computers that use the WSUS server configured by the WUServer key. This policy is paired with WUServer; both must be set to the same value in order for them to be valid.
strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
strValueName = "WSUS_Server_URL"
strValue = "WUStatusServer"
oreg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

' --------------------------------------------------------------

strKeyPath2 = "Software\Policies\Microsoft\Windows\WindowsUpdate\AU"
strValueName = "AUOptions"
dwValue = 2
' Range = 2|3|4|5
' 2 = Notify before download.
' 3 = Automatically download and notify of installation.
' 4 = Automatic download and scheduled installation. (Only valid if values exist for ScheduledInstallDay and ScheduledInstallTime.)
' 5 = Automatic Updates is required, but end users can configure it.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue

strValueName = "AutoInstallMinorUpdates"
dwValue = 0
' Range = 0|1
' 0 = Treat minor updates like other updates.
' 1 = Silently install minor updates.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue

strValueName = "NoAutoRebootWithLoggedOnUsers"
dwValue = 0
' Range = 0|1;
' 1 = Logged-on user gets to choose whether or not to restart his or her computer.
' 0 = Automatic Updates notifies user that the computer will restart in 5 minutes.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue

strValueName = "RebootWarningTimeout"
dwValue = 15
' Range=n; where n=Time In minutes (1-30).
' Length, In minutes, of the restart warning countdown after installing updates With a deadline or scheduled updates.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue

strValueName = "NoAutoUpdate"
dwValue = 0
' Range = 0|1
' 0 = Enable Automatic Updates.
' 1 = Disable Automatic Updates.
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue

strValueName = "ScheduledInstallDay"
dwValue = 0
' Range = 0|1|2|3|4|5|6|7
' 0 = Every day.
' 1 through 7 = The days of the week from Sunday (1) to Saturday (7).
' (Only valid if AUOptions equals 4.)
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue

strValueName = "ScheduledInstallTime"
dwValue = 12
' Range = n; where n = the time of Day In 24-Hour format (0-23).
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue[/code]

在技术中国上面看到有人需要，就帮忙给写了。

[code]

applicationname="加密文件夹查看脚本"
border="dialog"
borderstyle="normal"
caption="yes"
contextmenu="no"
maximizebutton="no"
minimizebutton="yes"
navigable="no"
scroll="yes"
selection="no"
showintaskbar="yes"
singleinstance="yes"
sysmenu="yes"
version="1.0"
windowstate="normal"
>




加密文件夹查看脚本
枚举计算机上所有EFS加密文件
技术中国｜ style="text-decoration: none" href="http://www.kernelmode.com.cn/">碎片技术日志




版本 |
作者 |




[/code]

扩展名为.hta

幸福又遇到脚本问题了，还是我来帮他解决掉吧！

此脚本通过组策略分发。作用：打开客户机的管理共享。

[code]ON ERROR RESUME NEXT
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oreg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "System\CurrentControlSet\Services\LanmanServer\Parameters"
strValueName = "AutoShareServer"
dwValue = 1
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strValueName = "AutoShareWks"
dwValue = 1
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
if err = 0 then
Wscript.echo "管理共享已经打开！"
end if
if err <> 0 then
Wscript.echo "脚本失败，操作未能完成！"
Err.Clear
end if[/code]

保存内容为Autoshare.vbs执行即可。

按幸福要求重新更改了脚本，如下：
[code]ON ERROR RESUME NEXT
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oreg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath1 = "System\CurrentControlSet\Services\LanmanServer\Parameters"
strKeyPath2 = "SYSTEM\ControlSet001\Control\Lsa"
strKeyPath3 = "SYSTEM\CurrentControlSet\Control\Lsa"

strValueName = "AutoShareServer"
dwValue = 00000001
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath1,strValueName,dwValue
strValueName = "AutoShareWks"
dwValue = 00000001
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath1,strValueName,dwValue

strValueName = "restrictanonymous"
dwValue = 00000000
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue

strValueName = "restrictanonymous"
dwValue = 00000000
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath3,strValueName,dwValue

strValueName = "limitblankpassworduse"
dwValue = 00000000
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath2,strValueName,dwValue

strValueName = "limitblankpassworduse"
dwValue = 00000000
oreg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath3,strValueName,dwValue

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

objPolicy.FirewallEnabled = FALSE

if err = 0 then
Wscript.echo "管理共享已经打开！"
end if
if err <> 0 then
Wscript.echo "脚本失败，操作未能完成！"
Err.Clear
end if[/code]
参考文章http://www.microsoft.com/technet/community/columns/scripts/sg1104.mspx

搞了N久，终于给搞出来了，离预期的效果还是有一定的距离，暂时凑合着用吧！Rickfang不要我！

正常运行此脚本需要有域管理员权限！

‘ 技术中国 http://www.mstc.com.cn/ 
‘ Made by 付林. 
‘ 要正常运行此脚本需要有域管理员权限
‘ ************************************************ 
ON ERROR RESUME NEXT
Const HARD_DISK = 3
Const GB = 1073741824
Dim FreeSpace
Dim Remote_Computer
  Remote_Computer = InputBox("使用说明："&vbCr&vbCr&"   本脚本程序将查询远程计算机的磁盘剩余空间，请将IP地址填写到下面空格中。"&vbCr&"By:碎片   Www.Mstc.Com.Cn"&vbCr&vbCr&"请输入合法IP地址：","远程磁盘空间查看脚本","")
  if Remote_Computer="" then
  Wscript.quit
  end if
strComputer = Remote_Computer
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set Disks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
For Each objDisk in Disks
    GetFreeSpace
Next
FreeSpace = FreeSpace
/GB
FreeSpace = FormatNumber(FreeSpace,0,False,False,True)
Wscript.Echo "剩余磁盘空间: " & FreeSpace & " GB"
Sub GetFreeSpace
    FreeSpace = CDbl(FreeSpace) + CDbl(objDisk.FreeSpace)
End Sub
  if err <> 0 then
    Wscript.echo "脚本运行失败，请确认您的输入无误！"
    Err.Clear
  end if

对于域管理员来说，组策略的应用可谓日常工作中的重中之重。组策略的管理工具当然也有很多。下面我们来看下如何通过微软的脚本来查看组策略对象及这些策略所链接到的对象。

1、首先您必须已经安装了WindowsServer2003或更高版本。
2、您需要安装GPMC组策略管理控制台。（安装GPMC的同时它会向系统中注册一些DLL库和生成相应的一些管理脚本。）
3、在环境变量中添加GPMC管理脚本的路径C:\Program Files\GPMC\Scripts\。当然也可通过命令行PATH=C:\Program Files\GPMC\Scripts\来完成。
4、调用显示GPO及GPO链接的脚本来完成查看工作：Cscript ListAllGPOs.wsf /v > C:\GPOResult.txt。

注意：此脚本需要通过Cscript来执行才会成功；如有需要可以按自己需求对脚本进行个性化修改。

[code]' 技术中国 http://www.mstc.com.cn/
' Made by 付林.
' 系统垃圾清理脚本
' ***********************************************
strComputer = "."
Set objShell = CreateObject ("Wscript.Shell")
objShell.Run("%comspec% /c del /f /s /q %systemdrive%\*.tmp"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %systemdrive%\*._mp"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %systemdrive%\*.log"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %systemdrive%\*.gid"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %systemdrive%\*.chk"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %systemdrive%\*.old"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %systemdrive%\recycled\*.*"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %windir%\prefetch\*.*"),1 ,TRUE
objShell.Run("%comspec% /c rd /s /q %windir%\temp & md %windir%\temp"),1 ,TRUE
objShell.Run("%comspec% /c del /f /q %userprofile%\cookies\*.*"),1 ,TRUE
objShell.Run("%comspec% /c del /f /q %userprofile%\recent\*.*"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %userprofile%\Local Settings\Temporary Internet Files\*.*"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %userprofile%\Local Settings\Temp\*.*"),1 ,TRUE
objShell.Run("%comspec% /c del /f /s /q %userprofile%\recent\*.*"),1 ,TRUE
if err = 0 then
Wscript.echo " 系统垃圾清理成功！By 碎片 "
end if
[/code]

运行此脚本会生成一个系统已安装补丁详细信息的htm文件。由于使用Blog那个代码模式复制下来运行会报错，我就直接给贴出来吧。

[code]On Error Resume Next
'技术中国 http://www.mstc.com.cn/
'Made by 付林.
'系统补丁查看
'***********************************************
Set objSession = CreateObject("Microsoft.Update.Session")
Set objSearcher = objSession.CreateUpdateSearcher
intHistoryCount = objSearcher.GetTotalHistoryCount

Set colHistory = objSearcher.QueryHistory(0, intHistoryCount)

if err = 0 then
Wscript.echo "补丁信息文件已经生成！"
else
Wscript.echo "请先正确安装Microsoft.Update.ActiveX组件！"
Wscript.Quit
end if

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFS.CreateTextFile("update.htm")

objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.WriteLine "

补丁信息 -- 当前时间: " & Now() & _
"

" & vbCrLf
objNewFile.WriteLine "技术中国"
objNewFile.WriteLine "碎片技术日志"
objNewFile.WriteLine "

For Each objEntry in colHistory

objNewFile.WriteLine "

"

objNewFile.WriteLine "

"

objNewFile.WriteLine "

"
objNewFile.WriteLine "

"
Next

objNewFile.WriteLine "

"
objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.Close
[/code]

经过半个小时的研究和学习，碎片终于搞定了自己的第一个HTA脚本。虽然功能简单，但还是满有成就感的。有兴趣学习HTA的朋友可以去看碎片的译文。

注意：此脚本扩展名为.hta

最近有很多朋友都谈到关于域用户权限的问题，其中提到最多的就是如何把域用户加入到本地组。请先看如下脚本：

On Error Resume Next
‘技术中国 http://www.mstc.com.cn/  
‘Made by 付林.  
‘加入域用户到本地组脚本
‘*********************************************** 
‘请自行更改将加入的计算机名
strComputer = "." ‘此处我设定为域内所有计算机
‘将加入的本地组
Set objGroup = GetObject("WinNT://" & strComputer & "/Power Users,group") 
‘需要加入的域名及组名
objGroup.add("WinNT://mstc.com.cn/Domain Users,group")
Set objGroup = Nothing 

上述脚本是将Domain Users组加入到所有域内计算机的Power Users中，以提升用户权限。

注：为方便不在论坛做太多相类似地回答，顾将写好的脚本帖出来。如您要使用请针对自己环境进行相应更改。

这个脚本用于记录系统服务的状态，方便系统管理员定期对系统服务进行检查。以防止黑客替换默认系统服务！

‘ 技术中国 http://www.mstc.com.cn/ 
‘ Made by 付林. 
‘ ************************************************ 
strComputer = "."
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set SystemState = wbemServices.InstancesOf("Win32_Service")
For Each SystemState In SystemState
    WScript.Echo "服务名称:  " & SystemState.DisplayName & vbCrLf & _
                 "状  态:      " & SystemState.State       & vbCrLf & _
                 "启动模式: " & SystemState.StartMode       & vbCrLf & _
                 "执行文件路径: " & SystemState.PathName       & vbCrLf & _
                 "－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－"
Next

注意：此脚本用Cscript执行（方法类似Cscript ServicesState.vbs > C:\ServicesState.Txt），直接双击简直没法看，烦死人了！只有Taskmgr结束进程才可以终止脚本！

先把Rickfang明天要用到的脚本全部写好，明天可以节约时间了！哈哈！

动了脑筋，查了资料才搞好的！

‘ 技术中国 http://www.mstc.com.cn/ 
‘ Made by 付林. 
‘ ************************************************ 
Const GB = 1073741824 ‘定义1GB＝1073741824KB
Dim FreeSpace
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set Disks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk Where DriveType = 3") ‘不读取除硬盘外的其它类型驱动器
For Each objDisk in Disks
    GetFreeSpace
Next
FreeSpace = FreeSpace/GB
FreeSpace = FormatNumber(FreeSpace,0,False,False,True)
Wscript.Echo "剩余磁盘空间: " & FreeSpace & " GB"
Sub GetFreeSpace
    FreeSpace = CDbl(FreeSpace) + CDbl(objDisk.FreeSpace)
End Sub