VisualBasic: NetJoinDomain()

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

VisualBasic: NetJoinDomain()

Logged in as: Guest

arrSession:exec spGetSession 2,7,53700

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [General Forum] >> Other Programming/Scripting Languages >> VisualBasic: NetJoinDomain()
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

VisualBasic: NetJoinDomain() - 11/20/2007 11:52:38 PM

Mermy

Posts: 9
Score: 0
Joined: 8/6/2007
Status: offline

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

< Message edited by Mermy -- 11/20/2007 11:57:22 PM >