lzy821218的博客_VBS脚本

使用VBScript和ADSI

ADSI（活动目录服务接口）简化了目录允许应用程序的开发工作。在安装了Windows Script Host（Windows脚本容留）后，批量目录操作可以使用VBScript或Jscript?开发软件编写脚本。在本指南中，我们可以使用简单的VBScript应用程序完成前一节中描述的过程（该过程使用的是LDIF）。请注意，这些脚本并不包含任何错误检查，而且也不打算提供VBScript和ADSI的程

职场

使用

休闲

ADSI

VBScript

转载精选 2010-02-03 15:30:20 819 阅读

显示本地所有的组名称

Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Set colAccounts = GetObject("WinNT://" & strComputer & "") colAccounts.Filter = Array("group") For Each o

职场

休闲

名称

原创 2010-02-02 18:08:10 421 阅读

批量建用户账户并将新建账户加入到特定组中

Dim arrFileLines() ,n i = 0 Const ForReading = 1 strInputFile="C:\BAU_Users.txt" '需要建立用户账户所在的文件 Set FSO=CreateObject("Scripting.FileSystemObject") Set objFile=FSO.OpenTextFile(strInp

职场

账户

用户

批量

休闲

转载精选 2010-02-02 18:07:03 923 阅读

显示文件的路径vbs脚本

For Each a In WScript.Arguments s = s & a & vbCrLf Next MsgBox s 将需要查看的文件拖放到此脚本文件上，即可看到效果！

文件

路径

脚本

休闲

vbs

转载精选 2010-02-02 18:05:27 1119 阅读

将OA系统添加到IE受信任站点的vbs脚本

Set objFSO = CreateObject("Scripting.FileSystemObject") Set WSHShell = CreateObject("WScript.Shell") on Error resume next WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion

系统

脚本

休闲

站点

vbs

原创 2010-02-02 18:03:04 2511 阅读

查找某月删除的账户信息

On Error Resume Next strComputer = "dl-ex-01" Set OperationRegistry=WScript.CreateObject("WScript.Shell") DesktopPath=OperationRegistry.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentV

职场

删除

账户

休闲

原创 2010-02-02 18:01:03 589 阅读

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

'on error resume next Dim WMI Dim sAns Dim Computer strComputer = InputBox("Enter Full Device Name", "Getting your Infos") '------------------------------------------------------------------- Set WM

脚本

休闲

计算机硬件

vbs

获取

原创 2010-02-02 17:59:56 1908 阅读 1点赞 1收藏 1评论

关闭本地计算机

Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Win32Shutdown

职场

计算机

休闲

原创 2010-02-02 17:58:30 452 阅读

重启远程或者本地计算机

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

职场

计算机

休闲

原创 2010-02-02 17:57:54 552 阅读

计算机名称和LDAP信息显示

Dim WshNetwork Dim strComputer Set WshNetwork = WScript.CreateObject("WScript.Network") strComputer = WshNetwork.ComputerName Wscript.Echo strComputer Dim oADSystemInfo Dim strUserDN Dim objUse

职场

计算机

休闲

名称

LDAP

原创 2010-02-02 17:56:23 853 阅读

AD用户的密码过期通知（可指定OU)的VBS脚本

Const HOSTING_OU = "ou=dl,ou=City" Const SMTP_SERVER = "10.15.0.10" Const STRFROM = "test@51cto.com" Const DAYS_FOR_EMAIL = 7 ' System Constants - do not change Const ONE_HUNDRED_NANOSECOND = .000000

密码

脚本

通知

VBS

过期

原创 2010-02-02 17:55:43 2468 阅读 4评论

获取主机名和域用户显示名称

strComputer = "." Dim WshNetwork Dim strComputer Set WshNetwork = WScript.CreateObject("WScript.Network") strComputer = WshNetwork.ComputerName Wscript.Echo strComputer Dim oADSystemInfo Dim strUserD

主机

用户

休闲

名称

获取

原创 2010-02-02 17:49:21 1118 阅读 4评论

用批处理文件删除n天前的文件用批处理实现的保留最近的n个文件

dir *.log /O:-D >dir.txt 按时间排序（从後到先）并输入到dir.txt文件 for /F "skip=n tokens=4" %%a in (dir.txt) do @if exist %%a echo %%a 取dir.txt文件中第4列，如果存在就显示出来！如果要删除，将echo 换成 del 即可！ skip=n 重

职场

批处理

删除

文件

休闲

转载精选 2010-02-02 17:47:25 1082 阅读

显示隐藏文件和扩展名

Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.RegWrite "HKCR\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\CLSID", "{13709620-C279-11CE-A49E-444553

职场

隐藏

扩展名

文件

休闲

原创 2010-02-02 17:37:50 792 阅读

禁用IE代理的脚本

On Error Resume Next Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Micros

职场

脚本

代理

休闲

原创 2010-02-02 17:28:09 640 阅读 1点赞 1评论

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

on Error resume Next strComputer = "." Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user") objUser.SetPassword "win2008@" &nb

管理员

密码

职场

脚本

休闲

原创 2010-02-02 17:19:42 799 阅读

监控SQUID服务是否运行脚本

Set Wshell=WScript.CreateObject("WScript.Shell") do dim OK squid = False set bag=getobject("winmgmts:\\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='squid.exe'") For E

运行

服务

脚本

SQUID

休闲

原创 2010-02-02 16:44:02 525 阅读

网络联通性测试

Dim objEmail Dim strMachines,aMachines,machine Dim objPing,objStatus,objws Dim connect,unconnect Do Machine="202.96.64.68" &nb

网络

职场

联通

休闲

原创 2010-02-02 16:40:50 900 阅读

允许IE跨域访问

1、VBS篇 Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objReg = GetObject("winmgmts:" &"{impersonationLevel=impersonate}\\"&strComputer _& "\root\default:StdRegProv")

职场

访问

休闲

原创 2010-02-02 16:25:08 1564 阅读

删除文件服务器上的过期文件、特定类型文件、目录大小为零的空文件夹

Dim fso, startFolder, OlderThanDate Set fso = CreateObject("Scripting.FileSystemObject") 'startFolder = "D:\IISLogTest\" startFolder = "D:\IISLogTest\" bkfolder = "D:\no\backup\" OlderThan

服务器

文件

类型

过期

原创 2010-02-02 16:19:47 772 阅读

超强的盘柜监控

本贴原自：http://5ydycm.blog.51cto.com/115934/126758 [背景]公司最近HP盘柜出了几次问题，与其交涉也没得到很好的解决，为此让我们用脚本来监控日志，经观察日志，发现出现Source name为Ftdisk 出现盘柜丢失!为此，我就以这个关键字为基础，写了一个WMI脚本! 这个脚本有几个作用： (1)拒绝重复发邮件(一个开关文件status.txt) (2)

职场

休闲

盘柜

转载精选 2010-02-02 14:36:47 224 阅读

结束特定进程脚本

strComputer="." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='WScript.exe' ")

职场

进程

脚本

结束

休闲

原创 2010-02-02 14:32:27 692 阅读

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

1、On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") strUserPath = "LDAP://" & objSysInfo.UserName S

网络

驱动器

映射

用户

休闲

转载精选 2010-02-02 13:17:25 1141 阅读

官方博客	全部文章	热门标签	班级博客
了解我们	网站地图	意见反馈

鸿蒙开发者社区	51CTO学堂
51CTO	软考资讯

51CTO博客

lzy821218