Beta4Me
Content Type
Profiles
Forums
Events
Posts posted by Beta4Me
-
-
Get your WinXP CD, and look here:
%ROOTOFCD%\SUPPORT\TOOLS\
here you will find a deploy.cab file. extract this out and have a look at these two files:
deploy.chm
ref.chm
These two files will answer most of your questions.
I've checked them and learnt about that stuff, but it doesn't tell me how to access or use mini-setup or a very good explanation of it, jsut a brief description.
Also do you just sysprep -factory it or syprep -audit and then reseal.
Can this be used on systems with totally different HAL's and update them during mini-setup?
0 -
Awesome they all work great. The wonders of being 13 yo.
0 -
His method won't help in this instance. Even if you had a WIM with a captured WinXp install (syspreped), it would still see the same problem when you laid the image down. The problem is with WinPE v2's diskpart or bootsect.
Now to answer you question on how to to this:
You have a base install of WinXP, configured how you want it.
Then you configure your sysprep answer file for mini-setup.
Then you run sysprep to prepare the OS.
Then you bring the machine up into WinPE and run imagex to capture your new WIM.
From this point you can deploy this image to other boxes.
sorry if this is a stupid question but how do you use sysprep and what is mini-setup lol. I am a novice currently at this.
0 -
You know, you could make a WinXP WIM file and install it that way...
How do you do that, i have searched high and low. Please Explain...
0 -
0
-
This is an HTA. It has JavaScript and VBS in it too so i would conside it Programming.
This is my code:
<HTML><HEAD>
<TITLE>Install Applications</TITLE>
<HTA:APPLICATION
applicationname="Install Applications"
maximizebutton="no"
minimizebutton="yes"
scroll="no"
showintaskbar="yes"
singleinstance="yes"
Icon="%SystemRoot%\explorer.exe">
<STYLE type="text/css">
Body
{
font:10.75pt;
font-family: arial, Verdana, Palatino Linotype;
color:#E3E3E3;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='blue', EndColorStr='#000000');
padding-top:1;
padding-bottom:1;
Text-Align:;
}
.Button
{
font: 8.25pt;
font-family: Verdana, Palatino Linotype;
color:#E1E1E1;
font-weight:bold;
Text-Align:Center;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='lightblue',endColorStr='darkblue');
padding-top:1;
padding-bottom:1;
cursor:Hand;
Height:19; width:93;
border-left: 1px Transparent;
border-right: 2px Transparent;
border-top: 1px Transparent;
border-Bottom: 2px Transparent;
}
.TextBackGround
{
font-family: arial, Verdana, Palatino Linotype;
color:#1E1E1E;
font-weight:bold;
filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=0,StartColorStr=#e2ded8,EndColorStr=#e8e2de;
padding-top:1; padding-bottom:1;
border-left: 3px none Transparent;
border-right: 2px none Transparent;
border-top: 3px none Transparent;
border-Bottom: 2px none Transparent;
font-style:normal; font-variant:normal; font-size:8.25pt
}
</STYLE>
<script Language="JavaScript">
var Act = new ActiveXObject("Wscript.Shell");
var Fso = new ActiveXObject("Scripting.FileSystemObject");
/* CLOSE THE HTA -> */
function ExitThis() { window.close();}
/* RUN BUTTON CHANGE TEXT -> */
function Button1ChangeText() { if (Install_Button.value =="Install Apps")
{Install_Button.value ='Click 2 Install'} else {Install_Button.value ='Install Apps';}}
/* CLEAR BUTTON CHANGE TEXT -> */
function Button2ChangeText() { if (Clear_Button.value =="Clear Text")
{Clear_Button.value ='Clear All Text'} else {Clear_Button.value ='Clear Text';}}
/* CLOSE BUTTON CHANGE TEXT -> */
function Button3ChangeText() { if (Close_Button.value =="Exit")
{Close_Button.value ='Close'} else {Close_Button.value ='Exit';}}
</SCRIPT>
<script language="VBScript">
Dim strAlcohol120, strDVDDecrypter, strDVDShrink, strWB51, strAdAware, strAVG, strCC, strZLS
'/-> TEXT BOXES SCRIPTS
Function Install()
strAlcohol120 = TextBox0.Value : strDVDDecrypter = TextBox1.Value : strDVDShrink = TextBox2.Value : strWB51 = TextBox3.Value : strAdAware = TextBox4.Value : strAVG = TextBox5.Value : strCC = TextBox6.Value : strZLS = TextBox7.Value : strRunScript = RunScript
If strAlcohol120 = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Alcohol 120%" & chr(34),64,"Alert"
document.getElementByID("textbox0").select
ElseIf strDVDDecrypter = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "DVD Decrypter" & chr(34),64,"Alert"
document.getElementByID("textbox1").select
ElseIf strDVDShrink = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "DVD Shrink" & chr(34),64,"Alert"
document.getElementByID("textbox2").select
ElseIf strWB51 = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "WindowBlinds 5.1" & chr(34),64,"Alert"
document.getElementByID("textbox3").select
ElseIf strAdAware = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Ad-Aware" & chr(34),64,"Alert"
document.getElementByID("textbox4").select
ElseIf strAVG = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "AVG Anti-virus" & chr(34),64,"Alert"
document.getElementByID("textbox5").select
ElseIf strCC = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Crap Cleaner" & chr(34),64,"Alert"
document.getElementByID("textbox6").select
ElseIf strZLS = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Zone Alarm" & chr(34),64,"Alert"
document.getElementByID("textbox7").select
End If
Set strScript = Fso.CreateTextFile("Install.vbs")
If strAlcohol120 = "Yes" Then
Act.Run("%Comspec% /C Alcohol120.exe /c /add"), 0, True
End If
If strDVDDecrypter = "Yes" Then
Act.Run("%Comspec% /C DVDDecrypter354.exe /c /add"), 0, True
End If
If strDVDShrink = "Yes" Then
Act.Run("%Comspec% /C DVDShrink32.exe /c /add"), 0, True
End If
If strWB51 = "Yes" Then
Act.Run("%Comspec% /C WB51.exe /c /add"), 0, True
End If
If strAdAware = "Yes" Then
Act.Run("%Comspec% /C ADAWARE.EXE /c /add"), 0, True
End If
If strAVG = "Yes" Then
Act.Run("%Comspec% /C AVG71.EXE /c /add"), 0, True
End If
If strCC = "Yes" Then
Act.Run("%Comspec% /C CCLEANER.EXE /c /add"), 0, True
End If
If strZLS = "Yes" Then
Act.Run("%Comspec% /C ZLS.exe /c /add"), 0, True
End If
'/-> FINISHING SCRIPT
strScript.WriteLine "Fso.DeleteFile(WScript.ScriptFullName)"
strScript.Close
call RunScript
End Function
'/-> RUN NEW SCRIPT AND THEN DELETE THE SCRIPT
Function RunScript() : Act.Run("Install.vbs"), 1, True : End Function
'/-> CLEAR THE TEXT BOXES
Function ClearText() : TextBox0.Value = "" : TextBox1.Value = "" : TextBox2.Value = "" : TextBox3.Value = "" : TextBox4.Value = "" : TextBox5.Value = "" : TextBox6.Value = "" : TextBox7.Value = "" : End Function
'/-> ON LOAD EVENT
Function window_Onload() : window.ResizeTo 470,380 : TextBox0.focus() : End Function
</SCRIPT>
</HEAD><BODY><CENTER>
<!-- TEXT BOX TABLE START --><TABLE width='95%' border='1' cellpadding='6'><TD>
<!-- TEXT BOX 00 START -->
<TABLE><TD Width='125'><B>Alcohol 120%</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox0">
</TD></TABLE>
<!-- TEXT BOX 01 START -->
<TABLE><TD Width='125'><B>DVD Decrypter</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox1">
</TD></TABLE>
<!-- TEXT BOX 02 START -->
<TABLE><TD Width='125'><B>DVD Shrink</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox2">
</TD> </TABLE>
<!-- TEXT BOX 03 START --
<TABLE id="table1"><TD Width='125'><B>WindowBlinds</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox3">
</TD></TABLE>
<!-- TEXT BOX 04 START -->
<TABLE id="table6"><TD Width='125'><B>Ad-Aware</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox4">
</TD></TABLE>
<!-- TEXT BOX 05 START -->
<TABLE id="table10"><TD Width='125'><B>AVG Anti-virus</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox5">
</TD></TABLE>
<!-- TEXT BOX 06 START -->
<TABLE id="table13"><TD Width='125'><B>Crap Cleaner</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox6">
</TD></TABLE>
<!-- TEXT BOX 07 START -->
<TABLE id="table14"><TD Width='125'><B>Zone Alarm</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox7">
</TD></TABLE>
<!-- TEXT BOX TABLE END --></TABLE>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<!-- BUTTON TABLE START --><TABLE>
<!-- RUN BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Install Apps" name="Install_Button"
OnMouseOver="Button1ChangeText(),this.style.color='#330000';"
OnMouseOut="Button1ChangeText(),this.style.color='#E1E1E1';"
onClick="Install()"></TD>
<!-- CLEAR BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Clear Text" name="Clear_Button"
OnMouseOver="Button2ChangeText(),this.style.color='#330000';"
OnMouseOut="Button2ChangeText(),this.style.color='#E1E1E1';"
onClick="ClearText()"></TD>
<!-- CLOSE BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Exit" name="Close_Button"
OnMouseOver="Button3ChangeText(),this.style.color='#330000';"
OnMouseOut="Button3ChangeText(),this.style.color='#E1E1E1';"
onClick="ExitThis()"></TD>
<!-- BUTTON TABLE END --> </TABLE></CENTER>
<!-- Yzöwl TABLE START -->
<TABLE><TD WIDTH='236' HEIGHT='47' Style='font:8.75pt;Color:"white"'><SPAN ID='Txt1'></SPAN></TD>
<TD><FONT color="#E1E1E1" size="1.25">© 2006 Yzöwl. All Rights Reserved</FONT></TD></TABLE>
<!-- Yzöwl TABLE END -->
</BODY></HTML>Run it and you should see the error.
Any suggestions in other aspects and/or neating/cleaning/tidying/fixing/more-effiecient-ing this script would also be much appreciated.
TY guys.
0 -
I missed 2 of these & in One line
Change This
Act.Run("%Comspec% /C net localgroup %" strGroup "% %" & strName & " /add"), 0, TrueChange To
Act.Run("%Comspec% /C net localgroup %" & strGroup & "% %" & strName & " /add"), 0, TrueTY. I fixed the file and they both work like a charm. Thanks for your help, mate!
0 -
He is using
. It's in his Sig.IE 6.0.2800.11060 -
Thanks for all your help Yzowl & Gsm. Now here's my script:
But i get this error:<!-- ORIGINAL HTA AND SCRIPT BY YZOWLHTA EDIT BY GUNSMOKINGMAN
HTA RE-EDIT BY BETA4ME -->
<HTML><HEAD>
<TITLE>User Account Creation</TITLE>
<HTA:APPLICATION
applicationname="User Account Creation"
maximizebutton="no"
minimizebutton="yes"
scroll="no"
showintaskbar="yes"
singleinstance="yes"
Icon="%SystemRoot%\explorer.exe">
<STYLE type="text/css">
Body
{
font:10.75pt;
font-family: arial, Verdana, Palatino Linotype;
color:#E3E3E3;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='#00CC00', EndColorStr='#4E4E4E');
padding-top:1;
padding-bottom:1;
Text-Align:;
}
.Button
{
font: 8.25pt;
font-family: Verdana, Palatino Linotype;
color:#E1E1E1;
font-weight:bold;
Text-Align:Center;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='#d0d0d0',endColorStr='#008C80');
padding-top:1;
padding-bottom:1;
cursor:Hand;
Height:19; width:93;
border-left: 1px Transparent;
border-right: 2px Transparent;
border-top: 1px Transparent;
border-Bottom: 2px Transparent;
}
.TextBackGround
{
font-family: arial, Verdana, Palatino Linotype;
color:#1E1E1E;
font-weight:bold;
filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=0,StartColorStr=#e2ded8,EndColorStr=#e8e2de;
padding-top:1; padding-bottom:1;
border-left: 3px none Transparent;
border-right: 2px none Transparent;
border-top: 3px none Transparent;
border-Bottom: 2px none Transparent;
font-style:normal; font-variant:normal; font-size:8.25pt
}
</STYLE>
<script Language="JavaScript">
var Act = new ActiveXObject("Wscript.Shell");
var Fso = new ActiveXObject("Scripting.FileSystemObject");
/* CLOSE THE HTA -> */
function ExitThis() { window.close();}
/* RUN BUTTON CHANGE TEXT -> */
function Button1ChangeText() { if (Run_Button.value =="Submit Data")
{Run_Button.value ='Press To Add'
Txt1.innerHTML= 'All Three Text Boxes Must Be Filled In. <BR>If Any ' +
'Text Box Is Not Filled In It Will Not <BR>Run The Script!' }
else {Run_Button.value ='Submit Data', Txt1.innerHTML= '';}}
/* CLEAR BUTTON CHANGE TEXT -> */
function Button2ChangeText() { if (Clear_Button.value =="Clear Text")
{Clear_Button.value ='Clear Text'} else {Clear_Button.value ='Clear Text';}}
/* CLOSE BUTTON CHANGE TEXT -> */
function Button3ChangeText() { if (Close_Button.value =="Close App")
{Close_Button.value ='Close App'} else {Close_Button.value ='Close App';}}
</SCRIPT>
<script language="VBScript">
Dim IntC, Length, strPass, strName, strGroup, ZZ1
'/-> TEXT BOXES SCRIPTS
Function RegEdit()
strName = TextBox0.Value : strPass = TextBox1.Value : strGroup = TextBox2.Value
If strName = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Username" & chr(34)
Exit Function
Else
IntC = 1
End If
If strPass = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Password" & chr(34),64,"Alert"
Exit Function
Else
'/-> CHECK THE LENGTH OF THE PASSWORD
Length = 6
If Length <= Len(strPass) Then
IntC = IntC + 1
Else
window.alert("This password was not long enough " & strPass & vbcrlf &_
"This has only " & Len(strPass) & " characters the password needs at lest 6 characters")
TextBox1.Value = ""
Exit Function
End If
End If
If strGroup = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Group" & chr(34),64,"Alert"
Exit Function
Else
IntC = IntC + 1
End If
'/-> THIS IS A CHECK IT WILL ONLY GOTO AddUserFunction() IF IT EQUALS 3
If IntC = 3 Then AddUserFunction() End If
End Function
Function AddUserFunction()
'/-> START CONFIRM
ZZ1 = window.confirm("Is This The Correct Information" & vbcrlf &_
"Ok To Add This Information" & vbcrlf & "Cancel to not add the information" & vbcrlf &_
"strPass = " & strPass & vbcrlf & "strName = " & strName & vbcrlf & "strGroup = " & strGroup)
If ZZ1 = True Then
'/-> ADD THE INFORMATION
'/-> REMOVE THESE ' FROM BELOW HERE TO MAKE ACTIVE
Act.Run("%Comspec% /C net user %" & strName & "% %" & strPass & "% /add"), 0, True
Act.Run("%Comspec% /C net localgroup %" strGroup "% %" & strName & " /add"), 0, True
Act.Run("%Comspec% /C net accounts /maxpwage:unlimited"), 0, True
Else
ClearText()
End IF
End Function
'/-> CLEAR THE TEXT BOXES
Function ClearText()
TextBox0.Value = "" : TextBox1.Value = "" : TextBox2.Value = ""
IntC = 0
End Function
'/-> ON LOAD EVENT
Function window_Onload() : window.ResizeTo 440,260 : TextBox0.focus() : End Function
</SCRIPT>
</HEAD><BODY><CENTER>
<!-- TEXT BOX TABLE START --><TABLE width='95%' border='1' cellpadding='6'><TD>
<!-- TEXT BOX 01 START -->
<TABLE><TD Width='125'><B>» Username</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox0">
</TD></TABLE>
<!-- TEXT BOX 02 START -->
<TABLE><TD Width='125'><B>» Password</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox1">
</TD></TABLE>
<!-- TEXT BOX 03 START -->
<TABLE><TD Width='125'><B>» Group</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox2"></TD>
</TABLE></TD>
<!-- TEXT BOX TABLE END --></TABLE>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<!-- BUTTON TABLE START -->
<p style="margin-top: 0; margin-bottom: 0"> </p>
<TABLE>
<!-- RUN BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Submit Data" name="Run_Button"
OnMouseOver="Button1ChangeText(),this.style.color='#004f1a';"
OnMouseOut="Button1ChangeText(),this.style.color='#E1E1E1';"
onClick="RegEdit()"></TD>
<!-- CLEAR BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Clear Text" name="Clear_Button"
OnMouseOver="Button2ChangeText(),this.style.color='#004f1a';"
OnMouseOut="Button2ChangeText(),this.style.color='#E1E1E1';"
onClick="ClearText()"></TD>
<!-- CLOSE BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Close App" name="Close_Button"
OnMouseOver="Button3ChangeText(),this.style.color='#004f1a';"
OnMouseOut="Button3ChangeText(),this.style.color='#E1E1E1';"
onClick="ExitThis()"></TD>
<!-- BUTTON TABLE END --> </TABLE></CENTER>
<!-- Yzöwl TABLE START -->
<TABLE><TD WIDTH='236' HEIGHT='47' Style='font:8.75pt;Color:"#E1E1E1"'><SPAN ID='Txt1'></SPAN></TD>
<TD><FONT color="#E1E1E1" size="1.25">© 2006 Yzöwl. All Rights Reserved</FONT></TD></TABLE>
<!-- Yzöwl TABLE END -->
</BODY></HTML>
followed by this:
(As you can see this is sized wrong).
This only happens when I uncomment:
Act.Run("%Comspec% /C net user %" & strName & "% %" & strPass & "% /add"), 0, TrueAct.Run("%Comspec% /C net localgroup %" strGroup "% %" & strName & " /add"), 0, True
Act.Run("%Comspec% /C net accounts /maxpwage:unlimited"), 0, True
Any Ideas?
0 -
Thanks put it only display a Msg Box saying "Preparing Script" what i need it to do is take the Red stuff in the CMD and put it in the Red section in the HTA. But substituting the Variable names. Thanks, later days,
.It only displays that message if all 3 boxes are filled in. Try to get it to work without all 3 boxes filled in. It will pass all the varibles to MakeScript() you have to fill in that part of the script.
Sorry but I don't understand
. All i want is someone to convert the Red part in CMD to a VBScript so I can use it. 0 -
Thanks put it only display a Msg Box saying "Preparing Script" what i need it to do is take the Red stuff in the CMD and put it in the Red section in the HTA. But substituting the Variable names. Thanks, later days,
.0 -
This is not a full script but it should help you do what you want.
Dim Act : Set Act = CreateObject("Wscript.shell")
Dim StrUser : StrUser = Act.ExpandEnvironmentStrings("%UserName%")
Dim StrPass
StrPass = InputBox("Type in the password","Password")
If StrPass <> "" Then
MsgBox "User Type In : " & StrPass & vbCrLf &_
"User Name : " & StrUser, 0 + 32 + 4096, "Password"
Else
MsgBox "Nothing was type in preparing to quit", 0 + 32 + 4096, "No Text Detected"
End IfThanks, but that is not what i need. I guess i wasn't specific enough. Please Let me explain everyting:
I used the file Yzowl and GSM put together and tweaked it. Then i made this file:
@echo OffTITLE User Account Creation
ECHO Create Desired amount of User Accounts with a
ECHO set Username and Password that Never Expires.
:USER
ECHO.
ECHO.
ECHO Type in Username and Password for Account
ECHO Note: Case-Sensitive
ECHO.
SET /P USERNAME=Username:
SET /P PASS=Password:
ECHO.
ECHO Your input was...
ECHO Username: %USERNAME%
ECHO Password: %PASS%
ECHO Type in YES to Change it or NO to Confirm.
:CHANGE
SET /P CHANGE=Change:
IF /I "%CHANGE%"=="YES" goto :USER
IF /I "%CHANGE%"=="Y" goto :USER
IF /I "%CHANGE%"=="NO" goto :GROUP
IF /I "%CHANGE%"=="N" goto :GROUP
ECHO Error! Please Try again (Yes/No)...
goto :CHANGE
:GROUP
ECHO.
ECHO Please Specify account User Privelages...
ECHO Note that:
ECHO 1 = Administrators
ECHO 2 = Users
ECHO 3 = Guests
SET /P GROUP=Group:
IF /I "%GROUP%"=="1" SET GROUP=Administrators
IF /I "%GROUP%"=="2" SET GROUP=Users
IF /I "%GROUP%"=="3" SET GROUP=Guests
goto :FINALISE
:FINALISE
cls
ECHO.
ECHO The Account you will create has the
ECHO following attributes:
ECHO.
ECHO Username: %USERNAME%
ECHO Password: %PASS%
ECHO Group: %GROUP%
ECHO.
:CHANGE1
ECHO Type in YES to Change it or NO to Confirm.
SET /P CHANGE1=Change:
IF /I "%CHANGE1%"=="YES" goto :USER
IF /I "%CHANGE1%"=="Y" goto :USER
IF /I "%CHANGE1%"=="NO" goto :CREATION
IF /I "%CHANGE1%"=="N" goto :CREATION
ECHO Error! Please Try again (Yes/No)...
goto :CHANGE1
:CREATION
ECHO.
ECHO Creating %USERNAME%'s Account...
net user %USERNAME% %PASS% /add
net localgroup %GROUP% %USERNAME% /add
net accounts /maxpwage:unlimited
cls
ECHO Task Completed Successfully
goto :CHOICE
:CHOICE
cls
ECHO Do you want to Create any more User Accounts?
ECHO Type in YES to create more or NO to Exit
SET /P CREATION=Change:
IF /I "%CREATION%"=="YES" goto :USER
IF /I "%CREATION%"=="Y" goto :USER
IF /I "%CREATION%"=="NO" goto :END
IF /I "%CREATION%"=="N" goto :END
:END
ECHO.
SET /P END=Press Enter to Exit...
exit
I then decided I wanted it in the same style as the HTA.
So i modded it like this:
<!-- ORIGINAL HTA AND SCRIPT BY YZOWLHTA EDIT BY GUNSMOKINGMAN
HTA RE-EDIT BY BETA4ME -->
<HTML><HEAD>
<TITLE>User Account Creation</TITLE>
<HTA:APPLICATION
applicationname="User Account Creation"
maximizebutton="no"
minimizebutton="yes"
scroll="no"
showintaskbar="yes"
singleinstance="yes"
Icon="%SystemRoot%\explorer.exe">
<STYLE type="text/css">
Body
{
font:10.75pt;
font-family: arial, Verdana, Palatino Linotype;
color:#E3E3E3;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='#00CC00', EndColorStr='#4E4E4E');
padding-top:1;
padding-bottom:1;
Text-Align:;
}
.Button
{
font: 8.25pt;
font-family: Verdana, Palatino Linotype;
color:#E1E1E1;
font-weight:bold;
Text-Align:Center;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='#d0d0d0',endColorStr='#008C80');
padding-top:1;
padding-bottom:1;
cursor:Hand;
Height:19; width:93;
border-left: 1px Transparent;
border-right: 2px Transparent;
border-top: 1px Transparent;
border-Bottom: 2px Transparent;
}
.TextBackGround
{
font-family: arial, Verdana, Palatino Linotype;
color:#1E1E1E;
font-weight:bold;
filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=0,StartColorStr=#e2ded8,EndColorStr=#e8e2de;
padding-top:1; padding-bottom:1;
border-left: 3px none Transparent;
border-right: 2px none Transparent;
border-top: 3px none Transparent;
border-Bottom: 2px none Transparent;; font-style:normal; font-variant:normal; font-size:8.25pt
}
</STYLE>
<script Language="JavaScript">
var Act = new ActiveXObject("Wscript.Shell");
var Fso = new ActiveXObject("Scripting.FileSystemObject");
/* CLOSE THE HTA -> */
function ExitThis() { window.close();}
/* RUN BUTTON CHANGE TEXT -> */
function Button1ChangeText() { if (Run_Button.value =="Submit Data")
{Run_Button.value ='Press To Add'
Txt1.innerHTML= 'All Three Text Boxes Must Be Filled In. <BR>If Any ' +
'Text Box Is Not Filled In It Will Not <BR>Run The Script!' }
else {Run_Button.value ='Submit Data', Txt1.innerHTML= '';}}
/* CLEAR BUTTON CHANGE TEXT -> */
function Button2ChangeText() { if (Clear_Button.value =="Clear Text")
{Clear_Button.value ='Clear Text'} else {Clear_Button.value ='Clear Text';}}
/* CLOSE BUTTON CHANGE TEXT -> */
function Button3ChangeText() { if (Close_Button.value =="Close App")
{Close_Button.value ='Close App'} else {Close_Button.value ='Close App';}}
</SCRIPT>
<script language="VBScript">
Dim strPass, strName, strGroup
'/-> TEXT BOXES SCRIPTS
Function RegEdit()
strName = TextBox0.Value : strPass = TextBox1.Value : strGroup = TextBox2.Value
If strName = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Username" & chr(34)
document.getElementByID("textbox0").select
ElseIf strPass = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Password" & chr(34),64,"Alert"
document.getElementByID("textbox1").select
ElseIf strGroup = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Group" & chr(34),64,"Alert"
document.getElementByID("textbox2").select
'/-> START SCRIPT
Else
Set strScript = Fso.CreateTextFile("CreateUser.vbs")
strScript.WriteLine "Set Act = CreateObject(" & chr(34) & "WScript.Shell" & chr(34) & ")"
strScript.WriteLine "Set Fso = CreateObject(" & chr(34) & "Scripting.FileSystemObject" & chr(34) & ")"
'/-> BODY of SCRIPT
strScript.WriteLine "Fso.DeleteFile(WScript.ScriptFullName)"
strScript.Close
call RunScript
End If
End Function
'/-> FINISH SCRIPT
'/-> RUN NEW SCRIPT AND THEN DELETE THE SCRIPT
Function RunScript() : Act.Run("CreateUser.vbs"), 1, True : End Function
'/-> CLEAR THE TEXT BOXES
Function ClearText() : TextBox0.Value = "" : TextBox1.Value = "" : TextBox2.Value = "" : End Function
'/-> ON LOAD EVENT
Function window_Onload() : window.ResizeTo 440,260 : TextBox0.focus() : End Function
</SCRIPT>
</HEAD><BODY><CENTER>
<!-- TEXT BOX TABLE START --><TABLE width='90%' border='1' cellpadding='6'><TD>
<!-- TEXT BOX 01 START -->
<TABLE><TD Width='125'><B>» Username</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox0">
</TD></TABLE>
<!-- TEXT BOX 02 START -->
<TABLE><TD Width='125'><B>» Password</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox1">
</TD></TABLE>
<!-- TEXT BOX 03 START -->
<TABLE><TD Width='125'><B>» Group</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox2"></TD>
</TABLE></TD>
<!-- TEXT BOX TABLE END --></TABLE>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<!-- BUTTON TABLE START --><TABLE>
<!-- RUN BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Submit Data" name="Run_Button"
OnMouseOver="Button1ChangeText(),this.style.color='#004f1a';"
OnMouseOut="Button1ChangeText(),this.style.color='#E1E1E1';"
onClick="RegEdit()"></TD>
<!-- CLEAR BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Clear Text" name="Clear_Button"
OnMouseOver="Button2ChangeText(),this.style.color='#004f1a';"
OnMouseOut="Button2ChangeText(),this.style.color='#E1E1E1';"
onClick="ClearText()"></TD>
<!-- CLOSE BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Close App" name="Close_Button"
OnMouseOver="Button3ChangeText(),this.style.color='#004f1a';"
OnMouseOut="Button3ChangeText(),this.style.color='#E1E1E1';"
onClick="ExitThis()"></TD>
<!-- BUTTON TABLE END --> </TABLE></CENTER>
<!-- Yzöwl TABLE START -->
<TABLE><TD WIDTH='236' HEIGHT='47' Style='font:8.75pt;Color:"#E1E1E1"'><SPAN ID='Txt1'></SPAN></TD>
<TD><FONT color="#E1E1E1" size="1.25">© 2006 Yzöwl. All Rights Reserved</FONT></TD></TABLE>
<!-- Yzöwl TABLE END -->
</BODY></HTML>
The section in Red, is another section of the Script i Edited (more like purged) and doesn't work. I need the CMD section that is in Red to be converted to VBS to put in (i think). Substituting %USERNAME% with strUser, %PASS% with strPass, and %GROUP% with strGroup.
Thanks peeps for all your help,
.0 -
Can someone please convert this:
net user %USERNAME% %PASS% /addnet localgroup %GROUP% %USERNAME% /add
net accounts /maxpwage:unlimited
to a VBScript Replacing:
%USERNAME% -> strUser
%PASS% -> strPass
%GROUP% -> strGroup
0 -
mandrake10 -> Beta4Me
There is a User called Beta4Me which i created b/c i didn't know you could change your Name.
I will post here with it to prove it
P.S. they will have the same IP,
.Confirmed,
TY, Myself.
0 -
mandrake10 -> Beta4Me
There is a User called Beta4Me which i created b/c i didn't know you could change your Name.
I will post here with it to prove it
P.S. they will have the same IP,
.0 -
Hi mandrake10,
I wrote a tool that can be used to change the computer name and registered owner/organization using a GUI. In addition it can take values from an INI file where you can specify different MACs for different PCs and depending on the MAC address detected upon execution, the appropriate values will be automatically picked from the INI file. It can be found in this Thread.
CF
Thanks, this is Really Cool and I will most likely use it. But if someone can answer the question in my previous post, it will be much appreciated.
Thanks, 0 -
OK, just for the record, now that everyone has had his part of fun and hopefully mandrake10 has learned a few neat tricks, why not using a more featured, pre-made FREEWARE and OPEN SOURCE app?:
http://gravityfx.org/?id=projects
(a .NET solution, so not really useful unless you need .NET for any other more meaningful reason)
jaclaz
Thanks for that, it's got tonnes of Tweak Settings, but would take too long to use to Mod my system. If you read my posts up above; I need to Edit the Computer Name, Owner's Name & Organization's Name ONLY. My CMD's work fine, and the HTA is great (Nice GUI). It does what i need it to do no more, no less. My Reg tweaks are imported during the Windows Setup and RunOnceEx, so i do not need to tweak anything more.
If someone could answer this question:
EDIT: NVM. The My Computer Properties shows the old Name . But Windows actually recognizes it as the new name . Weird, huh. Is there some-way to "Refresh" or "Update" the dialogue? Plzzzz...EDIT 2: Even after Reboots still shows old name.
that is all I need
, thanks... 0 -
Bugger, the Reg Entries in there DON'T change the Computer Name. Org & Owner Name's work but Computer Name don't, any help please.
EDIT: NVM. The My Computer Properties shows the old Name
. But Windows actually recognizes it as the new name . Weird, huh . Is there some-way to "Refresh" or "Update" the dialogue? Plzzzz...EDIT 2: Even after Reboots still shows old name.
0 -
Thanks guys (or girls,
) for your help, it is very appreciated. Now i hope i can help you one day.
EDIT: Hello,
. Code tweaked by Mua:<!-- ORIGINAL HTA AND SCRIPT BY YZOWL
HTA EDIT BY GUNSMOKINGMAN
HTA RE-EDIT BY BETA4ME -->
<HTML><HEAD>
<TITLE>Owner, Organization & PC Name</TITLE>
<HTA:APPLICATION
applicationname="Owner, Organization & PC Name"
maximizebutton="no"
minimizebutton="yes"
scroll="no"
showintaskbar="yes"
singleinstance="yes"
Icon="%SystemRoot%\explorer.exe">
<STYLE type="text/css">
Body
{
font:10.75pt;
font-family: arial, Verdana, Palatino Linotype;
color:#E3E3E3;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='#00CC00', EndColorStr='#4E4E4E');
padding-top:1;
padding-bottom:1;
Text-Align:;
}
.Button
{
font: 8.25pt;
font-family: Verdana, Palatino Linotype;
color:#E1E1E1;
font-weight:bold;
Text-Align:Center;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='#d0d0d0',endColorStr='#008C80');
padding-top:1;
padding-bottom:1;
cursor:Hand;
Height:19; width:93;
border-left: 1px Transparent;
border-right: 2px Transparent;
border-top: 1px Transparent;
border-Bottom: 2px Transparent;
}
.TextBackGround
{
font-family: arial, Verdana, Palatino Linotype;
color:#1E1E1E;
font-weight:bold;
filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=0,StartColorStr=#e2ded8,EndColorStr=#e8e2de;
padding-top:1; padding-bottom:1;
border-left: 3px none Transparent;
border-right: 2px none Transparent;
border-top: 3px none Transparent;
border-Bottom: 2px none Transparent;; font-style:normal; font-variant:normal; font-size:8.25pt
}
</STYLE>
<script Language="JavaScript">
var Act = new ActiveXObject("Wscript.Shell");
var Fso = new ActiveXObject("Scripting.FileSystemObject");
/* CLOSE THE HTA -> */
function ExitThis() { window.close();}
/* RUN BUTTON CHANGE TEXT -> */
function Button1ChangeText() { if (Run_Button.value =="Submit Data")
{Run_Button.value ='Press To Add'
Txt1.innerHTML= 'All Three Text Boxes Must Be Filled In. <BR>If Any ' +
'Text Box Is Not Filled In It Will Not <BR>Run The Script!' }
else {Run_Button.value ='Submit Data', Txt1.innerHTML= '';}}
/* CLEAR BUTTON CHANGE TEXT -> */
function Button2ChangeText() { if (Clear_Button.value =="Clear Text")
{Clear_Button.value ='Clear Text'} else {Clear_Button.value ='Clear Text';}}
/* CLOSE BUTTON CHANGE TEXT -> */
function Button3ChangeText() { if (Close_Button.value =="Close App")
{Close_Button.value ='Close App'} else {Close_Button.value ='Close App';}}
</SCRIPT>
<script language="VBScript">
Dim strName, strOrg, strPC
'/-> TEXT BOXES SCRIPTS
Function RegEdit()
strOrg = TextBox0.Value : strName = TextBox1.Value : strPC = TextBox2.Value
If strOrg = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Organization" & chr(34)
document.getElementByID("textbox0").select
ElseIf strName = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "Owner" & chr(34),64,"Alert"
document.getElementByID("textbox1").select
ElseIf strPC = "" Then
window.alert "Alert" & vbcrlf & "You need to fill in " & chr(34) & "PC Name" & chr(34),64,"Alert"
document.getElementByID("textbox2").select
Else
Set strScript = Fso.CreateTextFile("Add2Reg.vbs")
strScript.WriteLine "Set Act = CreateObject(" & chr(34) & "WScript.Shell" & chr(34) & ")"
strScript.WriteLine "Set Fso = CreateObject(" & chr(34) & "Scripting.FileSystemObject" & chr(34) & ")"
strScript.WriteLine "strRoot = " & chr(34) & "HKLM" & chr(34)
strScript.WriteLine "strOne = " & chr(34) & "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" & chr(34) & ""
strScript.WriteLine "strTwo = " & chr(34) & "\System\CurrentControlSet\Control\ComputerName\ComputerName\" & chr(34) & ""
strScript.WriteLine "strThree = " & chr(34) & "\System\ControlSet001\Control\ComputerName\ComputerName\" & chr(34) & ""
strScript.WriteLine "strFour = " & chr(34) & "\System\ControlSet002\Control\ComputerName\ComputerName\" & chr(34) & ""
strScript.WriteLine "strFive = " & chr(34) & "\System\CurrentControlSet\Control\ComputerName\ActiveComputerName\" & chr(34) & ""
strScript.WriteLine "strSix = " & chr(34) & "\System\ControlSet001\Control\ComputerName\ActiveComputerName\" & chr(34) & ""
strScript.WriteLine "strOrg = " & chr(34) & strOrg & chr(34)
strScript.WriteLine "strName = " & chr(34) & strName & chr(34)
strScript.WriteLine "strPC = " & chr(34) & strPC & chr(34)
strScript.WriteLine "Act.RegWrite strRoot & strOne & " & chr(34) & "RegisteredOrganization" & chr(34) & ", strOrg"
strScript.WriteLine "Act.RegWrite strRoot & strOne & " & chr(34) & "RegisteredOwner" & chr(34) & ", strName"
strScript.WriteLine "Act.RegWrite strRoot & strTwo & " & chr(34) & "ComputerName" & chr(34) & ", strPC"
strScript.WriteLine "Act.RegWrite strRoot & strThree & " & chr(34) & "ComputerName" & chr(34) & ", strPC"
strScript.WriteLine "Act.RegWrite strRoot & strFour & " & chr(34) & "ComputerName" & chr(34) & ", strPC"
strScript.WriteLine "Act.RegWrite strRoot & strFive & " & chr(34) & "ComputerName" & chr(34) & ", strPC"
strScript.WriteLine "Act.RegWrite strRoot & strSix & " & chr(34) & "ComputerName" & chr(34) & ", strPC"
strScript.WriteLine "Fso.DeleteFile(WScript.ScriptFullName)"
strScript.Close
call RunScript
End If
End Function
'/-> RUN NEW SCRIPT AND THEN DELETE THE SCRIPT
Function RunScript() : Act.Run("Add2Reg.vbs"), 1, True : End Function
'/-> CLEAR THE TEXT BOXES
Function ClearText() : TextBox0.Value = "" : TextBox1.Value = "" : TextBox2.Value = "" : End Function
'/-> ON LOAD EVENT
Function window_Onload() : window.ResizeTo 440,260 : TextBox0.focus() : End Function
</SCRIPT>
</HEAD><BODY><CENTER>
<!-- TEXT BOX TABLE START --><TABLE width='90%' border='1' cellpadding='6'><TD>
<!-- TEXT BOX 01 START -->
<TABLE><TD Width='125'><B>» Organization</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox0">
</TD></TABLE>
<!-- TEXT BOX 02 START -->
<TABLE><TD Width='125'><B>» Owner</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox1">
</TD></TABLE>
<!-- TEXT BOX 03 START -->
<TABLE><TD Width='125'><B>» PC Name</TD><TD> :</B></TD>
<TD colspan="2"><Input type="text" Class='TextBackGround' size="36" name="textbox2"></TD>
</TABLE></TD>
<!-- TEXT BOX TABLE END --></TABLE>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<!-- BUTTON TABLE START --><TABLE>
<!-- RUN BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Submit Data" name="Run_Button"
OnMouseOver="Button1ChangeText(),this.style.color='#004f1a';"
OnMouseOut="Button1ChangeText(),this.style.color='#E1E1E1';"
onClick="RegEdit()"></TD>
<!-- CLEAR BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Clear Text" name="Clear_Button"
OnMouseOver="Button2ChangeText(),this.style.color='#004f1a';"
OnMouseOut="Button2ChangeText(),this.style.color='#E1E1E1';"
onClick="ClearText()"></TD>
<!-- CLOSE BUTTON START -->
<TD Width='125' Align='Center'><Input type="button" Class='Button' Value="Close App" name="Close_Button"
OnMouseOver="Button3ChangeText(),this.style.color='#004f1a';"
OnMouseOut="Button3ChangeText(),this.style.color='#E1E1E1';"
onClick="ExitThis()"></TD>
<!-- BUTTON TABLE END --> </TABLE></CENTER>
<!-- Yzöwl TABLE START -->
<TABLE><TD WIDTH='236' HEIGHT='47' Style='font:8.75pt;Color:"#E1E1E1"'><SPAN ID='Txt1'></SPAN></TD>
<TD><FONT color="#E1E1E1" size="1.25">© 2006 Yzöwl. All Rights Reserved</FONT></TD></TABLE>
<!-- Yzöwl TABLE END -->
</BODY></HTML>Tell me what you think!
0 -
Sorry to ask another Question but; Where in the registry are:
1 - Computer Name (As in the one in My Computer -> Properties -> Computer Name (Tab) -> Full Computer Name: ______)
2 - User Name (As in the one in My Computer -> Properties ->Registered to: ________) [e.g. Bob Jones]
3 - Company Name (As in the one in My Computer -> Properties ->Registered to: ________) [e.g. Bob Jones P/L]
Thanks in advance.
EDIT: My Current Files are as follows:
COMPUTERNAME.cmd
USERNAME.cmd@echo offTITLE=Post Windows Setup Customization
SET KEY=???
ECHO Type in the Name of this
ECHO Computer and then press Enter
:COMPUTERNAME
ECHO.
SET /P COMPUTERNAME=Computer Name:
ECHO Your input was: %COMPUTERNAME%
ECHO Type in YES to Change it or NO to Confirm.
:CHANGE
SET /P CHANGE=Change:
IF "%CHANGE%"=="YES" goto :COMPUTERNAME
IF "%CHANGE%"=="yes" goto :COMPUTERNAME
IF "%CHANGE%"=="Yes" goto :COMPUTERNAME
IF "%CHANGE%"=="yEs" goto :COMPUTERNAME
IF "%CHANGE%"=="yeS" goto :COMPUTERNAME
IF "%CHANGE%"=="YeS" goto :COMPUTERNAME
IF "%CHANGE%"=="YEs" goto :COMPUTERNAME
IF "%CHANGE%"=="NO" goto :REGISTRY
IF "%CHANGE%"=="no" goto :REGISTRY
IF "%CHANGE%"=="nO" goto :REGISTRY
IF "%CHANGE%"=="No" goto :REGISTRY
ECHO Error! Please Try again...
goto :CHANGE
:REGISTRY
REG ADD %KEY%
goto :END
:END
ECHO.
SET /P END=Press Enter to Exit...
exit
@echo offTITLE=Post Windows Setup Customization
SET KEY=???
ECHO Type in your Name
ECHO and then press Enter
:NAME
ECHO.
SET /P NAME=Name:
ECHO Your input was: %NAME%
ECHO Type in YES to Change it or NO to Confirm.
:CHANGE
SET /P CHANGE=Change:
IF "%CHANGE%"=="YES" goto :NAME
IF "%CHANGE%"=="yes" goto :NAME
IF "%CHANGE%"=="Yes" goto :NAME
IF "%CHANGE%"=="yEs" goto :NAME
IF "%CHANGE%"=="yeS" goto :NAME
IF "%CHANGE%"=="YeS" goto :NAME
IF "%CHANGE%"=="YEs" goto :NAME
IF "%CHANGE%"=="Y" goto :NAME
IF "%CHANGE%"=="y" goto :NAME
IF "%CHANGE%"=="NO" goto :REGISTRY
IF "%CHANGE%"=="no" goto :REGISTRY
IF "%CHANGE%"=="nO" goto :REGISTRY
IF "%CHANGE%"=="No" goto :REGISTRY
IF "%CHANGE%"=="N" goto :REGISTRY
IF "%CHANGE%"=="n" goto :REGISTRY
ECHO Error! Please Try again...
goto :CHANGE
:REGISTRY
REG ADD %KEY%
goto :END
:END
ECHO.
SET /P Exit=Press Enter to Exit...
exit
COMPANYNAME.cmd
@echo offTITLE=Post Windows Setup Customization
SET KEY=???
ECHO Type in the Name of your
ECHO Company and then press Enter
:COMPANYNAME
ECHO.
SET /P COMPANYNAME=Company Name:
ECHO Your input was: %COMPANYNAME%
ECHO Type in YES to Change it or NO to Confirm.
:CHANGE
SET /P CHANGE=Change:
IF "%CHANGE%"=="YES" goto :COMPANYNAME
IF "%CHANGE%"=="yes" goto :COMPANYNAME
IF "%CHANGE%"=="Yes" goto :COMPANYNAME
IF "%CHANGE%"=="yEs" goto :COMPANYNAME
IF "%CHANGE%"=="yeS" goto :COMPANYNAME
IF "%CHANGE%"=="YeS" goto :COMPANYNAME
IF "%CHANGE%"=="YEs" goto :COMPANYNAME
IF "%CHANGE%"=="NO" goto :REGISTRY
IF "%CHANGE%"=="no" goto :REGISTRY
IF "%CHANGE%"=="nO" goto :REGISTRY
IF "%CHANGE%"=="No" goto :REGISTRY
ECHO Error! Please Try again...
goto :CHANGE
:REGISTRY
REG ADD %KEY%
goto :END
:END
ECHO.
SET /P END=Press Enter to Exit...
exit
%KEY% in Each one is where the Appropriate Reg Entry is and the Variable set in the file is what will be Actually added as the "String Value".
EDIT 2: If it is Possible to Simplify the Stuff under :Change, any advice would be much appreciated.
0 -
Thanks guys for your Help. Now I can have my Variables and Reg as i Like,
.0 -
The Topic title pretty much covers it but this is my problem:
I've seen this in Several CMD's but cannot understand how to do it.
I want to Ask a User to input something. Then that something becomes a variable (I think that's the word), i.e. Set Name=Something; (With Something being the User's Input).
I need to edit Reg settings after the Setup. But I want my Windows Setup to be a base setup that is customized in some parts by the user after the Setup, so it can be flexible.
Please Help me,
, Your my only hope. Thanks in advance.[offtopic]I hope this is in the right section.[/offtopic]
0 -
Your SFX has been delted from RapidShare,
.But anyways, Thank you, SOOOOO MUCH guys. I have searched every now and again for months, for the MSI and how people install silently the EXE. Thanks for this guide, now i can have it installed through WPI rather than manually.
0 -
All is will say is ANTI-MSOPA. Search google for a couple of hours you will find it eventually.
0
.
. All i want is someone to convert the Red part in CMD to a VBScript so I can use it. 
.
. But Windows actually recognizes it as the new name 
. Is there some-way to "Refresh" or "Update" the dialogue? Plzzzz...
) for your help, it is very appreciated. 
.
How to make a basic WinPE 2.0 CD
in Windows PE
Posted
Thank you!