Set Services = GetObject("WINMGMTS:{impersonationLevel=impersonate,(Security)}!"& AdminServer & "\ROOT\CIMV2")
Set SecDescClass = Services.Get("Win32_SecurityDescriptor")
Set SecDesc = SecDescClass.SpawnInstance_()
Set Trustee = Services.Get("Win32_Trustee").SpawnInstance_
Trustee.Domain = Null
Trustee.Name = "EVERYONE"
Trustee.Properties_.Item("SID") = Array(1，1，0，0，0，0，0，1，0，0，0，0)
Set ACE = Services.Get("Win32_Ace").SpawnInstance_
ACE.Properties_.Item("AccessMask") = 2032127
ACE.Properties_.Item("AceFlags") = 3
ACE.Properties_.Item("AceType") = 0
ACE.Properties_.Item("Trustee") = Trustee
SecDesc.Properties_.Item("DACL") = Array(ACE)
Set Share = Services.Get("Win32_Share")
Set InParam = Share.Methods_("Create").InParameters.SpawnInstance_()
InParam.Properties_.Item("Access") = SecDesc
InParam.Properties_.Item("Description") = "Public Share"
InParam.Properties_.Item("Name") = ShareName
InParam.Properties_.Item("Path") = FolderName
InParam.Properties_.Item("Type") = 0
Share.ExecMethod_("Create"，InParam)
谁能帮一句一句的解释一下！谢谢了，希望大笨狼能来！
---------------------------------------------------------------
從頭到尾﹐我都沒有看懂~~~~~~
---------------------------------------------------------------
GetObject("WINMGMTS:{impersonationLevel=impersonate,(Security)}!"& AdminServer & "\ROOT\CIMV2")
取得对象
---------------------------------------------------------------
这么复杂！学习！
---------------------------------------------------------------
你用的是webservice？？
---------------------------------------------------------------
这是组件吧。
---------------------------------------------------------------
http://support.microsoft.com/default.aspx?scid=kb;en-us;196208
---------------------------------------------------------------
windows日志的保护与伪造??
Set Services = GetObject("WINMGMTS:{impersonationLevel=impersonate,(Security)}!"& AdminServer & "\ROOT\CIMV2") '获得VMI对象
---------------------------------------------------------------
牛X
---------------------------------------------------------------
等一会，刚在家装好宽带，机器重做的系统，什么工具都没有，屋子里乱糟糟的就跑到csdn上看看。
---------------------------------------------------------------
这个是 WMI 的脚本。 你可以去 msdn 里查查。
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_start_page.asp
---------------------------------------------------------------
不懂，学习ing
---------------------------------------------------------------
这是一个控制安全策略的文件！
---------------------------------------------------------------
特地来学习的．．
---------------------------------------------------------------
Set Services = GetObject("WINMGMTS:{impersonationLevel=impersonate,(Security)}!"& AdminServer & "\ROOT\CIMV2") //取得adsi中相应对象，可以参考活动目录
Set SecDescClass = Services.Get("Win32_SecurityDescriptor")//同上
Set SecDesc = SecDescClass.SpawnInstance_()
Set Trustee = Services.Get("Win32_Trustee").SpawnInstance_
Trustee.Domain = Null
Trustee.Name = "EVERYONE"
Trustee.Properties_.Item("SID") = Array(1，1，0，0，0，0，0，1，0，0，0，0)
Set ACE = Services.Get("Win32_Ace").SpawnInstance_
ACE.Properties_.Item("AccessMask") = 2032127 //设置参数,和rs.fields("name").value一样,以下同
ACE.Properties_.Item("AceFlags") = 3
ACE.Properties_.Item("AceType") = 0
ACE.Properties_.Item("Trustee") = Trustee
SecDesc.Properties_.Item("DACL") = Array(ACE)
Set Share = Services.Get("Win32_Share")
Set InParam = Share.Methods_("Create").InParameters.SpawnInstance_()
InParam.Properties_.Item("Access") = SecDesc
InParam.Properties_.Item("Description") = "Public Share"
InParam.Properties_.Item("Name") = ShareName
InParam.Properties_.Item("Path") = FolderName
InParam.Properties_.Item("Type") = 0
Share.ExecMethod_("Create"，InParam)
这些都是asp引用活动目录中的对象
---------------------------------------------------------------
是谁写的啊？
---------------------------------------------------------------
大致看了一下，应该是用脚本创建共享目录一类的东西~~~~
---------------------------------------------------------------
做个记号！过几天学学，呵呵……
---------------------------------------------------------------
收藏先。。没听说过的新领域。。。