Jump to content

BoardBabe

Member
  • Posts

    1,415
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Norway

Everything posted by BoardBabe

  1. @bobthenob: Please use CODE tags in your posts from now on
  2. If you had posted the line your using it would be of great help But anyhow, I'd do something like Send("{ENTER}" & $string1 & "{ENTER}" & $string2")
  3. How about WinSetTrans in AutoIt to 255?
  4. Frechdax3000: I have made an AutoIt script that I run (Norwegian XP) as the last instance of my UA installation, that runs the network setup wizard, sets up sharing of printers and files and also sets the correct ComputerName and Workgroup. It gets the WorkGroup from winnt.sif (regardless of how your workgroup line looks) and uses your computers UserName as ComputerName. Just modify the dialogs to match german system and the rest is ready to use. NO MORE HASSLE RUNNING THE NETWORK SETUP WIZARD AFTER FRESH INSTALL. Here's the script!
  5. No your not. You could just hide the update from WU/MU though.
  6. attatch
  7. You have alot of reading to do.... Carefully read through the complete guide again...
  8. Oh never mind. Hmm yeh that will bring up the GUI. What would be neat though is JUST a progress bar from autoit, nothing else. But maybe its impossible
  9. I'm calling a defrag of my systemdrive at the very end of my WPI list as follows: call %SystemRoot%\system32\defrag.exe %SystemDrive% -f Is there a way to get a progress bar on this, by launching from AutoIt or something? Would be nice, cause this process takes a while...
  10. Is there a way to export Office 2003 account settings?
  11. Hehe, did they not fix it yet? Wow that sucks, guess you still have to use an old version dude... Or autoit if you HAVE to use 6.1- It's the only way...
  12. I personally think AutoIt is the way to go until silent installation is properly added to the installer.
  13. BoardBabe

    Batmeter

    Vista is not finished
  14. AutoIt script to automate Network Setup Wizard Script will use information from winnt.sif (read from CDROM\i386\winnt.sif) (looking for TurnOffFirewall and JoinWorkGroup line), apply UserProfile as Computername and automaticly setup windows for file and printer sharing on LAN conencted through a router. The window title and texts are retrieved from Norwegian WinXP and therefore needs to be translated before use at your english or other lang. system, you might also want to change the selection LETTER at connection dialog 1 and 2 to suie your language (Send(e"{ENTER}"), the rest is ready for use at any system. ; ---------------------------------------------------------------------------- ; Script settings ; ---------------------------------------------------------------------------- #NoTrayIcon #Include <process.au3> #Include <file.au3> AutoItSetOption("WinTitleMatchMode", 4) BlockInput(1) ; ---------------------------------------------------------------------------- ; Verify cdrom drive letter ; ---------------------------------------------------------------------------- ; File to look for at CDROM root. $searchfile = "win51ip.SP2" $drvs = DriveGetDrive("CDROM") If Not @error Then For $i = 1 To $drvs[0] If DriveStatus($drvs[$i] & "\") = "READY" Then If FileExists($drvs[$i] & "\" & $searchfile) Then $cdrom = $drvs[$i] Else Exit EndIf EndIf Next EndIf ; ---------------------------------------------------------------------------- ; Retrieve WorkGroup from winnt.sif ; ---------------------------------------------------------------------------- ; Path to winnt.sif on $cdrom. $winntsif = $cdrom & "\I386\winnt.sif" ; Open file for reading. $varfile1 = FileOpen($winntsif, 0) ; Check if file opened for reading OK. If $varfile1 = -1 Then Exit ; Read in lines of text until EOF or JoinWorkGroup line is reached. While 1 $rawline = FileReadLine($varfile1) If @error = -1 Then Exit If StringInStr($rawline, "JoinWorkGroup") Then ExitLoop WEnd ; Close file. FileClose($varfile1) ; Process raw JoinWorkGroup line. ; Remove any spaces from the string. $nospace = StringReplace($rawline, " ", "") ; Remove any "s from the string. $shortline = StringReplace($nospace, '"', "") ; Remove JoinWorkGroup= from string. $TrimLeft = StringTrimLeft($shortline, 14) ; Convert string to UPPERCASE. $WorkGroup = StringUpper($TrimLeft) ; ---------------------------------------------------------------------------- ; Retrieve firewall settings from winnt.sif ; ---------------------------------------------------------------------------- ; ReOpen file for new reading. $varfile2 = FileOpen($winntsif, 0) ; Check if file opened for reading OK. If $varfile2 = -1 Then Exit ; Dim firewall variable. dim $firewall ; Read in lines of text until EOF or TurnOffFirewall line is reached. While 1 $rawline2 = FileReadLine($varfile2) If @error = -1 Then $firewall = "On" ExitLoop EndIf If StringInStr($rawline2, "TurnOffFirewall") Then $firewall = "Off" ExitLoop EndIf WEnd ; Close file. FileClose($varfile2) ; ---------------------------------------------------------------------------- ; Convert UserName to valid ComputerName ; ---------------------------------------------------------------------------- $username = @UserName $insertdash = StringReplace($username, " ", "-") $Computername = StringLeft($insertdash, 15) ; ---------------------------------------------------------------------------- ; Launch the Network setup wizard ; ---------------------------------------------------------------------------- _RunDos(@SystemDir & "\netsetup.cpl") ; Welcome dialog. WinWaitActive("Veiviser for nettverksinstallasjon", "Velkommen til veiviseren for nettverksinstallasjon") Send("{Enter}") ; Before you continue dialog. WinWaitActive("Veiviser for nettverksinstallasjon", "Før du fortsetter") Send("{Enter}") ; The listed network connections are disconnected dialog (ignore). If WinWaitActive("Veiviser for nettverksinstallasjon", "Nettverkstilkoblingene som er listet opp nedenfor, er koblet fra", 5) Then ControlClick("Veiviser for nettverksinstallasjon", "Nettverkstilkoblingene som er listet opp nedenfor, er koblet fra", "Button1") Send("{ENTER}") EndIf ; Wizard has found a shared internet-connection dialog. If WinWaitActive("Veiviser for nettverksinstallasjon", "Veiviseren har funnet en delt Internett-tilkobling", 5) Then Send("{DOWN}{ENTER}") EndIf ; Connection type dialog 1. WinWaitActive("Veiviser for nettverksinstallasjon", "Denne datamaskinen kobler til Internett gjennom en gate") Send("e{ENTER}") ; Connection type dialog 2. WinWaitActive("Veiviser for nettverksinstallasjon", "Denne datamaskinen tilhører et nettverk") Send("{ENTER}") ; Computer name dialog. WinWaitActive("Veiviser for nettverksinstallasjon", "Eksempler: Datamaskinen i stuen eller Lenas datamaskin") Send("{TAB}" & $Computername & "{ENTER}") ; WorkGroup name dialog. WinWaitActive("Veiviser for nettverksinstallasjon", "Gi navn til nettverket") Send($WorkGroup & "{ENTER}") ; Activate file and printer sharing dialog. WinWaitActive("Veiviser for nettverksinstallasjon", "Aktivering av fil- og skriverdeling") Send("S{ENTER}") ; Confirmation dialog (confirm). WinWait("Veiviser for nettverksinstallasjon", "Er du sikker på at du vil slå på fil- og skriverdeling?") ControlClick("Veiviser for nettverksinstallasjon", "Er du sikker på at du vil slå på fil- og skriverdeling?", "Button1") ; The network setup wizard will use the following settings dialog. WinWaitActive("Veiviser for nettverksinstallasjon", "Veiviseren bruker følgende innstillinger") Send("{ENTER}") ; You have to run the wizard on every machine blabla dialog. WinWaitActive("Veiviser for nettverksinstallasjon", "Du må kjøre veiviseren for nettverksinstallasjon en gang på hver av datamaskinene på nettverket.") Send("F{ENTER}") ; Finish wizard dialog. WinWait("Veiviser for nettverksinstallasjon", "Fullfører veiviseren for nettverksinstallasjon") ControlClick("Veiviser for nettverksinstallasjon", "Fullfører veiviseren for nettverksinstallasjon", "Button18") ; Click no at reboot dialog if it appears. If WinWait("Endring i systeminnstillinger", "Du må starte maskinen på nytt", 5) Then ControlClick("Endring i systeminnstillinger", "Du må starte maskinen på nytt", "Button2") EndIf ; ---------------------------------------------------------------------------- ; Apply firewall settings ; ---------------------------------------------------------------------------- ; If "TurnOffFirewall" was found in winnt.sif, disable firewall for all devices. If $firewall = "Off" Then _RunDos("netsh firewall set opmode mode=DISABLE") Exit ; ---------------------------------------------------------------------------- ; Script End ; ----------------------------------------------------------------------------
  15. Does it matter what order the entries in winnt.sif is placed in? Could for example [Identification] JoinWorkgroup=MyLAN be placed at the top?
  16. Are you for real? The placement and/or number of ":s is probably the cause of it failing to install. Did you not notice that you have two "'s at the end? Did you try remove one? Sheez.....
  17. This will work: sc config Dhcp start= auto net start Dhcp
  18. Hmmm mind explaining a bit more what those connectivity issues concern, and what security risks are involved? I use UPnP for FTP transfers and MSNmessenger mainly through a Linksys router. (UPnP works better than port forwarding as there are more LAN users using these services)
  19. Edit: Never mind, googled the answer. Activate UPnP unattend from command: sc config upnphost start= auto net start upnphost sc config SSDPSRV start= auto net start SSDPSRV
  20. as muiz said, just burn on a DVD disc
  21. Err! Wrong answer try again... -This time, try the search function. This subject is already covered.
  22. Anti Alias Shado gets my vote
  23. Could the network settings that the network wizard implements be set during unattend install? Im asking, cause for some reason file sharing is default to off and connection set to be through a gateway after install, wich is wrong and results in LAN computers having problems browsing my files. I'd like default settings to be Sharing of files and printers on Internet connection through DSL modem>>Router
×
×
  • Create New...