damienenglish
Technical User
Hi All
I have been asked to edit our existing VBS which is used to rename all local 'Admin' accounts and passwords on our PC's and Laptops. This is the script we currently have:
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/ITAdmin,user")
objUser.SetPassword "password"
objUser.SetInfo
I am happy to carry on using this script but I want to add a little more security to the password. What I want, is for the script to pickup the 'PC Name' and add that in front of the password.
For Example: The PC is called Host1, therefore the password would become 'Host1password'. Also, I would like to make the 'PC Name' part of the password a mixture of upper and lower-case.
Is this at all possible? Any suggestions/comments are much appreciated.
Thanks in advance for your help.
I have been asked to edit our existing VBS which is used to rename all local 'Admin' accounts and passwords on our PC's and Laptops. This is the script we currently have:
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/ITAdmin,user")
objUser.SetPassword "password"
objUser.SetInfo
I am happy to carry on using this script but I want to add a little more security to the password. What I want, is for the script to pickup the 'PC Name' and add that in front of the password.
For Example: The PC is called Host1, therefore the password would become 'Host1password'. Also, I would like to make the 'PC Name' part of the password a mixture of upper and lower-case.
Is this at all possible? Any suggestions/comments are much appreciated.
Thanks in advance for your help.