Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;********************************************************************************************************************** ;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