标签：
Option Explicit
'WDP_Control.CurrentStatus
const WDP_ACTIVE = 0
const WDP_PASSIVE = 1
'WDP_Control.CurrentMode
const WDP_MODE_DISCARD = 0 '在重新启动时删除所有更改
const WDP_MODE_PERSIST = 1
const WDP_MODE_COMMIT = 2 '永久保留所有更改
Dim objSWbemLocator
Set objSWbemLocator=CreateObject("WbemScripting.SWbemLocator")
Dim objSWbemServices
Set objSWbemServices=objSWbemLocator.ConnectServer(".","root\WMI")
Dim objSWbemObjectSet
Set objSWbemObjectSet=objSWbemServices.InstancesOf("WDP_CONTROL")
'读取CurrentStatus 属性
Dim CurrentStatus
Dim objSWbemObjectWDP
For Each objSWbemObjectWDP In objSWbemObjectSet
CurrentStatus=objSWbemObjectWDP.CurrentStatus
Next
'只有 CurrentStatus 属性是 WDP_ACTIVE，才能应用 CurrentMode 属性。
If WDP_ACTIVE=CurrentStatus Then
For Each objSWbemObjectWDP In objSWbemObjectSet
objSWbemObjectWDP.CurrentMode=WDP_MODE_COMMIT
'SWbemObject的Put_方法将属性更新到WMI中去
objSWbemObjectWDP.Put_
Next
MsgBox "成功设置为“永久保留所有更改”状态。",48,"提示"
Else
MsgBox "没有打开磁盘保护功能！"
End If
'备注：Scripting API Objects中的每个类都包含缩写Wbem，Wbem是一项规范企业网络中受管资源的描述与使用的业界倡议，是Web-Based Enterprise Management的简写，实际上WBEM就是针对于计算机设备的一种管理标准，WMI算是微软的Windows在Wbem方面的一个具体实现。
通过WMI脚本来操作SteadyState，将磁盘保护功能设置为“永久保留所有更改”
标签：
原文地址：http://www.cnblogs.com/dgx/p/5491526.html
