목록vbscript (3)

ARCHIVE ...

FTP 파일 업로드 자동화 VBScript

Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Dim command(4) ' Chr(34) - 더블쿼테이션마크 command(0) = "open 117.16.14.27" command(1) = "anonymous" command(2) = "none@gmail.com" command(3) = "put " & Chr(34) & "사유서 제출자명단.hwp" & Chr(34) command(4) = "quit" strTmpPath = objShell.ExpandEnvironmentStrings("%TEMP%") strFile = strTmpPath & "\ftpput.txt" s..
카테고리 없음 2012. 3. 31. 22:26
서식 만들기 자동화(VBA)

personal.xlsb에 코드를 넣으면 모든 엑셀 파일에서 아래 메크로를 사용할 수 있다. Sub 출입기록_서식_만들기() ' ' 출입시간 위반자 프린트하기 위한 레이아웃 자동 설정. ' 레코드수 = Sheets(1).Range("A1").CurrentRegion.Rows.Count ' 시간 순으로 정렬 Range("A2").Select With ActiveWorkbook.Worksheets(1).Sort .SortFields.Clear .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange Range("A2:G" & 레코드수) .Header = xlNo ...
카테고리 없음 2011. 11. 13. 06:37
구글DNS에서 유튜브 IP주소를 얻어오는 VBScript

Info 임시파일 폴더(%temp%)에 youtube_dns.tmp라는 nslookup 쿼리를 저장합니다. youtube_dns.tmp파일은 자동으로 삭제되지 않습니다. 삭제하려면 직접 삭제하거나 임시파일 폴더를 청소하면 삭제할 수 있습니다. 모든 작업이 끝난 후 바탕화면에 youtube.txt파일을 생성합니다. 이 파일은 %windir%\System32\drivers\etc\hosts파일에 붙여 넣을 수 있는 형식으로 되어있습니다. 스크립트 실행파일의 첫줄의 strDNS를 다른 DNS서버 주소로 변경하면 그에 맞는 IP를 가져올 수 있습니다. 잘못된 주소를 넣으면 129번의 Cancel 버튼 또는 ESC키를 눌려야 할지 모릅니다. Google Public DNS p : 8.8.8.8 s : 8.8.4...
카테고리 없음 2010. 5. 29. 14:55
Prev 1 Next