VBS vraagje

Status
Niet open voor verdere reacties.

smek

Gebruiker
Lid geworden
12 mei 2010
Berichten
32
Hallo allemaal,

Ik zou graag een scriptje willen hebben waarmee ik een gebruikersnaam en wachtwoord kan aanpassen. Dit doormiddel van een promtboxje waarin dit ingevuld kan worden.

Alvast bedankt!
Wat ik wel heb is een script om de computernaam te veranderen:

Code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Computernaam = UserInput("Computernaam")
Name = Computernaam

Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers
    err = objComputer.Rename(name)

if err <> 0 then
 wscript.echo "There was an error renaming the machine. Please restart, and try again."
else
 wscript.echo "Machine successfully renamed: " & Name
end if

Next
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan