Hiya,

I can find scripts to create local user accounts but these need the PC name
to be entered into the script

Does anyone ahve one that can be ran on any PC?

TIA

"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
--

Thanks Lads.

Very Much Appreciated.


"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
> --
>
>

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
> --
>
>

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
>> --
>>
>>
>
>

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
>>> --
>>>
>>>
>>
>>
>
>

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
>>>> --
>>>>
>>>>
>>>
>>>
>>
>>
>
>

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
>>>>> --
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>