Ændre computernavn osv. 2

Jeg har aldrig hørt om et sådant program, men hvis du starter med at melde imaget ud af domænet inden du kloner det ud, så kan du omdøbe uden at det har nogen effekt i ad'et og derefter joine domænet med netdom.

Ja, det er rigtigt, men er der en kommando der kan køres fra en kommandoprompt (dvs. en .bat fil) så man kan ændre navnet på computeren?

Og man kan ikke bare joine domænet med netdom, medmindre man på serveren sletter kontoen der fandtes i forvejen. :-(

Ja, netdom kan ændre navnet uden problemer fordi maskinen ikke er i domænet.
Når du så har ændret navnet burde du kunne joine, ikke add'e, til domænet hvor kontoen jo stadig eksisterer. Hvis ikke...
Jeg har ikke lige netdom her (hjemme) men den kan også fjerne en maskine fra domænet inden den tilføjer den igen.
netdom remove /d:domæne PC1 /ud:domæne\admin /pd:password

http://technet2.microsoft.com/WindowsServer/en/Library/539c5381-db4f-445f-aac0-2df5448181c11033.mspx

eller

http://technet2.microsoft.com/windowsserver/en/library/9f921edc-87f5-460e-89ee-9ca56ec1d0961033.mspx

Jeg vil kigge på det du skriver imorgen, men det med at omdøbe maskinen uden at den er i domænet kunne jeg vist ikke få til at virke... Den skrev noget med at den ikke var med i domænet...

OK. Jeg har fået det meste til at virke lige med undtagelse af at ændre computernavnet, når den ikke er joinet på domænet.
Den komme med følgende fejlmeddelelse, når jeg prøver:
"This machine is not currently joined to a domain".

Er der en mulighed for at få det til at virke alligevel ?

Så er vi derude hvor man bliver nødt til at prøve med selv at scripte. Prøv med dette vbscript, det ser ud til at virke, men da jeg sidder hjemme og holder ferie har jeg ikke noget domæne at prøve det op mod.

' Lavet af Søren Aagaard
' Der kan ændres i teksten i linje 5 og i linje 36

On Error Resume Next
strNytNavn = InputBox("Hvad skal barnet hedde?","Computernavn")
strNytNavn = UCase(strNytNavn)
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\nm\Parameters\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\NV Hostname",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Hostname",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\ComputerName\ComputerName\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Eventlog\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AltDefaultDomainName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SchedulingAgent\OldName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Media\WMSDK\General\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows Media\WMSDK\General\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\nm\Parameters\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Services\Tcpip\Parameters\NV Hostname",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Services\Tcpip\Parameters\Hostname",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Services\nm\Parameters\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Services\Eventlog\ComputerName",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Volatile Environment\LOGONSERVER","\\"&strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\@",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ComputerDescriptions\"&strNytNavn,"","REG_SZ"
WshShell.RegWrite "HKEY_USERS\S-1-5-18\Software\Microsoft\Windows\ShellNoRoam\@",strNytNavn,"REG_SZ"
WshShell.RegWrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\ShellNoRoam\@",strNytNavn,"REG_SZ"
msg=msgbox("Det var det.")

Lige for at være på den sikre side... Det skal virke når PC'en IKKE er på et domæne...

Ja, det var meningen.

Det virker perfekt. Der er dog en lille ting der irriterer mig, men ved ikke om man kan komme udenom.
Efter at have kørt dit script kan jeg ikke joine domænet med netdom. Den siger domænet ikke kan kontaktes. Det virker efter en reboot.
Er der en måde at få "opdateret" hvad der nu skal opdateres for at det virker ?

Men smid et svar alligevel, for du har løst selve opgaven/spørgsmålet :-)

jpi: Jeg mener nu godt netdom kan omdøbe en maskine som ikke er i domæne. Du skal bare udelade /userD fra kommandoen og kun bruge /userO switchen.

Du bør altså kunne lave et image der IKKE er i domæne. Omdøbe den, og efterfølgende melde den ind i domænet igen. Hvis kontoen allerede eksisterer i domænet, mener jeg at netdom kan bruge til at resette computer kontoen.

venturer: Imaget skal være lavet udenfor domænet, ellrs kan jeg ikke omdøbe ordentligt.

mht. netdom, så skriver jeg følgende:
netdom renamecomputer oldpcname /newname:newpcname /usero:administrator /passwordo:*
Dette skulle bevirke at jeg bliver promptet om password. Det sker også, og når jeg så trykker enter (der er ikke noget password på kontoen), så skriver den logon-failure: unknown user name or bad password

PC-en er i et workgroup kaldet TEMP, og jeg har også forsøgt følgende:
netdom renamecomputer oldpcname /newname:newpcname /usero:temp\administrator /passwordo:*
men med samme resultat...

Har prøvet at sætte et password på brugeren, men uden resultat. Den skriver stadig unknown user og bad password

Hvis den er i en workgroup. så skal brugernanet måske se sådan her ud /usero:computernavn\Administrator

Samme problem...

Jeg tror ikke du kan undgå en reboot, men du kan jo prøve om enten logge af eller den hurtigere at genstarte explorer.exe fra Joblisten måske kan gøre det. Det handler jo blot om at systemet skal genlæse registreringsdatabasen så måske...

Hvis det virker med den hurtige restart af explorer exe kan du jo prøve at lægge disse linjer ind sidst i scriptet:

on error resume next
wscript.sleep 200
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Process WHERE Name = 'explorer.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next
wscript.sleep 200
For Each objProcess in colProcessList
    objProcess.Execute()
Next

Det vil jeg prøve imorgen.

Det med explorer.exe virker ikke, så...

Men jeg har fået lavet det i 2 steps, hvor det fungerer automatisk med batch-filer der kopieres til startmenuen, så andet step forløber fuldstændig automatisk uden brugerens indblanding. Der er bare en reboot-sekvens mere end jeg synes var nødvendig, men nu tror jeg ikke jeg vil bruge mere tid på det. :-)

Tak for hjælpen !!!