testei seu script mas o mesmo não funcionou!!
não se fiz algo de errado nas alterações, porem acho que não
vou te passar como ficou
Function fncPegarOU()
Dim oConnection, oCommand, oRecordSet, sVlr, sPos, oWinNT, oNetwork
Set oNetwork = CreateObject("Wscript.Network")
Set oWinNT = GetObject("WinNT://xyz.com.br/" & oNetwork.UserName & ",user")
sUser = oWinNt.FullName
Set oWinNT = Nothing
Set oConnection = CreateObject("ADODB.Connection")
Set oCommand = CreateObject("ADODB.Command")
oConnection.Provider = "ADsDSOObject"
oConnection.Open "Active Directory Provider"
Set oCommand.ActiveConnection = oConnection
oCommand.CommandText = "Select ADsPath from 'LDAP://DC=xyz,DC=com,DC=br' where objectClass='user' and name='" & sUser & "'"
oCommand.Properties("Page Size") = 1000
oCommand.Properties("Timeout") = 30
oCommand.Properties("Cache Results") = False
Set oRecordSet = oCommand.Execute
If not oRecordSet.EOF Then
sVlr = oRecordSet.Fields("ADsPath").Value
sPos = InStr(sVlr,",DC=xyz,DC=com,DC=br")
fncPegarOU = LCase(Mid(sVlr, Len(sUser) + 24, sPos - (Len(sUser) + 24)))
Else
fncPegarOU = ""
End If
Set oRecordSet = Nothing
Set oCommand = Nothing
Set oConnection = Nothing
End Function
'WScript.Echo oConnection
'WScript.Echo oCommand
'WScript.Echo oRecordSet
'WScript.Echo oRecordSet
'WScript.Echo sVlr
'WScript.Echo sPos
'WScript.Echo oWinNT
'WScript.Echo oNetwork
Select Case fncPegarOU()
Case "teste"
WScript.Echo "Funcionando"
' Case "y"
'yyyyyyyyyy
End Select
Eu até dei um echo nas variáveis pra ver eles retornavam o valor correspondentes a elas, mais não retornaram nenhum valor.
se vc poder rever o código ou meu erro eu ficarei grato!
