사랑하기 위해 필요한 것들

방화벽 로그를 메일로 받아보시기 위해 작업을 진행하시는게 맞는지요..? 일단 전 그렇게 이해하고 내용을 좀 정리해봤습니다. 만약 제가 제대로(?) 이해한거라면 구지 메일 서버를 별도로 구축하지 않으셔도 가능할 수도 있어 보이긴 하지만 제가 자세한 상황에 대해서는 모르니깐요.., 그냥 제가 이해한 대로 방향을 잡고 간략하게나마 말씀드리도록 하겠습니다.

 

초간단(?) 메일 서버 구축 방법을 알려드리려고 하는데요.., 당연히 Windows Server 2003에 기본 제공되는 메일 서버 역할을 구성하는 방법에 대한 내용입죠. 단, 제가 테스트 환경은 영문으로 구축해놓기 때문에 그림은 영문 화면이니 양해 바랍니다. ^^;

 

참고로 다음 내용은 이전에 POP3 서비스나 IIS 같은 구성 요소들을 설치하지 않은 상태를 가정하고 진행하는 것입니당.., 당연히 다음 내용대로 따라하시려면 초기 상태, 즉 기본 OS만 설치돼있는 상태로 가정하고 작업을 진행하시면 되겠죠.., 방화벽 관련 로그를 메일로 쏘겠다고 하신 것으로 봐서는 DNS를 별도로 구성하실 필요는 없을 듯 합니다.., 방화벽에서 로그 발송할 때 mail.nwtraders.msft 과 같은 형식이 아닌 10.10.10.10 과 같은 IP로 설정하시면 되니까요.., 그리고 또 한가지.., 마찬가지 이유로  구지 Active Directory를 구성하실 필요도 없어 보입니다.

 

암튼 방화벽에서 SMTP 서버를 IP 주소로 설정한다는 가정 하에서 메일 서버 구축 작업은 다음과 같이 진행하시면 되겠습니다.

 

1. 먼저 다음과 같이 "시작 > 관리 도구 > 서버 구성 마법사(?)"를 클릭합니다.

 

2. 그리고 나서 다음 그림과 같이 "Mail server" 항목을 선택한 후 다음 버튼을 클릭하시구요..,

3. 다음 그림과 같은 화면에서 중요한 것은 "E-mail domain name:" 항목이구요.., 여기엔 그냥 임의의 도메인 이름을 입력하시면 되겠슴다. 뭐 알기 쉽게 nwtraders.msft 뭐 이렇게 하셔도 될테구요.., 그냥 단순히 방화벽 로그 보내는 용도로 회사 내부에서만 받아보시는 용도일테니까요..,

 

4. 이제 이후 작업은 그냥 다음, 다음 이렇게 쭉쭉 넘어가시면 자동으로 지가 알아서 IIS도 추가해주고 SMTP 구성도 다 해줍니다. 중간에 OS 시디 요구하면 뭐 넣어주면 되는거구요..,

 

이게 끝입니다..?

 

그리고 나서는 관리 도구 에서 "POP3 서비스" 관리 도구를 통해서 메일박스 만들어주고.. 뭐 그러면 되는거죠.., 글구 질문 하신 내용 중에 서버에 오피스 아웃룩 같은 것이 깔려있어야 하는지 물어보셨는데.., 그런거 필요없슴다.. 클라이언트에만 그런 프로그램이 설치돼있으면 되는거죠뭐.., 오피스 아웃룩이 아니더라도 OS에 기본 탑재된 아웃룩 익스프레스를 이용하셔도 되는거고 말입죠.., 다만 아웃룩에서 메일 서버 설정하는 부분에서는 IP 주소로 입력을 해주시면 되겠고요.., 나머지는 머 그냥 기본 설정대로 내버려 두셔도 될겁니다.

 

"POP3 서비스" 관리 도구를 통해 메일 박스 만들 때 메일 계정도 같이 만들 수 있으니까.., 머 그건 그렇게 작업하시면 될겁니다. 아웃룩 설정을 완료하신 후 메일 서버 접속할 때 아이디는 경우에 따라서 mailuser@nwtraders.msft 와 같은 형식으로 입력해주셔야 할 수도 있구요..,

 

글구.., DNS를 별도로 구성하실 필요도 없고, 따라서 DNS의 역방향 영역 같은 것도 신경쓰실 필요도 없습니다.., 앞서 말씀드린대로 지금 사용하시려는 용도가 단순히(?) 방화벽 로그를 보내는 용도로만 구성하실거니까요.., 단, 서두에도 말씀드렸듯이 방화벽에서 로그를 보낼 SMTP 서버를 mail.nwtraders.msft 와 같은 형식이 아닌 구성한 메일 서버의 IP 주소로 설정해주시기만 하면 되기 때문에 DNS도 필요없고 그에 따른 역방향 영역이라던가 MX 레코드 뭐 이런 것도 필요없는 것이죠. 방화벽에서 SMTP 서버를 지정할 때 IP로 직접 입력해줬기 때문에 DNS가 필요없는 것임다. 방화벽에서 SMTP 서버 설정을 mail.nwtraders.msft 과 같은 FQDN 형식으로 설정했을 때나 DNS가 있어야 하고 또 MX 레코드도 있어야 하고 머 그런 것이죠. 경우에 따라서는 역방향 영역까지도 구성하셔야 할 수도 있구요..,

 

머 어쨌든 당연한거지만.., 방화벽에서 메일 수신자 설정 시에는 앞서 메일 서버 구성시 입력한 도메인에 해당하는 수신자 정보(예: mailuser@nwtraders.msft)로 설정하시면 될테구요..,

 

글구, 릴레이 관련해서도 걱정하실 필요는 없을 듯 하네요. 왜냐면 구성한 메일 서버가 nwtraders.msft 도메인에 대한 메일 서버 역할을 수행하니깐요.., 이 도메인이 아닌 다른 도메인 메일 주소로 현재 구성된 메일 서버를 통해서 전달할 필요가 있을 때에나 릴레이 설정이 필요한겁니다. 일반적으로 회사 내부에 메일 서버도 여러 대이고 또 메일 관련 도메인 역시 여러 개 있거나 하는 머 그런 식의 구성이 아닌 담에야 릴레이 구성을 하실 필요는 없습니다.

 

한가지 혼돈하지 마실 것은.., 메일 수신자가 mailuser@nwtraders.msft 이니까 당연히 nwtraders.msft 라는 도메인이 있어야 하고 해당 DNS 서버도 구성해줘야 하는 것이 아니냐고 의문이 드실 수도 있겠는데요.., 그렇지 않다는 것을 알아두시기 바랍니다. 메일 수신자가 어떤 놈이 됐든.., 방화벽에 SMTP 서버를 IP 주소로 박아줬기 때문에 무조건 해당 SMTP 서버로 보내버리거든요..., mailuser@nwtraders.msft 와 같은 메일 수신자 정보를 가지고 DNS 조회를 수행하는 등의 작업은 메일 서버간에 수행되는 작업입니다.

 

머.., 암튼... 전 일단 제가 판단하는 현 상황을 기준으로 해서 간략하게(?) 말씀드리긴 했습니다만.., 이게 정확히 원하시는 내용일지에 대해서는 확신하긴 좀 어렵네요... ^^;

 

암튼.., 방화벽 로그를 메일로 받으시려는 생각으로 지금 작업을 진행하고 계신 것이라 판단해서 말씀드렸습니다..,

 

http://msdn.microsoft.com/en-us/library/aa384106(VS.85).aspx
Status : http://msdn.microsoft.com/en-us/library/aa383887(VS.85).aspx

Public WithEvents WinHttp As WinHttpRequest
Dim DownSize as Long

Private Sub WinHttp_OnResponseStart(ByVal Status As Long, ByVal ContentType As String)
'Start
DownSize = CLng(WinHttp.GetResponseHeader("Content-Length"))
If Not Dir(App.Path & "\" & App.EXEName & "-Old.exe") = vbNullString Then
  Kill App.Path & "\" & App.EXEName & "-Old.exe"
End If
Name App.Path & "\" & App.EXEName & ".exe" As App.Path & "\" & App.EXEName & "-Old.exe"
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
End Sub

Private Sub WinHttp_OnResponseDataAvailable(Data() As Byte)
If DownSize > 0& Then
  Put #1, , Data()
End If
DoEvents
End Sub


Private Sub WinHttp_OnResponseFinished()
'End
Close #1
End Sub

파일 다운로드 예를 이벤트에 첨가 해두었습니다.
WinHttp COM 객체는 대용량 파일 다운로드에는 적합하지 못합니다.
제공되는 관련 API 를 이용하세요.

'적절한 곳에 넣어줍니다.
'Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
Set WinHttp = New WinHttpRequest

WinHttp.Open "GET", "http://주소", True
WinHttp.Send "PARAM=1000"
WinHttp.WaitForResponse //완료까지 기다림
msgbox WinHttp.ResponseText
msgbox WinHttp.ResponseBody

1. http://www.taeyo.pe.kr/Lecture/20_TIps/Danny02.asp 참고
 
1. 모든 ASP 코드 페이지 첫줄에 다음과 같은 코드를 추가합니다
<% @LANGUAGE='VBSCRIPT' CODEPAGE='65001' %>
 
2. Meta 테그를 다음과 같이 추가 합니다.
<meta http-equiv='Content-Type' content='text/html; charset=UTF-8'>
 
3. 에디트플러스나 울트라 에디터에서 수정후 저장할 때 반드시 Encoding 방식을 UTF-8 로 저장합니다
 
4.DB Insert/Update 시 숫자 타입을 제외한 모든 대상에 N을 추가 합니다
Insert [into] table_name [(column_list)] Value N[data_value]
 
5.DB like 검색시 N 추가
 
6. 파일 첨부 DEXT Upload사용(영문으로 설치)
 SET uploadform = Server.CreateObject("DEXT.FileUpload")
 uploadform.DefaultPath = Server.MapPath(ESP_BBS_DATA)
 uploadform.CodePage = 65001
 wFileSize = 0
 rAttachment = uploadform("txtAttachFile")
 
 If Len(rAttachment) > 0 Then
  wFileName =  uploadform("txtAttachFile").FileName
  wFileSize =  uploadform("txtAttachFile").FileLen
 
  response.write uploadform.DefaultPath
  rAttachment = uploadform.SaveAs(uploadform.DefaultPath & "" & wFileName , False)
  rAttachment = UploadForm.LastSavedFileName
 End If
 
7. 파일 다운로드
 
<% @LANGUAGE='VBSCRIPT!' CODEPAGE='65001' %>
<%
 'Response.Charset = "UTF-8"
 filepath = Request.QueryString("txtFilepath") '// form으로 파라메터 전달해야 함.
 filename = Request.QueryString("txtFilename")'// form으로 파라메터 전달해야 함.
 
 If filepath = "" Then
  filepath=server.MapPath( Request.QueryString("txtFilename"))
  filename = Mid(filepath, InStrRev(filepath, "")+1)
 Else
  filepath=server.MapPath(filepath)
  filename =  Request.QueryString("txtFilename")
  If filename = "" Then
   filename = Request.QueryString("txtattachment")
  End If
 End If

 filepath = filepath &"" & filename
Call FileDown
%>
 
<%
Sub FileDown
' 참고http://www.taeyo.pe.kr/Lecture/20_TIps/Danny03.asp
 
 Response.Buffer = False
 Response.ContentType = "application/x-msdownload"
 'ContentType 를 선언합니다.
 'server.HTMLEncode
 'server.URLPathEncode
 Response.AddHeader "Content-Disposition","attachment; filename=" & server.URLPathEncode(filename) '//server.URLPathEncode 사용해야만 파일명 재대로 출력
 '헤더값이 첨부파일을 선언합니다.
 Set objStream = Server.CreateObject("ADODB.Stream")
 'Stream 을 이용합니다.
 objStream.Open
 '무엇이든 Set 으로 정의했으면 열어야 겠지요^^
 objStream.Type = 1
 objStream.LoadFromFile filepath
 '절대경로 입니다.
 download = objStream.Read
 Response.BinaryWrite download
 '이게 보통 Response.Redirect 로 파일로 연결시켜주는 부분을 대신하여 사용된 것입니다.
 Set objstream = nothing
 '초기화시키구요.
End Sub
%>
 
<%
Sub DEXTDown   ' DEXT.FileDownload 는 일본어 OS에 영문으로 설치시 한글파일 찾지 못함.(DextUpload 2.0까지는 그랬음)
 'On Error Resume Next
 Response.Buffer = False
 Response.AddHeader "Content-Disposition","inline;filename=" &  server.URLPathEncode(filename)
 set objFS = Server.CreateObject("Scripting.FileSystemObject")

 set objF = objFS.GetFile(filepath)
 
 Response.AddHeader "Content-Length", objF.Size
 set objF = nothing
 set objFS = nothing
 Response.ContentType = "application/x-msdownload"
 Response.CacheControl = "public"
 Set objDownload = Server.CreateObject("DEXT.FileDownload")
 objDownload.Download filepath
 Set uploadform = Nothing
End Sub
%>
 
8. CDO Mail발송
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Const cdoSendUsingPort = 2 '1:로컬, 2:외부 smtp
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  '포트번호
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =  "" 'ID
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =  "" '암호

Flds.Update
Set iMsg.Configuration = iConf
iMsg.To = "xxxx@xxx.ccx" 'ToDo: Enter a valid email address.
iMsg.From = "xxxx@xxx.ccx"  'ToDo: Enter a valid email address.
iMsg.Subject = "This is a test CDOSYS message (Sent via Port 25)"
 
'iMsg..TextBody = strHTMLMsg '// 텍스트
iMsg.HTMLBody = strHTML  '// HTML 제목 깨짐 발생..

iMsg.BodyPart.Charset="UTF-8" '/// 한글을 위해선 꼭 넣어 주어야 합니다.
iMsg.HTMLBodyPart.Charset="UTF-8" '/// 한글을 위해선 꼭 넣어 주어야 합니다.
iMsg.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
 
 
9. ASP에서 배달 확인/ 읽음 확인 구현 방법 http://tong.nate.com/windeo/5767827

http://support.microsoft.com/default.aspx?scid=kb;ko;286430

<%
Set oMsg = CreateObject("CDO.Message")
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
‘ 생성되는 메시지가 SMTP pickup 디렉터리가 아닌 SMTP 서비스로 전송되게 합니다.
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "이름"
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "seo-msg-01"
‘ 생성되는 메시지의 서버, 사서함 및 암호
oMsg.Configuration.Fields.Update

oMsg.From = "smpark@microsoft.com"
oMsg.To = "smpark@microsoft.com"

oMsg.Subject = "읽음 확인 및 배달 확인"
oMsg.DSNOptions = 14
‘ 이 메시지의 배달 상태 확인(delivery status notification:DSN)값으로 14는 배달 성공, 실패 및 지연시
‘ 확인메시지 생성
oMsg.Fields("urn:schemas:mailheader:return-receipt-to") = smpark@microsoft.com <mailto:smpark@microsoft.com>
‘ 받는 사람이 이 메시지를 열었을 때 읽음 확인 메시지가 여기에서 지정된 사람에게 보내집니다.
oMsg.Fields("urn:schemas:mailheader:disposition-notification-to") = smpark@microsoft.com <mailto:smpark@microsoft.com>
‘ MDN(Message Disposition Notification)은 이 메시지의 확인 메시지가 리턴 될 수신자를 지정합니다.
‘ MDN에 대하여는 Request for Comments (RFC) 2298에 자세히 설명됩니다.
oMsg.TextBody = " SMTP 서버를 통한 읽음 확인 및 배달 확인 메시지"
oMsg.Fields.Update
oMsg.Send

Set oMsg = Nothing
%>
 

If 문의 조건 절에서 오류가 발생했을 때, On Error Resume Next 는

무조건 If 문을 만족시킨 것으로 간주하게 된다.

이 것을 이해하기 위해서는 On Error Resume Next 문이 가지는 의미에 대해서 깊게 알 필요가 있다.

On Error Resume Next는 다음 코드에서의 On Error Goto RN 과 같은 작용을 한다.

Sub testSub()

On Error Goto RN ' Same as On Error Resume Next

어쩌구 저쩌구 코딩이 들어간다.

Exit Sub

RN:

Resume Next

End Sub

이는 오류 발생시 Resume Next 문을 실행하는 것과 같은 것으로,
Resume Next 는 오류 발생 지점에서 바로 다음 문을 실행하는 기능을 한다.

그런데 오류가 만일 If 문의 조건절에서 발생하게 된다면,
Resume Next는 조건절의 다음 문인 If 문 안의 코드를 수행하게 되는 것이다.

이런 문제를 의식하지 못하고 그냥 On Error Resume Next를 쓴다면,
프로그램에는 예상하지 못한 버그가 발생할 가능성이 높다.

그러므로 항상 On Error Resume Next 를 사용할 때에는 If 문을 의식하면서 사용할 필요가 있다.

 

문자열 관련 함수

Filter  : 배열을 검색하여 해당하는 필터값을 기준으로 새로운 배열을 생성함.

ex . arrFilter = Filter(arrName, "은경")

arrName 배열 중 "은경" 이라는 단어가 들어간 값들로 이루어진 새로운 arrFilter 라는 배열을 생성함.

 

InStr : 대상 문자열 중 검색문자로 검색하여 해당 인덱스값을 리턴함.

 ex . str1="velvet1980님의 블로그" / str2=InStr(str, "블로그") / str2=14

        단, 중복값이 있을경우 마지막 문자열의 인덱스값을 출력 ("v"문자열 검색시 1 이 아닌, 4를 리턴함.)

 

Join : 구분자를 사용하여 하나의 문자열로 결합한 문자를 리턴함. (split 의 반대)

 ex . 3칸 짜리 배열에 각각, 12, 34, 56 가 있을 경우 join 사용시 123456 이라는 문자가 출력됨.

        Response.write(배열이름, "-") 와 같이 두번째 인자값을 넣어줄 경우 (생략가능)

        배열과 배열 결합시 그 사이에 해당 문자열을 넣어줌.

Split : 한 문자(문장)을 특정값으로 구분지어 배열로 생서함. (Join 의 반대)

 ex . "velvet1980 님의 블로그"라는 문자열을 Split 할 경우 인자를 " "(공백)을 넣으면

         [velvet1980],[님의],[블로그] 라는 3칸 짜리 배열이 생성됨. : ss=Split(str, " ")

 

Len : Length 와 같음.(문자열의 길이를 리턴)

 

LCase / UCase : Lcase (대문자 -> 소문자) / UCase (소문자 -> 대문자)

 

Replace : 지정한 문자열을 다른 문자열로 교체

 ex . str1="지정한 하위 문자열을 지정한 어쩌고 저쩌고 랄랄라 룰루"
       str2=Replace(str1, "문자열", "ToTo")

 

 날짜와 시간관련 함수

Date : 시스템의 현재 시간값 (yyyy-mm-dd).

DateAdd : 지정된 시간값을 추가한 날짜 (ex : DateAdd("d",100,date)) => (y/m/d, 증가값, date)

DateDiff : 두 날짜 사이의 간격 (ex. DateDiff("d","1-jan-2002",Now)) => (y/m/d, 날짜1, 날짜2)

DatePart : 주어진 날짜의 지정된 부분 (ex. response.write(DatePart("yyyy",Now)) => (y/m/d, 날짜)

DateSerial : 년/월/일 에 대한 Date 형 값을 반환한다.(ex. (DateSerial(2001,12,25))

DateVal!ue : 문자열을 Date 형 날짜로 반환 (ex. DateVal!ue("december 25, 2001")) => 결과값 : 2001-12-25

Day : 날짜를 나타낸다.(ex. (day(date)) ) => 결과값 : 23  (Hour, Minute, Month, year....)

 

데이터형 확인 함수

IsArray : 변수가 배열인지 아닌지 리턴(ex. IsArray(변수)) => true / false

IsDate : 날짜로 변환될 수 있는지 없는지 리턴(ex. IsDate(변수)) => true / false

IsEmpty : 변수가 초기화 되었는지 여부(ex. IsEmpty(변수)) => 변수가 빈 값이면 true / 값이 있으면 false

IsNull : Null인지 아닌지 리턴(ex. IsNull(변수)) => true / false

IsNumeric : 숫자로 평가될수 있는지 아닌지 리턴(ex. IsNumeric("12345")) => true / false

IsObject : 표현식이 유효한 객체인지 아닌지 리턴=>true/false

TypeName : 변수 유형을 알려주는 문자열 리턴 (a=123.34 / b=CInt(a) / typeName(b)) : Integer) =>데이타 타입 반환

 

데이터 포맷 함수

FormatCurrency : 제어판에 설정된 화폐 단위값으로 형식화함.(ex. FormatCurrency(변수))

FormatDateTime : 날짜를 지정한 형식으로 변환.(ex. FormatDateTime(Date, vbShortDate)(날짜,표시형식)

FormatNumber : 숫자로 형식화 된 값을 반환.(ex. FormatNumber(a,0)) : 단, 뒷자리가 5 이상일 경우 반올림 하여 계산함.

FormatPercent : 100으로 곱해진 백분율을 반환하고 끝에 %를 붙힘(ex. FormatPercent(a))

 

난수 함수

Rnd : 임의의 난수를 반환함.(ex. Int(rnd*4)+1) => 1~4 사이의 난수가 발생함.

Randomize : 숫자를 사용하여 Rnd 함수의 난수발생기를 초기화 함.

 

변환 함수

Cbool : Boolean 형으로 변환 : 0 이면 true, 아니면 false (CBool(0.12)) : ture

CByte : 값을 Byte 형으로 변환 (CByte(67.89)) => 68

CDbl : 값을 Double 형으로 변환 (CDbl(1234567890)) =>12345678900000

CInt : 값을 Int 형으로 변환 (CInt(1000+123))=>1123

CSng : 값을 Single 형으로 변환 (CSng(222222222222222))

CLng : 값을 Long 형으로 변환 (CLng(3.14)) => 3

CStr : 값을 String 형으로 변환 (CStr(1000+250))=>1000250

 

● 내장함수

ASP에 사용되는 Visual Basic Script의 내장함수는 자주 사용되므로 익혀야 한다.

 

내 장 함 수	설         명
Abs()	절대값 구하기
Array()	배열 반환
Asc()	문자의 ANSI 문자값 반환
Atn()	주어진 수를 아크탄젠트로 반환
CBool()	주어진 식을 Boolean형식으로 반환
Cbyte()	주어진 식을 Byte형식으로 반환
CCur	주어진 식을 Currency형식으로 반환
CDate()	주어진 식을 Date형식으로 반환
CDbl()	주어진식을 Double형식으로 반환
Chr()	ANSI 문자코드를 일반문자로 반환
CInt()	주어진 식을 Interger형식으로 반환
CLng()	주어진 식을 Long형식으로 반환
Cos()	주어진 각도의 코사인 값을 반환
CreateObject()	다른 객체에 대한 참조를 만들어 반환
CStr()	주어진 식을 String형식으로 반환
Date()	현재 날짜를 반환
DateSerial()	주어진 년,월,일의 Date형식을 반환
Exp()	주어진 수의 자연로그(e)를 반환
Filter()	지정한 필터로 문자열 배열 반환
Fix()	주어진 수의 정수 반환
FormatCurrency()	컴퓨터 규정의 통화값 반환
FormatDateTime()	규정된 날짜와 시간으로 반환
FormatNumber()	규정된 숫자로 반환
FormatPercent()	규정된 퍼센트값을 반환
Hex()	주어진 수를 16진수 문자로 반환
Hour()	0과 23사이의 시간으로 반환
Inputbox()	입력대화상자의 프롬프트를 생성
InStr()	주어진 문자의 위치값을 반환
InStrRev()	줘진 문자열의 위치값을 끝에서 부터 검색하여 반환
Int()	주어진 수의 정수값만 반환
IsArray()	주어진 변수 배열여부를 Boolean값으로 반환
IsDate()	주어진 식이 날짜로 변환되는지를 Boolean값으로 반환
IsEmpty()	주어진 식의 변수가 초기화됐는지를 Boolean값으로 반환
IsNull()	주어진 식의 데이타 유효성을 Boolean값으로 반환
IsNumeric()	주어진 식의 값이 숫자화 될지 여부를 Boolean값으로 반환
IsObject()	자동화 객체를 참조하는지의 여부를 Boolean값으로 반환
Join()	배열에 포함된 여러 문자열을 결합하여 만든 문자열을 반환
LBound()	주어진 배열에서 사용할 수 있는 가장 작은 첨자를 반환
LCase()	주어진 문자를 소문자로 반환
Left()	주어진 문자열을 주어진 수만큼 문자를 반환
Len()	주어진 문자열의 문자갯수를 반환
LoadPicture()	그림 객체를 반환
Log()	주어진 수의 자연로그를 반환
LTime()	주어진 문자열의 앞에 공백을 삭제하고 반환
Mid()	주어진 문자열에서 주어진 위치에서부터의 문자를 반환
Minute()	시간에서 분값을 반환
Month()	달의 값을 반환
MonthName()	주어진 달의 수를 문자열로 반환
MsgBox()	대화상자의 메세지를 생성
Now()	현재 날짜와 시간을 반환
Oct()	주어진 수의 8진수 값을 반환
Replace()	주어진 문자열의 주어진 문자를 바꾸어 반환
Right()	주어진 문자를 주어진 수만큼 오른쪽에서부터 반환
Rnd()	난수를 반환
Round()	주어진 수의 반올림 반환
RTrim()	주어진 문자열을 뒤 공백이 없는 문자로 반환
ScriptEngineBuildVersion()	사용 중인 스크립트 언어를 반환
ScriptEngineMajorVersion()	사용 중인 스크립트 언어의 버전을 반환
ScriptEngineMinorVersion()	사용 중인 스크립트 언어의 보조버전을 반환
Second()	초 값을 반환
Sgn()	주어진 수의 부호를 나타내는 정수를 반환
Sin()	주어진 각도의 사인값을 반환
Space()	주어진 수만큼의 공백이포함된 문자열을 반환
Split()	주어진 문자열이 포함된 1차 배열을 반환
Sqr()	주어진 수의 제곱근을 반환
StrComp()	주어진 두 개의 무자열을 비교하여 결과값을 반환
StrReverse()	주어진 문자열을 뒤에서 부터 읽어서 반환
String()	주어진 문자가 주어진 수만큼 반복된 문자열을 반환
Tan()	주어진 각도의 탄젠트 값을 반환
Time()	현재 시간을 반환
TimeSerial()	주어진 시간의 시간,분,초에 대한 시간값을 반환
TimeVal!ue()	시간이 포함된 Date형식을 반환
Trim()	주어진 문자열의 앞,뒤 공백이 없는 문자열 반환
TypeName()	변수의 정보를 나타내는 문자열 반환
UBound()	배열의 차원에서 가장 큰 첨자를 반환
UCase()	주어진 문자열을 대문자로 반환
varType()	변수의 형식을 나타내는 값을 반환
Weekday()	요일을 나타내는 정수를 반환
WeekdayName()	요일을 나타내는 문자를 반환
Year()	현재의 연도를 반환