I am currently using the following script to create user accounts, however I would like to embed this directly within my VB.NET application. Does anyone know how to convert this VBS to VB.NET? (2010 or 2012)
(The following code does work as expected)
Thank you!
(The following code does work as expected)
Code:
Title = "Admin Account Creation"
strGroup = "Administrators"
Dim objNetwork, strComputerName
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Dim strUserName, strFullName, strPassword
strUserName = "SomeAdminAccount"
strFullName = "Some Admin Account"
strPassword = "Password1"
Call AddUser
Sub AddUser
Set objSystem = GetObject("WinNT://" & strComputer)
Set objUser = objSystem.Create("user", strUserName)
objUser.FullName = strFullName
objUser.SetPassword strPassword
objUser.SetInfo
Call AddGroup
End Sub
Sub AddGroup
Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup)
objGroup.Add("WinNT://" & strComputer & "/" & strUserName)
End Sub