Jump to content

Yurek3

Member
 View Profile  See their activity

  • Posts

    272

  • Joined

  • Last visited

  • Donations

    0.00 USD 

  • Country

    United States

 Content Type 

Posts posted by Yurek3

    RunOnceEx problem

    in Unattended Windows 2000/XP/2003

    Posted

    THX MHz but you can explain me litle more here is my RunOnceEX.cmd

    cmdow @ /HID
    @echo off 



    for %%i in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do if exist %%i:\WIN51 set CDROM=%%i:

    SET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx
    for /f "delims=: tokens=1" %%i in ("%~dp0") do set drive=%%i:
    set wpipath=%drive%\wpi


    REG ADD %KEY%\010 /VE /D "Open WPI" /f
    REG ADD %KEY%\010 /V 1 /D "%CDROM%\GROM\WPI\wpi.exe" /f

    EXIT

    In other system (difrend lenguage) i have some but this work good

    0

    Delete Folder Admnistrator

    in Unattended Windows 2000/XP/2003

    Posted · Edited by Yurek3

    I did thisone script

    cmdow @ /HID
    @echo off 
    FOR %%i IN (C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO
    rd "%%i\Documents and Settings\Administrator" /s /q


    FOR %%i IN (C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO
    md "%systemdrive%\Documents and Settings\Administrator"

    And nextone

    cmdow @ /HID
    @echo off 

    rd "C:\Documents and Settings\Administrator" /s /q
    md " C:\Documents and Settings\Administrator"

    rd "D:\Documents and Settings\Administrator" /s /q
    md " D:\Documents and Settings\Administrator"

    rd "E:\Documents and Settings\Administrator" /s /q
    md " E:\Documents and Settings\Administrator"

    rd "F:\Documents and Settings\Administrator" /s /q
    md " F:\Documents and Settings\Administrator"


    rd "G:\Documents and Settings\Administrator" /s /q
    md " G:\Documents and Settings\Administrator"

    and next

    cmdow @ /HID
    @echo off 

    rd "%systemdrive%\Documents and Settings\Administrator" /s /q
    md "%systemdrive%\Documents and Settings\Administrator"

    0

    CMenu

    in Application Installs

    Posted · Edited by Yurek3

    Thenks a lot i will learn Auotit script.

    One more thinks

    You did Autoit script for exist now you can do waits please.

    step by step

    big THX for You

    0

    CMenu

    in Application Installs

    Posted

    I did use many times CMenu but i do not did use make Autoit script , now i try .

    I did Autoit script but not work , only starting first insttalation window.

    Here is my Autoit skript for Total commander

    #region - tcup16 install script - (Automated with WinExists functions)

    Opt('TrayIconDebug', 1)

    Opt('WinDetectHiddenText', 1)

    Opt('WinTitleMatchMode', 4)

    ; Installer.

    $executable = 'tcup16.exe'

    ; Show progess.

    $splash = 0

    ; Default catagory folder in startmenu.

    $group = ''

    ; New catagory to move the default folder into.

    $catagory = ''

    ; Installation folder in Program Files.

    $directory = ''

    ; Allowed time for installation.

    $allowed = 60 * 1000

    ; Run the installer.

    $pid = _Install()

    $time = TimerInit()

    Do

    Select

    Case WinExists('', '')

    ControlClick('', '', '')

    Case WinExists('', '')

    ControlClick('', '', '')

    Case WinExists('', '')

    ControlClick('', '', '')

    Case WinExists('', '')

    ControlClick('', '', '')

    Case WinExists('', '')

    ControlClick('', '', '')

    Case Else

    Sleep(250)

    EndSelect

    Sleep(10)

    If TimerDiff($time) > $allowed Then _Abort()

    Until Not ProcessExists($pid)

    ; Remove shortcuts.

    If _MainShortcut('?.lnk') Then

    ; Relative to shortcut directories

    ; Remove Startmenu shortcuts

    FileDelete('?.lnk')

    FileDelete('?.lnk')

    FileDelete('?.lnk')

    FileDelete('?.lnk')

    FileDelete('?.lnk')

    ; Remove other shortcuts

    _Desktop('?.lnk')

    _QuickLaunch('?.lnk')

    EndIf

    #endregion

    Exit

    Func _Install($path = 'Default')

    ; Run the installer in Default Script directory.

    Dim $splash, $processblock

    If $path = 'Default' Then $path = @ScriptDir

    If StringRight($path, 1) <> '\' Then $path = $path & '\'

    If StringInStr($executable, '\') Then $path = ''

    If Not FileExists($path & $executable) Then Exit 1

    If $processblock <> '' Then Call('_' & 'ProcessBlock')

    If $splash Then _Splash('Installing:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))

    If StringRight($executable, 3) = 'msi' Then

    Return Run(@SystemDir & '\msiexec /i "' & $path & $executable & '"')

    Else

    Return Run($path & $executable)

    EndIf

    EndFunc

    Func _Abort()

    ; close process if exists then exit.

    Dim $pid

    If ProcessExists($pid) Then

    ProcessClose($pid)

    Exit 2

    Else

    Exit 3

    EndIf

    EndFunc

    Func _Desktop($shortcut)

    ; Delete a Desktop shortcut.

    If FileExists(@DesktopDir & '\' & $shortcut) Then

    Return FileChangeDir(@DesktopDir) And FileDelete($shortcut)

    ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then

    Return FileChangeDir(@DesktopCommonDir) And FileDelete($shortcut)

    EndIf

    EndFunc

    Func _MainShortcut($shortcut, $rename = '')

    ; Change working directory to correct StartMenu\Group directory.

    Dim $group, $catagory, $splash

    If $group = '' Then Return 0

    If FileExists(@ProgramsDir & '\' & $group) Then

    FileChangeDir(@ProgramsDir & '\' & $group)

    ElseIf FileExists(@ProgramsCommonDir & '\' & $group) Then

    FileChangeDir(@ProgramsCommonDir & '\' & $group)

    Else

    Return 0

    EndIf

    ; Wait for main shortcut.

    If $splash Then _Splash('Waiting for shortcuts')

    For $i = 1 To 20

    If FileExists($shortcut) Then ExitLoop

    Sleep(500)

    Next

    If $splash Then _Splash('Cleaning up:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))

    ; If catagory not assigned anything, then return.

    If $catagory = '' Then Return 1

    ; Move the group folder into the catagory folder.

    If FileChangeDir('..') And DirCopy($group, $catagory & '\' & $group, 1) Then

    If DirRemove($group, 1) Then

    ; If optional rename parameter is used, then rename the group folder.

    If $rename <> '' And FileChangeDir($catagory) Then

    If DirCopy($group, $rename, 1) And DirRemove($group, 1) Then

    Return FileChangeDir($rename)

    EndIf

    Else

    Return FileChangeDir($catagory & '\' & $group)

    EndIf

    EndIf

    EndIf

    EndFunc

    Func _QuickLaunch($shortcut)

    ; Delete a Quicklaunch shortcut.

    Local $subdirs = '\Microsoft\Internet Explorer\Quick Launch'

    If FileExists(@AppDataDir & $subdirs & '\' & $shortcut) Then

    Return FileChangeDir(@AppDataDir & $subdirs) And FileDelete($shortcut)

    ElseIf FileExists(@AppDataCommonDir & $subdirs & '\' & $shortcut) Then

    Return FileChangeDir(@AppDataCommonDir & $subdirs) And FileDelete($shortcut)

    EndIf

    EndFunc

    Func _Splash($text = '')

    ; Shows a small borderless splash message.

    Dim $splash

    If $splash Then

    If $text Then

    SplashTextOn('', $text, 500, 25, -1, 5, 1, '', 14)

    Else

    SplashOff()

    EndIf

    EndIf

    EndFunc

    Func _WinClose($title, $text = '')

    ; Close a window with further attempts.

    For $i = 1 To 10

    WinClose($title, $text)

    If Not WinExists($title) Then Return 1

    Sleep(500)

    Next

    EndFunc

    Func OnAutoItStart()

    ; A 2nd script instance will exit.

    Local $interpreter

    If StringInStr($cmdlineraw, '/dummy') Then Exit

    $interpreter = StringTrimRight(@ScriptName, 4) & ' Script Interpreter'

    If WinExists($interpreter) Then Exit

    AutoItWinSetTitle($interpreter)

    EndFunc

    where i need write some options , will work good

    how somebody can put here goodone sript ( thisone or other from CMmenu i will very glad)

    i now we have Autoit Forum but my engish is not too good

    Yurek3

    0

    Windows XP SP2 Post Install Script Pack V1.02

    in Unattended Windows 2000/XP/2003

    Posted · Edited by Yurek3

    I use your Script Pack for instal few aplikatons.

    This is very interesting metod

    i did put in 7zip file programs after instalation and registrations andactivations

    from file Programs File to 101_Prog.7z, from Windows\system32 to 000_WinD.7z , from Documents and Setings to 000_Syst.7z and Menu Start to 101_AllU.7z and .reg for apllications from registry.

    This is OEM dorectory

    Script6.jpg

    Here

    101_Prog.7z

    Script5.jpg

    101_AllU.7z

    Script4.jpg

    000_WinD.7z

    Script2.jpg

    000_Syst.7z

    Script3.jpg

    After instalation I got all programs in my Menu Start and all work good

    Yurek3

    0

    [beta] User Creation Tool

    in Unattended Windows 2000/XP/2003

    Posted · Edited by Yurek3

    @Yurek3

    When do you use cancerface's program, during windows setup or is your screen res always low?, if you only use it with windows setup I think there is an edit you can make to the hivesys.inf file in your i386 dir to increase the screen size , if it worked would save a change to the GUI and make your screen look better biggrin.gif .

    I use Usser creation Tool in RunOnceExe after instalation all apllikations from svcpack T-12 time and from RunOnceEx of WPi and next staring User Creation Tool, but is too big i can not do klik Go or Not.

    I used timer ,wait 30 sekonds and go for next etc. cleanup and starting Windows Xp finish.

    Now that's a tough one ... I designed the GUI for 800x600 and it works fine in my setup, but I am afraid that with all the options that are on that screen I can't sqeeze it to 640x480... I'll play around with it however and see what I can do...

    THX cancerface for your ineresting my problem i thing you do some good job.

    0
×
×
  • Create New...