VisualBasic: NetJoinDomain()

Hello Guys,

i want to make a little program to join a computer into a domain.

http://msdn2.microsoft.com/en-us/library/aa370433.aspx

my code looks like:

 [color=#0000ff][size=2][color=#000000][size=2]
 [/size][color=#0000ff][size=2]Declare[/size][/color][size=2] [/size][color=#0000ff][size=2]Function[/size][/color][size=2] NetJoinDomain [/size][color=#0000ff][size=2]Lib[/size][/color][size=2] [/size][color=#a31515][size=2]"netapi32.dll"[/size][/color][size=2] ([/size][color=#0000ff][size=2]ByVal[/size][/color][size=2] lpServer [/size][color=#0000ff][size=2]As[/size][/color][size=2] [/size][color=#0000ff][size=2]String[/size][/color][size=2], [/size][color=#0000ff][size=2]ByVal[/size][/color][size=2] lpDomain [/size][color=#0000ff][size=2]As[/size][/color][size=2] [/size][color=#0000ff][size=2]String[/size][/color][size=2], [/size][color=#0000ff][size=2]ByVal[/size][/color][size=2] lpAccountOU [/size][color=#0000ff][size=2]As[/size][/color][size=2] [/size][color=#0000ff][size=2]String[/size][/color][size=2], [/size][color=#0000ff][size=2]ByVal[/size][/color][size=2] lpAccount [/size][color=#0000ff][size=2]As[/size][/color][size=2] [/size][color=#0000ff][size=2]String[/size][/color][size=2], [/size][color=#0000ff][size=2]ByVal[/size][/color][size=2] lpPassword [/size][color=#0000ff][size=2]As[/size][/color][size=2] [/size][color=#0000ff][size=2]String[/size][/color][size=2], [/size][color=#0000ff][size=2]ByVal[/size][/color][size=2] fJoinOptions [/size][color=#0000ff][size=2]As[/size][/color][size=2] [/size][color=#0000ff][size=2]Integer[/size][/color][size=2]) [/size][color=#0000ff][size=2]As[/size][/color][size=2] [/size][color=#0000ff][size=2]Integer
 [/size][/color][/color][/size][/color][color=#0000ff][size=2]
 [/size][/color] 
 
 Private Sub button_Join_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button_Join.Click
        On Error GoTo ErrorHandler
        Const NETSETUP_JOIN_DOMAIN = &H1
        Const NETSETUP_DOMAIN_JOIN_IF_JOINED = &H20
 
        Dim domain As String, joinoptions
        Dim Result As String
        domain = "TESTSUB"
        joinoptions = (NETSETUP_DOMAIN_JOIN_IF_JOINED Or NETSETUP_JOIN_DOMAIN)
        Result = NetJoinDomain("", domain, "", "TESTSUB\Administrator", "testsub", joinoptions)
   ErrorHandler:
        MsgBox("Error " + Hex(Err.Number) + " returned." + Chr(13) + Err.Description)
 End Sub
 
 

when i start the programm, and i click on the button, the error box pos up with the Number: 0
and nothing happend then.

i googled around, but i can't find any solution.


any ideas?

thanks
Mermy