Sign in to follow this  
Followers 0
nabs

Please help with auto it windows 7 imaging script

1 post in this topic

#1 ·  Posted (edited)

Hi i  have a customized windows 7 imaging script with an unattended XML installation.I want to change the OU and probably add a domain to the XML.file.how do i do it in the script?.i am little something like 

Hi i  have a customized windows 7 imaging script with an unattended XML installation.I want to change the OU and probably add a domain to the XML.file.how do i do it in the script?.i am little something like currently the  unattended win7 _XML file looks like this

<JoinDomain>test.Ct.Com</JoinDomain>

 

                <MachineObjectOU>OU=Computers,OU=site,DC=Global,DC=Test,DC=Com</MachineObjectOU>    in the XML file?.my script copies the xml and other windows files from the server and executes it.below is the script.any help will be my much appreciated.

 

 

FileCopy("R:\Windows7\Config\Sysprep\TestW7_64.xml", @SystemDir & "\TestW7temp.XMl")
    $xml = FileRead(@SystemDir & "\TestW7temp.XMl")
    $xml = StringReplace($xml, "Compname", $compname)
    $xml = StringReplace($xml, "userid", $cmdline[1])
    $xml = StringReplace($xml, "userpass", $cmdline[2])
    $xml = StringReplace($xml, "Site", $site)
    $xml = StringReplace($xml, "localtimezone", $ltz)
    $xml = StringReplace($xml, "EN-US", $lang)
    FileOpen(@SystemDir & "\TestW7.XMl", 1)
    FileWrite(@SystemDir & "\TestW7.XMl", $xml)
    FileClose(@SystemDir & "\TestW7.XMl")
    GUISetState(@SW_SHOW, $w7image)
    GUICtrlSetData($i1, "Image Transfer" & @TAB & "Preparing Drive")
    If $model = "iMac11,2" Then
        RunWait("diskpart.exe /s r:\utility\diskpart_MAC.txt", "", @SW_HIDE)
        $scmd = "R:\utility\rtconsole.exe R:\Utility\imagex.exe /apply r:\windows7\image\core_w7e_64_boot.wim 1 P:\ /scroll"
    Else
        RunWait("diskpart.exe /s r:\utility\diskpart.txt", "", @SW_HIDE)
        $scmd = "R:\utility\rtconsole.exe R:\Utility\imagex.exe /apply r:\windows7\image\core_w7e_64_boot.wim 1 B:\ /scroll"
    EndIf
    GUICtrlSetData($i1, "Image Transfer" & @TAB & "Preparing Drive Complete...")
    $foo = Run($scmd, "", "", 2 + 4)
    $line1 = "0"
    ProgressOn("", "", $line1, "", 500)
    GUICtrlSetData($i1, "Image Transfer" & @TAB & "Preparing Image")
    While 1
        Sleep(50)
        If NOT ProcessExists("rtconsole.exe") Then ExitLoop
        $line = StdoutRead($foo)
        If StringInStr($line, "ImageX Tool for Windows") <> 0 Then $line = 0
        If StringInStr($line, "Progress: 100%") <> 0 Then ExitLoop
        If StringInStr($line, "Error") <> 0 Then ExitLoop
        $line = StringStripWS($line, 7)
        $line3 = StringSplit($line, @CRLF)
        $line1 = StringSplit($line, "%")
        $line = StringRight($line1[1], 2)
        If @error Then
            MsgBox(0, "Drive Access Failure", "Unable to write to drive." & @CRLF & "If SEE is present, format using an XP CD" & @CRLF & @error)
            GUIDelete()
            GUIDelete()
            GUIDelete()
            adminmenu()
        EndIf
        If StringInStr($line3[1], "Progress:") > 0 Then
            ProgressSet($line, $line3[1], "Installing System Partition")
            GUICtrlSetData($i1, "Image Transfer" & @TAB & "Progress: " & $line & "%")
        EndIf
    WEnd
    ProgressOff()
    While 1
        Sleep(1000)
        If NOT ProcessExists("rtconsole.exe") Then ExitLoop
    WEnd
    $scmd = "r:\utility\rtconsole r:\utility\imagex.exe /apply r:\windows7\image\core_w7e_64_data.wim 1 P:\ /scroll"
    $foo = Run($scmd, "", "", 2 + 4)
    $line1 = "0"
    ProgressOn("", "", $line1, "", 500)
    GUICtrlSetData($i1, "Image Transfer" & @TAB & "Preparing Windows Image")
    While 1
        Sleep(50)
        If NOT ProcessExists("rtconsole.exe") Then ExitLoop
        $line = StdoutRead($foo)
        If StringInStr($line, "ImageX Tool for Windows") <> 0 Then $line = 0
        If StringInStr($line, "Progress: 100%") <> 0 Then ExitLoop
        If StringInStr($line, "Error") <> 0 Then ExitLoop
        $line = StringStripWS($line, 7)
        $line3 = StringSplit($line, @CRLF)
        $line1 = StringSplit($line, "%")
        $line = StringRight($line1[1], 2)
        If @error Then
            GUIDelete()


EndFunc

Edited by nabs
ok

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0