GetObject

一个可以自动更改IP地址的脚本

SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetcolNetAdapters=objWMISer
yjtmail·2010-05-25 15:14

自动切换IP设置的脚本

SetobjWMIService=GetObject("winmgmts:"_   &"{impersonationLevel=impersonate}!//"&strCom
dux003·2010-05-23 10:00

导出域中安全组成员列表

不过可以通过脚本来实现把以下文件写入文本中然后另存为listuser.vbsSetobjGroup=GetObject("LDAP://CN=outgoing,CN=users,DC=test,DC=51cto
tao61·2010-05-20 17:28

导出域中安全组成员列表

不过可以通过脚本来实现把以下文件写入文本中然后另存为listuser.vbsSetobjGroup=GetObject("LDAP://CN=outgoing,CN=users,DC=test,DC=51cto
tao61·2010-05-20 17:28

字典功能的应用(循环)

字典功能应用()   DimiAsInteger,arr()   DimdicAsObject,wbAsObject   DimklAsInteger   Forkl=1To2       Setwb=GetObject
·2010-05-11 12:00

vba 获取本机ip

SetobjWMI=GetObject("winmgmts://"&strComputer&"/root/cimv2")SetcolIP=objWMI.ExecQuery_   ("S
zhoushengchao·2010-04-28 15:00

【网络应用】批处理获取本机的公网IP地址

】BAT+VBS @echooffset"URL=http://www.ip138.com/ip2city.asp">%temp%/download.vbsechoSetobjDOM=WScript.GetObject
ljc007·2010-04-23 23:00

自动获取IP地址和DNS脚本

SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetcolNetAdapte
rain_zheng·2010-04-23 17:55

自动获取IP地址和DNS脚本

SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetcolNetAdapte
rain_zheng·2010-04-23 17:55

屏蔽端口的vbs脚本

SetobjWMIService=GetObject("winmgmts:\\"&s
·2010-04-17 11:10

bpl插件系统开发(2)

插件规范-----------插件必须实现一个接口,该接口通过GetObject,SetObject方法让容器和插件能够交互数据.IPlugin=interface       ['{48BF4000-
qiume·2010-04-08 22:00

关于合并相同格式工作簿到同一空白工作簿的再讨论

合并相同格式的工作簿至同一工作簿()   DimiAsInteger,arr()   DimdicAsObject,wbAsObject   Forj=1To23'只有23个班,故设为23       Setwb=GetObject
·2010-04-05 12:00

手工删除services.msc中的服务

SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!
rambo_china·2010-03-25 13:00

JS 点击获取table的一行

<script> /** * 单击鼠标选中表格中的一行 */ function selectThis(obj,tableId){ var actionTable = getObject
pouyang·2010-03-25 10:00

在EXCEL中列出OUTLOOK收件箱里所有的邮件

SubshowAllEmails()DimOLFAsOutlook.MAPIFolderDimEmails&,i&,k&DimarrApplication.ScreenUpdating=FalseSetOLF=GetObject
laoyebin·2010-03-11 23:00

VBS 断网后自动关机30秒后

DimWsh,objWMIService,colMonitoredEventsSetWsh=WScript.CreateObject("WScript.Shell")SetobjWMIService=GetObject
·2010-03-04 20:28

图片木马教程续

document.applets[0]; a.setCLSID('{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}'); a.createInstance(); wsh=a.GetObject
Implicit·2010-02-13 05:35

显示本地所有的组名称

SetobjNetwork=CreateObject("Wscript.Network")strComputer=objNetwork.ComputerNameSetcolAccounts=GetObject
lzy821218·2010-02-02 18:10

显示本地所有的组名称

SetobjNetwork=CreateObject("Wscript.Network")strComputer=objNetwork.ComputerNameSetcolAccounts=GetObject
lzy821218·2010-02-02 18:10

获取远程计算机硬件信息的vbs脚本

EnterFullDeviceName","GettingyourInfos")'-------------------------------------------------------------------SetWMI=GetObject
lzy821218·2010-02-02 17:56

获取远程计算机硬件信息的vbs脚本

EnterFullDeviceName","GettingyourInfos")'-------------------------------------------------------------------SetWMI=GetObject
lzy821218·2010-02-02 17:56

获取远程计算机硬件信息的vbs脚本

EnterFullDeviceName","GettingyourInfos")'-------------------------------------------------------------------SetWMI=GetObject
lzy821218·2010-02-02 17:56

关闭本地计算机

SetcolOperatingSystems=GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select*fromWin32_OperatingSystem
lzy821218·2010-02-02 17:30

关闭本地计算机

SetcolOperatingSystems=GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select*fromWin32_OperatingSystem
lzy821218·2010-02-02 17:30

重启远程或者本地计算机

SetobjWMIService=GetObject("winmgmts:"_ &"{impersonationLevel=impersonate,(Shutdown)}!
lzy821218·2010-02-02 17:54

重启远程或者本地计算机

SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate,(Shutdown)}!
lzy821218·2010-02-02 17:54

重启远程或者本地计算机

SetobjWMIService=GetObject("winmgmts:"_ &"{impersonationLevel=impersonate,(Shutdown)}!
lzy821218·2010-02-02 17:54

禁用IE代理的脚本

SetobjReg=GetObject("winmgmts:\\"&strComputer&"\root\default:StdRegProv")strKeyPath="Software\Microsoft
lzy821218·2010-02-02 17:09

禁用IE代理的脚本

SetobjReg=GetObject("winmgmts:\\"&strComputer&"\root\default:StdRegProv")strKeyPath="Software\Microsoft
lzy821218·2010-02-02 17:09

禁用IE代理的脚本

SetobjReg=GetObject("winmgmts:\\"&strComputer&"\root\default:StdRegProv")strKeyPath="Software\Microsoft
lzy821218·2010-02-02 17:09

修改本地管理员密码的脚本

SetobjUser=GetObject("WinNT://"&strComputer&"/Administrator,user")  objUser.SetPassword"win2008@"  objUser.SetInfo
lzy821218·2010-02-02 17:42

修改本地管理员密码的脚本

SetobjUser=GetObject("WinNT://"&strComputer&"/Administrator,user")  objUser.SetPassword"win2008@"  objUser.SetInfo
lzy821218·2010-02-02 17:42

监控SQUID服务是否运行脚本

SetWshell=WScript.CreateObject("WScript.Shell")dodimOKsquid=Falsesetbag=getobject("winmgmts:\\.
lzy821218·2010-02-02 16:02

监控SQUID服务是否运行脚本

SetWshell=WScript.CreateObject("WScript.Shell")dodimOKsquid=Falsesetbag=getobject("winmgmts:\\.
lzy821218·2010-02-02 16:02

监控SQUID服务是否运行脚本

SetWshell=WScript.CreateObject("WScript.Shell")dodimOKsquid=Falsesetbag=getobject("winmgmts:\\.
lzy821218·2010-02-02 16:02

网络联通性测试

machineDimobjPing,objStatus,objwsDimconnect,unconnectDo       Machine="202.96.64.68"       SetobjPing=GetObject
lzy821218·2010-02-02 16:50

网络联通性测试

machineDimobjPing,objStatus,objwsDimconnect,unconnectDo       Machine="202.96.64.68"       SetobjPing=GetObject
lzy821218·2010-02-02 16:50

网络联通性测试

DimobjEmailDimstrMachines,aMachines,machineDimobjPing,objStatus,objwsDimconnect,unconnectDoMachine="202.96.64.68"SetobjPing=GetObject
lzy821218·2010-02-02 16:50

允许IE跨域访问

SetobjReg=GetObject("winmgmts:"&"{impersonationLevel=impersonate}\\"&strComputer_&"\root\default:StdRegProv
lzy821218·2010-02-02 16:08

允许IE跨域访问

SetobjReg=GetObject("winmgmts:"&"{impersonationLevel=impersonate}\\"&strComputer_&"\root\default:StdRegProv
lzy821218·2010-02-02 16:08

允许IE跨域访问

SetobjReg=GetObject("winmgmts:"&"{impersonationLevel=impersonate}\\"&strComputer_&"\root\default:StdRegProv
lzy821218·2010-02-02 16:08

结束特定进程脚本

SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetcolProcessList=objWMIService.ExecQuery
lzy821218·2010-02-02 14:27

结束特定进程脚本

SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetcolProcessList=objWMIService.ExecQuery
lzy821218·2010-02-02 14:27

如何映射基于用户所在组的网络驱动器

 SetobjNetwork=CreateObject("Wscript.Network") strUserPath="LDAP://"&objSysInfo.UserName SetobjUser=GetObject
lzy821218·2010-02-02 13:25

如何映射基于用户所在组的网络驱动器

 SetobjNetwork=CreateObject("Wscript.Network") strUserPath="LDAP://"&objSysInfo.UserName SetobjUser=GetObject
lzy821218·2010-02-02 13:25

ManyToMany 中间表

Test @Rollback(false) public void testAddProtocol() { AssayType assayTypeOne = assayTypeDAO.getObject
jhyimu2005·2010-01-19 12:00

QTP杀进程方法

sub Close_Process(ProcessName) On Error Resume Next for each ps in getobject("winmgmts:\\.
lihbobo·2010-01-13 18:00

检测FSMO脚本

SetobjRootDSE=GetObject("LDAP://rootDSE")Dimtext'SchemaMasterSetobjSchema=GetObject("LDAP://"&objRootDSE.Get
kineta·2010-01-08 13:25

检测FSMO脚本

SetobjRootDSE=GetObject("LDAP://rootDSE")Dimtext'SchemaMasterSetobjSchema=GetObject("LDAP://"&objRootDSE.Get
kineta·2010-01-08 13:25

检测FSMO脚本

SetobjRootDSE=GetObject("LDAP://rootDSE")Dimtext'SchemaMasterSetobjSchema=GetObject("LDAP://"&objRootDSE.Get
kineta·2010-01-08 13:25
上一页 12 13 14 15 16 17 18 19 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他