1
내 서버에서 실행되는 vbscript가 있고 파일이 특정 디렉토리에 추가 될 때마다 텔넷을 통해 전자 메일을 보냅니다. 스크립트는 계속 실행되지만 RemoteDesktop을 통해 로그온하지 않으면 텔넷 명령을 실행하지 않습니다.로그온하지 않고도 서버에서 무인 vb 스크립트를 실행할 수 있습니까?
아무도 로그온하지 않은 상태에서이 스크립트를 실행하는 방법을 제안 할 수 있습니까?
Option Explicit
Dim fso, count, src, folder, file, ncount, cloner
Set fso = CreateObject("Scripting.FileSystemObject")
Set cloner = CreateObject("WScript.Shell")
src = "F:/serverfolders/public/camera"
Set folder = fso.GetFolder(src)
count = 0
For Each file In folder.files
If LCase(fso.GetExtensionName(file)) = "mp4" Then
count = count + 1
End If
Next
ncount = count
WScript.Echo "Initial Count: " & count
Do
count = 0
For Each file In folder.files
If LCase(fso.GetExtensionName(file)) = "mp4" Then
count = count + 1
End If
If LCase(fso.GetExtensionName(file)) = "x" Then Exit DO
Next
if count > ncount then
Call Alarm()
ncount = count
End If
WScript.Sleep 10000
Loop
Sub Alarm
cloner.run"cmd",1,false
WScript.Sleep 1000
cloner.SendKeys"telnet smtp.1and1.com 587"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.AppActivate "telnet smtp.1and1.com"
WScript.Sleep 1000
cloner.SendKeys"EHLO ****.com"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"auth login"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"password"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"password2"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"MAIL FROM: ****.com"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"RCPT TO: ****.com"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"DATA"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"Subject:Motion Alarm Detected"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"Motion Alarm Detected"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys"."
cloner.SendKeys("{Enter}")
WScript.Sleep 2000
cloner.SendKeys"quit"
cloner.SendKeys("{Enter}")
WScript.Sleep 1000
cloner.SendKeys("{Enter}")
WScript.Sleep 10000
End Sub