Req: Help Making A .cmd To Change Username.

[BoardBabe]

When i change Windows username, I need to alter a few files.

I set what username to be created during windows install in the following files

winnt.sif (Line 28)

Autologon.cmd

Autologon.reg

I need help making a batch file that asks me "Dear Lord, please type username" I type username and it alters those tree files where it should alter username. Just to quick'en up the process of changing username on my unattend DVD

Possible to do so easY?

[gunsmokingman]

This Will Make A UserAccounts Cmd That Will Handle Problems Autologon.cmd

Autologon.reg

It will Leave These 2 File User1.cmd and cmdlines.txt,In %systemdrive%\

UserAccounts

As To The Line In The Winnt.sif Post It Because All

Winnt.sif are not in the same order.

Edited March 11, 2005 by gunsmokingman

[BoardBabe]

Posting my 3 files that needs to be edited:

My username: Nicolay

My password: *blank*

My machine name: Maskin

Autologon.reg

Windows Registry Editor Version 5.00 

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"DefaultUserName"="Nicolay"
"DefaultPassword"=""
"AutoAdminLogon"="1"

Brukerkonto.cmd

cmdow @ /HID
@echo off

TITLE Brukerkonto

net user Nicolay /add
net localgroup Administratorer Nicolay /add
net accounts /maxpwage:unlimited
REGEDIT /S autologon.reg


EXIT

winnt.sif

[Data]
AutoPartition=0
MsDosInitiated="0"
UnattendedInstall="Yes"
AutomaticUpdates=yes

[Unattended]
UnattendMode=FullUnattended
OemSkipEula=Yes
OemPreinstall=Yes
TargetPath=\WINDOWS    
FileSystem=*
UnattendSwitch="yes"
FileSystem=*
WaitForReboot="No"
DriverSigningPolicy=Ignore
OemPnPDriversPath=""

[GuiUnattended]
AdminPassword=*
EncryptedAdminPassword=NO
OEMSkipRegional=1
TimeZone=110
OemSkipWelcome=1

[UserData]
ProductKey=Like-im-telling-you-my-product-key
FullName="Nicolay"
OrgName=""
ComputerName=Maskin

[Display]
BitsPerPel=32
Xresolution=1400
YResolution=1050
Vrefresh=60
AutoConfirm=1
ConfigureAtLogon=1

[Networking]
InstallDefaultComponents=Yes

[Identification]
JoinWorkgroup=ARBEIDSGRUPPE

[Shell]
CustomDefaultThemeFile = "%WinDir%\Resources\Themes\Royale.theme"
DefaultStartPanelOff = No
DefaultThemesOff = No

[WindowsFirewall]
Profiles=WindowsFirewall.TurnOffFirewall

[WindowsFirewall.TurnOffFirewall]
Mode=0

[Components]
indexsrv_system=on
msmsgs=off

[GuiRunOnce]
%systemdrive%\Install\Start.cmd

[BoardBabe]

All i want is a file where I can type in login/password and it edites the correct places in these three files, so when i am to make a DVD for my friend or anything, it is an easy job to change the username value of the three files

[gunsmokingman]

This Has Nothing To Do With A User

Yours

[UserData]
ProductKey=Like-im-telling-you-my-product-key
FullName="Nicolay"
OrgName=""
ComputerName=Maskin

This Is For The Computer It Self It Has Nothing To Do With Adding

A User Here. 

[UserData] 
    ProductKey=************************************
    FullName="Home-Beta-2004" 
    OrgName="Beta-Home-2004" 
    ComputerName=Home-Beta-2004

Here A Script That Will Allow User Input To These In The Winnt.sif

ProductKey=

FullName=

OrgName=

ComputerName=

The Script

''''''''''I DID THIS! GUNSMOKINGMAN

''''''''''WINNT.SIF FOR BoardBabe

Dim PDK, FLN, ORG, CPN

T4 = space(4)

Set sh = CreateObject("WScript.Shell")

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

Set fso = CreateObject("Scripting.FileSystemObject")

Set WS = CreateObject("WScript.Shell")

SD = Shell.ExpandEnvironmentStrings("%SystemDrive%")

Set SIF = fso.CreateTextFile(SD & "\winnt.sif",True)

SIF.WriteLine ";SetupMgrTag" 

SIF.WriteLine "[Data]"

SIF.WriteLine  T4 &"AutoPartition=0"

SIF.WriteLine  T4 &"MsDosInitiated=""0"""

SIF.WriteLine  T4 &"UnattendedInstall=""Yes"""

SIF.WriteLine  T4 &"AutomaticUpdates=yes"

SIF.WriteLine  ""

SIF.WriteLine  T4 &"[unattended]"

SIF.WriteLine  T4 &"UnattendMode=FullUnattended"

SIF.WriteLine  T4 &"OemSkipEula=Yes"

SIF.WriteLine  T4 &"OemPreinstall=Yes"

SIF.WriteLine  T4 &"TargetPath=\WINDOWS  " 

SIF.WriteLine  T4 &"FileSystem=*"

SIF.WriteLine  T4 &"UnattendSwitch=""yes"""

SIF.WriteLine  T4 &"WaitForReboot=""No"""

SIF.WriteLine  T4 &"DriverSigningPolicy=Ignore"

SIF.WriteLine  T4 &"OemPnPDriversPath="""""

SIF.WriteLine  ""

SIF.WriteLine  T4 &"[GuiUnattended]"

SIF.WriteLine  T4 &"AdminPassword=*"

SIF.WriteLine  T4 &"EncryptedAdminPassword=NO"

SIF.WriteLine  T4 &"OEMSkipRegional=1"

SIF.WriteLine  T4 &"TimeZone=110"

SIF.WriteLine  T4 &"OemSkipWelcome=1"

SIF.WriteLine  ""

PDK = Inputbox("Type In The Product Key" & vbcrlf &_

"This Must Have These -Between-Each-Group-", "Gsm Add Product Key","")

FLN = Inputbox("Type In The FullName" & vbcrlf, "Gsm Add FullName","")

ORG = Inputbox("Type In The OrgName" & vbcrlf, "Gsm Add OrgName","")

CPN = Inputbox("Type In The OrgName" & vbcrlf, "Gsm Add OrgName","")

SIF.WriteLine  T4 &"[userData]"

SIF.WriteLine  T4 &"ProductKey=" & PDK

SIF.WriteLine  T4 &"FullName="" """ & FLN

SIF.WriteLine  T4 &"OrgName="" """  & ORG

SIF.WriteLine  T4 &"ComputerName=" & CPN

SIF.WriteLine  ""

SIF.WriteLine  T4 &"[Display]"

SIF.WriteLine  T4 &"BitsPerPel=32"

SIF.WriteLine  T4 &"Xresolution=1400"

SIF.WriteLine  T4 &"YResolution=1050"

SIF.WriteLine  T4 &"Vrefresh=60"

SIF.WriteLine  T4 &"AutoConfirm=1"

SIF.WriteLine  T4 &"ConfigureAtLogon=1"

SIF.WriteLine  ""

SIF.WriteLine  "[Networking]"

SIF.WriteLine  T4 &"InstallDefaultComponents=Yes"

SIF.WriteLine  ""

SIF.WriteLine  T4 &"[identification]"

SIF.WriteLine  T4 &"JoinWorkgroup=ARBEIDSGRUPPE"

SIF.WriteLine  ""

SIF.WriteLine  T4 &"[shell]"

SIF.WriteLine  T4 &"CustomDefaultThemeFile = ""%WinDir%\Resources\Themes\Royale.theme"""

SIF.WriteLine  T4 &"DefaultStartPanelOff = No"

SIF.WriteLine  T4 &"DefaultThemesOff = No"

SIF.WriteLine  ""

SIF.WriteLine  "[WindowsFirewall]"

SIF.WriteLine  T4 &"Profiles=WindowsFirewall.TurnOffFirewall"

SIF.WriteLine  T4 &"[WindowsFirewall.TurnOffFirewall]"

SIF.WriteLine  T4 &"Mode=0"

SIF.WriteLine  ""

SIF.WriteLine  "[Components]"

SIF.WriteLine  T4 &"indexsrv_system=on"

SIF.WriteLine  T4 &"msmsgs=off"

SIF.WriteLine  ""

SIF.WriteLine  "[GuiRunOnce]"

SIF.WriteLine  T4 &"%systemdrive%\Install\Start.cmd"

SIF.close

WS.POPUP "COMPLETED", 3,"Gsm Winnt Maker", 0 +32

sh.run SD & "\winnt.sif /notepad.exe"

ON ERROR RESUME NEXT

FSO.DELETEFILE SD & "\WINNT.SIF-*.VBS"

Edited February 27, 2006 by gunsmokingman

[BoardBabe]

Ah, well it's for adding computer name then?

Could you do so that it also writes the autologon.reg and brukerkonto.cmd? My guess is I need to alter those also?

[gunsmokingman]

Here Is Both Scripts In One

Edit and removed the attachment here is the script that was inside of the SFX

Save As MkWinnt.Vbs

dim RT, RT1, UP, V

Dim FS, FSO, Folder ,USER1 , USER2 ,USER3

Dim Shell, AP, SD, SP, Wd

'dim RT, RT1, V

V = VBCRLF

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

Set fso = CreateObject("Scripting.FileSystemObject")

Set Action = CreateObject("wscript.shell")

AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%")

UP = Shell.ExpandEnvironmentStrings("%UserProfile%")

SD = Shell.ExpandEnvironmentStrings("%SystemDrive%")

SP = Shell.ExpandEnvironmentStrings("%SystemDrive%\Program Files")

WD = Shell.ExpandEnvironmentStrings("%Windir%\")

Function WinntSif

Dim PDK, FLN, ORG, CPN

T4 = space(4)

Set sh = CreateObject("WScript.Shell")

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

Set fso = CreateObject("Scripting.FileSystemObject")

Set WS = CreateObject("WScript.Shell")

SD = Shell.ExpandEnvironmentStrings("%SystemDrive%")

Set SIF = fso.CreateTextFile(SD & "\winnt.sif",True)

SIF.WriteLine ";SetupMgrTag"

SIF.WriteLine "[Data]"

SIF.WriteLine T4 &"AutoPartition=0"

SIF.WriteLine T4 &"MsDosInitiated=""0"""

SIF.WriteLine T4 &"UnattendedInstall=""Yes"""

SIF.WriteLine T4 &"AutomaticUpdates=yes"

SIF.WriteLine ""

SIF.WriteLine T4 &"[unattended]"

SIF.WriteLine T4 &"UnattendMode=FullUnattended"

SIF.WriteLine T4 &"OemSkipEula=Yes"

SIF.WriteLine T4 &"OemPreinstall=Yes"

SIF.WriteLine T4 &"TargetPath=\WINDOWS "

SIF.WriteLine T4 &"FileSystem=*"

SIF.WriteLine T4 &"UnattendSwitch=""yes"""

SIF.WriteLine T4 &"WaitForReboot=""No"""

SIF.WriteLine T4 &"DriverSigningPolicy=Ignore"

SIF.WriteLine T4 &"OemPnPDriversPath="""""

SIF.WriteLine ""

SIF.WriteLine T4 &"[GuiUnattended]"

SIF.WriteLine T4 &"AdminPassword=*"

SIF.WriteLine T4 &"EncryptedAdminPassword=NO"

SIF.WriteLine T4 &"OEMSkipRegional=1"

SIF.WriteLine T4 &"TimeZone=110"

SIF.WriteLine T4 &"OemSkipWelcome=1"

SIF.WriteLine ""

PDK = Inputbox("Type In The Product Key" & vbcrlf &_

"This Must Have These -Between-Each-Group-", "Gsm Add Product Key","",5500,5500)

FLN = Inputbox("Type In The FullName" & vbcrlf, "Gsm Add FullName","",5500,5500)

ORG = Inputbox("Type In The OrgName" & vbcrlf, "Gsm Add OrgName","",5500,5500)

CPN = Inputbox("Type In The OrgName" & vbcrlf, "Gsm Add OrgName","",5500,5500)

SIF.WriteLine T4 &"[userData]"

SIF.WriteLine T4 &"ProductKey=" & PDK

SIF.WriteLine T4 &"FullName=""" & FLN & """"

SIF.WriteLine T4 &"OrgName=""" & ORG & """"

SIF.WriteLine T4 &"ComputerName=" & CPN

SIF.WriteLine ""

SIF.WriteLine T4 &"[Display]"

SIF.WriteLine T4 &"BitsPerPel=32"

SIF.WriteLine T4 &"Xresolution=1400"

SIF.WriteLine T4 &"YResolution=1050"

SIF.WriteLine T4 &"Vrefresh=60"

SIF.WriteLine T4 &"AutoConfirm=1"

SIF.WriteLine T4 &"ConfigureAtLogon=1"

SIF.WriteLine ""

SIF.WriteLine "[Networking]"

SIF.WriteLine T4 &"InstallDefaultComponents=Yes"

SIF.WriteLine ""

SIF.WriteLine T4 &"[identification]"

SIF.WriteLine T4 &"JoinWorkgroup=ARBEIDSGRUPPE"

SIF.WriteLine ""

SIF.WriteLine T4 &"[shell]"

SIF.WriteLine T4 &"CustomDefaultThemeFile = ""%WinDir%\Resources\Themes\Royale.theme"""

SIF.WriteLine T4 &"DefaultStartPanelOff = No"

SIF.WriteLine T4 &"DefaultThemesOff = No"

SIF.WriteLine ""

SIF.WriteLine "[WindowsFirewall]"

SIF.WriteLine T4 &"Profiles=WindowsFirewall.TurnOffFirewall"

SIF.WriteLine T4 &"[WindowsFirewall.TurnOffFirewall]"

SIF.WriteLine T4 &"Mode=0"

SIF.WriteLine ""

SIF.WriteLine "[Components]"

SIF.WriteLine T4 &"indexsrv_system=on"

SIF.WriteLine T4 &"msmsgs=off"

SIF.WriteLine ""

SIF.WriteLine "[GuiRunOnce]"

SIF.WriteLine T4 &"%systemdrive%\Install\Start.cmd"

SIF.close

'WS.POPUP "COMPLETED", 3,"Gsm Winnt Maker", 0 +32

sh.run SD & "\winnt.sif /notepad.exe"

End Function

Function STB1

Set objExplorer = WScript.CreateObject("InternetExplorer.Application")

objExplorer.Navigate "ABOUT:GsmMove"

objExplorer.ToolBar = 0

objExplorer.StatusBar = 0

objExplorer.Width=450

objExplorer.Height = 212

objExplorer.Left = 350

objExplorer.Top = 275

Do While (objExplorer.Busy)

createobject("wscript.shell").popup "Working...",3,"Gsm Waiting", 0 +32

Loop

objExplorer.Visible = 1

objExplorer.Document.Body.InnerHTML = "<table BGCOLOR=GREEN height=""3""><code><li>" &_

"<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #406487;font-weight: Italic'>" &_

"Preparing Winnt.sif Output...." & vbcrlf &_

"<table BGCOLOR=GREEN height=""3""><code><li>Please Fill In The Information Needed!</table>"

Rt = SD & "\Winnt.sif"

RT1 = SD & "\"

WinntSif

strComputer = "."

Set colServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2"). _

ExecQuery("Select * from Win32_Service")

For Each objService in colServices

Wscript.Sleep 20

Next

objExplorer.Document.Body.InnerHTML = "<table BGCOLOR=GREEN height=""3"">" &_

"<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #609e80;font-weight: Italic'>" &_

"<code><B>Processing... Completed Output Of " & space(5) & RT & "</li></table>"

Wscript.Sleep 3000

objExplorer.Document.Body.InnerHTML = "<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #609e80;font-weight: Italic'>" &_

"<table BGCOLOR=Blue height=""3""><code><li> Your Winnt.sif Is Located Here..." & space(5) & RT1

Wscript.Sleep 3000

objExplorer.Document.Body.InnerHTML ="<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #406487;font-weight: Italic'>" &_

"<table BGCOLOR=GREEN height=""3"">Gunsmokingman Output BoardBabe-Winnt.sif" & space(5) & space(5) &_

"Thank You For Using This</table>"

Wscript.Sleep 2000

objExplorer.Document.Body.InnerHTML = "<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #406487;font-weight: Italic'><li>Process Completed!</table>"

Wscript.Sleep 2000

objExplorer.Quit

end function

FUNCTION USERMaker

USER1 = InputBox(space(12) & "USER NAME" & V &"Please Type In The User Name" & V &_

"This Is A Admin Account Level",space(12) & "USER NAME","",5500,5500)

USER2 = InputBox(space(12) & "PASSWORD" & V &"Add Your PassWord To The Account" & V &_

"Please Remeber Your Pass Word.",space(12) & "PASSWORD","",5500,5500)

USER3 = InputBox(space(12) & "AUTOLOGON" & V &"Add How Many Times You Want To " & V &_

"Auto Logon, Without Using The Pass Word.",space(12) & "AUTOLOGON","",5500,5500)

Set fs = CreateObject("Scripting.FileSystemObject")

strFileName = fs.BuildPath(Wscript.ScriptFullName & "\..", SD & "User1.cmd")

strFileName = fs.GetAbsolutePathName(strFileName)

Set ts = fs.OpenTextFile(SD & "User1.cmd", 2, True)

ts.WriteLine "echo off"

ts.WriteLine "cls"

ts.WriteLine "mode con: Cols=55 Lines=5"

ts.WriteLine "color 9F"

ts.WriteLine "Title Adding Users To Computer"

ts.WriteLine ">> %SYSTEMDRIVE%\REST1.vbs Echo Wscript.sleep 925"

ts.WriteLine "SET R1=Start /w %SYSTEMDRIVE%\Rest1.vbs"

ts.WriteLine "SET SD=%SYSTEMDRIVE%"

ts.WriteLine "echo."

ts.WriteLine "Echo Processing Wait.."

ts.WriteLine "%R1%"

ts.WriteLine "%R1%"

ts.WriteLine "ECHO [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] >> %SD%\User.reg"

ts.WriteLine "echo ""DefaultUserName""=""" & User1 & """ >> %SD%\User.reg"

ts.WriteLine "echo ""DefaultPassword""=""" & User2 & """ >> %SD%\User.reg"

ts.WriteLine "echo ""AutoAdminLogon""=""" & User3 & """ >> %SD%\User.reg"

ts.WriteLine "CLS"

ts.WriteLine "Echo Processing Wait.."

ts.WriteLine "%R1%"

ts.WriteLine "::::::::START CHECK"

ts.WriteLine ":ConF1"

ts.WriteLine "if exist %SD%\User.reg goto ConF5"

ts.WriteLine ":REDOME"

ts.WriteLine "if not exist %SD%\User.reg goto Recheck1"

ts.WriteLine ":ConF5"

ts.WriteLine "cls"

ts.WriteLine "color 3f"

ts.WriteLine "echo."

ts.WriteLine "echo Registry Files Out Put Completed!"

ts.WriteLine "%R1%"

ts.WriteLine "GOTO WORK1"

ts.WriteLine "::::::::RECHECK"

ts.WriteLine ":Recheck1"

ts.WriteLine "CLS"

ts.WriteLine "COLOR FC"

ts.WriteLine "TITLE RECHECK 1"

ts.WriteLine "ECHO."

ts.WriteLine "ECHO PREPARING TO RECHECK OUTPUT"

ts.WriteLine "%R1%"

ts.WriteLine ":F0"

ts.WriteLine "IF EXIST %SD%\User.reg goto ConF5"

ts.WriteLine "IF NOT EXIST %SD%\User.reg goto OPS"

ts.WriteLine ":OPS"

ts.WriteLine "ECHO [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] >> %SD%\User.reg"

ts.WriteLine "echo ""DefaultUserName""=""" & User1 & """ >> %SD%\User.reg"

ts.WriteLine "echo ""DefaultPassword""=""" & User2 & """ >> %SD%\User.reg"

ts.WriteLine "echo ""AutoAdminLogon""=""" & User3 & """ >> %SD%\User.reg"

ts.WriteLine "CLS"

ts.WriteLine "Echo Processing Wait.."

ts.WriteLine "%R1%"

ts.WriteLine "GOTO WORK1"

ts.WriteLine ":::::::END OF THE CHECK AND OUT PUT"

ts.WriteLine ":WORK1"

ts.WriteLine "CLS"

ts.WriteLine "COLOR F3"

ts.WriteLine "TITLE ADD ALL USERS"

ts.WriteLine "::::::: USER 1"

ts.WriteLine "net user " & user1 & SPACE(1) & User2 & "/add"

ts.WriteLine "net localgroup Administrators " & user1 & "/add"

ts.WriteLine "net accounts /maxpwage:unlimited"

ts.WriteLine "::::::::::::::::::ADDING THE REG"

ts.WriteLine "REGEDIT /S %SD%\User.reg"

ts.WriteLine ":QUIT "

ts.WriteLine "DEL %SYSTEMDRIVE%\User.reg"

ts.WriteLine "DEL %SYSTEMDRIVE%\REST*.VBS"

ts.WriteLine "Echo Completed Adding Users?"

ts.WriteLine "ping -n 3 127.0.0.1>nul"

ts.WriteLine "exit"

ts.Close

Set FS = CreateObject("Scripting.FileSystemObject")

strFileName = fs.BuildPath(Wscript.ScriptFullName & "\..", SD & "cmdlines.txt")

strFileName = fs.GetAbsolutePathName(strFileName)

Set CL = FS.OpenTextFile(SD & "cmdlines.txt", 2, True)

CL.WriteLine "[COMMANDS]"

CL.WriteLine """User1.cmd"""

CL.Close

wscript.sleep 150

END FUNCTION

Function STB2

Set objExplorer = WScript.CreateObject("InternetExplorer.Application")

objExplorer.Navigate "ABOUT:GsmMove"

objExplorer.ToolBar = 0

objExplorer.StatusBar = 0

objExplorer.Width=450

objExplorer.Height = 212

objExplorer.Left = 350

objExplorer.Top = 275

Do While (objExplorer.Busy)

createobject("wscript.shell").popup "Working...",3,"Gsm Waiting", 0 +32

Loop

objExplorer.Visible = 1

objExplorer.Document.Body.InnerHTML = "<table BGCOLOR=GREEN height=""3""><code><li>" &_

"<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #406487;font-weight: Italic'>" &_

"Preparing User1.cmd And Cmdline.txt...." & vbcrlf &_

"<table BGCOLOR=GREEN height=""3""><code><li>Please Fill In The Information Needed!</table>"

Rt = SD & "\User1.cmd"

RT1 = SD & "\CmdLine.txt"

USERMaker

strComputer = "."

Set colServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2"). _

ExecQuery("Select * from Win32_Service")

For Each objService in colServices

Wscript.Sleep 20

Next

objExplorer.Document.Body.InnerHTML = "<table BGCOLOR=GREEN height=""3"">" &_

"<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #609e80;font-weight: Italic'>" &_

"<code><B>Processing... Completed Output Of " & space(5) & RT & "</li></table>" &_

"<code><B>Processing... Completed Output Of " & space(5) & RT1 & "</li></table>"

Wscript.Sleep 3000

objExplorer.Document.Body.InnerHTML = "<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #609e80;font-weight: Italic'>" &_

"<table BGCOLOR=Blue height=""5""><code><li> Your CmdLine.txt Is Located Here..." & space(5) & RT1 &_

"<code><li> Your User1.cmd Is Located Here..." & space(5) & RT

Wscript.Sleep 3000

objExplorer.Document.Body.InnerHTML ="<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #406487;font-weight: Italic'>" &_

"<table BGCOLOR=GREEN height=""3"">Gunsmokingman Output User1.cmd And Cmdline.txt" & space(5) & space(5) &_

"Thank You For Using This</table>"

Wscript.Sleep 2000

objExplorer.Document.Body.InnerHTML = "<span style='font-size: 10.0pt;font-family:""Comic Sans MS"";COLOR: #406487;font-weight: Italic'><li>Process Completed!</table>"

Wscript.Sleep 2000

objExplorer.Quit

end function

STB1

STB2

'''''''''CLEAN UP THE SCRIPT

ON ERROR RESUME NEXT

fso.DeleteFile( SD & "UserAccounts.vbs")

FSO.DELETEFILE SD & "\WINNT.SIF-*.VBS"

''''''''TO MAKE SURE THERE NOTHING RUNNING AT THE END

Set fso = NOTHING

Set Shell = NOTHING

Set Action = NOTHING

Edited February 27, 2006 by gunsmokingman