De VB .NET a VBSCRIPT Holas
necesito pasar un codigo de VB.net a VBSCRIPT para una particularidad que me pidieron en mi empresa, este es el codigo en VB.net:
Dim current As System.Security.Principal.WindowsIdentity = System.Security.Principal.WindowsIdentity.GetCurre nt()
Dim objDirectoryEntry As New DirectoryServices.DirectoryEntry("LDAP://DC=MIDOMINIO,DC=cl")
Dim objDirectorySearcher As New DirectoryServices.DirectorySearcher(objDirectoryEn try)
Dim objSearchResult As DirectoryServices.SearchResult
Dim user(), usuario As String
user = Split(current.Name, "\")
usuario = user(1)
Try
objDirectorySearcher.Filter = "(SAMAccountName=" & usuario & ")"
objSearchResult = objDirectorySearcher.FindOne()
Dim myKey, datos(), data(), UO As String
Dim myResultPropColl As DirectoryServices.ResultPropertyCollection
myResultPropColl = objSearchResult.Properties
For Each myKey In myResultPropColl.PropertyNames
Dim tab1 As String = " "
Dim myCollection As Object
For Each myCollection In myResultPropColl(myKey)
Dim ss As String
ss = myKey
If ss = "managedobjects" Then
datos = Split(myCollection.ToString, ",")
data = Split(datos(0), "=")
TextBox1.Text += data(1)
End If
Next myCollection
Next myKey
Catch ex As Exception
TextBox1.Text = "ERROR"
End Try
Lo que hace este codigo es rescatar los datos del dominio de un usuario particular
Si alguien sabe como puedo ejecutar esto como VBSCRIPT se lo agradeceria...
Saludos
