代码搜索:GetObject
找到约 680 项符合「GetObject」的源代码
代码结果 680
www.eeworm.com/read/104928/15681286
vbs sol16-19a.vbs
'get a reference to a container to remove object from
Set objContainer = _
GetObject("LDAP://odin/cn=Recipients,ou=Office,o=Acme"
'delete an object
objContainer.Delete "organizationalPerson"
www.eeworm.com/read/104928/15681287
vbs sol16-6b.vbs
Dim objMember, objGroup
'get a reference to a group object list
Set objGroup = _
GetObject("LDAP://cn=AG,cn=Users,dc=c3i,dc=com")
objGroup.MailEnable
objGroup.SetInfo
www.eeworm.com/read/104928/15681288
vbs sol16-4b.vbs
'get user Fred Smith
Set objUser = GetObject("LDAP://cn=Fred Smith,cn=Users,dc=acme,dc=com")
'mail enable user with a Internet SMTP address
objUser.MailEnable "smtp:freds@hotmail.com"
'update set
www.eeworm.com/read/104928/15681292
vbs sol16-19b.vbs
Set objUser = GetObject("LDAP://cn=Fred,cn=Users,dc=c3i,dc=com")
objUser.DeleteMailbox
objUser.SetInfo
www.eeworm.com/read/104928/15681296
vbs sol16-17a.vbs
Dim objMember, objDL
'get a reference to a distribution list
Set objDL = _
GetObject("LDAP://odin/cn=acctusers,cn=Recipients,ou=Office,o=Acme")
For Each objMember In objDL.Members
Wscr
www.eeworm.com/read/104928/15681300
vbs page699.vbs
'get a reference to the group object you want to disable
Set objGroup = GetObject("LDAP://cn=AGROUP,cn=Users,dc=c3i,dc=com")
objGroup.MailDisable
objGroup.SetInfo
www.eeworm.com/read/104928/15681301
vbs page687.vbs
'get contact Joe Smith
Set objUser = GetObject("LDAP://cn=Joe SmithCX,ou=Contacts,dc=acme,dc=com ")
'change the target address
objUser.TargetAddress = "joesmith@hotmail.com"
objUser.SetInfo
www.eeworm.com/read/104928/15681304
vbs sol16-3b.vbs
Set objMailbox = GetObject("LDAP://cn=Fred Smith,cn=Users,dc=acme,dc=com")
'set mailbox storage quota to 2 megabytes
objMailbox.StoreQuota = 2000
objMailbox.SetInfo
www.eeworm.com/read/104928/15681306
vbs sol16-17b.vbs
Dim objMember, objGroup
'get a reference to a group object list
Set objGroup = _
GetObject("LDAP://cn=A Group,cn=Users,dc=acme,dc=com")
'enumerate the group objects
For Each obj
www.eeworm.com/read/104928/15681352
vbs sol9-1.vbs
On Error Resume Next
'attempt to get an existing running copy of Word
Set objWord = GetObject(, "Word.Application")
'if error occurred, then couldn't find Word, create new instance
If Err Then