📄 sol16-6a.vbs
字号:
Dim objContainer, objDL
Dim strDisplayName, strAlias, strSMTPAddr
Set objContainer = GetObject("LDAP://odin/CN=Recipients,OU=Office,o=Acme")
'create a new distribution list
Set objDL = objContainer.create("groupOfNames", "cn=Acctusers")
'Set distribution properties
objDL.cn = "Accounting Users" 'display name
objDL.uid = "Acctusers" 'alas
objDL.mail = "Acctusers@acme.com" ' default SMTP address
'X.400 address
objDL.textEncodedORaddress = _
"c=US;a= ;p=HeadOffice;o=Acme;s=Acctusers"
objDL.SetInfo
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -