WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

wNT
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Adds User Account to Local Administrator Group


;**********************************************************************************************************************
;ADDUSER - Adds user account to local administrator group
;**********************************************************************************************************************
username = "fflintstone"                                                                         ;USERNAME TO ADD
first = "Fred"                                                                                    ;USERS FIRSTNAME
last =  "Flintstone"                                                                              ;USERS LASTNAME
pswd = "bambam"                                                                                 ;USERS PASSWORD
admin_User = "MrSlate"                                                                            ;DOMAIN ADMIN
admin_Pass = "bedrock"                                                                            ;PASSWORD TO ADMIN ACCOUNT
admin_Domain = "Quarry"                                                                         ;DOMAIN

IntControl(73,2,0,0,0)                                                                           ;TRAP ERROR
AddExtender("WWWNT34i.DLL")
Title="Add User Account"
;IntControl(1002, 0, 0, 0, 0)                                                                     ;SETS HIDDEN MODE

v=WinVersion(5)                                                                                 ;SET VERSION REQUEST

Platform = ItemExtract(1, v ,"-")                                                               ;EXTRACTS PLATFORM ID
MAJOR    = ItemExtract(2, v ,"-")                                                               ;EXTRACTS MAJOR REV.
MINOR    = ItemExtract(3,v,"-")                                                                  ;EXTRACTS MINOR REV.

If Platform==1 Then Exit                                                                        ;BAIL IF NOT 2K/XP
moiparams=IntControl(1006,0,0,0,0)
If StrIndexNC(moiparams,"URADMIN",0,@FWDSCAN)

   param0 = param0 -1                                                                             ; REMOVES URADMIN
Else   ; need admin privileges so add it.


      m_Flag         =0

      moi=WinExename("")
      moiparams=StrCat(moiparams, " URADMIN")
      RunWithLogon(moi, moiparams, "", @NORMAL, @WAIT,m_User,m_Domain,m_Pass,m_Flag)

      Exit

EndIf

;----------------------------------------------------------------------------------------------------------
; RUNNING IN ADMIN MODE HERE.. ADD ADMIN LINES/PROGRAM CALL HERE
;----------------------------------------------------------------------------------------------------------

   If !wntUserExist("", username,0) Then

      wntUserAddDat("name",first)
      wntUserAddDat("full_name",StrCat(first," ",last))
      wntUserAddDat("comment",StrCat(first," ",last, " User Account"))
      wntUserAddDat("password",pswd)
      wntUserAddDat("flags",1)
      wntUserAddDat("acct_expires","0000:00:00:00:00:00")
      wntUserAdd("")
      Display(2,Title,"Added Account")
   Else
      Beep
      Display(2,Title,"Account Already Exists")
   EndIf

   If   wntMemberSet("","Administrators",username,@LOCALGROUP,0) Then
      Display(2,Title,"Added to Group")
   Else
      Display(2,Title,"Unable to add to Group, or Already a member.")
   EndIf

   Display(2,Title,"Operation Complete.")

Exit

:WBERRORHANDLER

Err=LastError()
Display(5,Title,"Process error: %Err% - Script will Terminate.")
Exit

Article ID:   W17052
File Created: 2007:07:03:14:28:00
Last Updated: 2007:07:03:14:28:00