컴퓨터 부팅 후 IP주소를 메일로 전송하기
페이지 정보
작성자 서방님 댓글 0건 조회 191회 작성일 14-11-21 14:16본문
컴퓨터를 부팅 한 후 부팅한 컴퓨터의 IP주소를 알아야 할 때가 있다.
집의 컴퓨터에 터미널로 연결해야 할때가 그렇다. (컴퓨터를 켜는 것은 별도의 논외로 하고..)
컴퓨터가 켜진 후 자동으로 그 컴퓨터의 IP를 특정 메일로 전송하는 스크립트 이다.
Dim WshShell, oExec, objMessage
'컴의 IP주소를 ipconfig로 얻는다.
Set WshShell = CreateObject("WScript.Shell")
cmdTemp = "ipconfig"
ipInfo = ""
Set oExec = WshShell.Exec(cmdTemp)
Do While Not oExec.StdOut.AtEndOfStream
ipInfo = ipInfo & oExec.StdOut.Read(1)
Loop
Set oExec = Nothing
Set WshShell = Nothing
'WScript.Echo outExec
'메일을 발송한다.
Set objMessage = CreateObject("CDO.Message")
objMessage.To = "이름<test@test.com>" '받는 사람 주소
objMessage.From = "DreamBox<test@test.com>" '보내는 사람 주소
objMessage.Subject = "[" & date & " " & time & "] IP주소입니다"
objMessage.TextBody = ipInfo
objMessage.Send
Set objMessage = Nothing
위 스크립트를 sendIP.vbs 등으로 저장한 후 제어판의 "예약된 작업"에서 시스템을 시작할때 시작하도록 해주면 된다.
댓글목록
등록된 댓글이 없습니다.
