Jump to content

Beta4Me

Member
  • Posts

    27
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Australia

Everything posted by Beta4Me

  1. 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?
  2. Awesome they all work great. The wonders of being 13 yo.
  3. 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.
  4. How do you do that, i have searched high and low. Please Explain...
  5. I downloaded it from Here. But now this link doesn't work.
  6. 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.
  7. Change To TY. I fixed the file and they both work like a charm. Thanks for your help, mate!
  8. Thanks for all your help Yzowl & Gsm. Now here's my script: But i get this error: followed by this: (As you can see this is sized wrong). This only happens when I uncomment: Any Ideas?
  9. 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.
  10. 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, .
  11. Thanks, 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: I then decided I wanted it in the same style as the HTA. So i modded it like this: 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, .
  12. Can someone please convert this: to a VBScript Replacing: %USERNAME% -> strUser %PASS% -> strPass %GROUP% -> strGroup
  13. 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, .
  14. 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,
  15. 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: that is all I need , thanks...
  16. 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.
  17. 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!
  18. 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 COMPANYNAME.cmd %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.
  19. Thanks guys for your Help. Now I can have my Variables and Reg as i Like, .
  20. 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]
  21. 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.
  22. All is will say is ANTI-MSOPA. Search google for a couple of hours you will find it eventually.
×
×
  • Create New...