- 博客(3)
- 资源 (7)
- 收藏
- 关注
原创 VBS使用SMTP协议发送邮件
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "[email protected]"Email.To = "[email protected]"Email.CC = "[email protected]"Email.Subject
2013-08-16 12:21:56 4995 2
原创 VBS获取当前登录的用户全名和邮件地址
Function GetEmail(strAccountName, strDomainName) Dim adoLDAPCon, _ adoLDAPRS, _ strLDAP Set adoLDAPCon = CreateObject("ADODB.Connection") adoLDAPCon.Provider = "ADsDSOObject" adoLDAPCon.Open "
2013-08-12 11:23:38 4062
原创 用VBS代码实现简单的场景恢复实例
Dim ErrTagErrTag = false Dim RecoveredTagRecoveredTag = falseFunction DemoComponent1 print "Enter component" If not ErrTag Then print "Start recovery" 'call recovery Recovery "DemoCompo
2013-08-07 11:17:59 1552
QTP_00600.EXE
2012-12-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人