随笔分类 -  vb

LDAP获取AD信息
摘要：Public Sub getMyGroup() On Error Resume Next intRow = 18 intCol = 4 On Error Resume Next Set objADSysInfo = CreateObject("ADSystemInfo") strUser = obj 阅读全文
posted @ 2022-02-18 11:15 CrossPython 阅读(41) 评论(0) 推荐(0)
vb cllection
摘要：Sub test()' Dim s As Collection '定义s变量为集合对象' Set s = New Collection '初始化集合对象s (否则无法使用) Dim s As New Collection '推荐这句代码，直接初始化，可以不用再Set了 '集合s中添加元素的方法 Fo 阅读全文
posted @ 2021-09-12 10:05 CrossPython 阅读(74) 评论(0) 推荐(0)