Jac

Here is the code im running on my pc I juste want to check if the program yyy.exe is running If not im killing program xxx.exe It's alway running at 50% on my vm Is it normal ? #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..Program Files (x86)AutoIt3Iconsau3script_v10.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.12.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here While 1 If Not ProcessExists("xxx.exe") Then ProcessClose("yyy.exe") MsgBox(0,"info","xxx Not Running. Closing yyy") Exit Else If Not ProcessExists("yyy.exe") Then Run("C:Program Files (x86)xxxxxx.exe","C:Program Files (x86)xxx") EndIf WEnd Else MsgBox($MB_ICONERROR, "", "Launch xxx") EndIf Thanks !

Thanks you i will be using MonitorInfoView It's working great Thanks !

Ok ill wait for your feedback Thanks !

Calm down I know that...i was wondering if someone knew a way to get this information with Windows 8 That's all

Can someone help me with this script and Windows 8.1 please '?do=embed' frameborder='0' data-embedContent>> The control key is not there anymore in the registry Any others way to get the serial number ??? Thanks for your help

Hey can someone help me with Windows 8.1 The control key is not theere anymore in the registry Any others way to get the serial number ??? Thanks for your help

im admin on Windows 8

Yes it is correct in the script $drive = DriveMapAdd ("U:","unc_path",1)

Hi we have autoit script that we use for login script It's working fine with Windows XP and 7 But with Windows 8 when users login the script don't map any drives UAC is disable $drive = DriveMapAdd ("U:",\\xxx\dfs\Services,1) ;MsgBox(0,"info",$drive) $drive return me 1 so it should map it Thanks for your help

Ha thanks i compiled it with 64 bit support and now it's working fine !

Yes it's working on the command line C:\Users\jefrguen>repadmin /sync dc=xxx,dc=xxx,dc=qc,dc=ca DC_NAME 3cc aae88-fe1d-4709-abaf-60cf2d499367 Sync from 3ccaae88-fe1d-4709-abaf-60cf2d499367 to DC_NAME completed successfull y.

Hello im trying to make an app to replicate my windows AD Here is the command line RunWait(@ComSpec & " /c " & "repadmin /sync dc=xxx,dc=xxx,dc=qc,dc=ca DC_NAME 3ccaae88-fe1d-4709-abaf-60cf2d499367 > """ & @ScriptDir & "\RepAD_Result_temp.txt""","",@SW_HIDE) On windows 7 it's working fine but on my windows 8 i get this error RepAD_Result_temp.txt when opening the file @ScriptDir & "\RepAD_Result_temp.txt Thanks for your help !

Anyone else can help me with this script please Thanks !

nop

Hi JohnOne just wondering if you had time working on the script ? Thanks for your help again !

Great thanks alot for your help Hope you aunt feel better...

It's not urgent...i can wait until next week.... Thanks !

Hello i want to make a script that will install a certificate in firefox automaticly... I found this website (https://support.astaro.com/support/index...ing_HTTPS_signing_Certificate_) Can anyone transform this code please so i can run it in autoit on a gpo logon script ? :: save as installScript.cmd FOR /F "tokens=*" %%A IN ('dir /B "%APPDATA%\Mozilla\Firefox\Profiles\*.default"') DO set FIREFOX_PROFILE_DIR=%%A certutil.exe -A -n AstaroCA -t "CT,C,C" -d "%APPDATA%\Mozilla\Firefox\Profiles\%FIREFOX_PROFILE_DIR%" -i %1 I then run the command like this installScript.cmd certificate.cer Thanks !

Hi all Im using this script i found on the forum. We just bought new monitor Lenovo ThinkVision L2440p (24in wide) LCD The script can return the serial number but not the type of the monitor Can someone help me please with the script Thanks ! #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_UseX64=n #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;Retrieve Monitor Model and Serial ;13 November 2005 by Geert (NL) ;used parts made by archrival (http://www.autoitscript.com/forum/index.php?showtopic=11136) ;Edited by rover 18 June 2008 ;Collect EDID strings for all active monitors Opt("MustDeclareVars", 1) ; ConsoleWrites slow a script if not needed Global $Debug = True ; change to False or comment out/remove ConsoleWrite() lines if debugging to console not needed Global $iCounterEDID = 0 Global $asEDID[1], $edidarray[1], $error1, $error2, $error3 Global $iCounterMonitorName = 1, $iCounterMonitorCode, $iCounterMonitorControlFolder Global $sMonitorName, $sMonitorCode, $sMonitorControlFolder, $sMonitorEDIDRead, $ser, $name, $j Do $sMonitorName = RegEnumKey("HKLM\SYSTEM\CurrentControlSet\Enum\DISPLAY", $iCounterMonitorName) $error1 = @error If $Debug Then ConsoleWrite(@CRLF & '@@ Debug(' & @ScriptLineNumber & ') : $sMonitorName = ' & _ StringStripWS($sMonitorName, 2) & @CRLF & '>Error code: ' & $error1 & @CRLF) If $sMonitorName <> "" Then $iCounterMonitorCode = 1 Do ; Search 'monitor code' - e.g. 5&3aba5caf&0&10000080&01&00 $sMonitorCode = RegEnumKey("HKLM\SYSTEM\CurrentControlSet\Enum\DISPLAY\" & _ $sMonitorName, $iCounterMonitorCode) $error2 = @error If $Debug Then ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sMonitorCode = ' & _ StringStripWS($sMonitorCode, 2) & @CRLF & '>Error code: ' & $error2 & @CRLF) ; Search Control folder - When available, the active monitor is found $iCounterMonitorControlFolder = 1 Do $sMonitorControlFolder = RegEnumKey("HKLM\SYSTEM\CurrentControlSet\Enum\DISPLAY\" & _ $sMonitorName & "\" & $sMonitorCode, $iCounterMonitorControlFolder) $error3 = @error If $Debug Then ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sMonitorControlFolder = ' & _ StringStripWS($sMonitorControlFolder, 2) & @CRLF & '>Error code: ' & $error3 & @CRLF) If $sMonitorControlFolder == "Control" Then; Active monitor found! Switch RegEnumVal("HKLM\SYSTEM\CurrentControlSet\Enum\DISPLAY\" & $sMonitorName & _ "\" & $sMonitorCode & "\Device Parameters", 1) Case "EDID" $sMonitorEDIDRead = RegRead("HKLM\SYSTEM\CurrentControlSet\Enum\DISPLAY\" & _ $sMonitorName & "\" & $sMonitorCode & "\Device Parameters", "EDID") If $sMonitorEDIDRead <> "" Then $iCounterEDID += 1 $asEDID[0] = $iCounterEDID ReDim $asEDID[uBound($asEDID) + 1] $asEDID[uBound($asEDID) - 1] = $sMonitorEDIDRead; Add found EDID string to Array EndIf Case "BAD_EDID" $iCounterEDID += 1 $asEDID[0] = $iCounterEDID ReDim $asEDID[uBound($asEDID) + 1] $asEDID[uBound($asEDID) - 1] = "BAD_EDID"; Add BAD_EDID string to Array Case Else EndSwitch EndIf $iCounterMonitorControlFolder += 1; Increase counter to search for next folder Until $error3 <> 0 $iCounterMonitorCode += 1; Increase counter to search for next 'monitor code' folder Until $error2 <> 0 EndIf $iCounterMonitorName += 1; Increase counter to search for next monitor Until $error1 <> 0 ; Decrypt collected EDID strings - Thanks archrival For $k = 1 To $asEDID[0] Switch $asEDID[$k] Case "" $ser = "" $name = "" Case "BAD_EDID" $ser = "BAD_EDID" $name = "BAD_EDID" Case Else $j = 0 Dim $edidarray[stringLen($asEDID[$k])] $edidarray[0] = (StringLen($asEDID[$k]) / 2) + 1 For $i = 1 To StringLen($asEDID[$k]) Step 2 $j += 1 $edidarray[$j] = Dec(StringMid($asEDID[$k], $i, 2)) Next $ser = StringStripWS(_FindMonitorSerial(), 1 + 2) $name = StringStripWS(_FindMonitorName(), 1 + 2) EndSwitch ;Show MonitorSerial & MonitorName: no info? -> Your using a notebook right! MsgBox(64, "Monitor " & $k, "MonitorSerial: " & @TAB & _ $ser & @CRLF & "MonitorName: " & @TAB & $name) Next #region - Functions Func _FindMonitorSerial(); Thanks archrival Local $sernumstr = "", $sernum = 0, $endstr For $i = 1 To (UBound($edidarray) / 2) - 4 If $edidarray[$i] = "0" And $edidarray[$i + 1] = "0" And $edidarray[$i + 2] = "0" _ And $edidarray[$i + 3] = "255" And $edidarray[$i + 4] = "0" Then $sernum = $i + 4 EndIf Next If $sernum <> 0 Then $endstr = 0 For $i = 1 To 13 If $edidarray[$sernum + $i] = "10" Then $endstr = 1 Else If $endstr = 0 Then $sernumstr &= Chr($edidarray[$sernum + $i]) EndIf EndIf Next EndIf Return $sernumstr EndFunc ;==>_FindMonitorSerial Func _FindMonitorName(); Thanks archrival Local $n = 0, $namestr = "", $endstr For $i = 1 To (UBound($edidarray) / 2) - 4 If $edidarray[$i] = "0" And $edidarray[$i + 1] = "0" And _ $edidarray[$i + 2] = "252" And $edidarray[$i + 3] = "0" Then $n = $i + 3 EndIf Next If $n <> 0 Then $endstr = 0 For $i = 1 To 13 If $edidarray[$n + $i] = "10" Then $endstr = 1 Else If $endstr = 0 Then $namestr &= Chr($edidarray[$n + $i]) EndIf EndIf Next EndIf Return $namestr EndFunc ;==>_FindMonitorName #endregion

Hi ive put DFS on 2 windows server 2003 R2 SP2 I would like to have a script that would find the active dfs server on windows client (xp and windows 7) If we right click on a map drive now we can see the active server in the dfs tab (look at the screenshot) Can someone help me please Thanks !

OK Thanks for the info...first time i have a 64 bits system...

Hey cool i had the line like you said and everything work fine But do i need to put this line on all my script to use them correctly on 64 bits system ? Thanks !

Hi im having a problem with Windows 7 64 bits system. I wrote a script to sync my active directory servers and when im lauching the application with Scite everything work fine. When im lauching the application with the compile exe it dont work. I join you the 2 output of the result Here is the script i wrote. Thanks for your help ! ; Script Start - Add your code below here FileDelete("" & @ScriptDir & "\RepAD_Result.txt") RunWait(@ComSpec & " /c " & "repadmin /sync dc=ville,dc=xxx,dc=qc,dc=ca Server1 180be1fb-12eb-4490-853d-e67c85f9d48b > """ & @ScriptDir & "\RepAD_Result_temp.txt""","",@SW_HIDE) WriteLog() RunWait(@ComSpec & " /c " & "repadmin /sync dc=ville,dc=xxx,dc=qc,dc=ca Server2 180be1fb-12eb-4490-853d-e67c85f9d48b > """ & @ScriptDir & "\RepAD_Result_temp.txt""","",@SW_HIDE) WriteLog() RunWait(@ComSpec & " /c " & "repadmin /sync dc=ville,dc=xxx,dc=qc,dc=ca Server3 180be1fb-12eb-4490-853d-e67c85f9d48b > """ & @ScriptDir & "\RepAD_Result_temp.txt""","",@SW_HIDE) WriteLog() RunWait(@ComSpec & " /c " & "notepad U:\Windows 2003\Tools\Replication AD\RepAD_Result.txt","",@SW_HIDE) FileDelete("" & @ScriptDir & "\RepAD_Result_temp.txt") Func WriteLog() $file = FileOpen("" & @ScriptDir & "\RepAD_Result_temp.txt", 0) ; Check if file opened for reading OK If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf While 1 $line = FileReadLine($file) If @error = -1 Then ExitLoop FileWrite("" & @ScriptDir & "\RepAD_Result.txt",$line & @CRLF) Wend FileClose($file) EndFunc RepAD_OK.txt RepAD_Error.txt

The problem is that it's a script that run at logon...so i need to specifie a username password

Hi ive create a script to delete folder copy new folder etc... Now is there a way to execute ALL the step in my script with an admin user I know i can us RunAs but it's just for one command at a time. I want to execute all my line in my script with an admin user Is there a way ? Thanks !