首页 软件列表

首页

vbs下用一个小方法实现批量添加域用户

2020-02-16 标签:vbs,小方,实现,批量,添加,用户,代码,如下,set,adsou,getobject,ldap,cn,users,dc,hzcncter,local,const

实现代码如下:set adsou=getobject("ldap://cn=users,dc=hzcncter,dc=local") const forreading = 1 set objfso = createobject("scripting.filesystemobject") set ob

首页

文件备份vbs脚本

2020-02-16 标签:文件,备份,vbs,脚本,objs,c,aaa,支持,unc,路径,objd,d,自行,修改,上面,set,objshell,scripting

objs = "c:\aaa\*" '支持UNC路径 objd = "d:\aaa\" '请自行修改上面两个路径 Set objshell = CreateObject("Scripting.FileSystemObject") objshell.CopyFolder(Objs,objD) '当文件

首页

vbs实现计算机重启

2020-02-16 标签:vbs,实现,计算机,重启,dim,return,set,r,wscript,shell,msgbox,确定,起计,vbokcancel,注意

Dim return Set R = CreateObject("WScript.Shell") return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意!") If return=vbok Then R.run("Shutdown.exe

vbs复制文件的脚本
首页

vbs复制文件的脚本

2020-02-16 标签:vbs,复制,文件,脚本,实现,代码,如下,c,sourcefile,windows,log,date,set,objshell,shell,application,objfolder

实现代码如下:parentfolder = "c:\" sourcefile = "c:\windows\log.log" targetfolder = parentfolder & date & "\" set objshell = createobject("shell.appl

首页

vbs下通过日期查找文件夹的代码

2020-02-16 标签:vbs,通过,日期,查找文件,代码,error,resume,next,000000,420,strcomputer,set,getobject,winmgmts,root,cimv

On Error Resume Next dtmTargetDate = "20020301000000.000000-420" strComputer = "." Set objWMIService = GetObject _("winmgmts:" & "!\\" & strCo

首页

vbscript 注册表脚本书写

2020-02-16 标签:vbscript,注册表,脚本,书写,wscript,echo,enabling,kerberos,logging,const,hkey,local,machine,h,80000002,strcomputer,set,stdout,oreg,getobject

WScript.Echo "Enabling Kerberos Logging..." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject

首页

vbs之使用Internet Explorer 屏蔽密码

2020-02-16 标签:vbs,使用,internet,explorer,屏蔽,密码,实现,代码,如下,set,objexplorer,wscript,application,ie,navigate,file,c,scripts

实现代码如下:Set objExplorer = WScript.CreateObject _("InternetExplorer.Application", "IE_")objExplorer.Navigate "file:///c:\scripts\password.htm"objExplore

首页

用vbs检查注册表项的访问权限的代码

2020-02-16 标签:vbs,检查,注册表,访问,权限,代码,const,key,query,value,h,0001,set,0002,create,sub,0004,delete,00010000

const KEY_QUERY_VALUE = &H0001 const KEY_SET_VALUE = &H0002 const KEY_CREATE_SUB_KEY = &H0004 const DELETE = &H00010000 const HKEY_LOC

首页

vbs删除注册表项的代码

2020-02-16 标签:vbs,删除,注册表,代码,wscript,echo,enabling,kerberos,logging,const,hkey,local,machine,h,80000002,strcomputer,set,oreg,getobject

WScript.Echo "Enabling Kerberos Logging..." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLev

首页

vbs实现恢复暂停的自动启动服务的脚本

2020-02-16 标签:vbs,实现,恢复,暂停,自动,启动,服务,脚本,strcomputer,set,getobject,winmgmts,impersonate,root,cimv,execquery

strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set c