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
Respuesta: De VB.NET a VBSCRIPT 
