Avatar billede morten_leth Nybegynder
13. oktober 2004 - 13:28 Der er 8 kommentarer og
2 løsninger

Et script der adder en bruger til local administratorer gruppen

Ja jeg har et lille spørgsmål og spørgsmålet er faktisk meget hurtigt og enkelt.
Jeg har bikset dette script sammen, og det virker også hvis jeg er admin, men det jo ikke helt det jeg øsnker...

Det jeg ønsker er jo godt nok at brugeren kører scriptet (som er bruger ikke andet) også ryger han automatisk ind i local admin gruppen...

Option Explicit
Dim objGroup, objUser, strComputer, objNetwork, objDomain
set objNetwork = createobject("Wscript.Network")
strComputer = objNetwork.Computername
objUser = objNetwork.Username
objDomain = objNetwork.UserDomain
Set objGroup = GetObject("WinNT://" & strComputer & "/Administratorer")
Set objUser = GetObject("WinNT://" & objDomain & objUser)
On Error Resume Next
objGroup.Add(objUser.ADsPath)
On Error Goto 0


Skal lige sige jeg er meget nybegynder til VBS.. men håber da i kan hjælpe alligevel... ;)

/leth
Avatar billede maximus25 Nybegynder
13. oktober 2004 - 13:39 #1
hej morten leth

Her er et script der opretter en local bruger:

strComputer = "maskinenavn"
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "bruger")
objUser.SetPassword "test"
objUser.SetInfo


og dette script tilføjer brugeren til adminnistrtor gruppen på maskinen:

strComputer = "maskinenavn"
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
Set objUser = GetObject("WinNT://" & strComputer & "/bruger,user")
objGroup.Add(objUser.ADsPath)


Håber du kan bruge det:):)
Avatar billede morten_leth Nybegynder
13. oktober 2004 - 14:24 #2
synes det er meget pænt af dig at poste det.. hehe... meeeen... problemet er at med den måde her du skriver der (som også er den måde jeg bruger hvis du ser efter) er at brugeren som kører scriptet skal være medlem af admin gruppen for at få lov til at adde brugeren til gruppen..

ved godt det lyder som volapyk men kan sgu ikke lige få formuleret det anderledes...

håber du forstår ellers må du jo skrive igen.. ;)
Avatar billede maximus25 Nybegynder
13. oktober 2004 - 14:33 #3
jeg har lige checket koden i praksis ...og jeg kan asgtens oprette en bruger lokalt uden selv at være lokal administartor.
Avatar billede maximus25 Nybegynder
13. oktober 2004 - 14:33 #4
samt adde den nye bruger til lokal admin gruppen
Avatar billede morten_leth Nybegynder
13. oktober 2004 - 14:51 #5
jamen så burde der vel heller ikke være noget i vejen for at jeg kan gøre det...
bortset fra at jeg adder en domain bruger... og du adder en lokal bruger...
Avatar billede morten_leth Nybegynder
13. oktober 2004 - 14:55 #6
Det der er i det... det er...
Jeg skal have brugeren (som ikke er lokal admin) til at hente sin account fra domain serveren, og derefter på den lokale computer smide sig selv ind i den lokale administrator gruppe... så han kan få lov til at installere ting og sager...
Avatar billede maximus25 Nybegynder
13. oktober 2004 - 15:32 #7
nåå jamen det er jo en anden sag...så gør du sådan her:

set shell = wscript.createobject("wscript.shell")
Set WshShell = WScript.CreateObject("WScript.Shell")


strComputer = "maskinenavn"

vdomain = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
vUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")


Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
Set objUser = GetObject("WinNT://" & strComputer & "/" & vUserName & ",user")
objGroup.Add(objUser.ADsPath)


Håber du kan bruge det:):)
Avatar billede morten_leth Nybegynder
13. oktober 2004 - 15:34 #8
tror det skal leges med derhjemme... hehe... tager det lige med... men har ikke net derhjemme i øjeblikket så jeg kigger på det til imorgen.. hygge.. ;)
Avatar billede maximus25 Nybegynder
17. oktober 2004 - 09:48 #9
fik du det til at virke?
Avatar billede morten_leth Nybegynder
18. oktober 2004 - 17:08 #10
jow... tror jeg da.. hehe.. eller... ej.. jeg prøver stadig.. men hvad fanden.. tak for hjælpen.. (har heller ikke noget ordentlig test miljø lige i øjeblikket....)
men tak for hjælpen...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester