[Bschorf]

Hallo, ich wolltemir ein kleines Skript schreiben, wo ich von einen Remote Rechner (WinXP) per remote in eine Domäna aufnehmen kann.
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

[dastriebel]

nimm mal

On Error Resume Next

rauss und schau was für ein fehler kommt