Also Ip +Admin daten abfragen und dann in die Domäne.
Habe das untere Skript fertig, aber funktiniert irgendwie nicht...
Vieleicht weiß ja jemand den Fehler:
Const JOIN_DOMAIN = 1 Const ACCT_CREATE = 2 Const ACCT_DELETE = 4 Const WIN9X_UPGRADE = 16 Const DOMAIN_JOIN_IF_JOINED = 32 Const JOIN_UNSECURE = 64 Const MACHINE_PASSWORD_PASSED = 128 Const DEFERRED_SPN_SET = 256 Const INSTALL_INVOCATION = 262144 Dim intOk Dim strDomain, strPassword, strUser strDomain = "Domäne" strUser = "Name" strPassword = "Passwort" If Right(WScript.FullName, Len(WScript.Fullname) - Len(WScript.Path) -1) = "WScript.exe" Then WScript.CreateObject("WScript.Shell").Run "cmd /t:1F /k cscript //NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34) WScript.Quit End If WScript.StdOut.WriteLine String(80, "=") WScript.StdOut.WriteLine "(R)ename(R)emote(C)omputer" & vbCrLf WScript.StdOut.WriteLine String(80, "=") WScript.StdOut.WriteLine "Das Skript wurde am " & now & " gestartet." WScript.StdOut.WriteLine WScript.StdOut.Write "Computer oder IP-Adresse -> " Computer = WScript.StdIn.ReadLine() WScript.StdOut.Write "Lokaler Administrator -> " PC_Adm = WScript.StdIn.ReadLine() WScript.StdOut.Write "Kennwort -> " PC_PSW = WScript.StdIn.ReadLine() On Error Resume Next Set WMILocator =CreateObject("WbemScripting.SWbemLocator") WMILocator.Security_.AuthenticationLevel = 6 Set WMI = WMILocator.ConnectServer(Computer, "root\cimv2" , PC_Adm, PC_PSW) If Err.Number = 0 Then WScript.StdOut.WriteLine WScript.StdOut.Write "Neue Domain -> " Domaine = WScript.StdIn.ReadLine() Err.Clear Set ws = WScript.CreateObject("WScript.Shell") Set objNetwork = CreateObject("WScript.Network") strComputer = Computer If Err.Number = 0 Then intOk = objComputer.JoinDomainOrWorkGroup(strDomain, _ strPassword, _ strDomain & "\" & strUser, _ NULL, _ JOIN_DOMAIN + ACCT_CREATE) If intOk = 0 then wscript.echo SUCCESS, "Join Domain erfolgreich mit: " & strDomain Else wscript.echo ERROR, "Join Domain fehlgeschlagen mit: " & strDomain End If End If End IF