MattX
Active Members-
Posts
358 -
Joined
-
Last visited
MattX's Achievements
Universalist (7/7)
1
Reputation
-
arn86 reacted to a post in a topic:
Start Chrome - chrome://settings/clearBrowserData
-
Thanks :-)
-
MattX reacted to a post in a topic:
HotKeySet not working
-
Can someone put my our of my misery and tell me what I have done wrong here ? Func _password() Send('this is my password') EndFunc HotKeySet("+!z") ;Shft-Alt-Z While 1 sleep(10) WEnd
-
Error: Variable used without being declared
MattX replied to MattX's topic in AutoIt General Help and Support
What is Au3Stripper ? Going to look myself but not heard of this.... -
Some of the workstations that are running this as part of a logon script are getting this error message: Line 2798 (File "c:\micon\dropbox_detect.exe"): Error: Variable used without being declared On the majority of the stations it works fine. The script ( see below ) uses an .ini file and on checking the .ini file is in the location when the script is run. If anyone can point me to the variable that is the cause I would appreciate it. #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Compression=4 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <File.au3> #include <Array.au3> $ip = @IPAddress1 $cname = @ComputerName Global $aUsers = IniReadSection(@ScriptDir & "\users.ini", "Users") For $Loop = 1 To $aUsers[0][0] If @UserName = $aUsers[$Loop][1] Then $result = $cname & ", " & $ip & ", " & @UserName & ", " & " Dropbox Install Check Required" Call("_INetSmtpMailCom") ;MsgBox(0, "User is:", @UserName) EndIf Next ;################################## ; Variables ;################################## $SmtpServer = "10.20.32.60" ; address for the smtp-server to use - REQUIRED $FromName = "IT Helpdesk" ; name from who the email was sent $FromAddress = "matt.####@###.com" ; address from where the mail should come $ToAddress = "helpdesk@###.com" ; destination address of the email - REQUIRED $Subject = "Automatic Helpdesk Generated E-mail" ; subject from the email - can be anything you want it to be $Body = $result ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = "" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed $CcAddress = "" ; address for cc - leave blank if not needed $BccAddress = "" ; address for bcc - leave blank if not needed $Importance = "Normal" ; Send message priority: "High", "Normal", "Low" $Username = "" ; username for the account used from where the mail gets sent - REQUIRED $Password = "" ; password for the account used from where the mail gets sent - REQUIRED $IPPort = 25 ; port used for sending the mail $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS ;~ $IPPort=465 ; GMAIL port used for sending the mail ;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF) $objEmail.AddAttachment($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 Then $IPPort = 25 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail = "" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc [/code]
-
It does indeed - ( BrewManNH ) just tested - it. So did yours Danyfirex but I didn't want a load o ElseIfs ( about 150 to be more accurate ) Thanks all for the assistance - much better understanding of it now.
-
That works if the listed @UserName is USER01, what do I need to do to get it it to pick up if the UserName is say user02, user03, user04 etc. I could repeat the If @UserName = IniRead(@ScriptDir & "\users.ini", "USERS","USER01", "") Then With a load of ElseIfs but is there a easier way to read in every line in the INI file ?
-
I'm knocking up a script which will detect if a user is logged on and if so send an E-mail to the helpdesk. I have a list of users in an ini file - example: [USERS] USER01=tuser USER02=tuser2 USER03=tuser3 When using iniread, will this place all them into memory as I want to state something like If @UserName = any of the names in the ini file do something.. Or do I need to read them in using a different method ?
-
Getting this error when compiling - Error: EndUpdateResource: Returncode = 0 - LastError:87:The parameter is incorrect. It's only a small script which I update every so often - done a search on the forums but found nothing which really helps - would appreciate some pointers. FYI - works fine when compiling to 64bit but I need it 32bit - thanks.
-
Writing log even though device is NOT in the array
MattX replied to MattX's topic in AutoIt General Help and Support
-
MattX reacted to a post in a topic:
Writing log even though device is NOT in the array
-
Writing log even though device is NOT in the array
MattX replied to MattX's topic in AutoIt General Help and Support
Well I'm totally confused now - I thought I would get around this by adding a stupid Exit function however the script now runs and exits, even when the TEST IP is supposed to be logged. I'm really pissing in the wind with this now. For $i = 1 To UBound($IPRANGE) - 1 If $IPRANGE[$i] = @IPAddress1 OR $IPRANGE[$i] = @IPAddress2 OR $IPRANGE[$i] = @IPAddress3 OR $IPRANGE[$i] = @IPAddress4 Then Call("_FileWriteLog") Else Call("BYE") EndIf Next Func BYE() Exit EndFunc -
This script reads a load of IP addresses into an array, if the device has the IP address in the list then it will write it to a log file - this all works but for some reason if writes a log file with the details in even thought the device is NOT in the list. I can't work out how to quit the script in this loop if the IP address is NOT listed. I've tried a ElseIf and quit after the Call("_FileWriteLog") but that fails. I also cannot work out why the log is still being created when the device IS NOT in the array. All I can think of is that the script is falling down the code and simply running the logging function - any tips of getting out of this so the log is NOT created if the IP is not listed would be appreciated. For $i = 1 To UBound($IPRANGE) - 1 If $IPRANGE[$i] = @IPAddress1 OR $IPRANGE[$i] = @IPAddress2 OR $IPRANGE[$i] = @IPAddress3 OR $IPRANGE[$i] = @IPAddress4 Then Call("_FileWriteLog") EndIf Next Full: Global $IPRANGE[509] $IPRANGE[1] = "10.20.1.1" $IPRANGE[2] = "10.20.1.2" $IPRANGE[3] = "10.20.1.3" $IPRANGE[4] = "10.20.1.4" $IPRANGE[5] = "10.20.1.5" $IPRANGE[6] = "10.20.1.6" $IPRANGE[7] = "10.20.1.7" $IPRANGE[8] = "10.20.1.8" $IPRANGE[9] = "10.20.1.9" $IPRANGE[10] = "10.20.1.10" $IPRANGE[11] = "10.20.1.11" $IPRANGE[12] = "10.20.1.12" $IPRANGE[13] = "10.20.1.13" $IPRANGE[14] = "10.20.1.14" $IPRANGE[15] = "10.20.1.15" $IPRANGE[16] = "10.20.1.16" $IPRANGE[17] = "10.20.1.17" $IPRANGE[18] = "10.20.1.18" $IPRANGE[19] = "10.20.1.19" $IPRANGE[20] = "10.20.1.20" $IPRANGE[21] = "10.20.1.21" $IPRANGE[22] = "10.20.1.22" $IPRANGE[23] = "10.20.1.23" $IPRANGE[24] = "10.20.1.24" $IPRANGE[25] = "10.20.1.25" $IPRANGE[26] = "10.20.1.26" $IPRANGE[27] = "10.20.1.27" $IPRANGE[28] = "10.20.1.28" $IPRANGE[29] = "10.20.1.29" $IPRANGE[30] = "10.20.1.30" $IPRANGE[31] = "10.20.1.31" $IPRANGE[32] = "10.20.1.32" $IPRANGE[33] = "10.20.1.33" $IPRANGE[34] = "10.20.1.34" $IPRANGE[35] = "10.20.1.35" $IPRANGE[36] = "10.20.1.36" $IPRANGE[37] = "10.20.1.37" $IPRANGE[38] = "10.20.1.38" $IPRANGE[39] = "10.20.1.39" $IPRANGE[40] = "10.20.1.40" $IPRANGE[41] = "10.20.1.41" $IPRANGE[42] = "10.20.1.42" $IPRANGE[43] = "10.20.1.43" $IPRANGE[44] = "10.20.1.44" $IPRANGE[45] = "10.20.1.45" $IPRANGE[46] = "10.20.1.46" $IPRANGE[47] = "10.20.1.47" $IPRANGE[48] = "10.20.1.48" $IPRANGE[49] = "10.20.1.49" $IPRANGE[50] = "10.20.1.50" $IPRANGE[51] = "10.20.1.51" $IPRANGE[52] = "10.20.1.52" $IPRANGE[53] = "10.20.1.53" $IPRANGE[54] = "10.20.1.54" $IPRANGE[55] = "10.20.1.55" $IPRANGE[56] = "10.20.1.56" $IPRANGE[57] = "10.20.1.57" $IPRANGE[58] = "10.20.1.58" $IPRANGE[59] = "10.20.1.59" $IPRANGE[60] = "10.20.1.60" $IPRANGE[61] = "10.20.1.61" $IPRANGE[62] = "10.20.1.62" $IPRANGE[63] = "10.20.1.63" $IPRANGE[64] = "10.20.1.64" $IPRANGE[65] = "10.20.1.65" $IPRANGE[66] = "10.20.1.66" $IPRANGE[67] = "10.20.1.67" $IPRANGE[68] = "10.20.1.68" $IPRANGE[69] = "10.20.1.69" $IPRANGE[70] = "10.20.1.70" $IPRANGE[71] = "10.20.1.71" $IPRANGE[72] = "10.20.1.72" $IPRANGE[73] = "10.20.1.73" $IPRANGE[74] = "10.20.1.74" $IPRANGE[75] = "10.20.1.75" $IPRANGE[76] = "10.20.1.76" $IPRANGE[77] = "10.20.1.77" $IPRANGE[78] = "10.20.1.78" $IPRANGE[79] = "10.20.1.79" $IPRANGE[80] = "10.20.1.80" $IPRANGE[81] = "10.20.1.81" $IPRANGE[82] = "10.20.1.82" $IPRANGE[83] = "10.20.1.83" $IPRANGE[84] = "10.20.1.84" $IPRANGE[85] = "10.20.1.85" $IPRANGE[86] = "10.20.1.86" $IPRANGE[87] = "10.20.1.87" $IPRANGE[88] = "10.20.1.88" $IPRANGE[89] = "10.20.1.89" $IPRANGE[90] = "10.20.1.90" $IPRANGE[91] = "10.20.1.91" $IPRANGE[92] = "10.20.1.92" $IPRANGE[93] = "10.20.1.93" $IPRANGE[94] = "10.20.1.94" $IPRANGE[95] = "10.20.1.95" $IPRANGE[96] = "10.20.1.96" $IPRANGE[97] = "10.20.1.97" $IPRANGE[98] = "10.20.1.98" $IPRANGE[99] = "10.20.1.99" $IPRANGE[100] = "10.20.1.100" $IPRANGE[101] = "10.20.1.101" $IPRANGE[102] = "10.20.1.102" $IPRANGE[103] = "10.20.1.103" $IPRANGE[104] = "10.20.1.104" $IPRANGE[105] = "10.20.1.105" $IPRANGE[106] = "10.20.1.106" $IPRANGE[107] = "10.20.1.107" $IPRANGE[108] = "10.20.1.108" $IPRANGE[109] = "10.20.1.109" $IPRANGE[110] = "10.20.1.110" $IPRANGE[111] = "10.20.1.111" $IPRANGE[112] = "10.20.1.112" $IPRANGE[113] = "10.20.1.113" $IPRANGE[114] = "10.20.1.114" $IPRANGE[115] = "10.20.1.115" $IPRANGE[116] = "10.20.1.116" $IPRANGE[117] = "10.20.1.117" $IPRANGE[118] = "10.20.1.118" $IPRANGE[119] = "10.20.1.119" $IPRANGE[120] = "10.20.1.120" $IPRANGE[121] = "10.20.1.121" $IPRANGE[122] = "10.20.1.122" $IPRANGE[123] = "10.20.1.123" $IPRANGE[124] = "10.20.1.124" $IPRANGE[125] = "10.20.1.125" $IPRANGE[126] = "10.20.1.126" $IPRANGE[127] = "10.20.1.127" $IPRANGE[128] = "10.20.1.128" $IPRANGE[129] = "10.20.1.129" $IPRANGE[130] = "10.20.1.130" $IPRANGE[131] = "10.20.1.131" $IPRANGE[132] = "10.20.1.132" $IPRANGE[133] = "10.20.1.133" $IPRANGE[134] = "10.20.1.134" $IPRANGE[135] = "10.20.1.135" $IPRANGE[136] = "10.20.1.136" $IPRANGE[137] = "10.20.1.137" $IPRANGE[138] = "10.20.1.138" $IPRANGE[139] = "10.20.1.139" $IPRANGE[140] = "10.20.1.140" $IPRANGE[141] = "10.20.1.141" $IPRANGE[142] = "10.20.1.142" $IPRANGE[143] = "10.20.1.143" $IPRANGE[144] = "10.20.1.144" $IPRANGE[145] = "10.20.1.145" $IPRANGE[146] = "10.20.1.146" $IPRANGE[147] = "10.20.1.147" $IPRANGE[148] = "10.20.1.148" $IPRANGE[149] = "10.20.1.149" $IPRANGE[150] = "10.20.1.150" $IPRANGE[151] = "10.20.1.151" $IPRANGE[152] = "10.20.1.152" $IPRANGE[153] = "10.20.1.153" $IPRANGE[154] = "10.20.1.154" $IPRANGE[155] = "10.20.1.155" $IPRANGE[156] = "10.20.1.156" $IPRANGE[157] = "10.20.1.157" $IPRANGE[158] = "10.20.1.158" $IPRANGE[159] = "10.20.1.159" $IPRANGE[160] = "10.20.1.160" $IPRANGE[161] = "10.20.1.161" $IPRANGE[162] = "10.20.1.162" $IPRANGE[163] = "10.20.1.163" $IPRANGE[164] = "10.20.1.164" $IPRANGE[165] = "10.20.1.165" $IPRANGE[166] = "10.20.1.166" $IPRANGE[167] = "10.20.1.167" $IPRANGE[168] = "10.20.1.168" $IPRANGE[169] = "10.20.1.169" $IPRANGE[170] = "10.20.1.170" $IPRANGE[171] = "10.20.1.171" $IPRANGE[172] = "10.20.1.172" $IPRANGE[173] = "10.20.1.173" $IPRANGE[174] = "10.20.1.174" $IPRANGE[175] = "10.20.1.175" $IPRANGE[176] = "10.20.1.176" $IPRANGE[177] = "10.20.1.177" $IPRANGE[178] = "10.20.1.178" $IPRANGE[179] = "10.20.1.179" $IPRANGE[180] = "10.20.1.180" $IPRANGE[181] = "10.20.1.181" $IPRANGE[182] = "10.20.1.182" $IPRANGE[183] = "10.20.1.183" $IPRANGE[184] = "10.20.1.184" $IPRANGE[185] = "10.20.1.185" $IPRANGE[186] = "10.20.1.186" $IPRANGE[187] = "10.20.1.187" $IPRANGE[188] = "10.20.1.188" $IPRANGE[189] = "10.20.1.189" $IPRANGE[190] = "10.20.1.190" $IPRANGE[191] = "10.20.1.191" $IPRANGE[192] = "10.20.1.192" $IPRANGE[193] = "10.20.1.193" $IPRANGE[194] = "10.20.1.194" $IPRANGE[195] = "10.20.1.195" $IPRANGE[196] = "10.20.1.196" $IPRANGE[197] = "10.20.1.197" $IPRANGE[198] = "10.20.1.198" $IPRANGE[199] = "10.20.1.199" $IPRANGE[200] = "10.20.1.200" $IPRANGE[201] = "10.20.1.201" $IPRANGE[202] = "10.20.1.202" $IPRANGE[203] = "10.20.1.203" $IPRANGE[204] = "10.20.1.204" $IPRANGE[205] = "10.20.1.205" $IPRANGE[206] = "10.20.1.206" $IPRANGE[207] = "10.20.1.207" $IPRANGE[208] = "10.20.1.208" $IPRANGE[209] = "10.20.1.209" $IPRANGE[210] = "10.20.1.210" $IPRANGE[211] = "10.20.1.211" $IPRANGE[212] = "10.20.1.212" $IPRANGE[213] = "10.20.1.213" $IPRANGE[214] = "10.20.1.214" $IPRANGE[215] = "10.20.1.215" $IPRANGE[216] = "10.20.1.216" $IPRANGE[217] = "10.20.1.217" $IPRANGE[218] = "10.20.1.218" $IPRANGE[219] = "10.20.1.219" $IPRANGE[220] = "10.20.1.220" $IPRANGE[221] = "10.20.1.221" $IPRANGE[222] = "10.20.1.222" $IPRANGE[223] = "10.20.1.223" $IPRANGE[224] = "10.20.1.224" $IPRANGE[225] = "10.20.1.225" $IPRANGE[226] = "10.20.1.226" $IPRANGE[227] = "10.20.1.227" $IPRANGE[228] = "10.20.1.228" $IPRANGE[229] = "10.20.1.229" $IPRANGE[230] = "10.20.1.230" $IPRANGE[231] = "10.20.1.231" $IPRANGE[232] = "10.20.1.232" $IPRANGE[233] = "10.20.1.233" $IPRANGE[234] = "10.20.1.234" $IPRANGE[235] = "10.20.1.235" $IPRANGE[236] = "10.20.1.236" $IPRANGE[237] = "10.20.1.237" $IPRANGE[238] = "10.20.1.238" $IPRANGE[239] = "10.20.1.239" $IPRANGE[240] = "10.20.1.240" $IPRANGE[241] = "10.20.1.241" $IPRANGE[242] = "10.20.1.242" $IPRANGE[243] = "10.20.1.243" $IPRANGE[244] = "10.20.1.244" $IPRANGE[245] = "10.20.1.245" $IPRANGE[246] = "10.20.1.246" $IPRANGE[247] = "10.20.1.247" $IPRANGE[248] = "10.20.1.248" $IPRANGE[249] = "10.20.1.249" $IPRANGE[250] = "10.20.1.250" $IPRANGE[251] = "10.20.1.251" $IPRANGE[252] = "10.20.1.252" $IPRANGE[253] = "10.20.1.253" $IPRANGE[254] = "10.20.1.254" $IPRANGE[255] = "10.20.24.1" $IPRANGE[256] = "10.20.24.2" $IPRANGE[257] = "10.20.24.3" $IPRANGE[258] = "10.20.24.4" $IPRANGE[259] = "10.20.24.5" $IPRANGE[260] = "10.20.24.6" $IPRANGE[261] = "10.20.24.7" $IPRANGE[262] = "10.20.24.8" $IPRANGE[263] = "10.20.24.9" $IPRANGE[264] = "10.20.24.10" $IPRANGE[265] = "10.20.24.11" $IPRANGE[266] = "10.20.24.12" $IPRANGE[267] = "10.20.24.13" $IPRANGE[268] = "10.20.24.14" $IPRANGE[269] = "10.20.24.15" $IPRANGE[270] = "10.20.24.16" $IPRANGE[271] = "10.20.24.17" $IPRANGE[272] = "10.20.24.18" $IPRANGE[273] = "10.20.24.19" $IPRANGE[274] = "10.20.24.20" $IPRANGE[275] = "10.20.24.21" $IPRANGE[276] = "10.20.24.22" $IPRANGE[277] = "10.20.24.23" $IPRANGE[278] = "10.20.24.24" $IPRANGE[279] = "10.20.24.25" $IPRANGE[280] = "10.20.24.26" $IPRANGE[281] = "10.20.24.27" $IPRANGE[282] = "10.20.24.28" $IPRANGE[283] = "10.20.24.29" $IPRANGE[284] = "10.20.24.30" $IPRANGE[285] = "10.20.24.31" $IPRANGE[286] = "10.20.24.32" $IPRANGE[287] = "10.20.24.33" $IPRANGE[288] = "10.20.24.34" $IPRANGE[289] = "10.20.24.35" $IPRANGE[290] = "10.20.24.36" $IPRANGE[291] = "10.20.24.37" $IPRANGE[292] = "10.20.24.38" $IPRANGE[293] = "10.20.24.39" $IPRANGE[294] = "10.20.24.40" $IPRANGE[295] = "10.20.24.41" $IPRANGE[296] = "10.20.24.42" $IPRANGE[297] = "10.20.24.43" $IPRANGE[298] = "10.20.24.44" $IPRANGE[299] = "10.20.24.45" $IPRANGE[300] = "10.20.24.46" $IPRANGE[301] = "10.20.24.47" $IPRANGE[302] = "10.20.24.48" $IPRANGE[303] = "10.20.24.49" $IPRANGE[304] = "10.20.24.50" $IPRANGE[305] = "10.20.24.51" $IPRANGE[306] = "10.20.24.52" $IPRANGE[307] = "10.20.24.53" $IPRANGE[308] = "10.20.24.54" $IPRANGE[309] = "10.20.24.55" $IPRANGE[310] = "10.20.24.56" $IPRANGE[311] = "10.20.24.57" $IPRANGE[312] = "10.20.24.58" $IPRANGE[313] = "10.20.24.59" $IPRANGE[314] = "10.20.24.60" $IPRANGE[315] = "10.20.24.61" $IPRANGE[316] = "10.20.24.62" $IPRANGE[317] = "10.20.24.63" $IPRANGE[318] = "10.20.24.64" $IPRANGE[319] = "10.20.24.65" $IPRANGE[320] = "10.20.24.66" $IPRANGE[321] = "10.20.24.67" $IPRANGE[322] = "10.20.24.68" $IPRANGE[323] = "10.20.24.69" $IPRANGE[324] = "10.20.24.70" $IPRANGE[325] = "10.20.24.71" $IPRANGE[326] = "10.20.24.72" $IPRANGE[327] = "10.20.24.73" $IPRANGE[328] = "10.20.24.74" $IPRANGE[329] = "10.20.24.75" $IPRANGE[330] = "10.20.24.76" $IPRANGE[331] = "10.20.24.77" $IPRANGE[332] = "10.20.24.78" $IPRANGE[333] = "10.20.24.79" $IPRANGE[334] = "10.20.24.80" $IPRANGE[335] = "10.20.24.81" $IPRANGE[336] = "10.20.24.82" $IPRANGE[337] = "10.20.24.83" $IPRANGE[338] = "10.20.24.84" $IPRANGE[339] = "10.20.24.85" $IPRANGE[340] = "10.20.24.86" $IPRANGE[341] = "10.20.24.87" $IPRANGE[342] = "10.20.24.88" $IPRANGE[343] = "10.20.24.89" $IPRANGE[344] = "10.20.24.90" $IPRANGE[345] = "10.20.24.91" $IPRANGE[346] = "10.20.24.92" $IPRANGE[347] = "10.20.24.93" $IPRANGE[348] = "10.20.24.94" $IPRANGE[349] = "10.20.24.95" $IPRANGE[350] = "10.20.24.96" $IPRANGE[351] = "10.20.24.97" $IPRANGE[352] = "10.20.24.98" $IPRANGE[353] = "10.20.24.99" $IPRANGE[354] = "10.20.24.100" $IPRANGE[355] = "10.20.24.101" $IPRANGE[356] = "10.20.24.102" $IPRANGE[357] = "10.20.24.103" $IPRANGE[358] = "10.20.24.104" $IPRANGE[359] = "10.20.24.105" $IPRANGE[360] = "10.20.24.106" $IPRANGE[361] = "10.20.24.107" $IPRANGE[362] = "10.20.24.108" $IPRANGE[363] = "10.20.24.109" $IPRANGE[364] = "10.20.24.110" $IPRANGE[365] = "10.20.24.111" $IPRANGE[366] = "10.20.24.112" $IPRANGE[367] = "10.20.24.113" $IPRANGE[368] = "10.20.24.114" $IPRANGE[369] = "10.20.24.115" $IPRANGE[370] = "10.20.24.116" $IPRANGE[371] = "10.20.24.117" $IPRANGE[372] = "10.20.24.118" $IPRANGE[373] = "10.20.24.119" $IPRANGE[374] = "10.20.24.120" $IPRANGE[375] = "10.20.24.121" $IPRANGE[376] = "10.20.24.122" $IPRANGE[377] = "10.20.24.123" $IPRANGE[378] = "10.20.24.124" $IPRANGE[379] = "10.20.24.125" $IPRANGE[380] = "10.20.24.126" $IPRANGE[381] = "10.20.24.127" $IPRANGE[382] = "10.20.24.128" $IPRANGE[383] = "10.20.24.129" $IPRANGE[384] = "10.20.24.130" $IPRANGE[385] = "10.20.24.131" $IPRANGE[386] = "10.20.24.132" $IPRANGE[387] = "10.20.24.133" $IPRANGE[388] = "10.20.24.134" $IPRANGE[389] = "10.20.24.135" $IPRANGE[390] = "10.20.24.136" $IPRANGE[391] = "10.20.24.137" $IPRANGE[392] = "10.20.24.138" $IPRANGE[393] = "10.20.24.139" $IPRANGE[394] = "10.20.24.140" $IPRANGE[395] = "10.20.24.141" $IPRANGE[396] = "10.20.24.142" $IPRANGE[397] = "10.20.24.143" $IPRANGE[398] = "10.20.24.144" $IPRANGE[399] = "10.20.24.145" $IPRANGE[400] = "10.20.24.146" $IPRANGE[401] = "10.20.24.147" $IPRANGE[402] = "10.20.24.148" $IPRANGE[403] = "10.20.24.149" $IPRANGE[404] = "10.20.24.150" $IPRANGE[405] = "10.20.24.151" $IPRANGE[406] = "10.20.24.152" $IPRANGE[407] = "10.20.24.153" $IPRANGE[408] = "10.20.24.154" $IPRANGE[409] = "10.20.24.155" $IPRANGE[410] = "10.20.24.156" $IPRANGE[411] = "10.20.24.157" $IPRANGE[412] = "10.20.24.158" $IPRANGE[413] = "10.20.24.159" $IPRANGE[414] = "10.20.24.160" $IPRANGE[415] = "10.20.24.161" $IPRANGE[416] = "10.20.24.162" $IPRANGE[417] = "10.20.24.163" $IPRANGE[418] = "10.20.24.164" $IPRANGE[419] = "10.20.24.165" $IPRANGE[420] = "10.20.24.166" $IPRANGE[421] = "10.20.24.167" $IPRANGE[422] = "10.20.24.168" $IPRANGE[423] = "10.20.24.169" $IPRANGE[424] = "10.20.24.170" $IPRANGE[425] = "10.20.24.171" $IPRANGE[426] = "10.20.24.172" $IPRANGE[427] = "10.20.24.173" $IPRANGE[428] = "10.20.24.174" $IPRANGE[429] = "10.20.24.175" $IPRANGE[430] = "10.20.24.176" $IPRANGE[431] = "10.20.24.177" $IPRANGE[432] = "10.20.24.178" $IPRANGE[433] = "10.20.24.179" $IPRANGE[434] = "10.20.24.180" $IPRANGE[435] = "10.20.24.181" $IPRANGE[436] = "10.20.24.182" $IPRANGE[437] = "10.20.24.183" $IPRANGE[438] = "10.20.24.184" $IPRANGE[439] = "10.20.24.185" $IPRANGE[440] = "10.20.24.186" $IPRANGE[441] = "10.20.24.187" $IPRANGE[442] = "10.20.24.188" $IPRANGE[443] = "10.20.24.189" $IPRANGE[444] = "10.20.24.190" $IPRANGE[445] = "10.20.24.191" $IPRANGE[446] = "10.20.24.192" $IPRANGE[447] = "10.20.24.193" $IPRANGE[448] = "10.20.24.194" $IPRANGE[449] = "10.20.24.195" $IPRANGE[450] = "10.20.24.196" $IPRANGE[451] = "10.20.24.197" $IPRANGE[452] = "10.20.24.198" $IPRANGE[453] = "10.20.24.199" $IPRANGE[454] = "10.20.24.200" $IPRANGE[455] = "10.20.24.201" $IPRANGE[456] = "10.20.24.202" $IPRANGE[457] = "10.20.24.203" $IPRANGE[458] = "10.20.24.204" $IPRANGE[459] = "10.20.24.205" $IPRANGE[460] = "10.20.24.206" $IPRANGE[461] = "10.20.24.207" $IPRANGE[462] = "10.20.24.208" $IPRANGE[463] = "10.20.24.209" $IPRANGE[464] = "10.20.24.210" $IPRANGE[465] = "10.20.24.211" $IPRANGE[466] = "10.20.24.212" $IPRANGE[467] = "10.20.24.213" $IPRANGE[468] = "10.20.24.214" $IPRANGE[469] = "10.20.24.215" $IPRANGE[470] = "10.20.24.216" $IPRANGE[471] = "10.20.24.217" $IPRANGE[472] = "10.20.24.218" $IPRANGE[473] = "10.20.24.219" $IPRANGE[474] = "10.20.24.220" $IPRANGE[475] = "10.20.24.221" $IPRANGE[476] = "10.20.24.222" $IPRANGE[477] = "10.20.24.223" $IPRANGE[478] = "10.20.24.224" $IPRANGE[479] = "10.20.24.225" $IPRANGE[480] = "10.20.24.226" $IPRANGE[481] = "10.20.24.227" $IPRANGE[482] = "10.20.24.228" $IPRANGE[483] = "10.20.24.229" $IPRANGE[484] = "10.20.24.230" $IPRANGE[485] = "10.20.24.231" $IPRANGE[486] = "10.20.24.232" $IPRANGE[487] = "10.20.24.233" $IPRANGE[488] = "10.20.24.234" $IPRANGE[489] = "10.20.24.235" $IPRANGE[490] = "10.20.24.236" $IPRANGE[491] = "10.20.24.237" $IPRANGE[492] = "10.20.24.238" $IPRANGE[493] = "10.20.24.239" $IPRANGE[494] = "10.20.24.240" $IPRANGE[495] = "10.20.24.241" $IPRANGE[496] = "10.20.24.242" $IPRANGE[497] = "10.20.24.243" $IPRANGE[498] = "10.20.24.244" $IPRANGE[499] = "10.20.24.245" $IPRANGE[500] = "10.20.24.246" $IPRANGE[501] = "10.20.24.247" $IPRANGE[502] = "10.20.24.248" $IPRANGE[503] = "10.20.24.249" $IPRANGE[504] = "10.20.24.250" $IPRANGE[505] = "10.20.24.251" $IPRANGE[506] = "10.20.24.252" $IPRANGE[507] = "10.20.24.253" $IPRANGE[508] = "10.20.24.254" ;$IPRANGE[509] = "10.20.32.103" ;Testing only Local $ip1 Local $ip2 Local $ip3 Local $ip4 For $i = 1 To UBound($IPRANGE) - 1 If $IPRANGE[$i] = @IPAddress1 OR $IPRANGE[$i] = @IPAddress2 OR $IPRANGE[$i] = @IPAddress3 OR $IPRANGE[$i] = @IPAddress4 Then Call("_FileWriteLog") EndIf Next Dim $sLogPath = 'c:\windows\' & @ComputerName & ".txt" Dim $sLogMsg = "User: " _FileWriteLog($sLogPath, $sLogMsg) Func _FileWriteLog($sLogPath, $sLogMsg) Local $sDateNow Local $sTimeNow Local $sMsg Local $hOpenFile Local $hWriteFile Local $user Local $cname $sDateNow = "On " & @YEAR & "-" & @MON & "-" & @MDAY $sTimeNow = @HOUR & ":" & @MIN & ":" & @SEC $ip1 = @IPAddress1 $ip2 = @IPAddress2 $ip3 = @IPAddress3 $ip4 = @IPAddress4 $user = @UserName $cname = @ComputerName $osversion = @OSVersion $sMsg = $sDateNow & "," & $cname & "," & $osversion & "," & $user & "," & $ip1 & "," & $ip2 & "," & $ip3 & "," & $ip4 $hOpenFile = FileOpen($sLogPath, 1) If $hOpenFile = -1 Then SetError(1) Return 0 EndIf $hWriteFile = FileWriteLine($hOpenFile, $sMsg) If $hWriteFile = -1 Then SetError(2) Return 0 EndIf FileClose($hOpenFile) Return 1 EndFunc FileCopy('c:\windows\' & @ComputerName & ".txt", '\\lon-srv2\logs',1)
-
That's nice, the .103 was for testing purposes :-)
-
MattX reacted to a post in a topic:
Can't get output correct
-
MattX reacted to a post in a topic:
Can't get output correct
-
MattX reacted to a post in a topic:
Can't get output correct
-
MattX reacted to a post in a topic:
Can't get output correct
-
Create a new Var whilst Yeah, that does the trick - just trying to get my head around the Ubound function. The FOR is looping it I assume....