Jump to content

PrepSys

ACalcutt

By ACalcutt
in AutoIt Example Scripts

 Share

Recommended Posts

MadBoy Universalist

MadBoy

Posted
Posted

For Sophos Antivirus you can try: setup.exe -a (heard it works on some versions)

The Remote Update Tool works with /s

Okey, i'll just stop it ;p

My little company: Evotec (PL version: Evotec)

  • Replies 62
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

ACalcutt Universalist

ACalcutt

Posted
  • Author
Posted (edited)

The autoinstalls arn't that important, they can be changed at any point.(the program lets you choose what you want to use as your autoinstall)

i didn't know the vpn would autoinstall...but i was aware of office and sophos

my sophos script also sets sophos up the way we want it...it doesn't just do the install

it actually runs the bat file to install

@echo off

echo Installing Sophos Anti-Virus ...
NTInst\i386\setup.exe -remove -ni -force
NTInst\i386\setup.exe -a -config=1

echo Installing Sophos Remote Update ...
remupd\setup.exe -nirestart

the it continues and sets up sophos

but thatnks for the suggestions

edit:

i just relised i never included my updated sophos script

; ----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; AutoIt Version: 3.1.1
; Author:Andrew Calcutt     Date:01/10/2006
; Script Function: Installs Sophos
;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------

;Installing Sophos Anti-Virus ...
RunWait("installsophos.bat")
While ProcessExists("setup.exe")
    If WinExists("SOPHOS Setup", "&Run Sophos Anti-Virus") Then
        WinClose("SOPHOS Setup", "&Run Sophos Anti-Virus")
    Else
        Sleep(200)
    EndIf
WEnd
;End Install

;Set Sophos Settings
$path = RegRead ( "HKEY_LOCAL_MACHINE\SOFTWARE\Sophos\SweepNT", "Path" )
Run($path & "\WSWEEPNT.exe")
While 1 
    If WinExists("Sophos Anti-Virus", "WARNING:") Then ControlClick("Sophos Anti-Virus", "WARNING:", "Button1");if out of date error, hit ok 
    If WinExists("Sophos Anti-Virus", "Immediate") Then
        Send("!oc");open config window
        While 1
            If WinExists("Sophos Anti-Virus", "WARNING:") Then ExitLoop; if out of date error - exitloop
            If WinExists("Immediate Mode Configuration", "Mode") Then
                If ControlCommand ("Immediate Mode Configuration", "Mode", "Button3", "IsChecked", "") = 0 Then ControlCommand ("Immediate Mode Configuration", "Mode", "Button3", "Check", "")
                If ControlCommand ("Immediate Mode Configuration", "Mode", "Button5", "IsChecked", "") = 0 Then ControlCommand ("Immediate Mode Configuration", "Mode", "Button5", "Check", "")
                If ControlCommand ("Immediate Mode Configuration", "Mode", "Button7", "IsChecked", "") = 0 Then ControlCommand ("Immediate Mode Configuration", "Mode", "Button7", "Check", "")
                If ControlCommand ("Immediate Mode Configuration", "Mode", "Button8", "IsChecked", "") = 1 Then ControlCommand ("Immediate Mode Configuration", "Mode", "Button8", "UnCheck", "")
                If ControlCommand ("Immediate Mode Configuration", "Mode", "Button9", "IsChecked", "") = 1 Then ControlCommand ("Immediate Mode Configuration", "Mode", "Button9", "UnCheck", "")
                Send("^{TAB}")
            EndIf
            If WinExists("Immediate Mode Configuration", "Action") Then 
                If ControlCommand("Immediate Mode Configuration", "Disin&fect boot sectors", "Button2", "IsChecked", "") = 0 Then ControlCommand("Immediate Mode Configuration", "Disin&fect boot sectors", "Button2", "Check", "")
                If ControlCommand("Immediate Mode Configuration", "Disinfect &documents", "Button3", "IsChecked", "") = 0 Then ControlCommand("Immediate Mode Configuration", "Disinfect &documents", "Button3", "Check", "")
                If ControlCommand("Immediate Mode Configuration", "Disinfect &programs", "Button4", "IsChecked", "") = 0 Then ControlCommand("Immediate Mode Configuration", "Disinfect &programs", "Button4", "Check", "")
                If WinExists("Sophos Anti-Virus", "Note that Sophos Anti-Virus will not request confirmation before disinfecting or removing infected items.") Then ControlClick("Sophos Anti-Virus", "Note that Sophos Anti-Virus will not request confirmation before disinfecting or removing infected items.", "Button1")
                If ControlCommand("Immediate Mode Configuration", "&Infected files", "Button6", "IsChecked", "") = 0 Then ControlCommand("Immediate Mode Configuration", "&Infected files", "Button6", "Check", "")
                If ControlCommand("Immediate Mode Configuration", "&Shred", "Button9", "IsChecked", "") = 0 Then ControlCommand("Immediate Mode Configuration", "&Shred", "Button9", "Check", "")
                If ControlCommand("Immediate Mode Configuration", "Request c&onfirmation", "Button14", "IsChecked", "") = 1 Then ControlCommand("Immediate Mode Configuration", "Request c&onfirmation", "Button14", "UnCheck", "")
                If WinExists("Sophos Anti-Virus", "Would you like to use disinfection as an interim solution?") Then ControlClick("Sophos Anti-Virus", "Would you like to use disinfection as an interim solution?", "Button1")
                Send("^{TAB}")
            EndIf
            If WinExists("Immediate Mode Configuration", "Report") Then 
                If ControlCommand("Immediate Mode Configuration", "&List filenames", "Button3", "IsChecked", "") = 0 Then ControlCommand("Immediate Mode Configuration", "&List filenames", "Button3", "Check", "")
                Send("{enter}")
            EndIf

            ControlClick("Sophos Anti-Virus", "", "Button3")
            $drive = ControlGetText ( "Enter item details", "Area:", "Edit1")
            If $drive = "Local hard drives" Then
                If ControlCommand("Enter item details", "&All", "Button2", "IsChecked", "") = 0 Then ControlCommand("Enter item details", "&All", "Button2", "Check", "")
                If ControlCommand("Enter item details", "&Subfolders", "Button5", "IsChecked", "") = 0 Then ControlCommand("Enter item details", "&Subfolders", "Button5", "Check", "")
                ControlClick("Enter item details", "", "Button6")
                Send("^{TAB}")
                ExitLoop
            EndIf
        WEnd
    EndIf
    If WinExists("Sophos Anti-Virus", "Scheduled") Then
        Send("!oc");open config window
        While 1
            If WinExists("Sophos Anti-Virus", "WARNING:") Then ExitLoop; if out of date error - exitloop
            If WinExists("Scheduled Job Configuration", "File List") Then Send("^{TAB}")
            If WinExists("Scheduled Job Configuration", "Time") Then
                If ControlCommand ("Scheduled Job Configuration", "Time", "Button1", "IsChecked", "") = 1 Then ControlCommand ("Scheduled Job Configuration", "Time", "Button1", "UnCheck", "")
                If ControlCommand ("Scheduled Job Configuration", "Time", "Button2", "IsChecked", "") = 1 Then ControlCommand ("Scheduled Job Configuration", "Time", "Button2", "UnCheck", "")
                If ControlCommand ("Scheduled Job Configuration", "Time", "Button3", "IsChecked", "") = 1 Then ControlCommand ("Scheduled Job Configuration", "Time", "Button3", "UnCheck", "")
                If ControlCommand ("Scheduled Job Configuration", "Time", "Button4", "IsChecked", "") = 1 Then ControlCommand ("Scheduled Job Configuration", "Time", "Button4", "UnCheck", "")
                If ControlCommand ("Scheduled Job Configuration", "Time", "Button5", "IsChecked", "") = 1 Then ControlCommand ("Scheduled Job Configuration", "Time", "Button5", "UnCheck", "")
                If ControlCommand ("Scheduled Job Configuration", "Time", "Button6", "IsChecked", "") = 0 Then ControlCommand ("Scheduled Job Configuration", "Time", "Button6", "Check", "")
                If ControlCommand ("Scheduled Job Configuration", "Time", "Button7", "IsChecked", "") = 1 Then ControlCommand ("Scheduled Job Configuration", "Time", "Button7", "UnCheck", "")
                Send("^{TAB}")
            EndIf
            If WinExists("Scheduled Job Configuration", "Mode") Then
                If ControlCommand ("Scheduled Job Configuration", "Mode", "Button3", "IsChecked", "") = 0 Then ControlCommand ("Scheduled Job Configuration", "Mode", "Button3", "Check", "")
                If ControlCommand ("Scheduled Job Configuration", "Mode", "Button6", "IsChecked", "") = 0 Then ControlCommand ("Scheduled Job Configuration", "Mode", "Button5", "Check", "")
                If ControlCommand ("Scheduled Job Configuration", "Mode", "Button7", "IsChecked", "") = 0 Then ControlCommand ("Scheduled Job Configuration", "Mode", "Button7", "Check", "")
                If ControlCommand ("Scheduled Job Configuration", "Mode", "Button8", "IsChecked", "") = 1 Then ControlCommand ("Scheduled Job Configuration", "Mode", "Button8", "UnCheck", "")
                If ControlCommand ("Scheduled Job Configuration", "Mode", "Button9", "IsChecked", "") = 1 Then ControlCommand ("Scheduled Job Configuration", "Mode", "Button9", "UnCheck", "")
                Send("^{TAB}")
            EndIf
            If WinExists("Scheduled Job Configuration", "Action") Then  
                If ControlCommand("Scheduled Job Configuration", "Action", "Button2", "IsChecked", "") = 0 Then ControlCommand("Scheduled Job Configuration", "Disin&fect boot sectors", "Button2", "Check", "")
                If ControlCommand("Scheduled Job Configuration", "Action", "Button3", "IsChecked", "") = 0 Then ControlCommand("Scheduled Job Configuration", "Disinfect &documents", "Button3", "Check", "")
                If ControlCommand("Scheduled Job Configuration", "Action", "Button4", "IsChecked", "") = 0 Then ControlCommand("Scheduled Job Configuration", "Disinfect &programs", "Button4", "Check", "")
                If WinExists("Sophos Anti-Virus", "Note that Sophos Anti-Virus will not request confirmation before disinfecting or removing infected items.") Then ControlClick("Sophos Anti-Virus", "Note that Sophos Anti-Virus will not request confirmation before disinfecting or removing infected items.", "Button1")
                If ControlCommand("Scheduled Job Configuration", "Action", "Button6", "IsChecked", "") = 0 Then ControlCommand("Scheduled Job Configuration", "&Infected files", "Button6", "Check", "")
                If ControlCommand("Scheduled Job Configuration", "Action", "Button9", "IsChecked", "") = 0 Then ControlCommand("Scheduled Job Configuration", "&Shred", "Button9", "Check", "")
                Send("^{TAB}")
            EndIf
            If WinExists("Scheduled Job Configuration", "Report") Then  
                If ControlCommand("Scheduled Job Configuration", "&List filenames", "Button3", "IsChecked", "") = 0 Then ControlCommand("Scheduled Job Configuration", "&List filenames", "Button3", "Check", "")
                Send("{enter}")
            EndIf
            Send("^{TAB}")
            ExitLoop
        Wend
    EndIf
    If WinExists("Sophos Anti-Virus", "IC Client") Then
        Send("!oc");open config window
        While 1
            If WinExists("Sophos Anti-Virus", "WARNING:") Then ExitLoop; if out of date error - exitloop
            If WinExists("InterCheck Client Configuration", "Mode") Then
                If ControlCommand ("Scheduled Job Configuration", "Mode", "Button2", "IsChecked", "") = 0 Then ControlCommand ("Scheduled Job Configuration", "Mode", "Button2", "Check", "")
                Send("^{TAB}")
            EndIf
            If WinExists("InterCheck Client Configuration", "Action") Then
                If ControlCommand("InterCheck Client Configuration", "Action", "Button2", "IsChecked", "") = 1 Then ControlCommand("InterCheck Client Configuration", "Disin&fect boot sectors", "Button2", "UnCheck", "")
                If ControlCommand("InterCheck Client Configuration", "Action", "Button3", "IsChecked", "") = 1 Then ControlCommand("InterCheck Client Configuration", "Disinfect &documents", "Button3", "UnCheck", "")
                If ControlCommand("InterCheck Client Configuration", "Action", "Button4", "IsChecked", "") = 1 Then ControlCommand("InterCheck Client Configuration", "Disinfect &programs", "Button4", "UnCheck", "")
                If ControlCommand("InterCheck Client Configuration", "Action", "Button6", "IsChecked", "") = 0 Then ControlCommand("InterCheck Client Configuration", "&Infected files", "Button6", "Check", "")
                If ControlCommand("InterCheck Client Configuration", "Action", "Button9", "IsChecked", "") = 0 Then ControlCommand("InterCheck Client Configuration", "&Shred", "Button9", "Check", "")
                Send("{enter}")
            EndIf
            ExitLoop
        WEnd
        WinClose("Sophos Anti-Virus"); exit sophos
        If WinExists("Sophos Anti-Virus", "WARNING:") = 0 Then Exit;exit program
    EndIf
WEnd
;End Set Sophos Settings
Edited by ACalcutt

Andrew Calcutt

Http://www.Vistumbler.net

Http://www.TechIdiots.net

Its not an error, its a undocumented feature

  • 4 weeks later...
  • 1 month later...
  • 3 months later...
  • 2 weeks later...
  • 2 weeks later...
  • 7 months later...
TBOMB Seeker

TBOMB

Posted
Posted

Still very new at this and need a little help. What I need to do is automate the computer naming process on our newly ghosted systems. Our naming convention is a "D" (for Dell) and the service tag. Like "D51VCG31" and I know I saw a script using powershell on this forum that can pull the dell service tag. So it would be nice if I could use this script to read the service tag from the system at first boot, then change the computer name to D+servicetag. I have a script that allows me to change the name and reboot, but I need to specify the name first so unless there is a way to make the output from the first script enter into into the second, I would need to find a way to combine the two.

The Ghost image I use is a universal one I made for all our GX models that is then syspreped but right now, I set ghost to re-image only a few of our systems everynight because I need to come in and rename, reboot, join AD, and reboot before the users can use them so I am limited as to how many I can do at one time. I think I have found a script to remove them from AD just before ghost runs so I don't get duplicate names, but I still need to find an automated way to rename (with our naming convention) and join ad.

Any ideas? Can this already do that?

ACalcutt Universalist

ACalcutt

Posted
  • Author
Posted (edited)

Still very new at this and need a little help. What I need to do is automate the computer naming process on our newly ghosted systems. Our naming convention is a "D" (for Dell) and the service tag. Like "D51VCG31" and I know I saw a script using powershell on this forum that can pull the dell service tag. So it would be nice if I could use this script to read the service tag from the system at first boot, then change the computer name to D+servicetag. I have a script that allows me to change the name and reboot, but I need to specify the name first so unless there is a way to make the output from the first script enter into into the second, I would need to find a way to combine the two.

The Ghost image I use is a universal one I made for all our GX models that is then syspreped but right now, I set ghost to re-image only a few of our systems everynight because I need to come in and rename, reboot, join AD, and reboot before the users can use them so I am limited as to how many I can do at one time. I think I have found a script to remove them from AD just before ghost runs so I don't get duplicate names, but I still need to find an automated way to rename (with our naming convention) and join ad.

Any ideas? Can this already do that?

I'm not to good at this stuff....but this was given as a vbs script here http://www.adminscripteditor.com/forum/printable.asp?m=7743

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSMBIOS = objWMIService.ExecQuery _

("Select * from Win32_SystemEnclosure")

For Each objSMBIOS in colSMBIOS

Wscript.Echo "Serial Number: " & objSMBIOS.SerialNumber

Next

if this helps any

Edit

I took that WMI information and looked at the scriptomatic code (scriptomatic : http://www.autoitscript.com/forum/index.php?showtopic=10534 )

This will extract the service tag

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10

$wbemFlagForwardOnly = 0x20

$colItems = ""

$strComputer = "localhost"

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_SystemEnclosure", "WQL", _

$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then

For $objItem In $colItems

$Output = $objItem.SerialNumber

Next

Else

Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_SystemEnclosure" )

Endif

MsgBox(0, "", $Output)

Edited by ACalcutt

Andrew Calcutt

Http://www.Vistumbler.net

Http://www.TechIdiots.net

Its not an error, its a undocumented feature

ACalcutt Universalist

ACalcutt

Posted
  • Author
Posted (edited)

This is untested but i think it should work....it uses functions from my prepsys program

;Fill in this section
;-----------------------------------
$script = @ScriptFullPath ;Script location - needed for script to be put back in startup (to change the computer name)

$logonusername = "Administrator" ;logon credentials for reboot
$logonpassword = "password" 
$logondomain = @ComputerName 

$domjoinuser = "domain\user" ;user with permissions to join domain
$domjoinpass = "Password"
$domjoindomain = "Domain"

$domtojoin = "Domain.local"
$OU = "OU"
;-----------------------------------

;<--- ScriptOmatic WMI Section ---> gets serial number
$strComputer = "localhost"
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_SystemEnclosure", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $newname = "D" & $objItem.SerialNumber ;set $newname D & Serial number
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_SystemEnclosure" )
   Exit
Endif
;<---End ScriptOmatic WMI Section --->

If @ComputerName <> $newname Then ;If the computer name is not D & Service tag, rename it and reboot to set changes  -  Else  -  Join to the domain 
    _ChangeComputerName($newname, $logonusername, $logonpassword, $logondomain, $script) 
Else
    _JoinToDomain($domjoindomain, $domjoinuser, $domjoinpass, $strComputer, $domtojoin, $OU)
EndIf

Exit

;<---  Functions from Prepsys v0.94 - By Andrew Calcutt - Please give me credit if replicated--->
Func _ChangeComputerName($newcomputername, $logonuser = "", $logonpass = "", $domain = "", $startprogram = "")
    GUICtrlSetData($current_action, "Changing Computer Name")
    RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName", "ComputerName", "REG_SZ", $newcomputername)
    RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\", "ComputerName", "REG_SZ", $newcomputername)
    RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "ComputerName", "REG_SZ", $newcomputername)
    RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "NV Hostname", "REG_SZ", $newcomputername)
    _Shutdown("REBOOT", "ADD", $logonuser, $logonpass, $domain, $startprogram)
EndFunc   ;==>_ChangeComputerName

Func _JoinToDomain($strUserDomain, $strUser, $strPassword, $strComputer, $strComputerDomain, $strOU);joins compuer to domain
    ;GUI
    GUICtrlSetData($current_action, "Joining to Domain")
    GUICreate("Joining Computer To Domain", 392, 323, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
    GUICtrlCreateLabel("Machine Name:", 10, 10, 80, 20)
    $machine_nameJD = GUICtrlCreateInput($strComputer, 100, 10, 280, 20)
    GUICtrlCreateLabel("Join Domain:", 10, 40, 90, 20)
    $jointodomain = GUICtrlCreateInput($strComputerDomain, 100, 40, 280, 20)
    GUICtrlCreateLabel("OU:", 10, 70, 90, 20)
    $JoinToOU = GUICtrlCreateInput($strOU, 100, 70, 280, 20)
    GUICtrlCreateLabel("Username:", 10, 100, 90, 20)
    $usernameJD = GUICtrlCreateInput($strUser, 100, 100, 280, 20)
    GUICtrlCreateLabel("Password:", 10, 130, 90, 20)
    $passwordJD = GUICtrlCreateInput($strPassword, 100, 130, 280, 20, $ES_PASSWORD)
    GUICtrlCreateLabel("Domain", 10, 170, 80, 20)
    $domainJD = GUICtrlCreateInput($strUserDomain, 100, 170, 280, 20)
    $join_edit = GUICtrlCreateEdit("", 10, 230, 370, 170)
    GUISetState()
    
    ;Join Domain Script
    Const $JOIN_DOMAIN = 1
    Const $ACCT_CREATE = 2
    Const $ACCT_DELETE = 4
    Const $WIN9X_UPGRADE = 16
    Const $DOMAIN_JOIN_IF_JOINED = 32
    Const $JOIN_UNSECURE = 64
    Const $MACHINE_PASSWORD_PASSED = 128
    Const $DEFERRED_SPN_SET = 256
    Const $INSTALL_INVOCATION = 262144
    
    Dim $strDomainUser
    Dim $strFailString
    Dim $strSucceedString
    
    GUICtrlSetData($join_edit, "Joining Domain")
    $strDomainUser = $strUserDomain & "\" & $strUser
    
    $objNetwork = ObjCreate("WScript.Network")
    $objComputer = ObjGet("winmgmts:{impersonationLevel=Impersonate}!\\" & _
            $strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
            $strComputer & "'")
    $ReturnValue = $objComputer.JoinDomainOrWorkGroup ($strComputerDomain, _
            $strPassword, _
            $strDomainUser, _
            $strOU, _
            $JOIN_DOMAIN + $ACCT_CREATE)
    
    If ($ReturnValue <> 0) Then
        ;get the net helpmsg from the error code returned
        Dim $strHelpMsg, $command
        $command = "net helpmsg " & $ReturnValue
        
        $objShell = ObjCreate("WScript.Shell")
        $objScriptExec = $objShell.Exec ($command)
        
        ; store the error message into strHelpMsg
        $strHelpMsg = $objScriptExec.StdOut.ReadAll ()
        $strFailString = "Join Failed" & @CRLF & _
                "Computer: " & $strComputer & @CRLF & _
                "Domain: " & $strComputerDomain & @CRLF & _
                "User Name: " & $strDomainUser & @CRLF & _
                "Error Message: " & $strHelpMsg
        GUICtrlSetData($join_edit, $strFailString)
        $join_button = GUICtrlCreateButton("Join Domain", 10, 200, 110, 20)
        $skip_button = GUICtrlCreateButton("Skip Joining Domain", 130, 200, 110, 20)
        GUISetState()
        While 1
            $msg = GUIGetMsg()
            Select
                Case $msg = $GUI_EVENT_CLOSE Or $msg = $skip_button
                    GUIDelete("Joining Computer To Domain")
                    ExitLoop
                Case $msg = $join_button
                    $domainJD = GUICtrlRead($domainJD)
                    $usernameJD = GUICtrlRead($usernameJD)
                    $passwordJD = GUICtrlRead($passwordJD)
                    $machine_nameJD = GUICtrlRead($machine_nameJD)
                    $jointodomain = GUICtrlRead($jointodomain)
                    $JoinToOU = GUICtrlRead($JoinToOU)
                    GUIDelete("Joining Computer To Domain")
                    _JoinToDomain($domainJD, $usernameJD, $passwordJD, $machine_nameJD, $jointodomain, $JoinToOU)
                    ExitLoop
                Case Else
                    ;;;
            EndSelect
        WEnd
        Return 0
    Else
        $strSucceedString = "Join Succeeded" & @CRLF & _
                "Computer: " & $strComputer & @CRLF & _
                "Domain: " & $strComputerDomain & @CRLF & _
                "User Name: " & $strDomainUser
        ;_RecordData($strComputer, $strUser, $strUserDomain, $strOU)
        GUICtrlSetData($join_edit, $strSucceedString)
        Sleep(5000)
        GUIDelete("Joining Computer To Domain")
        Return 1
    EndIf
EndFunc   ;==>_JoinToDomain

;<---  End Functions from Prepsys v0.94 - By Andrew Calcutt --->

code.au3

Edited by ACalcutt

Andrew Calcutt

Http://www.Vistumbler.net

Http://www.TechIdiots.net

Its not an error, its a undocumented feature

TBOMB Seeker

TBOMB

Posted
Posted

This is untested but i think it should work....it uses functions from my prepsys program

<snip>

Thanks to the both of you!

I will give it a try but it sure looks good to me.

ACalcutt Universalist

ACalcutt

Posted
  • Author
Posted

Thanks to the both of you!

I will give it a try but it sure looks good to me.

I forgot to add the shutdown function into that scipt. here are the functions, but they would need to be modified a little for your use. also, you will need to add something to remove the startup registry keys so the computer stops auto loging on and it removes the program from startup

Func _Logon($action, $logonuser = "", $logonpass = "", $domain = "", $startprogram = "")
    Select
        Case $action = "REMOVE"
            If IniRead($settings, "Program_Use_Only", "legalnoticecaption", "") <> "" Then RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "legalnoticecaption", "REG_SZ", IniRead($settings, "Program_Use_Only", "legalnoticecaption", ""))
            If IniRead($settings, "Program_Use_Only", "legalnoticetext", "") <> "" Then RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "legalnoticetext", "REG_SZ", IniRead($settings, "Program_Use_Only", "legalnoticetext", ""))
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon", "REG_SZ", "0")
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName", "REG_SZ", "")
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultPassword", "REG_SZ", "")
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "ForceAutoLogon", "REG_SZ", "0")
            RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Continue_Sysprep")
        Case $action = "ADD"
            If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "legalnoticecaption") <> "" Then IniWrite($settings, "Program_Use_Only", "legalnoticecaption", RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "legalnoticecaption"))
            If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "legalnoticetext") <> "" Then IniWrite($settings, "Program_Use_Only", "legalnoticetext", RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "legalnoticetext"))
            RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "legalnoticecaption")
            RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system", "legalnoticetext")
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon", "REG_SZ", "1")
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName", "REG_SZ", $logonuser)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultPassword", "REG_SZ", $logonpass)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultDomainName", "REG_SZ", $domain)
            ;FIX NO PASSWORD PROBLEM
            If $logonpass = "" Then
                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultPassword", "REG_SZ", "")
            EndIf
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "ForceAutoLogon", "REG_SZ", "1")
            RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 'Continue_Sysprep', "REG_SZ", $startprogram)
        Case $action = "ADD SCRIPT"
    EndSelect
EndFunc   ;==>_Logon


Func _Shutdown($shutdown, $action, $logonuser = "", $logonpass = "", $domain = "", $startprogram = "")
    Select
        Case $shutdown = "NONE"
            _Logon($action, $logonuser, $logonpass, $domain, $startprogram)
        Case $shutdown = "LOGOFF"
            _Logon($action, $logonuser, $logonpass, $domain, $startprogram)
            Shutdown(0)
            Exit
        Case $shutdown = "REBOOT"
            _Logon($action, $logonuser, $logonpass, $domain, $startprogram)
            Shutdown(2)
            Exit
    EndSelect
EndFunc   ;==>_Shutdown

Andrew Calcutt

Http://www.Vistumbler.net

Http://www.TechIdiots.net

Its not an error, its a undocumented feature

TBOMB Seeker

TBOMB

Posted
Posted

couple of questions about this script. Again, definately NOT new to scripting, but definately AM new to autoit. i just want to make sure I am filling this out correctly. Please take a look, this is what I have changed and NOTHING else. I want to make sure that I am changing what I should and not changing what I shouldn't.

$script = @C:\newcode.au3 ;assuming this is the path to this script

$logonusername = "Adminuser" ;not real DUH

$logonpassword = "adminpassword" ;also not real

$logondomain = @ComputerName ;DID NOT CHANGE, that's what i need this script for

$domjoinuser = "mydom\adminuser" ;not real

$domjoinpass = "adminpassword" ;not real

$domjoindomain = "mydom"

$domtojoin = "Domain.local" ;DID NOT CHANGE

$OU = "Group Policy Test Site" ;this is an OU that is a sub, sub, sub, OU to our domain Is that okay?

Is there anything else that I need to change? Is there something that I changed and shouldn't have or changed incorrectly?

Also, is it possible to turn this into an executable so that it will run on my computers without installing autoit or whatever?

ACalcutt Universalist

ACalcutt

Posted
  • Author
Posted (edited)

couple of questions about this script. Again, definately NOT new to scripting, but definately AM new to autoit. i just want to make sure I am filling this out correctly. Please take a look, this is what I have changed and NOTHING else. I want to make sure that I am changing what I should and not changing what I shouldn't.

$script = @C:\newcode.au3 ;assuming this is the path to this script

$logonusername = "Adminuser" ;not real DUH

$logonpassword = "adminpassword" ;also not real

$logondomain = @ComputerName ;DID NOT CHANGE, that's what i need this script for

$domjoinuser = "mydom\adminuser" ;not real

$domjoinpass = "adminpassword" ;not real

$domjoindomain = "mydom"

$domtojoin = "Domain.local" ;DID NOT CHANGE

$OU = "Group Policy Test Site" ;this is an OU that is a sub, sub, sub, OU to our domain Is that okay?

Is there anything else that I need to change? Is there something that I changed and shouldn't have or changed incorrectly?

Also, is it possible to turn this into an executable so that it will run on my computers without installing autoit or whatever?

$script = @C:\newcode.au3

should be

$script = "C:\newcode.exe" ;au3 would require the Autoit.exe to execute; so compiled script is best

As for the OU thing...I origionally showed it formatted wrong. But i am not sure how it would be formated in your case. my labs ou is in the root of my AD. this is how i would format it. domain.local being the domain name

OU = "ou=labs,dc=domain,dc=local"

everything else seems right to me. just remember for the script you will need those other 2 functions also. the _Shutdown and _Logon in addition to what i wrote origionally (as the _CHANGECOMPUTERNAME function uses _SHUTDOWN and _SHUTDOWN use _LOGON)

Edited by ACalcutt

Andrew Calcutt

Http://www.Vistumbler.net

Http://www.TechIdiots.net

Its not an error, its a undocumented feature

TBOMB Seeker

TBOMB

Posted
Posted

"everything else seems right to me."

So I don't need to change the line that says $logondomain = @ComputerName? (the "@Computername" also shows up in pink elsewhere in the script)

"just remember for the script you will need those other 2 functions also. the _Shutdown and _Logon in addition to what i wrote origionally (as the _CHANGECOMPUTERNAME function uses _SHUTDOWN and _SHUTDOWN use _LOGON)"

What tother two functions are you refering to. DId I miss something else? There wasn't anything else further down in the script that needed to be changed was there?

TBOMB Seeker

TBOMB

Posted
Posted

Okay, something's not happy. As soon as I run the exe made from the code it just opens a small window with an ok button. As I said earlier, the only things I changed are at the top where it says "Fill in this section" and even then I didn't do anything with the "$logondomain = @ComputerName"

Here is the code I used exactly (changed the user name and passwords of course).

CODE
;Fill in this section

;-----------------------------------

$script = "c:\DED\newcode.exe" ;Script location - needed for script to be put back in startup (to change the computer name)

$logonusername = "Administrator" ;logon credentials for reboot

$logonpassword = "ourpassword"

$logondomain = @ComputerName

$domjoinuser = "mydom\admin" ;user with permissions to join domain

$domjoinpass = "adminpassword"

$domjoindomain = "mydom"

$domtojoin = "arsi"

$OU = "ou=Group Policy Test Site,ou=employees,dc=mydom,dc=com"

;-----------------------------------

$strComputer = "localhost"

$wbemFlagReturnImmediately = 0x10

$wbemFlagForwardOnly = 0x20

$colItems = ""

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_SystemEnclosure", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then

For $objItem In $colItems

$newname = "D" & $objItem.SerialNumber

Next

Else

Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_SystemEnclosure" )

Exit

Endif

If @ComputerName <> $newname Then

MsgBox(0, "", "")

Exit

;_ChangeComputerName($newname, $logonusername, $logonpassword, $logondomain, $script)

Else

_JoinToDomain($domjoindomain, $domjoinuser, $domjoinpass, $strComputer, $strComputerDomain, $strOU)

EndIf

Exit

;<--- Functions from Prepsys v0.94 - By Andrew Calcutt --->

Func _ChangeComputerName($newcomputername, $logonuser = "", $logonpass = "", $domain = "", $startprogram = "")

GUICtrlSetData($current_action, "Changing Computer Name")

RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName", "ComputerName", "REG_SZ", $newcomputername)

RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\", "ComputerName", "REG_SZ", $newcomputername)

RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "ComputerName", "REG_SZ", $newcomputername)

RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "NV Hostname", "REG_SZ", $newcomputername)

_Shutdown("REBOOT", "ADD", $logonuser, $logonpass, $domain, $startprogram)

EndFunc ;==>_ChangeComputerName

Func _JoinToDomain($strUserDomain, $strUser, $strPassword, $strComputer, $strComputerDomain, $strOU);joins compuer to domain

;GUI

GUICtrlSetData($current_action, "Joining to Domain")

GUICreate("Joining Computer To Domain", 392, 323, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

GUICtrlCreateLabel("Machine Name:", 10, 10, 80, 20)

$machine_nameJD = GUICtrlCreateInput($strComputer, 100, 10, 280, 20)

GUICtrlCreateLabel("Join Domain:", 10, 40, 90, 20)

$jointodomain = GUICtrlCreateInput($strComputerDomain, 100, 40, 280, 20)

GUICtrlCreateLabel("OU:", 10, 70, 90, 20)

$JoinToOU = GUICtrlCreateInput($strOU, 100, 70, 280, 20)

GUICtrlCreateLabel("Username:", 10, 100, 90, 20)

$usernameJD = GUICtrlCreateInput($strUser, 100, 100, 280, 20)

GUICtrlCreateLabel("Password:", 10, 130, 90, 20)

$passwordJD = GUICtrlCreateInput($strPassword, 100, 130, 280, 20, $ES_PASSWORD)

GUICtrlCreateLabel("Domain", 10, 170, 80, 20)

$domainJD = GUICtrlCreateInput($strUserDomain, 100, 170, 280, 20)

$join_edit = GUICtrlCreateEdit("", 10, 230, 370, 170)

GUISetState()

;Join Domain Script

Const $JOIN_DOMAIN = 1

Const $ACCT_CREATE = 2

Const $ACCT_DELETE = 4

Const $WIN9X_UPGRADE = 16

Const $DOMAIN_JOIN_IF_JOINED = 32

Const $JOIN_UNSECURE = 64

Const $MACHINE_PASSWORD_PASSED = 128

Const $DEFERRED_SPN_SET = 256

Const $INSTALL_INVOCATION = 262144

Dim $strDomainUser

Dim $strFailString

Dim $strSucceedString

GUICtrlSetData($join_edit, "Joining Domain")

$strDomainUser = $strUserDomain & "\" & $strUser

$objNetwork = ObjCreate("WScript.Network")

$objComputer = ObjGet("winmgmts:{impersonationLevel=Impersonate}!\\" & _

$strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _

$strComputer & "'")

$ReturnValue = $objComputer.JoinDomainOrWorkGroup ($strComputerDomain, _

$strPassword, _

$strDomainUser, _

$strOU, _

$JOIN_DOMAIN + $ACCT_CREATE)

If ($ReturnValue <> 0) Then

;get the net helpmsg from the error code returned

Dim $strHelpMsg, $command

$command = "net helpmsg " & $ReturnValue

$objShell = ObjCreate("WScript.Shell")

$objScriptExec = $objShell.Exec ($command)

; store the error message into strHelpMsg

$strHelpMsg = $objScriptExec.StdOut.ReadAll ()

$strFailString = "Join Failed" & @CRLF & _

"Computer: " & $strComputer & @CRLF & _

"Domain: " & $strComputerDomain & @CRLF & _

"User Name: " & $strDomainUser & @CRLF & _

"Error Message: " & $strHelpMsg

GUICtrlSetData($join_edit, $strFailString)

$join_button = GUICtrlCreateButton("Join Domain", 10, 200, 110, 20)

$skip_button = GUICtrlCreateButton("Skip Joining Domain", 130, 200, 110, 20)

GUISetState()

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE Or $msg = $skip_button

GUIDelete("Joining Computer To Domain")

ExitLoop

Case $msg = $join_button

$domainJD = GUICtrlRead($domainJD)

$usernameJD = GUICtrlRead($usernameJD)

$passwordJD = GUICtrlRead($passwordJD)

$machine_nameJD = GUICtrlRead($machine_nameJD)

$jointodomain = GUICtrlRead($jointodomain)

$JoinToOU = GUICtrlRead($JoinToOU)

GUIDelete("Joining Computer To Domain")

_JoinToDomain($domainJD, $usernameJD, $passwordJD, $machine_nameJD, $jointodomain, $JoinToOU)

ExitLoop

Case Else

;;;

EndSelect

WEnd

Return 0

Else

$strSucceedString = "Join Succeeded" & @CRLF & _

"Computer: " & $strComputer & @CRLF & _

"Domain: " & $strComputerDomain & @CRLF & _

"User Name: " & $strDomainUser

;_RecordData($strComputer, $strUser, $strUserDomain, $strOU)

GUICtrlSetData($join_edit, $strSucceedString)

Sleep(5000)

GUIDelete("Joining Computer To Domain")

Return 1

EndIf

EndFunc ;==>_JoinToDomain

;<--- End Functions from Prepsys v0.94 - By Andrew Calcutt --->

ACalcutt Universalist

ACalcutt

Posted
  • Author
Posted (edited) 

If @ComputerName <> $newname Then
    MsgBox(0, "", "")
    Exit
    ;_ChangeComputerName($newname, $logonusername, $logonpassword, $logondomain, $script)
Else
    _JoinToDomain($domjoindomain, $domjoinuser, $domjoinpass, $strComputer, $strComputerDomain, $strOU)
EndIf
oÝ÷ Ù8^{ZÈ£¬iº/xÞÞvØZµ©Ýºw(g§µçmç!jxr©º×«¥ªí¡ûazÇ+ZÊ"i×^vØ^¢Ø^¯gîËb¢{ºÚ"µÍÑ[[ÈÙXÝ[ÛËKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKBÌÍÜØÜH   ][ÝØÎÌLÑQ  ÌLÛ]ØÛÙK^I][ÝÈÔØÜØØ][ÛHYYYÜØÜÈH]XÚÈ[Ý
ÈÚ[ÙHHÛÛ][YJBÌÍÛÙÛÛÙ[YHH    ][ÝÐYZ[Ý]Ü][ÝÈÛÙÛÛÜY[X[ÈÜXÛÝÌÍÛÙÛÛÜÝÛÜH    ][ÝÛÝÜÝÛÜ    ][ÝÂÌÍÛÙÛÛÛXZ[HÛÛ][YBÌÍÙÛZÚ[ÙH ][ÝÛ^YÛIÌLØYZ[][ÝÈÝÙÚ]ZÜÚ[ÛÈÈÚ[ÛXZ[ÌÍÙÛZÚ[ÜÈH   ][ÝØYZ[ÜÝÛÜ   ][ÝÂÌÍÙÛZÚ[ÛXZ[H    ][ÝÛ^YÛI][ÝÂÌÍÙÛ]ÚÚ[H    ][ÝØÚI][ÝÂÌÍÓÕHH   ][ÝÛÝOQÜÝÛXÞHÝÚ]KÝOY[ÞYYËÏ[^YÛKÏXÛÛI][ÝÂËKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKBÌÍÜÝÛÛ]H  ][ÝÛØØ[ÜÝ ][ÝÂÌÍÝØ[QYÔ][[YYX][HHLÌÍÝØ[QYÑÜØÛHHÌÍØÛÛ][ÈH  ][ÝÉ][ÝÂÌÍÛØÓRTÙXÙHHØÙ]
    ][ÝÝÚ[YÛ]ÎÌLÉÌLÉ][ÝÈ [È ÌÍÜÝÛÛ]   [È ][ÝÉÌLÜÛÝ ÌLÐÒSU][ÝÊBÌÍØÛÛ][ÈH ÌÍÛØÓRTÙXÙK^XÔ]YJ   ][ÝÔÑSPÕ
ÓHÚ[ÌÔÞÝ[Q[ÛÜÝI][ÝË  ][ÝÕÔS   ][ÝË  ÌÍÝØ[QYÔ][[YYX][H
È  ÌÍÝØ[QYÑÜØÛJBYÓØ  ÌÍØÛÛ][ÊH[QÜ ÌÍÛØ][H[    ÌÍØÛÛ][ÂBIÌÍÛ]Û[YHH   ][ÝÑ  ][ÝÈ  [È ÌÍÛØ][KÙX[[XS^[ÙBSÙØÞ
    ][ÝÕÓRHÝ]]  ][ÝË  ][ÝÓÈÓRHØXÝÈÝ[ÜÛÜΠ ][ÝÈ  [È ][ÝÕÚ[ÌÔÞÝ[Q[ÛÜÝI][ÝÈ
BQ^][YYÛÛ][YH ÉÝÈ  ÌÍÛ]Û[YH[WÐÚ[ÙPÛÛ][YJ  ÌÍÛ]Û[YK    ÌÍÛÙÛÛÙ[YK   ÌÍÛÙÛÛÜÝÛÜ    ÌÍÛÙÛÛÛXZ[   ÌÍÜØÜ
B[ÙBWÒÚ[ÑÛXZ[  ÌÍÙÛZÚ[ÛXZ[   ÌÍÙÛZÚ[Ù  ÌÍÙÛZÚ[ÜË    ÌÍÜÝÛÛ]   ÌÍÜÝÛÛ]ÛXZ[  ÌÍÜÝÕJB[Y^]ÉËKKH[Ý[ÛÈÛHÞÈMHH[]ÈØ[Ý]KKIÍÂ[ÈÐÚ[ÙPÛÛ][YJ   ÌÍÛ]ØÛÛ][YK   ÌÍÛÙÛÛÙH ][ÝÉ][ÝË    ÌÍÛÙÛÛÜÈH   ][ÝÉ][ÝË    ÌÍÙÛXZ[H    ][ÝÉ][ÝË    ÌÍÜÝÙÜ[HH ][ÝÉ][ÝÊBQÕRPÝÙ]]J   ÌÍØÝ[ØXÝ[Û   ][ÝÐÚ[Ú[ÈÛÛ][YI][ÝÊBTYÕÜ]J   ][ÝÒÓIÌLÔÖTÕSIÌLÐÝ[ÛÛÛÙ]  ÌLÐÛÛÛ ÌLÐÛÛ][YIÌLÐXÝ]PÛÛ][YI][ÝË   ][ÝÐÛÛ][YI][ÝË    ][ÝÔQ×ÔÖ][ÝË ÌÍÛ]ØÛÛ][YJBTYÕÜ]J  ][ÝÒÓIÌLÔÖTÕSIÌLÐÝ[ÛÛÛÙ]  ÌLÐÛÛÛ ÌLÐÛÛ][YIÌLÐÛÛ][YIÌLÉ][ÝË   ][ÝÐÛÛ][YI][ÝË    ][ÝÔQ×ÔÖ][ÝË ÌÍÛ]ØÛÛ][YJBTYÕÜ]J  ][ÝÒÓIÌLÔÖTÕSIÌLÐÝ[ÛÛÛÙ]  ÌLÔÙXÙÉÌLÕÜ ÌLÔ[Y]É][ÝË    ][ÝÐÛÛ][YI][ÝË    ][ÝÔQ×ÔÖ][ÝË ÌÍÛ]ØÛÛ][YJBTYÕÜ]J  ][ÝÒÓIÌLÔÖTÕSIÌLÐÝ[ÛÛÛÙ]  ÌLÔÙXÙÉÌLÕÜ ÌLÔ[Y]É][ÝË    ][ÝÓÜÝ[YI][ÝË ][ÝÔQ×ÔÖ][ÝË ÌÍÛ]ØÛÛ][YJBWÔÚ]ÝÛ    ][ÝÔPÓÕ ][ÝË  ][ÝÐQ ][ÝË  ÌÍÛÙÛÛÙ  ÌÍÛÙÛÛÜË    ÌÍÙÛXZ[ ÌÍÜÝÙÜ[JB[[ÈÏOIÝ×ÐÚ[ÙPÛÛ][YB[ÈÒÚ[ÑÛXZ[  ÌÍÜÝÙÛXZ[ ÌÍÜÝÙ  ÌÍÜÝÜÝÛÜ    ÌÍÜÝÛÛ]   ÌÍÜÝÛÛ]ÛXZ[  ÌÍÜÝÕJNÚÚ[ÈÛÛYÈÛXZ[NÑÕRBQÕRPÝÙ]]J  ÌÍØÝ[ØXÝ[Û   ][ÝÒÚ[[ÈÈÛXZ[][ÝÊBQÕRPÜX]J    ][ÝÒÚ[[ÈÛÛ]ÈÛXZ[][ÝËÎLÌËLKLK]Ô    ÌÍÕÔ×ÓÕTTQÒSÕË    ÌÍÕÔ×ÐÓTÒPSÔÊJBQÕRPÝÜX]SX[
    ][ÝÓXXÚ[H[YN][ÝËLL
BIÌÍÛXXÚ[WÛ[YRHÕRPÝÜX]R[]
    ÌÍÜÝÛÛ]LL
BQÕRPÝÜX]SX[
    ][ÝÒÚ[ÛXZ[][ÝËL
L
BIÌÍÚÚ[ÙÛXZ[HÕRPÝÜX]R[]
    ÌÍÜÝÛÛ]ÛXZ[L

BQÕRPÝÜX]SX[
    ][ÝÓÕN][ÝËL
ÌL
BIÌÍÒÚ[ÓÕHHÕRPÝÜX]R[]
    ÌÍÜÝÕKL
Ì
BQÕRPÝÜX]SX[
    ][ÝÕÙ[YN][ÝËLLL
BIÌÍÝÙ[YRHÕRPÝÜX]R[]
    ÌÍÜÝÙLL
BQÕRPÝÜX]SX[
    ][ÝÔÜÝÛÜ][ÝËLLÌL
BIÌÍÜÜÝÛÜHÕRPÝÜX]R[]
    ÌÍÜÝÜÝÛÜLLÌ    ÌÍÑT×ÔTÔÕÓÔ
BQÕRPÝÜX]SX[
    ][ÝÑÛXZ[][ÝËLMÌ
BIÌÍÙÛXZ[HÕRPÝÜX]R[]
    ÌÍÜÝÙÛXZ[LMÌ
BIÌÍÚÚ[ÙY]HÕRPÝÜX]QY]
    ][ÝÉ][ÝËLÌÍÌMÌ
BQÕRTÙ]Ý]J
BNÒÚ[ÛXZ[ØÜPÛÛÝ ÌÍÒÒSÑÓPRSHBPÛÛÝ   ÌÍÐPÐÕÐÔPUHHPÛÛÝ  ÌÍÐPÐÕÑSUHH
PÛÛÝ ÌÍÕÒSVÕTÔQHHMPÛÛÝ  ÌÍÑÓPRSÒÒSÒQÒÒSQHÌPÛÛÝ ÌÍÒÒSÕSÑPÕTHH
PÛÛÝ ÌÍÓPPÒSWÔTÔÕÓÔÔTÔÑQHLPÛÛÝ    ÌÍÑQTQÔÔÔÑUHMPÛÛÝ ÌÍÒSÕSÒSÐÐUSÓHM
Q[H ÌÍÜÝÛXZ[ÙQ[H  ÌÍÜÝZ[Ý[ÂQ[H  ÌÍÜÝÝXØÙYYÝ[ÂQÕRPÝÙ]]J  ÌÍÚÚ[ÙY]   ][ÝÒÚ[[ÈÛXZ[][ÝÊBIÌÍÜÝÛXZ[ÙH   ÌÍÜÝÙÛXZ[ [È ][ÝÉÌLÉ][ÝÈ   [È ÌÍÜÝÙIÌÍÛØ]ÛÜÈHØÜX]J  ][ÝÕÔØÜ]ÛÜÉ][ÝÊBIÌÍÛØÛÛ]HØÙ]
    ][ÝÝÚ[YÛ]ÎÚ[ÛÛ][Û][R[ÛÛ]_IÌÌÎÉÌLÉÌLÉ][ÝÈ   [ÈÂBBIÌÍÜÝÛÛ]   [È ][ÝÉÌLÜÛÝ ÌLØÚ[]Ú[ÌÐÛÛ]ÞÝ[K[YOIÌÎNÉ][ÝÈ    [ÈÂBBIÌÍÜÝÛÛ]   [È ][ÝÉÌÎNÉ][ÝÊBIÌÍÔ][YHH    ÌÍÛØÛÛ]Ú[ÛXZ[ÜÛÜÑÜÝ
    ÌÍÜÝÛÛ]ÛXZ[ÂBBIÌÍÜÝÜÝÛÜÂBBIÌÍÜÝÛXZ[ÙÂBBIÌÍÜÝÕKÂBBIÌÍÒÒSÑÓPRS
È  ÌÍÐPÐÕÐÔPUJBRY
    ÌÍÔ][YH  ÉÝÈ
H[BNÙÙ]H][ÙÈÛHHÜÛÙH]YBQ[H   ÌÍÜÝ[ÙË   ÌÍØÛÛ[X[BIÌÍØÛÛ[X[H   ][ÝÛ][ÙÈ    ][ÝÈ  [È ÌÍÔ][YBBIÌÍÛØÚ[HØÜX]J ][ÝÕÔØÜÚ[ ][ÝÊBBIÌÍÛØØÜ^XÈH  ÌÍÛØÚ[^XÈ
    ÌÍØÛÛ[X[
BBNÈÝÜHHÜYÜØYÙH[ÈÝ[ÙÂBIÌÍÜÝ[ÙÈH    ÌÍÛØØÜ^XËÝÝ]XY[

BBIÌÍÜÝZ[Ý[ÈH ][ÝÒÚ[Z[Y    ][ÝÈ  [ÈÔ   [ÈÂBBBI][ÝÐÛÛ]    ][ÝÈ  [È ÌÍÜÝÛÛ]   [ÈÔ   [ÈÂBBBI][ÝÑÛXZ[    ][ÝÈ  [È ÌÍÜÝÛÛ]ÛXZ[  [ÈÔ   [ÈÂBBBI][ÝÕÙ[YN    ][ÝÈ  [È ÌÍÜÝÛXZ[Ù [ÈÔ   [ÈÂBBBI][ÝÑÜYÜØYÙN  ][ÝÈ  [È ÌÍÜÝ[ÙÂBQÕRPÝÙ]]J  ÌÍÚÚ[ÙY]   ÌÍÜÝZ[Ý[ÊBBIÌÍÚÚ[Ø]ÛHÕRPÝÜX]P]Û ][ÝÒÚ[ÛXZ[][ÝËLLL
BBIÌÍÜÚÚØ]ÛHÕRPÝÜX]P]Û   ][ÝÔÚÚÚ[[ÈÛXZ[][ÝËLÌLL
BBQÕRTÙ]Ý]J
BBUÚ[HBBBIÌÍÛÙÈHÕRQÙ]ÙÊ
BBBTÙ[XÝBBBPØÙH ÌÍÛÙÈH ÌÍÑÕRWÑUSÐÓÔÑHÜ   ÌÍÛÙÈH ÌÍÜÚÚØ]ÛBBBBQÕRQ[]J ][ÝÒÚ[[ÈÛÛ]ÈÛXZ[][ÝÊBBBBBQ^]ÛÜBBBPØÙH ÌÍÛÙÈH ÌÍÚÚ[Ø]ÛBBBBIÌÍÙÛXZ[HÕRPÝXY
    ÌÍÙÛXZ[
BBBBBIÌÍÝÙ[YRHÕRPÝXY
    ÌÍÝÙ[YR
BBBBBIÌÍÜÜÝÛÜHÕRPÝXY
    ÌÍÜÜÝÛÜ
BBBBBIÌÍÛXXÚ[WÛ[YRHÕRPÝXY
    ÌÍÛXXÚ[WÛ[YR
BBBBBIÌÍÚÚ[ÙÛXZ[HÕRPÝXY
    ÌÍÚÚ[ÙÛXZ[BBBBBIÌÍÒÚ[ÓÕHHÕRPÝXY
    ÌÍÒÚ[ÓÕJBBBBBQÕRQ[]J ][ÝÒÚ[[ÈÛÛ]ÈÛXZ[][ÝÊBBBBBWÒÚ[ÑÛXZ[    ÌÍÙÛXZ[ ÌÍÝÙ[YR ÌÍÜÜÝÛÜ  ÌÍÛXXÚ[WÛ[YR   ÌÍÚÚ[ÙÛXZ[    ÌÍÒÚ[ÓÕJBBBBBQ^]ÛÜBBBPØÙH[ÙBBBBBNÎÎÂBBQ[Ù[XÝBUÑ[BT]Q[ÙBBIÌÍÜÝÝXØÙYYÝ[ÈH  ][ÝÒÚ[ÝXØÙYYY ][ÝÈ  [ÈÔ   [ÈÂBBBI][ÝÐÛÛ]    ][ÝÈ  [È ÌÍÜÝÛÛ]   [ÈÔ   [ÈÂBBBI][ÝÑÛXZ[    ][ÝÈ  [È ÌÍÜÝÛÛ]ÛXZ[  [ÈÔ   [ÈÂBBBI][ÝÕÙ[YN    ][ÝÈ  [È ÌÍÜÝÛXZ[ÙBN×ÔXÛÜ]J    ÌÍÜÝÛÛ]   ÌÍÜÝÙ  ÌÍÜÝÙÛXZ[ ÌÍÜÝÕJBBQÕRPÝÙ]]J   ÌÍÚÚ[ÙY]   ÌÍÜÝÝXØÙYYÝ[ÊBBTÛY
L
BBQÕRQ[]J  ][ÝÒÚ[[ÈÛÛ]ÈÛXZ[][ÝÊBBT]BQ[Y[[ÈÏOIÝ×ÒÚ[ÑÛXZ[[ÈÓÙÛÛ   ÌÍØXÝ[Û    ÌÍÛÙÛÛÙH ][ÝÉ][ÝË    ÌÍÛÙÛÛÜÈH   ][ÝÉ][ÝË    ÌÍÙÛXZ[H    ][ÝÉ][ÝË    ÌÍÜÝÙÜ[HH ][ÝÉ][ÝÊBTÙ[XÝBPØÙH ÌÍØXÝ[ÛH   ][ÝÔSSÕI][ÝÂBBTYÕÜ]J ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÐ]]ÐYZ[ÙÛÛ][ÝË   ][ÝÔQ×ÔÖ][ÝË ][ÝÌ  ][ÝÊBBBTYÕÜ]J   ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÑY][Ù[YI][ÝË    ][ÝÔQ×ÔÖ][ÝË ][ÝÉ][ÝÊBBBTYÕÜ]J ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÑY][ÜÝÛÜ   ][ÝË  ][ÝÔQ×ÔÖ][ÝË ][ÝÉ][ÝÊBBBTYÕÜ]J ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÑÜÙP]]ÓÙÛÛ][ÝË ][ÝÔQ×ÔÖ][ÝË ][ÝÌ  ][ÝÊBBBTYÑ[]J    ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÉÌLÐÝ[Ú[ÛÌLÔ[][ÝË ][ÝÐÛÛ[YWÔÞÜ ][ÝÊBBPØÙH  ÌÍØXÝ[ÛH   ][ÝÐQ ][ÝÂBBTYÑ[]J ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÉÌLÐÝ[Ú[ÛÌLÜÛXÚYÉÌLÜÞÝ[I][ÝË   ][ÝÛYØ[ÝXÙXØ[Û][ÝÊBBBTYÑ[]J   ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÉÌLÐÝ[Ú[ÛÌLÜÛXÚYÉÌLÜÞÝ[I][ÝË   ][ÝÛYØ[ÝXÙ]^   ][ÝÊBBBTYÕÜ]J   ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÐ]]ÐYZ[ÙÛÛ][ÝË   ][ÝÔQ×ÔÖ][ÝË ][ÝÌI][ÝÊBBBTYÕÜ]J    ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÑY][Ù[YI][ÝË    ][ÝÔQ×ÔÖ][ÝË ÌÍÛÙÛÛÙBBBTYÕÜ]J   ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÑY][ÜÝÛÜ   ][ÝË  ][ÝÔQ×ÔÖ][ÝË ÌÍÛÙÛÛÜÊBBBTYÕÜ]J ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÑY][ÛXZ[[YI][ÝË ][ÝÔQ×ÔÖ][ÝË ÌÍÙÛXZ[BBBNÑVÈTÔÕÓÔÐSBBBRY   ÌÍÛÙÛÛÜÈH   ][ÝÉ][ÝÈ[BBBTYÕÜ]J    ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÑY][ÜÝÛÜ   ][ÝË  ][ÝÔQ×ÔÖ][ÝË ][ÝÉ][ÝÊBBBQ[YBBTYÕÜ]J    ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÈ  ÌLÐÝ[Ú[ÛÌLÕÚ[ÙÛÛ][ÝË   ][ÝÑÜÙP]]ÓÙÛÛ][ÝË ][ÝÔQ×ÔÖ][ÝË ][ÝÌI][ÝÊBBBTYÕÜ]J    ÌÎNÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ  ÌLÕÚ[ÝÜÉÌLÐÝ[Ú[ÛÌLÔ[ÌÎNË    ÌÎNÐÛÛ[YWÔÞÜ    ÌÎNË ][ÝÔQ×ÔÖ][ÝË ÌÍÜÝÙÜ[JBBPØÙH  ÌÍØXÝ[ÛH   ][ÝÐQÐÔT    ][ÝÂQ[Ù[XÝ[[ÈÏOIÝ×ÓÙÛÛ[ÈÔÚ]ÝÛ  ÌÍÜÚ]ÝÛ   ÌÍØXÝ[Û    ÌÍÛÙÛÛÙH ][ÝÉ][ÝË    ÌÍÛÙÛÛÜÈH   ][ÝÉ][ÝË    ÌÍÙÛXZ[H    ][ÝÉ][ÝË    ÌÍÜÝÙÜ[HH ][ÝÉ][ÝÊBTÙ[XÝBPØÙH ÌÍÜÚ]ÝÛH  ][ÝÓÓI][ÝÂBBWÓÙÛÛ  ÌÍØXÝ[Û    ÌÍÛÙÛÛÙ  ÌÍÛÙÛÛÜË    ÌÍÙÛXZ[ ÌÍÜÝÙÜ[JBBPØÙH  ÌÍÜÚ]ÝÛH  ][ÝÓÑÓÑ][ÝÂBBWÓÙÛÛ   ÌÍØXÝ[Û    ÌÍÛÙÛÛÙ  ÌÍÛÙÛÛÜË    ÌÍÙÛXZ[ ÌÍÜÝÙÜ[JBBBTÚ]ÝÛ
BBBQ^]BPØÙH   ÌÍÜÚ]ÝÛH  ][ÝÔPÓÕ ][ÝÂBBWÓÙÛÛ   ÌÍØXÝ[Û    ÌÍÛÙÛÛÙ  ÌÍÛÙÛÛÜË    ÌÍÙÛXZ[ ÌÍÜÝÙÜ[JBBBTÚ]ÝÛBBBQ^]Q[Ù[XÝ[[ÈÏOIÝ×ÔÚ]ÝÛÉËKKH[[Ý[ÛÈÛHÞÈMHH[]ÈØ[Ý]KKIÍÂ

Edited by ACalcutt

Andrew Calcutt

Http://www.Vistumbler.net

Http://www.TechIdiots.net

Its not an error, its a undocumented feature

TBOMB Seeker

TBOMB

Posted
Posted

Well, it's getting farther. Now I get the following:

AutoIT Error

Line 0 (File "C:\DED\newcode.exe"):

GUICtrlSetData($current_action, "Changing Computer Name")

GUICtrlSetData(^ERROR

Error:Variable used without being declared.

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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...