RosettaCodeData/Task/Active-Directory-Connect/VBScript/active-directory-connect.vb

5 lines
137 B
VB.net
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
Set objConn = CreateObject("ADODB.Connection")
Set objCmd = CreateObject("ADODB.Command")
objConn.Provider = "ADsDSOObject"
objConn.Open