De VB .NET a VBSCRIPT

[el mago de oz]

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