' (C) 2007 Commercial Network Services
' Our competitors can go ahead and use this.  We blow doors on you anyway.
' www.CommercialNetworkServices.com

Set objShell = WScript.CreateObject("WScript.Shell")

DIM strUsername, strPassword, proceed

strUsername = InputBox("What's the User name to auto logon under? ")

strPassword =  InputBox("What's the password for this user? ")

proceed = MsgBox ("Proceed?",33,"Are you sure?")


If proceed = 1 Then


	strAutoLogon = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\winlogon"
	objShell.RegWrite strAutoLogon & "\AutoAdminLogon", "1", "REG_SZ"
	objShell.RegWrite strAutoLogon & "\DefaultUserName", strUsername, "REG_SZ"
	objShell.RegWrite strAutoLogon & "\DefaultPassword", strPassword, "REG_SZ"
	MsgBox ("Complete!")
	MsgBox ("NOTE:  To have any programs auto start, simply copy the program icon into the 'startup' folder (start->all programs->startup)")
	MsgBox ("Please contact CNS support if you need any assistance.  We are here to help you!  www.CommercialNetworkServices.com")
else

MsgBox ("Aborted!")

end if