Westi

undocumented program, just type iexpress. Messenger 5 is banned, see betas intercom I prefer to use winrar, 'cause you have full control and more options, like overwrite, delete something, works in svcpack.inf and many more...

Hi gosh, hope you will read this, after your good-bye It is the same procedure you used for other components: expand sysoc.in_ replace ',hide,' with ',,' Explained for W2k in KB223182 But i don't know what happend in XP. Good luck

Disable Mouse and Keyboard while running a script: Download AutoITX You need only the ActiveX Control version ~78kb (at the end of the page) Dim WSHShell, AutoIt Set WSHShell = WScript.CreateObject("WScript.Shell") 'Register the dll WSHShell.Run "regsrv32 /s \YourPath\AutoItx.dll" Set AutoIt = WScript.CreateObject("AutoItX.Control") AutoIt.BlockInput "on" 'Do things . . . Wscript.Quit

@Darkbringer I don't have all the software. If you post the window title and the needed value of each window or button to be pressed, i will try to write a script. The better way is to make screenshots of the windows, who needs user interaction and send a PM.

Great work ! Fine tune the batch 'source.bat' : add a line: 'bootcfg /Timeout 2' to reduce the boot time from 30 to 2 sec. and make sure you have in i386 the folders WINNTUPG and COMPDATA otherwise the installation of cmdcons fails.

1. Use only WHQL drivers, no beta or tweaked. 2. Try to delete this entries in: DOSNET.INF d1,nv4.dll d1,nv4.inf d1,nv4.sys DRVINDEX.INF d1,nv4_disp.dll d1,nv4_disp.inf d1,nv4_mini.sys TXTSETUP.SIF nv4.dll = 1,,,,,,,,3,3 nv4.inf = 1,,,,,,,20,0,0 nv4.sys = 1,,,,,,,,3,3 3.Expand your drivers for example to : $OEM$\$1\Drivers\Nvidia 4. Add this line to your winnt.sif [unattended] OemPreinstall=Yes DriverSigningPolicy = Ignore OemPnPDriversPath = Drivers\Nvidia 5. Good luck

Create a .vbs file and insert: Btn = WshShell.Popup ("Windows XP will now restart in 1 minute!",60," - Important ! Reboot required - ",36) If Btn = 7 Then Wscript.Quit Set wmi = GetObject("winmgmts:{(Shutdown)}") Set objset = wmi.instancesof("win32_operatingsystem") For each obj in objset Set os = obj : exit For Next os.reboot Wscript.Quitat the end of the script. if you want shutdown change os.reboot to os.shutdown if you want to abort press 'NO' So, you don't need an external program.

I think to know what you mean... Method 1 On your system: Place the program in the folder where it would be after the installation. Create a shortcut somewhere , copy this shortcut to $OEM$\$1. In the script use: move %systemdrive%\mylink.lnk %allusersprofile%\Startm~1\Progra~1 Method 2 use http://www.optimumx.com/download/#Shortcut shortcut -t "%programfiles\myprog\englishLessonOne.exe" -n EnglishLessonOne.lnk -d %AllUsersProfile%\Startm~1\Progra~1

Some hints: Write a key: WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce\Imp", "C:\imp.htm", "REG_SZ" Delete a key: WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\MsnMsgr" Check for Cdrom: Very useful for a 2 CD installation This function checks for : Drive ready, CDROM and Volumename. Change the VolumeName to your value. ... Call ChCD(D:\) WshShell.Popup "CD is " & s ... Wscript.Quit Function ChCD(DriveN) Set d = fso.GetDrive(DriveN) If d.IsReady And d.DriveType = 4 And d.VolumeName = "XPBOOT" Then s = DriveN End Function Combine Sendkey and sleep: Wait 0.5 sec. and press enter. SendST(500,"~") ... Wscript.Quit Sub SendST(pause, key) WScript.Sleep pause WshShell.SendKeys key End Sub Don't declare any variables of the codes with Dim, but 's' !!

Again, this line WshShell.Run sysd & "\CDTEMP\apps\MPC\mpcsetup.exe", 1, true execute the program(->Run), activates the window(->1) and WAIT till the window dissapear(->true). RTFM ->WSH Documentation

Don't use DOS var in VBScript ! You have to use "Expand Environment", i post in an other thread. Insert a short pause after run. You can use a part of the window name: "Media Play" If you insert this code the script paused till the window disappear!

I tried this with the same result. When i use 'winnt' unter DOS, the 2nd folder is created. No explanation to this behavior... Be careful with editing the Diskemu.cmd: Never use TAB and never leave spaces at the end of each line, the batch will NOT run. You get a BAD COMMAND ERROR ! And don't forget the EOF at the end of the script. If you burn with Nero: ('cause cdimage.exe is "For internal use only" and don't burn) Bootfile is loader.bin No Emulation Segments 4 ...like normal XP-BootCD Summary, i use this GREAT method to have the opinion to include a WIN98SE-BOOTDISK to create partitions with Xfdisk or other tools. -Thanx gosh

Great job DaveXP few minutes ago i posted how to insert drivers in txtsetup.sif. Now my post is for newbies

This is a long way, but the best way to add drivers ! -replace ???? with the name of your driver/file 1.open i386/txtsetup.sif 2.under section [sourceDisksFiles.x86] insert this line exactly!!: ????.sys = 1,,,,,,4_,4,1,,,1,4 3.search for PCI\VEN_105A&DEV_4D33 = "ultra" insert a similarly line with infos from your inf-file alter it to PCI\VEN_????&DEV_???? = "????" 4.search for ultra= ultra.sys,4 insert a line ????= ????.sys,4 5.search for [sCSI] insert a line ????="Name of the Controller" 6.save txtsetup.sf 7.create $OEM$ and $1-folder 8.copy only WHQL drivers to the $1-folder Example: txtsetup.sif for promise fasttrak: [sourceDisksFiles.x86] FASTTRAK.SYS = 1,,,,,,4_,4,1,,,1,4 ... PCI\VEN_105A&DEV_4D33 = "ultra" PCI\VEN_105A&DEV_5275.DeviceDesc="Promise FastTrak TX2000 Controller (PDC20276)" ... ultra = ultra.sys,4 fasttrak = fasttrak.sys,4 ... [sCSI] fasttrak = "Promise FastTrak TX2000 Controller (PDC20276)" You can add as much as you want. You can use this txtsetup.sif also on systems without this controller. Good luck or read this Other Folders for $OEM§

Here is a example of an installation script fully in vb: -Edit sysoc.inf -Copy, move, delete, create files & folders -Close programs -Shutdown WinXP without an external program -Wait for a window to appear, but not endless On Error Resume Next 'Declare var's and objects Dim WshS, fso, wi, sysr, sysd, home, aup, cpf, pf, up, upr, app, tool, Stpr, sys32, dllc, f1, t0, t1 ,t2, t5, t7, t10, t15, t30, Btn, i, wmi, os, objset Set WshS = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") 'Expand Environment 'Create const's to spare time and place sysr = WshS.ExpandEnvironmentStrings("%SystemRoot%") sysd = WshS.ExpandEnvironmentStrings("%Systemdrive%") home = WshS.ExpandEnvironmentStrings("%Homepath%") aup = WshS.ExpandEnvironmentStrings("%AllUsersProfile%") cpf = WshS.ExpandEnvironmentStrings("%CommonProgramfiles%") pf = WshS.ExpandEnvironmentStrings("%Programfiles%") up = WshS.ExpandEnvironmentStrings("%UserProfile%") 'WARNING: I use a "\" at the end. 'The above const's DON'T have a "\" at the end ! app = sysd & "\APPLICATIONS\" sys32 = sysr & "\System32\" dllc = sys32 & "\dllcache\" Stpr = aup & "\Startmenu\Programs\" 'Upr-->%UserProfile%\Startmenu\Programs\ Upr = up & "\Startmenu\Programs\" 'Create a log-file Set f1 = fso.CreateTextFile(sysd & "\install.log", True) 'Write a line to the log f1.WriteLine "Begin Installation" 'I don't explain it;-) f1.WriteBlankLines(1) 'Create const's for use in the script wi = " is installed" 'Time const's for sleep t0 = 500 t1 = 1000 t2 = 2000 t5 = 5000 t7 = 7000 t10 = 10000 t15 = 15000 t30 = 30000 'Make some optional components visible for (de)installation WshS.Run "notepad.exe %systemroot%\inf\sysoc.inf" WinDo = "sysoc.inf - Editor" Call SendK("%{e}") 'I think in english is r-->replace WshS.SendKeys "r" Wscript.Sleep t1 WshS.SendKeys ",hide," WshS.SendKeys "{TAB}" WshS.SendKeys ",," WshS.SendKeys "{TAB 4}" WshS.SendKeys "~" WshS.SendKeys "{TAB}" WshS.SendKeys "~" Wscript.Sleep t1 WshS.SendKeys "%{F4}" WinDo = "Editor" Call SendK("~") 'Show me a box for 2 sec. WshS.Popup "Create TEMP-Folder",2 'Create Temp-folder 'I set all Temp-folders in the registry to %systemdrive%/Temp, 'cause i hate three or more temp-folders in the 2nd subdir fso.CreateFolder(sysd & "\Temp") f1.WriteLine "TEMP-Folder" & wi 'Packets to extract WshS.Run app & "DirectX9b.exe", 0, true 'true --> same as /wait in batch '0 --> hide window 'Delete what you (don't) want fso.DeleteFile(dllc & "scrnsave.scr"), true 'true means--> DO IT! 'Move and copy what you want fso.MoveFile dllc & "uxtheme.dll", dllc & "uxtheme.old" fso.MoveFile sys32 & "uxtheme.dll", sys32 & "uxtheme.old" fso.CopyFile app & "uxtheme.dll", dllc fso.CopyFile app & "uxtheme.dll", sys32 'Install what you want WshS.Run "REGEDIT /S " app & "reg.reg", 0, false fso.CopyFile app & "directx.cpl", sys32 & "\" f1.WriteBlankLines(1) f1.WriteLine "Programs and files registered and copied " WshS.Popup "Install programs",2, StrT,64 'For example WshS.Run app & "Java141\setup.exe -s -f1" & Chr(34) & app & "Java141\setup.iss" & Chr(34), 0, true f1.WriteLine "SUN-Java" & wi WshS.Run app & "MsnMsgs.msi /QB", 0, true WshS.Run app & "MsgPlus.exe /SilentInstallNoSponsor", 0, true f1.WriteLine "Messenger 6 und Plus" & wi 'Thank you beep;-) WinDo = "Internet Explorer" Call SendK("%{F4}") WinDo = "MSN Messenger" Call SendK("%{F4}") 'Install your programs here or anywhere 'Install DX9b WshS.Run app & "DirectX9b\dxsetup.exe /windowsupdate", 0, true 'You can simple check for execution, but this is a lot of work If fso.FileExists(sysr & "\directx.log") Then f1.WriteLine "DirectX9b" & wi Else f1.WriteLine " DirectX9b NOT installed " End If f1.WriteBlankLines(1) WshS.Run app & "xp-AntiSpy.exe 0 1 2 3 4 5 6 7 8 9 10 11 12 14 16 19 20 21 22 24 25 26 27 29 30 31 32" fso.DeleteFolder(Stpr & "PrintM~1"), true fso.DeleteFile(upr & "Remote~1.lnk"), true 'Delete PrintMe- thing fso.DeleteFolder(pf & "\Adobe\Acrobat 6.0\Reader\plug_ins\Printme"), true fso.DeleteFile(pf & "\Adobe\Acrobat 6.0\Reader\plug_ins\Printme.*"), true f1.WriteLine "Stupid things deleted " fso.DeleteFolder(sysd & "\Applications"), true fso.DeleteFile(sysr & "\deluser.exe"), true 'Close the log f1.Close 'empty Tempfolder fso.DeleteFile(sysd & "\Temp\*.*"), true 'delete tmp-files in windir fso.DeleteFile(sysr & "*.tmp"), true 'Shutdown in 10 sec. If you press 'Yes', immediatly. Btn = WshS.Popup ("System-Shutdown in 10 sec. !",10," - Shutdown - ",36) If Btn = 7 Then Wscript.Quit Set wmi = GetObject("winmgmts:{(Shutdown)}") Set objset = wmi.instancesof("win32_operatingsystem") For each obj in objset Set os = obj : exit For Next fso.DeleteFile(sysd & "\install.vbs"), true 'Delete this script os.shutdown Wscript.Quit Sub SendK(Skey) Connect2Window t0, WinDo WshS.SendKeys Skey End Sub Function Connect2Window(iTime, sWindowName) i = 1 Do until WshS.AppActivate (sWindowName) i = i + 1 WScript.Sleep iTime 'wait max. 40 x t0 ~ 20 sec. If i = 40 Then Exit Function loop End Function Maybe someone can use few lines..

You have to restart. Don't know why, but on my two systems, it works. Maybe there is a different key in non-german version.

Thanx, 'cause i use absolute path' the script i've posted cannot work.

Yes, i can, but i prefer this method : [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideMyComputerIcons] "{21EC2020-3AEA-1069-A2DD-08002B30309D}"=dword:00000000

pllspexplore plug-in for Ad-aware i will post the other one later... EDIT:old post don't work!! It is too much work to write a script for the plug-ins. Download this winrar-sfx: Plug-ins for Ad-aware 6 and you get a self-extracting quiet installation in %programfiles%\Lavasoft\Ad-aware 6\plugins Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.run "D:\Tools\aaw\pllspexplore.exe" WScript.Sleep 5000 WshShell.SendKeys "o" WScript.Sleep 1000 WshShell.SendKeys "n" WScript.Sleep 1000 WshShell.SendKeys "n" WScript.Sleep 1000 WshShell.SendKeys "C:\programfiles\Lavasoft\Ad-aware 6\Plugins" WshShell.SendKeys "~" WScript.Sleep 1000 WshShell.SendKeys "~" WScript.Sleep 1000 WshShell.SendKeys "~" WScript.Sleep 1000 WshShell.SendKeys "~" WScript.Sleep 5000 Wscript.Quit

Nero6 overburning patch open Nero6Patch.exe with winrar -->SFX -->advanced sfx edit the sfx-line 'setup-program' replace Setup.exe /SFX with Setup.exe /silent

You can check the last files that is created by the app: --> :waitawhile --> If not exists %systemdrive%/blabla/bla.txt goto waitawhile or you use a vb script: Save the next line as something.vbs -->WScript.Sleep 5000 and you get a pause for 5 seconds, but remember that some systems maybe slower than others.

The information is stored in OUSR600.DAT Copy this file after installation in opera's programfolder.

Well, normally it should work, but sometimes VBScript not recognize folders/files with special char's. Try to replace the path in 8.3 like Ad-aware 6 ---> AD-AWA~1

Hi, look at my script at http://board.MSFN.org/index.php?showtopic=8987 for POWERDVD5. It isn't really silent, but you install unattended. Silent with registry patch is too difficult, because of so many entries and modifications to handle CDs. Sygate...i don't know. Greetz Westi

Clear useless restore points to spare a lot of space after a common- or batch- install of servicepacks or the apps. This cleans all restore points, only the LAST one IS SAVE. Should work on all language versions, 'cause no shortcuts used. TESTED on german version . YOU CAN USE THIS SCRIPT SOMETIMES, 'CAUSE YOUR "SYSTEM VOLUME INFORMATION" - FOLDER GROWS UP. Normally you spare 0.5-1 Gigabyte, check it out ! Delete restore points Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.run "%SystemRoot%\System32\cleanmgr.exe" WScript.Sleep 2000 'Normally the systemdrive is selected, but NO CHECK ! WshShell.SendKeys "~" 'Wait for retrieving informations 'Increase the next value, if your system is slow (on a clean install, it should approx. < 20000ms) WScript.Sleep 20000 WshShell.SendKeys "{TAB 4}" WScript.Sleep 500 WshShell.SendKeys "{RIGHT}" WScript.Sleep 500 WshShell.SendKeys "{TAB 3}" WScript.Sleep 500 WshShell.SendKeys "~" WScript.Sleep 500 WshShell.SendKeys "~" 'EDIT: OOPS, i forgot to close the app... WScript.Sleep 2000 WshShell.SendKeys "%{F4}" Wscript.Quit