Jump to content
Sign in to follow this  
grimmlock

Error when running on Exchange Server

Recommended Posts

grimmlock

Good Morning,

I have a gui that works great on all servers /computers except our exchange server. The error I get, which I have not been able to track down, on our exchange server when I run the compiled executable is as follows:

"Autoit Error:

Line 6601 (File"C:\Windows\Server_Login.exe):

Error: Subscript used in non-Array variable."

So far I have been able to determine that it has something to do with this:

OKButton($sServer, $sUsername, $sUsername & '@' & $sDomain, $sSupportEmail, "Login Detected on " & $sComputername, $msg)

Because if I remove this line everything works, except the emailing but that is the one piece we need to work. I have also removed every line except the OKButton line of code and it still fails.

Any help would be greatly appreciated.

Here is the entire code.

#NoTrayIcon
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Date.au3>
Global $goMyRet[2]
Global $goMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
HotKeySet("#{F4}", "_exit") ; Win + F4 to exit

Local $aLines, $iCount = 0
local $hDate = @YEAR & '-' & @MON & '-' & @MDAY
local $hfile=FileOpen("\\192.168.26.17\Logs\coreserverlog.txt", 1)
_main()
Func _Main()
while 1
_Startup()
     _GUI()
WEnd
EndFunc ;==>_Main
Func _Startup()
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "NoLogoff", "REG_DWORD", "1")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "1")
;=======================
; For Windows 7 and Server 2008+
;=======================
;~ ProcessClose('explorer.exe')
;~ Sleep(1000)
;~ Run('explorer.exe')
;~ WinWaitActive('Libraries', '')
;~ WinClose('Libraries')
;=======================
; For non-windows 7 / server 2008 + computers
;=======================
ProcessClose('explorer.exe')
Sleep(1000)
Run('explorer.exe')
WinWaitActive('My Documents', '')
WinClose('My Documents')
EndFunc ;==>_Startup
Func _gui()
local $sUsername = @UserName ; User Name
Local $sComputername = @ComputerName ; Computer Name
Local $sText1 = ""; Output text for message box.
Local $sText2 = ""; Output text for message box.
Local $sTest3 = ""; Output text for message box.
Local $combo1 = ""; Output text for combo box.
Local Const $sDomain = 'domain.com'
Local Const $sServer = "mail" & '.' & $sDomain
Local Const $sSupportEmail = "email" & '@' & $sDomain
ClipPut($sServer)
$sText1 = "Username = " & $sUsername & @CRLF ; The & character concentrates (joins) two values together.
$sText2 = "Computer Name = " & $sComputername & @CRLF ; The &= adds to the variable. The same as doing $var = $var & "extra stuff"
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
TraySetOnEvent($TRAY_EVENT_PRIMARYUP,"SpecialEvent")
;TraySetState(2) ; hide --> not needed

Local $hMainwindow = GUICreate("Server Logon Form", 300, 300, Default, Default, BitAND($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_CONTEXTHELP)
Local $hOkButton = GUICtrlCreateButton("&OK", 75, 225, 150)
GUISetState()
; _AddHorzSep(10, 40, 290)
;    _AddHorzSep(10, 60, 280)
;~ $Label2 = GUICtrlCreateLabel("", 120, 38, 150, 25)
$Label3 = GUICtrlCreateLabel("&Ticket #: ", 25, 38, 55)
$hInputText1 = GUICtrlCreateInput("", 75, 35, 50, 20, $ES_NUMBER)
GUICtrlSetLimit(-1, 4)
$Label4 = GUICtrlCreateLabel("&Reason for Logging In:", 25, 70, 200)
$hInputText2 = GUICtrlCreateEdit("", 25, 90, 235, 125, 0)
$Label5 = GuiCtrlCreateLabel("", 145, 70, 200, 20)

While 1
$nMsg = GUIGetMsg()
     Switch $nMsg
         Case $hOkButton
             $name = GUICtrlRead($hInputText2)
     $msg = "Login Detected on " & @ComputerName & @CRLF & @CRLF & "Ticket #: " & GUICtrlRead($hInputText1) & @CRLF & @CRLF & "Details: " & GUICtrlRead($hInputText2) & @CRLF & @CRLF & "" & $sText1 & $sText2 & _wmigetcompinfo()
If $name = "" Then
GUICtrlSetData($Label5, "Please enter a reason")
GUICtrlSetColor($Label5, 0xFF0000)
Else
If GuiCtrlRead($hInputText1) = "" Then
GUICtrlSetData($hInputText1, 'n/a')
Else
EndIf
If $hfile = -1 Then
msgbox(0, "Error", "Unable to open file.")
Exit
EndIf
; Read the file
_FileReadToArray("\\192.168.26.17\Logs\coreserverlog.txt", $aLines)
If Not @error Then
; if the file exists look for the ID starting on the last line
For $i = $aLines[0] To 1 Step -1
If StringLeft($aLines[$i], 2) == "id" Then
         ; get the ID number
     $iCount = Int(StringRegExpReplace($aLines[$i], "id(\d*):.*", "$1"))
     ExitLoop
EndIf
Next
; Check we found an ID
If $i = 0 Then
MsgBox(0, "Error", "No line id found")
Exit
EndIf
EndIf
FileWrite($hfile, _LineID() & '|' & $hDate & '|' & $sComputername & '|' & $sUsername & '|' & GUICtrlRead($hInputText1) & '|' & GUICtrlRead($hInputText2) & @CRLF)
FileClose($hfile)
Sleep(1000)
OKButton($sServer, $sUsername, $sUsername & '@' & $sDomain, $sSupportEmail, "Login Detected on " & $sComputername, $msg)
     If ProcessExists('Core_Logoff.exe') Then
     Else
     Run('C:\Windows\Core_Logoff.exe')
     EndIf
;~   RunWait('C:\Windows\Idle_Logoff.exe')
Exit
         EndIf
EndSwitch
WEnd
EndFunc ;==> gui

Func _LineID()
$iCount += 1
Return "id" & StringFormat("%04i", $iCount) & ": "
EndFunc ;==> LineID

Func RegRemove()
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "NoLogoff", "REG_DWORD", "0")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "0")
;=======================
; For Windows 7 and Server 2008+
;=======================
;~ ProcessClose('explorer.exe')
;~ Sleep(1000)
;~ Run('explorer.exe')
;~ WinWaitActive('Libraries', '')
;~ WinClose('Libraries')
;=======================
; For non-windows 7 / server 2008 + computers
;=======================
ProcessClose('explorer.exe')
Sleep(1000)
Run('explorer.exe')
WinWaitActive('My Documents', '')
WinClose('My Documents')
EndFunc ;==> RegRemove

Func SpecialEvent()
GUISetState(@SW_SHOW)
TraySetState(2) ; hide
EndFunc ;==> SpecialEvent

Func _exit()
Do
$Pass = InputBox ("Password", "Please enter your password", "", "*M")
$Split = StringSplit ($Pass, "")
If $Split[0] Then
$ConfirmPass = "admin"
If $Pass <> $ConfirmPass Then MsgBox (48, "Error", "Passwords do not match!!")
EndIf
Until $Pass = $ConfirmPass
If $ConfirmPass Then
SplashTextOn( "Closing", "Closing without sending email", 300, 50)
Sleep(3000)
RegRemove()
Exit
EndIf
EndFunc ;==> _exit

Func _AddHorzSep($iX, $iY, $iW)
GUICtrlCreateLabel("", $iX, $iY, $iW, 1)
GUICtrlSetBkColor(-1, 0x000000)

EndFunc ;==>_AddHorzSep

Func _wmigetcompinfo($strComputer = "localhost")
; Generated by AutoIt Scriptomatic November 30, 2012
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$sOutput = ""
;- $sOutput &= "Computer: " & $strComputer & @CRLF
$sOutput &= ""
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
         $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) Then
     For $objItem In $colItems
         $sOutput &= "Computer Status: " & $objItem.Status & @CRLF

     Next
Else
     Return ("WMI not functional")
EndIf
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _
         $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

     Return ($sOutput)
EndFunc ;==>_wmigetcompinfo

Func WMIDateStringToDate($dtmDate)
Return (StringMid($dtmDate, 5, 2) & "/" & _
         StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
             & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc ;==>WMIDateStringToDate

Func OKButton($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)
$rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)
ProgressOn("Progress", "Submitting your ticket...", "0 percent")
For $i = 0 To 100 Step 20
     Sleep(500)
     ProgressSet($i, $i & " percent")
Next
ProgressSet(100, "Done", "Complete")
Sleep(500)
ProgressOff()
If @error Then
     MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
Else
Sleep(2000)
RegRemove()
EndIf
EndFunc ;==>OKButton

Func OnEmail($sSupportEmail)
Run(@ComSpec & " /c " & 'start mailto:' & $sSupportEmail, "", @SW_HIDE)
EndFunc ;==>OnEmail
Func CLOSEClicked()
;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE,
;and @GUI_WINHANDLE would equal $hMainwindow
Exit
EndFunc ;==>CLOSEClicked

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $sBody = "", $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_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($sBody, "<") And StringInStr($sBody, ">") Then
     $objEmail.HTMLBody = $sBody
Else
     $objEmail.Textbody = $sBody & @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 $goMyRet
EndIf
$objEmail = ""
EndFunc ;==>_INetSmtpMailCom

;
;
; Com Error Handler

Func MyErrFunc()
$HexNumber = Hex($goMyError.number, 8)
$goMyRet[0] = $HexNumber
$goMyRet = StringStripWS($goMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $goMyError.scriptline & " Description:" & $goMyRet & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc

Thanks,

Grimm


Thanks

Grimm

Share this post


Link to post
Share on other sites
water

The problem can't be related to this line because yout do not try to access a variable as array there.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites
BrewManNH

Another thing, your test of @error is in the wrong place, you need to put it directly after the line that you're looking for the error from, which I assume is the call to the OKButton _INetSmtpMailCom function, and not after all the progress bar stuff.

Edited by BrewManNH

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites
Jos

Guess you goofed up with this code:

$goMyRet[0] = $HexNumber
    $goMyRet = StringStripWS($goMyError.description, 3)

Jos :)


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
grimmlock

I installed autoitscript on our exchange server and ran the code. It errored out on the section that Jos just posted so I commented out that whole function

Func MyErrFunc()
$HexNumber = Hex($goMyError.number, 8)
$goMyRet[0] = $HexNumber
$goMyRet = StringStripWS($goMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $goMyError.scriptline & " Description:" & $goMyRet & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc

and then re-ran the script. Now it is erroring out on this line:

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $sBody = "", $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 & '>' ;~ <--- this line.
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
..........

Error is "The requested action with this object has failed."

Thanks,

Grimm

Edited by grimmlock

Thanks

Grimm

Share this post


Link to post
Share on other sites
water

Which version of the Windows server do you run? 2003, 2008, 2012?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites
grimmlock

Server 2003 x64


Thanks

Grimm

Share this post


Link to post
Share on other sites
water

Sorry, forgot to ask for the Exchange version too.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites
Jos

I installed autoitscript on our exchange server and ran the code. It errored out on the section that Jos just posted so I commented out that whole function

Don't comment that section out but fix it so you get proper error information back.

Jos


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
grimmlock

Oh :) Exchange 2007


Thanks

Grimm

Share this post


Link to post
Share on other sites
water

Then this describes your problem: CDO is missing. You need to install CDO.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites
grimmlock

Thank you water, I downloaded and installed that however I am getting an error on 398

$goMyRet[0] = $HexNumber
    $goMyRet = StringStripWS($goMyError.description, 3)

I have looked on the web and cannot quite figure out what I am doing wrong

Thanks

Grimm


Thanks

Grimm

Share this post


Link to post
Share on other sites
Jos

The second line changes the variable from an array to a regular variable.

Should be something like:

$goMyRet[1] = StringStripWS($goMyError.description, 3)

Also change the line below it that uses this information.

Edited by Jos

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
grimmlock

Great now error code is 2 with no description0

Thanks Jos for the help and the explanation :)

Grimm


Thanks

Grimm

Share this post


Link to post
Share on other sites
Jos

Great now error code is 2 with no description0

Thanks Jos for the help and the explanation :)

Grimm

how does your code look now?


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
grimmlock

Jos,

this is the updated code

#NoTrayIcon
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Date.au3>
    Global $goMyRet[2]
    Global $goMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

HotKeySet("#{F4}", "_exit") ; Win + F4 to exit


Local $aLines, $iCount = 0
local $hDate = @YEAR & '-' & @MON & '-' & @MDAY
local $hfile=FileOpen("\\192.168.26.17\Logs\coreserverlog.txt", 1)

_main()
Func _Main()
    while 1
;~  _Startup()
        _GUI()
    WEnd
EndFunc   ;==>_Main

Func _Startup()

RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "NoLogoff", "REG_DWORD", "1")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "1")

;=======================
; For Windows 7 and Server 2008+
;=======================

;~  ProcessClose('explorer.exe')
;~  Sleep(1000)
;~  Run('explorer.exe')
;~  WinWaitActive('Libraries', '')
;~  WinClose('Libraries')

;=======================
; For non-windows 7 / server 2008 + computers
;=======================
ProcessClose('explorer.exe')
Sleep(1000)
Run('explorer.exe')
WinWaitActive('My Documents', '')
WinClose('My Documents')

EndFunc ;==>_Startup

Func _gui()
    local $sUsername = @UserName ; User Name
    Local $sComputername = @ComputerName ; Computer Name
    Local $sText1 = ""; Output text for message box.
    Local $sText2 = ""; Output text for message box.
Local $sTest3 = ""; Output text for message box.
    Local $combo1 = ""; Output text for combo box.
    Local Const $sDomain = 'domain.com'
    Local Const $sServer = "mail" & '.' & $sDomain
    Local Const $sSupportEmail = "user" & '@' & $sDomain
    ClipPut($sServer)
  $sText1 = "Username = " & $sUsername & @CRLF ; The & character concentrates (joins) two values together.
  $sText2 = "Computer Name = " & $sComputername & @CRLF ; The &= adds to the variable. The same as doing $var = $var & "extra stuff"

Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)

TraySetOnEvent($TRAY_EVENT_PRIMARYUP,"SpecialEvent")
;TraySetState(2) ; hide --> not needed


Local $hMainwindow = GUICreate("Server Logon Form", 300, 300, Default, Default, BitAND($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_CONTEXTHELP)

Local $hOkButton = GUICtrlCreateButton("&OK", 75, 225, 150)

    GUISetState()

    ; _AddHorzSep(10, 40, 290)
;     _AddHorzSep(10, 60, 280)

;~ $Label2 = GUICtrlCreateLabel("", 120, 38, 150, 25)

$Label3 = GUICtrlCreateLabel("&Ticket #: ", 25, 38, 55)
$hInputText1 = GUICtrlCreateInput("", 75, 35, 50, 20, $ES_NUMBER)
GUICtrlSetLimit(-1, 4)

$Label4 = GUICtrlCreateLabel("&Reason for Logging In:", 25, 70, 200)
$hInputText2 = GUICtrlCreateEdit("", 25, 90, 235, 125, 0)

$Label5 = GuiCtrlCreateLabel("", 145, 70, 200, 20)


    While 1
$nMsg = GUIGetMsg()
        Switch $nMsg
            Case $hOkButton
               $name = GUICtrlRead($hInputText2)
  $msg = "Login Detected on " & @ComputerName & @CRLF & @CRLF & "Ticket #: " & GUICtrlRead($hInputText1) & @CRLF & @CRLF & "Details: " & GUICtrlRead($hInputText2) & @CRLF & @CRLF & "" & $sText1 & $sText2 & _wmigetcompinfo()
  If $name = "" Then
GUICtrlSetData($Label5, "Please enter a reason")
GUICtrlSetColor($Label5, 0xFF0000)
Else

If GuiCtrlRead($hInputText1) = "" Then
GUICtrlSetData($hInputText1, 'n/a')
Else
EndIf

If $hfile = -1 Then
msgbox(0, "Error", "Unable to open file.")
Exit
EndIf

; Read the file
_FileReadToArray("\\192.168.26.17\Logs\coreserverlog.txt", $aLines)
If Not @error Then
; if the file exists look for the ID starting on the last line
For $i = $aLines[0] To 1 Step -1
If StringLeft($aLines[$i], 2) == "id" Then
            ; get the ID number
$iCount = Int(StringRegExpReplace($aLines[$i], "id(\d*):.*", "$1"))
ExitLoop
EndIf
Next
; Check we found an ID
If $i = 0 Then
MsgBox(0, "Error", "No line id found")
Exit
EndIf
EndIf

FileWrite($hfile, _LineID() & '|' & $hDate & '|' & $sComputername & '|' & $sUsername & '|' & GUICtrlRead($hInputText1) & '|' & GUICtrlRead($hInputText2) & @CRLF)

FileClose($hfile)

Sleep(1000)

OKButton($sServer, $sUsername, $sUsername & '@' & $sDomain, $sSupportEmail, "Login Detected on " & $sComputername, $msg)
If ProcessExists('Core_Logoff.exe') Then
Else
Run('C:\Windows\Core_Logoff.exe')

EndIf
;~  RunWait('C:\Windows\Idle_Logoff.exe')
Exit
            EndIf
EndSwitch
    WEnd

EndFunc ;==> gui


Func _LineID()
    $iCount += 1
    Return "id" & StringFormat("%04i", $iCount) & ": "
EndFunc ;==> LineID


Func RegRemove()

RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "NoLogoff", "REG_DWORD", "0")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "0")

;=======================
; For Windows 7 and Server 2008+
;=======================

;~  ProcessClose('explorer.exe')
;~  Sleep(1000)
;~  Run('explorer.exe')
;~  WinWaitActive('Libraries', '')
;~  WinClose('Libraries')

;=======================
; For non-windows 7 / server 2008 + computers
;=======================
ProcessClose('explorer.exe')
Sleep(1000)
Run('explorer.exe')
WinWaitActive('My Documents', '')
WinClose('My Documents')

EndFunc ;==> RegRemove


Func SpecialEvent()
   GUISetState(@SW_SHOW)
   TraySetState(2) ; hide
EndFunc ;==> SpecialEvent


Func _exit()
Do
$Pass = InputBox ("Password", "Please enter your password", "", "*M")
$Split = StringSplit ($Pass, "")
If $Split[0] Then
$ConfirmPass = "admin"
If $Pass <> $ConfirmPass Then MsgBox (48, "Error", "Passwords do not match!!")
EndIf
Until $Pass = $ConfirmPass
If $ConfirmPass Then
SplashTextOn( "Closing", "Closing without sending email", 300, 50)
Sleep(3000)
RegRemove()
Exit
EndIf
EndFunc ;==> _exit


Func _AddHorzSep($iX, $iY, $iW)

    GUICtrlCreateLabel("", $iX, $iY, $iW, 1)
    GUICtrlSetBkColor(-1, 0x000000)


EndFunc   ;==>_AddHorzSep


Func _wmigetcompinfo($strComputer = "localhost")
    ; Generated by AutoIt Scriptomatic November 30, 2012
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $sOutput = ""
    ;- $sOutput &= "Computer: " & $strComputer & @CRLF
    $sOutput &= ""
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


    If IsObj($colItems) Then
        For $objItem In $colItems
            $sOutput &= "Computer Status: " & $objItem.Status & @CRLF


        Next
    Else
        Return ("WMI not functional")
    EndIf

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


        Return ($sOutput)

EndFunc   ;==>_wmigetcompinfo


Func WMIDateStringToDate($dtmDate)

    Return (StringMid($dtmDate, 5, 2) & "/" & _
            StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
             & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc   ;==>WMIDateStringToDate


Func OKButton($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)

    $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)
    ProgressOn("Progress", "Submitting your ticket...", "0 percent")
    For $i = 0 To 100 Step 20
        Sleep(500)
        ProgressSet($i, $i & " percent")
    Next
    ProgressSet(100, "Done", "Complete")
    Sleep(500)
    ProgressOff()
    If @error Then
        MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
   Else
Sleep(2000)
RegRemove()

    EndIf

EndFunc   ;==>OKButton


Func OnEmail($sSupportEmail)
    Run(@ComSpec & " /c " & 'start mailto:' & $sSupportEmail, "", @SW_HIDE)
EndFunc   ;==>OnEmail

Func CLOSEClicked()
    ;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE,
    ;and @GUI_WINHANDLE would equal $hMainwindow

    Exit
EndFunc   ;==>CLOSEClicked


Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $sBody = "", $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_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($sBody, "<") And StringInStr($sBody, ">") Then
        $objEmail.HTMLBody = $sBody
    Else
        $objEmail.Textbody = $sBody & @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 $goMyRet
    EndIf
    $objEmail = ""
EndFunc   ;==>_INetSmtpMailCom


;
;
; Com Error Handler


Func MyErrFunc()
    $HexNumber = Hex($goMyError.number, 8)
    $goMyRet[0] = $HexNumber
    $goMyRet[1] = StringStripWS($goMyError.description, 3)
    ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $goMyError.scriptline & " Description:" & $goMyRet & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

Thanks again!

Grimm


Thanks

Grimm

Share this post


Link to post
Share on other sites
Jos

You forgot to update the other reference to the variable in the consolewrite statement.

ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $goMyError.scriptline & " Description:" & $goMyRet[1] & @LF)

Edited by Jos

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
grimmlock

Silly me, fixed and reposting code....still getting error.

#NoTrayIcon
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Date.au3>
    Global $goMyRet[2]
    Global $goMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

HotKeySet("#{F4}", "_exit") ; Win + F4 to exit


Local $aLines, $iCount = 0
local $hDate = @YEAR & '-' & @MON & '-' & @MDAY
local $hfile=FileOpen("\\192.168.26.17\Logs\coreserverlog.txt", 1)

_main()
Func _Main()
    while 1
;~  _Startup()
        _GUI()
    WEnd
EndFunc   ;==>_Main

Func _Startup()

RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "NoLogoff", "REG_DWORD", "1")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "1")

;=======================
; For Windows 7 and Server 2008+
;=======================

;~  ProcessClose('explorer.exe')
;~  Sleep(1000)
;~  Run('explorer.exe')
;~  WinWaitActive('Libraries', '')
;~  WinClose('Libraries')

;=======================
; For non-windows 7 / server 2008 + computers
;=======================
ProcessClose('explorer.exe')
Sleep(1000)
Run('explorer.exe')
WinWaitActive('My Documents', '')
WinClose('My Documents')

EndFunc ;==>_Startup

Func _gui()
    local $sUsername = @UserName ; User Name
    Local $sComputername = @ComputerName ; Computer Name
    Local $sText1 = ""; Output text for message box.
    Local $sText2 = ""; Output text for message box.
Local $sTest3 = ""; Output text for message box.
    Local $combo1 = ""; Output text for combo box.
    Local Const $sDomain = 'yvl.org'
    Local Const $sServer = "mail" & '.' & $sDomain
    Local Const $sSupportEmail = "ptukey" & '@' & $sDomain
    ClipPut($sServer)
  $sText1 = "Username = " & $sUsername & @CRLF ; The & character concentrates (joins) two values together.
  $sText2 = "Computer Name = " & $sComputername & @CRLF ; The &= adds to the variable. The same as doing $var = $var & "extra stuff"

Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)

TraySetOnEvent($TRAY_EVENT_PRIMARYUP,"SpecialEvent")
;TraySetState(2) ; hide --> not needed


Local $hMainwindow = GUICreate("Server Logon Form", 300, 300, Default, Default, BitAND($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_CONTEXTHELP)

Local $hOkButton = GUICtrlCreateButton("&OK", 75, 225, 150)

    GUISetState()

    ; _AddHorzSep(10, 40, 290)
;     _AddHorzSep(10, 60, 280)

;~ $Label2 = GUICtrlCreateLabel("", 120, 38, 150, 25)

$Label3 = GUICtrlCreateLabel("&Ticket #: ", 25, 38, 55)
$hInputText1 = GUICtrlCreateInput("", 75, 35, 50, 20, $ES_NUMBER)
GUICtrlSetLimit(-1, 4)

$Label4 = GUICtrlCreateLabel("&Reason for Logging In:", 25, 70, 200)
$hInputText2 = GUICtrlCreateEdit("", 25, 90, 235, 125, 0)

$Label5 = GuiCtrlCreateLabel("", 145, 70, 200, 20)


    While 1
$nMsg = GUIGetMsg()
        Switch $nMsg
            Case $hOkButton
               $name = GUICtrlRead($hInputText2)
  $msg = "Login Detected on " & @ComputerName & @CRLF & @CRLF & "Ticket #: " & GUICtrlRead($hInputText1) & @CRLF & @CRLF & "Details: " & GUICtrlRead($hInputText2) & @CRLF & @CRLF & "" & $sText1 & $sText2 & _wmigetcompinfo()
  If $name = "" Then
GUICtrlSetData($Label5, "Please enter a reason")
GUICtrlSetColor($Label5, 0xFF0000)
Else

If GuiCtrlRead($hInputText1) = "" Then
GUICtrlSetData($hInputText1, 'n/a')
Else
EndIf

If $hfile = -1 Then
msgbox(0, "Error", "Unable to open file.")
Exit
EndIf

; Read the file
_FileReadToArray("\\192.168.26.17\Logs\coreserverlog.txt", $aLines)
If Not @error Then
; if the file exists look for the ID starting on the last line
For $i = $aLines[0] To 1 Step -1
If StringLeft($aLines[$i], 2) == "id" Then
            ; get the ID number
$iCount = Int(StringRegExpReplace($aLines[$i], "id(\d*):.*", "$1"))
ExitLoop
EndIf
Next
; Check we found an ID
If $i = 0 Then
MsgBox(0, "Error", "No line id found")
Exit
EndIf
EndIf

FileWrite($hfile, _LineID() & '|' & $hDate & '|' & $sComputername & '|' & $sUsername & '|' & GUICtrlRead($hInputText1) & '|' & GUICtrlRead($hInputText2) & @CRLF)

FileClose($hfile)

Sleep(1000)

OKButton($sServer, $sUsername, $sUsername & '@' & $sDomain, $sSupportEmail, "Login Detected on " & $sComputername, $msg)
If ProcessExists('Core_Logoff.exe') Then
Else
Run('C:\Windows\Core_Logoff.exe')

EndIf
;~  RunWait('C:\Windows\Idle_Logoff.exe')
Exit
            EndIf
EndSwitch
    WEnd

EndFunc ;==> gui


Func _LineID()
    $iCount += 1
    Return "id" & StringFormat("%04i", $iCount) & ": "
EndFunc ;==> LineID


Func RegRemove()

RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "StartMenuLogOff", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\Explorer", "NoLogoff", "REG_DWORD", "0")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\policies\System", "DisableLockWorkstation", "REG_DWORD", "0")

;=======================
; For Windows 7 and Server 2008+
;=======================

;~  ProcessClose('explorer.exe')
;~  Sleep(1000)
;~  Run('explorer.exe')
;~  WinWaitActive('Libraries', '')
;~  WinClose('Libraries')

;=======================
; For non-windows 7 / server 2008 + computers
;=======================
ProcessClose('explorer.exe')
Sleep(1000)
Run('explorer.exe')
WinWaitActive('My Documents', '')
WinClose('My Documents')

EndFunc ;==> RegRemove


Func SpecialEvent()
   GUISetState(@SW_SHOW)
   TraySetState(2) ; hide
EndFunc ;==> SpecialEvent


Func _exit()
Do
$Pass = InputBox ("Password", "Please enter your password", "", "*M")
$Split = StringSplit ($Pass, "")
If $Split[0] Then
$ConfirmPass = "admin"
If $Pass <> $ConfirmPass Then MsgBox (48, "Error", "Passwords do not match!!")
EndIf
Until $Pass = $ConfirmPass
If $ConfirmPass Then
SplashTextOn( "Closing", "Closing without sending email", 300, 50)
Sleep(3000)
RegRemove()
Exit
EndIf
EndFunc ;==> _exit


Func _AddHorzSep($iX, $iY, $iW)

    GUICtrlCreateLabel("", $iX, $iY, $iW, 1)
    GUICtrlSetBkColor(-1, 0x000000)


EndFunc   ;==>_AddHorzSep


Func _wmigetcompinfo($strComputer = "localhost")
    ; Generated by AutoIt Scriptomatic November 30, 2012
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $sOutput = ""
    ;- $sOutput &= "Computer: " & $strComputer & @CRLF
    $sOutput &= ""
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


    If IsObj($colItems) Then
        For $objItem In $colItems
            $sOutput &= "Computer Status: " & $objItem.Status & @CRLF


        Next
    Else
        Return ("WMI not functional")
    EndIf

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


        Return ($sOutput)

EndFunc   ;==>_wmigetcompinfo


Func WMIDateStringToDate($dtmDate)

    Return (StringMid($dtmDate, 5, 2) & "/" & _
            StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
             & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc   ;==>WMIDateStringToDate


Func OKButton($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)

    $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)
;~     ProgressOn("Progress", "Submitting your ticket...", "0 percent")
;~     For $i = 0 To 100 Step 20
;~         Sleep(500)
;~         ProgressSet($i, $i & " percent")
;~     Next
;~     ProgressSet(100, "Done", "Complete")
;~     Sleep(500)
;~     ProgressOff()
    If @error Then
        MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
   Else
Sleep(2000)
RegRemove()

    EndIf

EndFunc   ;==>OKButton


Func OnEmail($sSupportEmail)
    Run(@ComSpec & " /c " & 'start mailto:' & $sSupportEmail, "", @SW_HIDE)
EndFunc   ;==>OnEmail

Func CLOSEClicked()
    ;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE,
    ;and @GUI_WINHANDLE would equal $hMainwindow

    Exit
EndFunc   ;==>CLOSEClicked


Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $sBody = "", $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_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($sBody, "<") And StringInStr($sBody, ">") Then
        $objEmail.HTMLBody = $sBody
    Else
        $objEmail.Textbody = $sBody & @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 $goMyRet
    EndIf
    $objEmail = ""
EndFunc   ;==>_INetSmtpMailCom


;
;
; Com Error Handler


Func MyErrFunc()
    $HexNumber = Hex($goMyError.number, 8)
    $goMyRet[0] = $HexNumber
    $goMyRet[1] = StringStripWS($goMyError.description, 3)
    ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $goMyError.scriptline & " Description:" & $goMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

Thanks!

Grimm


Thanks

Grimm

Share this post


Link to post
Share on other sites
grimmlock

Yes sir you are correct. However error code still equals 2 and no description :(

Thanks

Grimm


Thanks

Grimm

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  

  • Similar Content

    • Pricehacker
      By Pricehacker
      Title pretty much says it all. Im wondering what button the "primary mouse button" is, and while im here i would also like to know what the "secondary mouse button" is. I´m guessing its the left and right mouse buttons but i could not confirm this.
      Thank you!
    • WoodGrain
      By WoodGrain
      Hi guys,
      I'm learning about GUI's, I'm trying the below code, the idea being if I press the letter "e" while I have the GUI open I want the label color to change to green (I'm using a UDF for label colors). But every time I press "e" on my keyboard I just get a "ding" sound from my speakers and nothing changes with the label.
      I've looked at using something like "While GUIGetMsg() <> $GUI_EVENT_CLOSE" as I've seen it in other code instead of "While 1", but I don't think it's relevant.
      #include <GUIConstantsEx.au3>; for GUI... #include <GUIRichLabel.au3>; UDF for rich text label fonts #include <Misc.au3>; for _IsPressed $myLetter = "e" $hGUI = GUICreate("test", 700, 60) $lbl2 = _GUICtrlRichLabel_Create($hGUI, '<font color="purple">' & $myLetter & '</font>', 10, 10); , 260, 25 GUISetState(@SW_SHOW) Local $hDLL = DllOpen("user32.dll") While 1 if _IsPressed(Hex($myLetter), $hDLL) Then While _IsPressed(Hex($myLetter), $hDLL) Sleep(250) WEnd _GUICtrlRichLabel_SetData($lbl2, '<font color="green">' & $myLetter & '</font>') Sleep(2000) DllClose($hDLL) Exit EndIf Sleep(50) WEnd DllClose($hDLL) I am using an array of letters that I'm wanting to do this for, but as I can't get it to work I've stripped it down to the simplest code I can think of to try and get this working first. Appreciate any help.
      Thanks!
    • nacerbaaziz
      By nacerbaaziz
      hi dears, i have an question please if you can help me.
      i maked an program to do some functions
      and this program works with the global hot keys
      i added an option to the users to change the hot keys
      when i searched about how to do that i found this UDF
      GUIHotkey.au3
      http://www.autoitscript.com/forum/index.php?showtopic=107965
      but the problem here that this UDF cant be detect the win key.
      can you help me to add it, or if there are any others UDFSS wich do that work please give me some.
      i hope that my question is clear for you.
      thanks in advance
    • Silas
      By Silas
      Hello everyone,
      I have a radio button ($Radio1), which I want to disable as soon as another one get's checked (Radio5). (The system fails if the radio button i'm troubling with also gets checked).
      I know how to disable him:
      If GUICtrlRead($Radio1)=1 And Not BitAND(GUICtrlGetState($Radio5), $GUI_DISABLE) Then GUICtrlSetState($Radio5, 128) But if i try to enable $Radio5 again, after $Radio1 isn't checked anymore, it fails:
      If GUICtrlRead($Radio1)=Not 1 And Not BitAND(GUICtrlGetState($Radio5), $GUI_ENABLE) Then GUICtrlSetState($Radio5, 64)  
      Anyone knows why?
    • Bllee
      By Bllee
      every time i press "delete button" delete a line, but i can't add new line with info. the id line write normally but i can't change or add new info
      obs: looking at the "includes" one realizes that already tried of everything that knew
      my code
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <GuiImageList.au3> #include <GuiListView.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <MsgBoxConstants.au3> #include <WinAPI.au3> #include <StringConstants.au3> #include <Array.au3> #include <GuiListBox.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 612, 480, 192, 154) $MenuItem1 = GUICtrlCreateMenu("&Arquivo") $MenuItem2 = GUICtrlCreateMenuItem("Salvar Ctrl+S", $MenuItem1, $SS_CENTER) $MenuItem4 = GUICtrlCreateMenuItem("Carregar Ctrl+O", $MenuItem1, $SS_CENTER) $MenuItem3 = GUICtrlCreateMenuItem("Salvar Como Shitft+Ctrl+S", $MenuItem1, $SS_CENTER) $Group1 = GUICtrlCreateGroup("", 21, 8, 569, 97, $SS_CENTER) $Input1 = GUICtrlCreateInput("ID COR", 122, 32, 97, 21, $SS_CENTER) $Input2 = GUICtrlCreateInput("REGIÃO", 138, 64, 249, 21, $SS_CENTER) $Input3 = GUICtrlCreateInput("Label", 264, 30, 121, 21, $SS_CENTER) $Label1 = GUICtrlCreateLabel("Label", 232, 32, 30, 17, $SS_CENTER) $Button1 = GUICtrlCreateButton("Capturar Cor", 42, 30, 75, 25, $SS_CENTER) $Button2 = GUICtrlCreateButton("Capturar Região", 42, 62, 91, 25, $SS_CENTER) $Button3 = GUICtrlCreateButton("ADD", 442, 24, 113, 33) $Button5 = GUICtrlCreateButton("Delet", 442, 64, 113, 33) $Group2 = GUICtrlCreateGroup("Editar ID selecionado", 8, 384, 601, 57, $SS_CENTER) $Input7 = GUICtrlCreateInput("ID", 10, 402, 40,21, $SS_CENTER) $Input4 = GUICtrlCreateInput("COR", 51, 402, 121, 21, $SS_CENTER) $Input5 = GUICtrlCreateInput("REGIÃO", 173, 402, 249, 21, $SS_CENTER) $Input6 = GUICtrlCreateInput("LABEL", 423, 402, 121, 21, $SS_CENTER) $Button4 = GUICtrlCreateButton("\/", 544, 400, 30, 25, $SS_CENTER) $Button6 = GUICtrlCreateButton("/\", 574, 400, 30, 25, $SS_CENTER) ; Add column Global $id = Int(0) $List1 = GUICtrlCreateListView("",5, 120, 601, 253, $SS_CENTER) _GUICtrlListView_AddColumn($List1, "ID",40) _GUICtrlListView_AddColumn($List1, "COR",100) _GUICtrlListView_AddColumn($List1, "COORDENADA",305) _GUICtrlListView_AddColumn($List1, "LABEL",150) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $MenuItem2 MsgBox($MB_SYSTEMMODAL, "ctrl + s", "Nothing Here",1) Case $MenuItem3 MsgBox($MB_SYSTEMMODAL, "shift+ctrl s", "Nothing Here",1) Case $MenuItem4 MsgBox($MB_SYSTEMMODAL, "ctrl + o", "Nothing Here",1) Case $Button1 MsgBox($MB_SYSTEMMODAL, "Capturar cor", "Aperte espaço para capturar a cor") GUICtrlSetData($Input1,MouseColor()) Case $Button2 MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição inicial") local $mouse = MouseGetPos() $x_init = $mouse[0] $y_init = $mouse[1] MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição final") local $mouse = MouseGetPos() $x_end = $mouse[0] $y_end = $mouse[1] GUICtrlSetData($Input2,$x_init&','&$y_init&' ; '&$x_end&','&$y_end) Case $Button3 _GUICtrlListView_AddItem($List1, $id, 1) ; id _GUICtrlListView_AddSubItem($List1, $id, GUICtrlRead($Input1), 1, 1) ;cor _GUICtrlListView_AddSubItem($List1, $id, GUICtrlRead($Input2), 2, 1) ;coordenada _GUICtrlListView_AddSubItem($List1, $id, GUICtrlRead($Input3), 3, 1) ;label $id= $id + 1 Case $Button4 $Item = _GUICtrlListView_GetSelectedIndices($List1) $Sid = _GUICtrlListView_GetItem($List1, Number($Item),0) $Scor = _GUICtrlListView_GetItem($List1, Number($Item),1) $Scord = _GUICtrlListView_GetItem($List1, Number($Item),2) $Slabel = _GUICtrlListView_GetItem($List1, Number($Item),3) ; get info GUICtrlSetData($Input7,$Sid[3]) GUICtrlSetData($Input4,$Scor[3]) GUICtrlSetData($Input5,$Scord[3]) GUICtrlSetData($Input6,$Slabel[3]) Case $Button5 _GUICtrlListView_DeleteItemsSelected($List1) Case $Button6 ; give back inf if GUICtrlRead($Input7) <> "ID" Then _GUICtrlListView_SetItem($List1, GUICtrlRead($Input4), GUICtrlRead($Input7),1) ;cor _GUICtrlListView_SetItem($List1, GUICtrlRead($Input5), GUICtrlRead($Input7),2) ;coordenada _GUICtrlListView_SetItem($List1, GUICtrlRead($Input6), GUICtrlRead($Input7),3) ;coordenada EndIf EndSwitch WEnd Func MouseColor() local $mouse = MouseGetPos() Return Hex(PixelGetColor($mouse[0],$mouse[1]), 6) EndFunc  
×