You created exe file from vbscript ? Vbsedit stern.
Forgot, i should use this below.
https://www.f2ko.de/programme/vbs-to-exe/
You might of been my teacher at school stem lol.
I was showed pascal coding and to program the use of a robot arm.
So long now ago. I wouldn't remember the coding.
I was only one in the class room to learn, we had 3 computer rooms empty.
Every one, wasn't interested in computers.
Crazy days now, its the way of life now.
Did one more for you.
log output, bell alert, temp msg boxes - that will time out.
more error alerting ect..
Can use parts of my code for any think you like too.
option explicit
On Error Resume Next
Dim objShell, VObj
'make speak obj
Set VObj = CreateObject("SAPI.SpVoice")
with VObj
Set .voice = .getvoices.item(0)
.Volume = 70
.Rate = 0
VObj.Speak "word pad"
end with
'CreateObject and cmd routines
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Cmd /C CD &"&_
"&Echo /...>>log.txt&Echo %COMPUTERNAME% by %USERNAME% on %DATE% at %TIME%>>log.txt"&_
"&Echo /...>>log.txt&Echo [WordPad] : Application : Run Successfully :>>log.txt"&_
"&echo CreateObject(""WScript.Shell"").Popup ""Hello and welcome to Word pad"", 3, ""Terminate in 3 seconds"">>%temp%\temp.vbs"&_
"&cscript %temp%\temp.vbs>Nul"&_
"&Del /Q ""%temp%\temp.vbs"""&_
"&Start /b wordpad.exe"&_
"&Timeout /T 1 /NOBREAK >nul"&_
"&Echo bell"&_
"&Timeout /T 1 /NOBREAK >Nul"&_
"&echo CreateObject(""WScript.Shell"").Popup ""Thank you! For using Wordpad"", 5, ""Terminate in 5 seconds"">>%temp%\temp.vbs"&_
"&cscript %temp%\temp.vbs>Nul"&_
"&Del /Q ""%temp%\temp.vbs"""&_
"&Exit /b",0,true
Set objShell = Nothing
'use application error Description if bug and report
If (Err.number <> 0) Then
MsgBox "Error creating WMI object. Error: " & Err.Number & " - " & Err.Description
'clear error
Err.Clear
End If
Attachment wordpad.zip not found