VBS Rename computername

[Verwijderd]

Hallo,

Ik ben opzoek naar een VBS dat via een makkelijke gebruikers interface de Computername kan veranderen en de laptop in het domain hangen. Op het internet heb ik al gezocht maar kan daar niet veel vinden of krijg het niet werkende. Ik heb helemaal geen ervaring met VBS dus hoop dat iemand me kan helpen. Ik heb wel een idee hoedat ik het er graag wil laten uit zien maar heb geen id of dat dit mogelijk is, wat ik wil is een mooi klein scherm met :

Change computername =

Connect to Domain =
Name =
Passw,=

4 regeltjes in een scherm wat opstart als windows geinstalleerd is.

ik ben berijd om zelf wat uit te zoeken maar kom er nu echt niet meer uit.

Groetjes

[Verwijderd]

Wat heb je zoal geprobeerd dat je niet werkend krijgt? Laat eens wat code zien dat je gebruikt hebt... welke foutmelding krijg je daarbij??

Je TS is nogal karig... Wordt niet echt gewaardeerd hier.

Ik heb ff gezocht met google, en je trekt zo complete vbs scripts van het net om een pc aan een domein toe te voegen.

[ Voor 29% gewijzigd door Verwijderd op 31-12-2007 11:04 ]

[Verwijderd]

Sorry, was niet bedoeld om zo over te komen. maar het script dat ik gebruikt heb en geprobeerd te veranderen is als volgt :

Name = InputBox("Enter the new computer name below and click OK to continue","Rename: Step 1")

Password = "techlab"
Username = "wgmanager"

Set objWMIService = GetObject("Winmgmts:root\cimv2")

' Call always gets only one Win32_ComputerSystem object.
For Each objComputer in _
objWMIService.InstancesOf("Win32_ComputerSystem")

Return = objComputer.rename(Name,Password,User)
If Return <> 0 Then
WScript.Echo "Rename failed. Error = " & Err.Number
Else
WScript.Echo "Rename succeeded." & " Reboot for new name to go into effect"
End If


'Next


DomainName = InputBox("Enter the Domain to join this computer to and click OK to continue","Rename: Step 1")

DomainPassword = "password"
DomainUsername = "username"

Set objWMIService = GetObject("Winmgmts:root\cimv2")

' Call always gets only one Win32_ComputerSystem object.
For Each objComputer in _
objWMIService.InstancesOf("Win32_ComputerSystem")

Return = objComputer.JoinDomainOrWorkgroup(DomainName,DomainPassword,DomainUsername)
If Return <> 0 Then
WScript.Echo "Rename failed. Error = " & Err.Number
Else
WScript.Echo "Rename succeeded." & " Reboot for new name to go into effect"
End If

Ik krijg op regel 33 teken 10 een error.

[Fish]

gewooon google ? 5 minutejes hier

http://www.google.com/sea...ect+to+domain+vbs&spell=1

http://techtasks.com/code/viewbookcode/1642


volgende keer moet je meer moeite doen ..


als je code neerzet en refereet naar regelnummers mag je wel en

code:

 code tag gebruiken
....

btw ik hoop niet dat die passwords echt zijn ..

[ Voor 22% gewijzigd door Fish op 31-12-2007 11:16 ]

[Verwijderd]

nee;) die passworden zijn fake. Die kloppen niet. Alleen ik zit met een probleem, want om de naam te veranderen moet de RPC server beschikbaar zijn, en dat is niet in Vista. In XP staat deze wel standaard aan maar in vista niet. Hoe kan ik dit omzeilen??

[Fish]

ik neem even aan dat het in vista net zo werkt

net start "remote procedure call (rpc)"

jou script

net stop "remote procedure call (rpc)"

[ Voor 23% gewijzigd door Fish op 31-12-2007 11:52 ]

[Verwijderd]

Kan mij niet voorstellen dat de RPC service standaard niet aanstaat in Vista aangezien je die nodig hebt voor oa. COM.

Defaults Startup Type:

Default Vista Home Basic: Automatic (Started)
Default Vista Home Premium: Automatic (Started)
Default Vista Business: Automatic (Started)
Default Vista Ultimate: Automatic (Started)

Bron: http://www.blackviper.com..._Procedure_Call_(RPC).htm

[ Voor 55% gewijzigd door Verwijderd op 31-12-2007 11:54 ]

[Creepy]

fish schreef op maandag 31 december 2007 @ 11:12:
gewooon google ? 5 minutejes hier

http://www.google.com/sea...ect+to+domain+vbs&spell=1

http://techtasks.com/code/viewbookcode/1642


volgende keer moet je meer moeite doen ..


als je code neerzet en refereet naar regelnummers mag je wel en

code:

 code tag gebruiken
....

btw ik hoop niet dat die passwords echt zijn ..

Dit wil ik even benadrukken. GoT is geen helpdesk waar je je een kant en klare oplossing kan halen. Opsommen wat je wilt en van ons een oplossing krijgen is niet de bedoeling hier. Ook een script van een ander dumpen met een foutmelding en hopen dat wij het gaan oplossen voor je is ook niet de bedoeling. Als je hulp wilt met een stuk code dat je ergens hebt gevonden zul je toch echt bij de maker van die code moeten zijn en niet bij ons want in PRG draait het om het zelf programmeren.

Lees voor een volgende keer aub Programming Beleid en dan met name Programming Beleid - De Quickstart eens door zodat je weet wat we hier van je verwachten.

[ Voor 11% gewijzigd door Creepy op 31-12-2007 11:58 ]