Help with code conversion C# to VB

[Ty]

The top block is the original code (I have already tried automatic
convertors but they error everytime.) and the second block is what I
have done. At the end will be the line that has me stumped.

Function fnLDAPQuery($Wh at,Optional $From,Optional $Filter,Optiona l
$OrderBy,Option al $Scope,
Optional $User,Optional $Pswd)

Dim $oCon,$oCMD,$oR S,$sQ,$aR,$C,$R

$sQ="<"+Iif($Fr om="","LDAP://"+GetObject("LD AP://
rootDSE").Get(" defaultNamingCo ntext"),
$From)+">;"+$Fi lter
+";"+Iif(VarTyp e($What)>8192,J oin($What,','), $What)+";"+
Iif($Scope<>"ba se" AND $Scope<>"onelev el","subtree",$ Scope)

$oCon=CreateObj ect("ADODB.Conn ection")
$oCon.Provider= "ADsDSOObje ct"
$oCon.Propertie s("Encrypt Password").Valu e=1
$oCon.Propertie s("ADSI Flag").Value=1
If $User AND $Pswd
$oCon.Propertie s("User ID").Value=$Use r
$oCon.Propertie s("Password").V alue=$Pswd
EndIf
$oCon.Open("Act ive Directory Provider")

$oCMD=CreateObj ect("ADODB.Comm and")
$oCMD.ActiveCon nection=$oCon
$oCMD.CommandTe xt=$sQ
$oCMD.Propertie s("Page Size").Value=10 00
$oCMD.Propertie s("Timeout").Va lue=30
$oCMD.Propertie s("Cache Results").Value =0

If InStr($OrderBy, "distinguishedN ame")
$oRS=CreateObje ct("ADODB.Recor dset")
$oRS.CursorLoca tion=3
$oRS.Sort=$Orde rBy
$oRS.Open($sQ,$ oCon,0,1,1)
Else
If $OrderBy
$oCMD.Propertie s("Sort On").Value=$Ord erBy
EndIf
$oRS=$oCMD.Exec ute
EndIf
If @ERROR Exit @ERROR EndIf
If $oRS.BOF AND $oRS.EOF Exit @ERROR EndIf

$aR = $oRS.GetRows()
Dim $aFR[Ubound($aR,2),U bound($aR,1)]
For $R=0 to Ubound($aR,2)
For $C=0 to Ubound($aR,1)
$aFR[$R,$C]=$aR[$C,$R]
Next
Next

$fnLDAPQuery=$a FR
EndFunction
*************** *************** *************** *************** *************** *************** *************** *************** ************

Function fnLDAPQuery(Wha t As String, Optional From As String, Optional
Filter As String,Optional OrderBy As String,Optional Scope As
String,Optional User As String,Optional Pswd As String)

Dim oCon As ADODB.Connectio n
Dim oCMD As ADODB.Command
Dim oRS As ADODB.Recordset
Dim sQ As String
Dim aR As Array
Dim C As Integer
Dim R As Integer

sQ = "<" & IIf(From = "", "LDAP://" & GetObject("LDAP ://
rootDSE").Get(" defaultNamingCo ntext"), From) & ">;" & Filter & ";" &
IIf(VarType(Wha t) 8192, Join(What, ","), What) & ";" & IIf(Scope <>
"base" And Scope <"onelevel", "subtree", Scope)

oCon = New ADODB.Connectio n
oCon.Provider = "ADsDSOObje ct"
oCon.Properties ("Encrypt Password").Valu e = 1
oCon.Properties ("ADSI Flag").Value = 1
If User And Pswd Then
oCon.Properties ("User ID").Value = User
oCon.Properties ("Password").Va lue = Pswd
End If
oCon.Open("Acti ve Directory Provider")

oCMD = New ADODB.Command
oCMD.ActiveConn ection = oCon
oCMD.CommandTex t = sQ
oCMD.Properties ("Page Size").Value = 1000
oCMD.Properties ("Timeout").Val ue = 30
oCMD.Properties ("Cache Results").Value = 0

If InStr(OrderBy, "distinguishedN ame") Then
oRS = New ADODB.Recordset
oRS.CursorLocat ion = 3
oRS.Sort = OrderBy
oRS.Open(sQ, oCon, 0, 1, 1)
Else
If OrderBy Then
oCMD.Properties ("Sort On").Value = OrderBy
End If
oRS = oCMD.Execute
End If
'If ERROR Exit ERROR EndIf
If oRS.BOF And oRS.EOF Then
Else
aR = oRS.GetRows()
Dim aFR(UBound(aR, 2), UBound(aR, 1))
For R = 0 To UBound(aR, 2)
For C = 0 To UBound(aR, 1)
aFR(R, C) = aR(C, R)
Next
Next

fnLDAPQuery = aFR
End If

End Function()

The line that has an error showing that I cannot figure out how to fix
is

sQ = "<" & IIf(From = "", "LDAP://" & GetObject("LDAP ://
rootDSE").Get(" defaultNamingCo ntext"), From) & ">;" & Filter & ";" &
IIf(VarType(Wha t) 8192, Join(What, ","), What) & ";" & IIf(Scope <>
"base" And Scope <"onelevel", "subtree", Scope)

The purpose of this is the get information from Active Directory. I
was looking for code to get all the users and some of the properties
and this looked promissing.

Thanks,
Ty

[Lloyd Sheen]

"Ty" <tb*****@lewist ownhospital.org wrote in message
news:22******** *************** ***********@m44 g2000hsc.google groups.com...

The top block is the original code (I have already tried automatic
convertors but they error everytime.) and the second block is what I
have done. At the end will be the line that has me stumped.

Function fnLDAPQuery($Wh at,Optional $From,Optional $Filter,Optiona l
$OrderBy,Option al $Scope,
Optional $User,Optional $Pswd)

Dim $oCon,$oCMD,$oR S,$sQ,$aR,$C,$R

$sQ="<"+Iif($Fr om="","LDAP://"+GetObject("LD AP://
rootDSE").Get(" defaultNamingCo ntext"),
$From)+">;"+$Fi lter
+";"+Iif(VarTyp e($What)>8192,J oin($What,','), $What)+";"+
Iif($Scope<>"ba se" AND $Scope<>"onelev el","subtree",$ Scope)

$oCon=CreateObj ect("ADODB.Conn ection")
$oCon.Provider= "ADsDSOObje ct"
$oCon.Propertie s("Encrypt Password").Valu e=1
$oCon.Propertie s("ADSI Flag").Value=1
If $User AND $Pswd
$oCon.Propertie s("User ID").Value=$Use r
$oCon.Propertie s("Password").V alue=$Pswd
EndIf
$oCon.Open("Act ive Directory Provider")

$oCMD=CreateObj ect("ADODB.Comm and")
$oCMD.ActiveCon nection=$oCon
$oCMD.CommandTe xt=$sQ
$oCMD.Propertie s("Page Size").Value=10 00
$oCMD.Propertie s("Timeout").Va lue=30
$oCMD.Propertie s("Cache Results").Value =0

If InStr($OrderBy, "distinguishedN ame")
$oRS=CreateObje ct("ADODB.Recor dset")
$oRS.CursorLoca tion=3
$oRS.Sort=$Orde rBy
$oRS.Open($sQ,$ oCon,0,1,1)
Else
If $OrderBy
$oCMD.Propertie s("Sort On").Value=$Ord erBy
EndIf
$oRS=$oCMD.Exec ute
EndIf
If @ERROR Exit @ERROR EndIf
If $oRS.BOF AND $oRS.EOF Exit @ERROR EndIf

$aR = $oRS.GetRows()
Dim $aFR[Ubound($aR,2),U bound($aR,1)]
For $R=0 to Ubound($aR,2)
For $C=0 to Ubound($aR,1)
$aFR[$R,$C]=$aR[$C,$R]
Next
Next

$fnLDAPQuery=$a FR
EndFunction
*************** *************** *************** *************** *************** *************** *************** *************** ************

Function fnLDAPQuery(Wha t As String, Optional From As String, Optional
Filter As String,Optional OrderBy As String,Optional Scope As
String,Optional User As String,Optional Pswd As String)

Dim oCon As ADODB.Connectio n
Dim oCMD As ADODB.Command
Dim oRS As ADODB.Recordset
Dim sQ As String
Dim aR As Array
Dim C As Integer
Dim R As Integer

sQ = "<" & IIf(From = "", "LDAP://" & GetObject("LDAP ://
rootDSE").Get(" defaultNamingCo ntext"), From) & ">;" & Filter & ";" &
IIf(VarType(Wha t) 8192, Join(What, ","), What) & ";" & IIf(Scope <>
"base" And Scope <"onelevel", "subtree", Scope)

oCon = New ADODB.Connectio n
oCon.Provider = "ADsDSOObje ct"
oCon.Properties ("Encrypt Password").Valu e = 1
oCon.Properties ("ADSI Flag").Value = 1
If User And Pswd Then
oCon.Properties ("User ID").Value = User
oCon.Properties ("Password").Va lue = Pswd
End If
oCon.Open("Acti ve Directory Provider")

oCMD = New ADODB.Command
oCMD.ActiveConn ection = oCon
oCMD.CommandTex t = sQ
oCMD.Properties ("Page Size").Value = 1000
oCMD.Properties ("Timeout").Val ue = 30
oCMD.Properties ("Cache Results").Value = 0

If InStr(OrderBy, "distinguishedN ame") Then
oRS = New ADODB.Recordset
oRS.CursorLocat ion = 3
oRS.Sort = OrderBy
oRS.Open(sQ, oCon, 0, 1, 1)
Else
If OrderBy Then
oCMD.Properties ("Sort On").Value = OrderBy
End If
oRS = oCMD.Execute
End If
'If ERROR Exit ERROR EndIf
If oRS.BOF And oRS.EOF Then
Else
aR = oRS.GetRows()
Dim aFR(UBound(aR, 2), UBound(aR, 1))
For R = 0 To UBound(aR, 2)
For C = 0 To UBound(aR, 1)
aFR(R, C) = aR(C, R)
Next
Next

fnLDAPQuery = aFR
End If

End Function()

The line that has an error showing that I cannot figure out how to fix
is

sQ = "<" & IIf(From = "", "LDAP://" & GetObject("LDAP ://
rootDSE").Get(" defaultNamingCo ntext"), From) & ">;" & Filter & ";" &
IIf(VarType(Wha t) 8192, Join(What, ","), What) & ";" & IIf(Scope <>
"base" And Scope <"onelevel", "subtree", Scope)

The purpose of this is the get information from Active Directory. I
was looking for code to get all the users and some of the properties
and this looked promissing.

Thanks,
Ty

First off it is not C# that is the original.

Second what is the error message???

It looks as if you need continuation characters on the line that you
indicate.

LS

[Ty]

On May 15, 7:11*pm, "Lloyd Sheen" <[e-mail] e:

"Ty" <tbar...@lewist ownhospital.org wrote in message

news:22******** *************** ***********@m44 g2000hsc.google groups.com...

The top block is the original code (I have already tried automatic
convertors but they error everytime.) and the second block is what I
have done. At the end will be the line that has me stumped.

Function fnLDAPQuery($Wh at,Optional $From,Optional $Filter,Optiona l
$OrderBy,Option al $Scope,
* *Optional $User,Optional $Pswd)

* *Dim $oCon,$oCMD,$oR S,$sQ,$aR,$C,$R

* *$sQ="<"+Iif($F rom="","LDAP://"+GetObject("LD AP://
rootDSE").Get(" defaultNamingCo ntext"),
* * * *$From)+">;"+$F ilter
+";"+Iif(VarTyp e($What)>8192,J oin($What,','), $What)+";"+
* * * *Iif($Scope<>"b ase" AND $Scope<>"onelev el","subtree",$ Scope)

* *$oCon=CreateOb ject("ADODB.Con nection")
* *$oCon.Provider ="ADsDSOObje ct"
* *$oCon.Properti es("Encrypt Password").Valu e=1
* *$oCon.Properti es("ADSI Flag").Value=1
* *If $User AND $Pswd
* * * *$oCon.Properti es("User ID").Value=$Use r
* * * *$oCon.Properti es("Password"). Value=$Pswd
* *EndIf
* *$oCon.Open("Ac tive Directory Provider")

* *$oCMD=CreateOb ject("ADODB.Com mand")
* *$oCMD.ActiveCo nnection=$oCon
* *$oCMD.CommandT ext=$sQ
* *$oCMD.Properti es("Page Size").Value=10 00
* *$oCMD.Properti es("Timeout").V alue=30
* *$oCMD.Properti es("Cache Results").Value =0

* *If InStr($OrderBy, "distinguishedN ame")
* * * *$oRS=CreateObj ect("ADODB.Reco rdset")
* * * *$oRS.CursorLoc ation=3
* * * *$oRS.Sort=$Ord erBy
* * * *$oRS.Open($sQ, $oCon,0,1,1)
* *Else
* * * *If $OrderBy
* * * * * *$oCMD.Properti es("Sort On").Value=$Ord erBy
* * * *EndIf
* * * *$oRS=$oCMD.Exe cute
* *EndIf
* *If @ERROR Exit @ERROR EndIf
* *If $oRS.BOF AND $oRS.EOF Exit @ERROR EndIf

* *$aR = $oRS.GetRows()
* *Dim $aFR[Ubound($aR,2),U bound($aR,1)]
* *For $R=0 to Ubound($aR,2)
* * * *For $C=0 to Ubound($aR,1)
* * * * * *$aFR[$R,$C]=$aR[$C,$R]
* * * *Next
* *Next

* *$fnLDAPQuery=$ aFR
EndFunction

*************** *************** *************** *************** *************** *************** *************** *************** *************

Function fnLDAPQuery(Wha t As String, Optional From As String, Optional
Filter As String,Optional OrderBy As String,Optional Scope As
String,Optional User As String,Optional Pswd As String)

* * * *Dim oCon As ADODB.Connectio n
* * * *Dim oCMD As ADODB.Command
* * * *Dim oRS As ADODB.Recordset
* * * *Dim sQ As String
* * * *Dim aR As Array
* * * *Dim C As Integer
* * * *Dim R As Integer

* * * *sQ = "<" & IIf(From = "", "LDAP://" & GetObject("LDAP ://
rootDSE").Get(" defaultNamingCo ntext"), From) & ">;" & Filter & ";" &
IIf(VarType(Wha t) 8192, Join(What, ","), What) & ";" & IIf(Scope <>
"base" And Scope <"onelevel", "subtree", Scope)

* * * *oCon = New ADODB.Connectio n
* * * *oCon.Provider = "ADsDSOObje ct"
* * * *oCon.Propertie s("Encrypt Password").Valu e = 1
* * * *oCon.Propertie s("ADSI Flag").Value = 1
* * * *If User And Pswd Then
* * * * * *oCon.Propertie s("User ID").Value = User
* * * * * *oCon.Propertie s("Password").V alue = Pswd
* * * *End If
* * * *oCon.Open("Act ive Directory Provider")

* * * *oCMD = New ADODB.Command
* * * *oCMD.ActiveCon nection = oCon
* * * *oCMD.CommandTe xt = sQ
* * * *oCMD.Propertie s("Page Size").Value = 1000
* * * *oCMD.Propertie s("Timeout").Va lue = 30
* * * *oCMD.Propertie s("Cache Results").Value = 0

* * * *If InStr(OrderBy, "distinguishedN ame") Then
* * * * * *oRS = New ADODB.Recordset
* * * * * *oRS.CursorLoca tion = 3
* * * * * *oRS.Sort = OrderBy
* * * * * *oRS.Open(sQ, oCon, 0, 1, 1)
* * * *Else
* * * * * *If OrderBy Then
* * * * * * * *oCMD.Propertie s("Sort On").Value = OrderBy
* * * * * *End If
* * * * * *oRS = oCMD.Execute
* * * *End If
* * * *'If ERROR Exit ERROR EndIf
* * * *If oRS.BOF And oRS.EOF Then
* * * *Else
* * * * * *aR = oRS.GetRows()
* * * * * *Dim aFR(UBound(aR, 2), UBound(aR, 1))
* * * * * *For R = 0 To UBound(aR, 2)
* * * * * * * *For C = 0 To UBound(aR, 1)
* * * * * * * * * *aFR(R, C) = aR(C, R)
* * * * * * * *Next
* * * * * *Next

* * * * * *fnLDAPQuery = aFR
* * * *End If

End Function()

The line that has an error showing that I cannot figure out how to fix
is

sQ = "<" & IIf(From = "", "LDAP://" & GetObject("LDAP ://
rootDSE").Get(" defaultNamingCo ntext"), From) & ">;" & Filter & ";" &
IIf(VarType(Wha t) 8192, Join(What, ","), What) & ";" & IIf(Scope <>
"base" And Scope <"onelevel", "subtree", Scope)

The purpose of this is the get information from Active Directory. I
was looking for code to get all the users and some of the properties
and this looked promissing.

Thanks,
Ty

First off it is not C# that is the original.

Second what is the error message???

It looks as if you need continuation characters on the line that you
indicate.

LS- Hide quoted text -

- Show quoted text -

The line was split up by this message viewer. The error is in the code
window and it is on this part .
Join(What, ","), What)
something about that join statement is not liked.

Ty