¨Ï¥ÎªÌ
ºô¸ô§ì¨ú ¤£¹L¤£³q
'¤Þ¥Î Active DS Type Library
Dim MyNamespace As IADsOpenDSObject
Dim X
oUsername="MyUserName"
oPassword="MyPassword"
On Error GoTo CleanuUp
Set MyNamespace = GetObject("LDAP:")
Set X = MyNamespace.OpenDSObject("LDAP://192.168.xx.xx", oUserName, oPassword, ADS_SECURE_AUTHENTICATION)
'§ì¨Ï¥ÎªÌ
CleanUp:
MsgBox ("An error has occurred.")
Set MyNamespace = Nothing
Set X = Nothing |