Oops. Thanks for catching that. The line should be:

strPassword = "zxy321"

Richard

"Chris" <nospam@email.com> wrote in message
news:%23We9O7OAIHA.3900@TK2MSFTNGP02.phx.gbl...
> You lads who understand this absolute amaze me.
>
> Had to put an = in line 19 also.
>
> Really appreciate this Richard
>
> Thanks again
>
> "Richard Mueller [MVP]" <rlmueller-nospam@ameritech.nospam.net> wrote in
> message news:eji5XRKAIHA.5184@TK2MSFTNGP02.phx.gbl...
>> My fault. I missed a comma in the Dim statement. The third line should
>> be:
>>
>> Dim objNetwork, strComputer, objComputer, objUser
>>
>> Notice the commas separating all variables declared in the Dim statement.
>>
>> --
>> Richard Mueller
>> Microsoft MVP Scripting and ADSI
>> Hilltop Lab - http://www.rlmueller.net
>> --
>>
>> "Chris" <nospam@email.com> wrote in message
>> news:O8rtmsHAIHA.5184@TK2MSFTNGP02.phx.gbl...
>>> Thanks Richard,
>>>
>>> I get an error on line 3, character 16.
>>>
>>> Is this normal?
>>>
>>> "Richard Mueller [MVP]" <rlmueller-nospam@ameritech.nospam.net> wrote in
>>> message news:OQJey0DAIHA.4656@TK2MSFTNGP04.phx.gbl...
>>>> Something similar to below should work.
>>>> ===============
>>>> Option Explicit
>>>>
>>>> Dim objNetwork strComputer, objComputer, objUser
>>>> Dim strUserName, strPassword, objGroup
>>>>
>>>> ' Retrieve NetBIOS name of local computer.
>>>> Set objNetwork = CreateObject("Wscript.Network")
>>>> strComputer = objNetwork.ComputerName
>>>>
>>>> ' Bind to local computer object.
>>>> Set objComputer = GetObject("WinNT://" & strComputer)
>>>>
>>>> ' Create user object.
>>>> strUserName = "Temp"
>>>> Set objUser = objComputer.Create("user", strUserName)
>>>> objUser.SetInfo
>>>>
>>>> ' Set password.
>>>> strPassword "zxy321"
>>>> objUser.SetPassword strPassword
>>>>
>>>> ' Bind to local Administrators group.
>>>> Set objGroup = GetObject("WinNT://" & strComputer &
>>>> "/Administrators,group")
>>>>
>>>> ' Add user to local Administrators group.
>>>> objGroup.Add(objUser.AdsPath)
>>>> =====================
>>>> I used "Option Explicit" to make troubleshooting easier. This requires
>>>> that all variables be declared (in Dim statements).
>>>>
>>>> --
>>>> Richard Mueller
>>>> Microsoft MVP Scripting and ADSI
>>>> Hilltop Lab - http://www.rlmueller.net
>>>> --
>>>>
>>>> "Chris" <nospam@email.com> wrote in message
>>>> news:uNir0YBAIHA.1204@TK2MSFTNGP03.phx.gbl...
>>>>> Hi Guys,
>>>>>
>>>>> Still struggling with this. I have no idea about scripts.
>>>>>
>>>>> I need the script to create a local user named Temp
>>>>> Set a password
>>>>> and add to the local admins group.
>>>>>
>>>>> Would be eternally grateful if you can .
>>>>>
>>>>> Kind Regards
>>>>>
>>>>> "Richard Mueller [MVP]" <rlmueller-nospam@ameritech.nospam.net> wrote
>>>>> in message news:uNS1Xw7$HHA.3548@TK2MSFTNGP06.phx.gbl...
>>>>>>
>>>>>> "Fred Beck" <FredBeck@discussions.microsoft.com> wrote in message
>>>>>> news:E50D755D-593F-46F2-AA91-FB0E98A6160E@microsoft.com...
>>>>>>> The "." signifies the machine that you are running the script on.
>>>>>>>
>>>>>>> strComputer = "."
>>>>>>> Set objGroup = GetObject("WinNT://" & strComputer &
>>>>>>> "/Administrators")
>>>>>>> Set objUser = GetObject("WinNT://fabrikam/kenmyer")
>>>>>>> objGroup.Add(objUser.ADsPath)
>>>>>>
>>>>>> A script can also retrieve the NetBIOS name of the local computer
>>>>>> from the wshNetwork object:
>>>>>> ========
>>>>>> Set objNetwork = CreateObject("Wscript.Network")
>>>>>> strComputer = objNetwork.ComputerName
>>>>>>
>>>>>> Set objComputer = GetObject("WinNT://" & strComputer)
>>>>>> Set objUser = objComputer.Create("user", "NewUser")
>>>>>> objUser.SetInfo
>>>>>> ========
>>>>>> But the "." probably works as well.
>>>>>>
>>>>>> --
>>>>>> Richard Mueller
>>>>>> Microsoft MVP Scripting and ADSI
>>>>>> Hilltop Lab - http://www.rlmueller.net
>>>>>> --
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>

Great! It is full. But what script to set user with password never
expire and other attribute?
"Richard Mueller [MVP]" wrote:

> Oops. Thanks for catching that. The line should be:
>
> strPassword = "zxy321"
>
> Richard
>
> "Chris" <nospam@email.com> wrote in message
> news:%23We9O7OAIHA.3900@TK2MSFTNGP02.phx.gbl...
> > You lads who understand this absolute amaze me.
> >
> > Had to put an = in line 19 also.
> >
> > Really appreciate this Richard
> >
> > Thanks again
> >
> > "Richard Mueller [MVP]" <rlmueller-nospam@ameritech.nospam.net> wrote in
> > message news:eji5XRKAIHA.5184@TK2MSFTNGP02.phx.gbl...
> >> My fault. I missed a comma in the Dim statement. The third line should
> >> be:
> >>
> >> Dim objNetwork, strComputer, objComputer, objUser
> >>
> >> Notice the commas separating all variables declared in the Dim statement.
> >>
> >> --
> >> Richard Mueller
> >> Microsoft MVP Scripting and ADSI
> >> Hilltop Lab - http://www.rlmueller.net
> >> --
> >>
> >> "Chris" <nospam@email.com> wrote in message
> >> news:O8rtmsHAIHA.5184@TK2MSFTNGP02.phx.gbl...
> >>> Thanks Richard,
> >>>
> >>> I get an error on line 3, character 16.
> >>>
> >>> Is this normal?
> >>>
> >>> "Richard Mueller [MVP]" <rlmueller-nospam@ameritech.nospam.net> wrote in
> >>> message news:OQJey0DAIHA.4656@TK2MSFTNGP04.phx.gbl...
> >>>> Something similar to below should work.
> >>>> ===============
> >>>> Option Explicit
> >>>>
> >>>> Dim objNetwork strComputer, objComputer, objUser
> >>>> Dim strUserName, strPassword, objGroup
> >>>>
> >>>> ' Retrieve NetBIOS name of local computer.
> >>>> Set objNetwork = CreateObject("Wscript.Network")
> >>>> strComputer = objNetwork.ComputerName
> >>>>
> >>>> ' Bind to local computer object.
> >>>> Set objComputer = GetObject("WinNT://" & strComputer)
> >>>>
> >>>> ' Create user object.
> >>>> strUserName = "Temp"
> >>>> Set objUser = objComputer.Create("user", strUserName)
> >>>> objUser.SetInfo
> >>>>
> >>>> ' Set password.
> >>>> strPassword "zxy321"
> >>>> objUser.SetPassword strPassword
> >>>>
> >>>> ' Bind to local Administrators group.
> >>>> Set objGroup = GetObject("WinNT://" & strComputer &
> >>>> "/Administrators,group")
> >>>>
> >>>> ' Add user to local Administrators group.
> >>>> objGroup.Add(objUser.AdsPath)
> >>>> =====================
> >>>> I used "Option Explicit" to make troubleshooting easier. This requires
> >>>> that all variables be declared (in Dim statements).
> >>>>
> >>>> --
> >>>> Richard Mueller
> >>>> Microsoft MVP Scripting and ADSI
> >>>> Hilltop Lab - http://www.rlmueller.net
> >>>> --
> >>>>
> >>>> "Chris" <nospam@email.com> wrote in message
> >>>> news:uNir0YBAIHA.1204@TK2MSFTNGP03.phx.gbl...
> >>>>> Hi Guys,
> >>>>>
> >>>>> Still struggling with this. I have no idea about scripts.
> >>>>>
> >>>>> I need the script to create a local user named Temp
> >>>>> Set a password
> >>>>> and add to the local admins group.
> >>>>>
> >>>>> Would be eternally grateful if you can .
> >>>>>
> >>>>> Kind Regards
> >>>>>
> >>>>> "Richard Mueller [MVP]" <rlmueller-nospam@ameritech.nospam.net> wrote
> >>>>> in message news:uNS1Xw7$HHA.3548@TK2MSFTNGP06.phx.gbl...
> >>>>>>
> >>>>>> "Fred Beck" <FredBeck@discussions.microsoft.com> wrote in message
> >>>>>> news:E50D755D-593F-46F2-AA91-FB0E98A6160E@microsoft.com...
> >>>>>>> The "." signifies the machine that you are running the script on.
> >>>>>>>
> >>>>>>> strComputer = "."
> >>>>>>> Set objGroup = GetObject("WinNT://" & strComputer &
> >>>>>>> "/Administrators")
> >>>>>>> Set objUser = GetObject("WinNT://fabrikam/kenmyer")
> >>>>>>> objGroup.Add(objUser.ADsPath)
> >>>>>>
> >>>>>> A script can also retrieve the NetBIOS name of the local computer
> >>>>>> from the wshNetwork object:
> >>>>>> ========
> >>>>>> Set objNetwork = CreateObject("Wscript.Network")
> >>>>>> strComputer = objNetwork.ComputerName
> >>>>>>
> >>>>>> Set objComputer = GetObject("WinNT://" & strComputer)
> >>>>>> Set objUser = objComputer.Create("user", "NewUser")
> >>>>>> objUser.SetInfo
> >>>>>> ========
> >>>>>> But the "." probably works as well.
> >>>>>>
> >>>>>> --
> >>>>>> Richard Mueller
> >>>>>> Microsoft MVP Scripting and ADSI
> >>>>>> Hilltop Lab - http://www.rlmueller.net
> >>>>>> --
> >>>>>>
> >>>>>>
> >>>>>
> >>>>>
> >>>>
> >>>>
> >>>
> >>>
> >>
> >>
> >
> >
>
>
>