Hallo Leute,
ich verwendete unter Windows 7, Windows 8.1 folgender Routine, um ein einen Client per VB.net Applikation zu
einer vordefinierten Domäne hinzuzufügen. Leider klappt das jetzt nicht mehr auf Windows 10
Der Code wird ohne Problem und ohne Fehler durchgeführt. Allerdings ohne Effekt. Es passiert einfach nichts, der
Client wird nicht in die gewünschte Domäne hinzugefügt. Vielleicht hat jemand von euch eine Idee, wie ich das Problem
dennoch lösen kann...
Danke euch,
LG
ich verwendete unter Windows 7, Windows 8.1 folgender Routine, um ein einen Client per VB.net Applikation zu
einer vordefinierten Domäne hinzuzufügen. Leider klappt das jetzt nicht mehr auf Windows 10
VB.NET-Quellcode
- Function domain_join()
- Dim args(4) As String
- Dim args2(2) As String
- Dim comp As ManagementObject
- Dim comps As ManagementObjectCollection
- Dim clsComps As New ManagementClass("Win32_ComputerSystem")
- comps = clsComps.GetInstances()
- For Each comp In comps
- Comp.InvokeMethod("UnjoinDomainOrWorkgroup", args2)
- args(0) = "DOMÄNE"
- args(1) = "PASSWORD"
- args(2) = "USERNAME"
- args(4) = "1"
- Dim retval As Long
- Try
- retval = comp.InvokeMethod("JoinDomainOrWorkgroup", args)
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- Next
- End Function
Der Code wird ohne Problem und ohne Fehler durchgeführt. Allerdings ohne Effekt. Es passiert einfach nichts, der
Client wird nicht in die gewünschte Domäne hinzugefügt. Vielleicht hat jemand von euch eine Idee, wie ich das Problem
dennoch lösen kann...
Danke euch,
LG