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




Reply With Quote