几段非常有用的脚本（来自微软网站,由downmoon精心收集）
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 几段非常有用的脚本（来自微软网站,由downmoon精心收集） 一、在网络硬件故障或网络故障断开时发送警告 复制代码 代码如下: strComputer="." SetobjWMIService=GetObject("winmgmts:"&strComputer&"ootwmi") SetcolMonitoredEvents=objWMIService.ExecNotificationQuery_ ("Select*fromMSNdis_StatusMediaDisconnect") DoWhileTrue SetstrLatestEvent=colMonitoredEvents.NextEvent Wscript.Echo"Anetworkconnectionhasbeenlost:" WScript.EchostrLatestEvent.InstanceName,Now Wscript.Echo Loop 调用方法示例：cscript网络断开.vbs>>F:\test\微软脚本\log.txt 二、在网络硬件连接成功或网络故障恢复连接时发送警告 复制代码 代码如下: strComputer="." SetobjWMIService=GetObject("winmgmts:"&strComputer&"ootwmi") SetcolMonitoredEvents=objWMIService.ExecNotificationQuery_ ("Select*fromMSNdis_StatusMediaConnect") DoWhileTrue SetstrLatestEvent=colMonitoredEvents.NextEvent Wscript.Echo"Anetworkconnectionhasbeenmade:" WScript.EchostrLatestEvent.InstanceName,Now Wscript.Echo Loop 调用方法示例：cscript网络连接.vbs>>F:\test\微软脚本\log.txt 三、获取所有域用户信息 复制代码 代码如下: ConstADS_SCOPE_SUBTREE=2 SetobjConnection=CreateObject("ADODB.Connection") SetobjCommand=CreateObject("ADODB.Command") objConnection.Provider="ADsDSOObject" objConnection.Open"ActiveDirectoryProvider" SetobjCOmmand.ActiveConnection=objConnection objCommand.CommandText=_ "SelectName,Locationfrom''LDAP://DC=DomainName,DC=com''"_ &"WhereobjectClass=''computer''" objCommand.Properties("PageSize")=1000 objCommand.Properties("Searchscope")=ADS_SCOPE_SUBTREE SetobjRecordSet=objCommand.Execute objRecordSet.MoveFirst DoUntilobjRecordSet.EOF Wscript.Echo"ComputerName:"&objRecordSet.Fields("Name").Value Wscript.Echo"Location:"&objRecordSet.Fields("Location").Value objRecordSet.MoveNext Loop 调用方法示例：cscript域用户信息.vbs>>F:\test\微软脚本\域用户信息.txt 四、修改文本文件内容 复制代码 代码如下: ConstForReading=1 ConstForWriting=2 SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjTextFile=objFSO.OpenTextFile("sample.ini",ForReading) DoUntilobjTextFile.AtEndOfStream strNextLine=objTextFile.Readline intLineFinder=InStr(strNextLine,"UserName") IfintLineFinder<>0Then strNextLine="UserName=邀月工作室" EndIf strNewFile=strNewFile&strNextLine&vbCrLf Loop objTextFile.Close SetobjTextFile=objFSO.OpenTextFile("sample.ini",ForWriting) objTextFile.WriteLinestrNewFile objTextFile.Close 调用方法示例：ModifyFile.vbs 附件: Sample.ini: 复制代码 代码如下: [OEMInstall] ProgGroupName= DefaultDestDir= UserName= UserCompanyName= UserSerialNumber= 五、通过脚本发送电子邮件 从安装了SMTPService的计算机中发送电子邮件的脚本。 脚本代码 复制代码 代码如下: SetobjEmail=CreateObject("CDO.Message") objEmail.From="monitor1@fabrikam.com" objEmail.To="admin1@fabrikam.com" objEmail.Subject="Atl-dc-01down" objEmail.Textbody="Atl-dc-01isnolongeraccessibleoverthenetwork." objEmail.Send 调用方法示例：SendMail.vbs 六、在没有SMTPService的条件下发送电子邮件 脚本设计用来在Microsoft的公司网络上进行工作。 复制代码 代码如下: SetobjEmail=CreateObject("CDO.Message") objEmail.From="admin1@fabrikam.com" objEmail.To="admin2@fabrikam.com" objEmail.Subject="Serverdown" objEmail.Textbody="Server1isnolongeraccessibleoverthenetwork." objEmail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 objEmail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/smtpserver")=_ "smarthost" objEmail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 objEmail.Configuration.Fields.Update objEmail.Send 调 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于几段非常有用的脚本（来自微软网站,由downmoon精心收集）的所有评论
