윈 도 우 설치된 기본프린터 확인 및 테스트페이지 인쇄 vbscript

2020.01.14 12:46

레마클로 조회:1304 추천:22

컴퓨터 수리업을 접은 지 5년 되어가네요.

업자분 들 필드에서 이용하실 수 있는 자료 들 틈나는 대로 올려 보겠습니다.

 

 

설치된 기본프린터 확인 및 테스트페이지 인쇄

윈도10 에서 저도 사용중입니다.

 

스크립트 시작

 

'--------------

If WScript.Arguments.length =0 Then

  Set objShell = CreateObject("Shell.Application")

  objShell.ShellExecute "wscript.exe", Chr(34) & _

  WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1

Else

'--------------

 

Dim objWMIService, colProcessList, objShell, objFSO, outFile

Set objShell = WScript.CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject") 

curDir = objfso.GetParentFolderName(WScript.ScriptFullName) 

Set outFile = objFSO.CreateTextFile(curDir & "\DefPRNprint.cmd", True)

 

outFile.WriteLine "@echo off"

outFile.WriteLine "pushd %~dp0"

outFile.WriteLine "setlocal"

outFile.WriteLine "for /f ""tokens=2*"" %%a in ('reg query ""HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows"" /v Device') do (set DefPRN1=%%b)"

outFile.WriteLine "for /f ""tokens=1 delims=,"" %%a in (""%DefPRN1%"") do set DefPRN=%%a"

outFile.WriteLine "start RUNDLL32 PRINTUI.DLL,PrintUIEntry /k /n ""%DefPRN%"""

outFile.WriteLine "endlocal"

outFile.Close

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters =  objWMIService.ExecQuery _

 ("Select * from Win32_Printer Where Default = TRUE")

 

For Each objPrinter in colInstalledPrinters

x=msgbox("★ 기본 프린터 : " & objPrinter.Name & "  ★" +vbCrLf+ "" +vbCrLf+ "            [  테스트 페이지를 인쇄할까요?  ]", 4, "기본 프린터 확인 & 테스트 페이지 인쇄")

Next

If x = VbYes Then

objShell.Run chr(34) & curDir & "\DefPRNprint.cmd" & Chr(34), 0, True

objFSO.DeleteFile(curDir & "\DefPRNprint.cmd")

Else

objFSO.DeleteFile(curDir & "\DefPRNprint.cmd")

Wscript.Quit

End If

End If

 

스크립트 끝

 

###  copy & paste ---> 메모장( .vbs , 모든파일로 저장) 으로 만드시면 됩니다.

 
번호 제목 글쓴이 조회 추천 날짜
[공지] 강좌 작성간 참고해주세요 gooddew - - -
3604 윈 도 우| 볼륨,소리 조절 nircmd.exe 이용 (vbscript) new 레마클로 70 0 02:00
3603 윈 도 우| 기본 프린터 확인 및 테스트 페이지 인쇄 batch script [5] new 컨피그 177 5 01-19
3602 윈 도 우| backup2VHD & 토글스위치(수정) [7] 레마클로 852 11 01-17
3601 윈 도 우| 자료 mover(파일 첨부) [11] 레마클로 1661 19 01-16
3600 윈 도 우| 저장공간 확인 및 정리 [16] 레마클로 1895 14 01-15
» 윈 도 우| 설치된 기본프린터 확인 및 테스트페이지 인쇄 vbscript [19] 레마클로 1304 22 01-14
3598 윈 도 우| 마이크로소프트 윈도우 라이선스 정리 [6] gooddew 3319 13 01-11
3597 소프트웨어| SearchPreview - 웹 사이트의 미리보기 이미지 - Firefox... VenusGirl 853 2 01-06
3596 윈 도 우| PE 부팅 파티션 만들기 (legacy) [12] gooddew 2225 13 01-05
3595 기 타| Manjaro 리눅스 - 처음 설치 기본 가이드 [2] VenusGirl 902 2 01-05
3594 소프트웨어| 배치파일 사용자 설정 파일 구현하기 [4] 히이이잌 1547 8 01-01
3593 소프트웨어| 데이터 영구 삭제 [6] gooddew 2099 6 01-01
3592 소프트웨어| 기상 정보-Forecastfox - Firefox+Google Chrome용 부가 ... [2] VenusGirl 971 9 12-31
3591 하드웨어| BIOS, CMOS, UEFI 는 무엇인가? [15] gooddew 2533 18 12-31
3590 윈 도 우| [UEFI] 부팅 PE 파티션 설치하기 [16] gooddew 3161 25 12-28
3589 기 타| elementary OS 5.1 Hera 설치 초보자 가이드 [1] VenusGirl 1185 3 12-27
3588 소프트웨어| Total Commander 용 클라우드 플러그인 [6] VenusGirl 1313 11 12-24
3587 윈 도 우| 그림으로 보는 복원영역 만들기 [48] 디폴트 4031 37 12-22
3586 모 바 일| 갤럭시s10 카메라 간단한 필수팁 [5] ton3d 2616 6 12-14
3585 윈 도 우| 초보자도 따라하는 전화 인증 [6] gooddew 4110 11 11-23
XE1.11.6 Layout1.4.8