Req: Help Making A .cmd To Change Username.

**BoardBabe** · March 11, 2005

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** · March 11, 2005

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** · March 12, 2005

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** · March 12, 2005

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** · March 12, 2005

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** · March 12, 2005

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** · March 13, 2005

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

Sign In

Req: Help Making A .cmd To Change Username.

Recommended Posts

BoardBabe

gunsmokingman

BoardBabe

BoardBabe

gunsmokingman

BoardBabe

gunsmokingman

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Activity

Browse