代码搜索：GetObject

找到约 680 项符合「GetObject」的源代码

代码结果 680
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/104928/15681124

vbs sol14-3.vbs

Dim objDomain, objUser 'get a reference to a domain ojbect Set objDomain = GetObject("WinNT://Acme") 'filter on the user objects objDomain.Filter = Array("user") For Each objUser In objDomain
·
www.eeworm.com/read/104928/15681125

vbs sol14-1.vbs

Dim objDomain 'get a reference to the Acme domain Set objDomain = GetObject("WinNT://ACME") objDomain. MinPasswordLength = 6 objDomain.SetInfo
·
www.eeworm.com/read/104928/15681126

vbs sol14-4.vbs

'bind to a domain Set objDomain = GetObject("WinNT://ACME") 'create a new user
·
www.eeworm.com/read/104928/15681128

vbs sol14-14.vbs

Dim objGroup 'get the group to add objects to.. Set objGroup = GetObject("WinNT://Acme/Acctusers") objGroup.add "WinNT://Acme/freds,user" 'add a user objGroup.add "WinNT://Acme/joeb" 'add a an
·
www.eeworm.com/read/104928/15681129

vbs sol14-12a.vbs

Set objGroup = GetObject("WinNT://Acme/Domain Users,group") 'display name of each object in group For Each objUser In objGroup.Members Wscript.Echo objUser.Name Next
·
www.eeworm.com/read/104928/15681138

vbs sol14-21.vbs

'get the file service object Set objFileService = GetObject("WinNT://Odin/LanmanServer") Set objFileShare = objFileService.create("FileShare", "AcctData") objFileShare.Path = "d:\data\accounting"
·
www.eeworm.com/read/104928/15681139

vbs sol14-20.vbs

Dim objFileService, objSession 'get the file service object Set objFileService = GetObject("WinNT://Odin/LanmanServer") 'filter on file shares objFileService.Filter = Array("FileShare") 'loop
·
www.eeworm.com/read/104928/15681142

vbs page586.vbs

'get user Set objuser = GetObject("WinNT://acme/freds,user") 'get the login hours obj = objuser.LoginHours 'display data type Wscript.Echo Vartype(obj) 'try to enumerate array, an error wil
·
www.eeworm.com/read/104928/15681143

vbs sol14-6.vbs

'get a reference to user Set objUser = GetObject("WinNT://Acme/freds,user") 'set fullname and description properties objUser.FullName = "Fred Smith" objUser.Put "Description", "Accounting Manag
·
www.eeworm.com/read/104928/15681284

vbs page689.vbs

Dim objContainer, objMailbox 'get a reference to the Recipients container. Set objContainer = GetObject("LDAP://odin/CN=Recipients,OU=Office,o=Acme") 'set a filter on organizationalPerson objects
·