lzy821218的博客_VBS脚本原创博文

显示本地所有的组名称

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 432 阅读

将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 2630 阅读

查找某月删除的账户信息

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 661 阅读

获取远程计算机硬件信息的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 2023 阅读 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 469 阅读

重启远程或者本地计算机

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

职场

计算机

休闲

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

计算机名称和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 925 阅读

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 2619 阅读 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 1203 阅读 4评论

显示隐藏文件和扩展名

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 796 阅读

禁用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 648 阅读 1点赞 1评论

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

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

管理员

密码

职场

脚本

休闲

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

监控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 532 阅读

网络联通性测试

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 911 阅读

允许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 1574 阅读

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

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 776 阅读

结束特定进程脚本

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 786 阅读

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

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

51CTO博客

lzy821218