CARA: Secara pemrograman membuat Printer dan Printer Port dengan menggunakan PrinterAdmin (Prnadmin.dll) dengan Visual Basic Script di Microsoft Windows 2000

Artikel ini selangkah demi selangkah menjelaskan bagaimana pemrograman Buat printer dan printer port menggunakan alat PrinterAdmin (Prnadmin.dll) dan Visual Basic script di Microsoft Windows 2000.

Ikhtisar dari Prnadmin.dll

PrinterAdmin tersedia di Microsoft Windows 2000 sumber daya Kit. Ini adalah alat berbasis Component Object Model COM yang administrator dapat menggunakan untuk mengelola printer, driver, dan port di Windows lokal dan remote komputer berbasis 2000. PrinterAdmin menyediakan skala besar, non-interaktif kontrol printer melalui penggunaan script. Anda dapat juga membuat Anda sendiri skrip atau memodifikasi salah satu contoh skrip yang tersedia di PrinterAdmin untuk melakukan tugas berikut:

• Tambahkan dan Hapus printer.
• Menambahkan dan menghapus pengandar printer.
• Menambahkan dan menghapus printer port.
• Menambahkan dan menghapus bentuk.
• Melihat daftar printer, pelabuhan, driver, dan bentuk pada komputer tertentu.
• Kontrol dan mengkonfigurasi printer.
• Cetak halaman uji.
• Klon server cetak.

Contoh Visual Basic script di artikel ini menunjukkan cara menggunakan Prnadmin.dll untuk jarak jauh menambahkan printer dan printer port pada Windows komputer berbasis 2000. Script melakukan tugas berikut:

• Membuat port baru pada komputer klien. Dalam contoh ini, pelabuhan poin ke folder C:\MyFolder\MyPort pada komputer keras disk.
• Menginstal printer yang menggunakan port baru pada klien komputer.
• Menciptakan folder C:\MyFolder pada komputer klien sulit disk (di mana untuk menyimpan dokumen yang dikirim ke printer baru).

Bagaimana menambahkan Printer dan Printer Port dengan menggunakan Prnadmin.dll dengan Visual Basic Script

1. Jalankan Notepad, dan kemudian buka file teks baru.
2. Salin dan sisipkan baris berikut ke file teks:
   
   CATATAN: Untuk menggunakan Prnadmin.dll, itu harus terdaftar pada klien komputer. Script register Prnadmin.dll dari lokasi di server. Pastikan bahwa Anda mengubah \\Servername\Foldername jalan yang benar untuk Prnadmin.dll file pada server Anda.

   
   '******** Register prnadmin.dll file on client computer *******
   
   Set WshShell = Wscript.CreateObject("Wscript.Shell")
   
   WshShell.Run "regsvr32 /s \\ServerName\FolderName\Prnadmin.dll",1,TRUE
   
   '************** Create the port first *******************************
   
   dim oPort
   
   dim oMaster
   
   set oPort = CreateObject("Port.Port.1")
   
   set oMaster = CreateObject("PrintMaster.PrintMaster.1")
   
   oPort.PortName = "C:\MyFolder\MyPort"
   
   oPort.PortType = 3
   
   oMaster.PortAdd oPort
   
   if Err <> 0 then
   
   msgbox "There was an error creating the port."
   
   end if
   
   '********************************************************************
   
   '************** Create the printer second ***************************
   'Change MyPrinter to the name of the printer that you are adding.
   'Change PrinterDriver to the name of the printer driver that you are adding.
   
   
   dim oPrinter
   
   set oPrinter = CreateObject("Printer.Printer.1")
   
   oPrinter.PrinterName = "MyPrinter"		' name of the printer as it appears in the Printers folder
   
   oPrinter.DriverName = "PrinterDriver"		' name that is referenced in ntprint.inf
   
   oPrinter.PortName = "C:\MyFolder\MyPort"		' Specify a port name. Can also point to LPT or COM port.
   
   oMaster.PrinterAdd oPrinter
   If Err <> 0 then
   
   msgbox "There was an error creating the printer."
   
   end if
   
   '********************************************************************
   
   '************** Create the directory third ***************************
   
   Dim filesys
   
   Set filesys = wscript.createobject("Scripting.FilesystemObject")
   
   filesys.CreateFolder "C:\MyFolder\"			' Create a folder as a repository for the faxes.
   
   If Err <> 0 then
   
   msgbox "There was an error creating the MyFolder folder."
   
   end if
   
   '********************************************************************
   
   msgbox "The script is finished."
   
   					

3. Menyesuaikan script (yang diperlukan) untuk memenuhi Anda persyaratan.
4. Pada Berkas menu, klik Simpan sebagai. Ketik nama script Nama file kotak dengan menggunakan .vbs file ekstensi nama (misalnya,MyPrinter.vbs), menentukan lokasi di mana Anda ingin Simpan file, dan kemudian klik Simpan.
   
   CATATAN: Membuat yakin bahwa Anda menyertakan tanda kutip ("") ketika Anda Ketik nama file. Tindakan ini menciptakan file dengan nama file .vbs ekstensi.
5. Keluar Notepad.
6. Menyebarkan skrip untuk pengguna komputer.
   
   Ketika skrip dijalankan, sebuah pelabuhan yang baru dibuat, printer terpasang, dan printer muncul di folder printer komputer klien.

Untuk informasi lebih lanjut tentang alat PrinterAdmin, lihat Prnadmin.doc file yang tersedia pada Windows 2000 Resource Kit. The Berkas Prnadmin.doc terletak di map Files\Resource Program Kit (jika Resource Kit Windows 2000 diinstal ke lokasi default).

Untuk informasi lebih lanjut tentang Resource Kit Windows 2000, kunjungi berikut Microsoft Web site: Untuk tambahan informasi tentang cara untuk menambahkan default printer dengan menggunakan Visual Basic script, klik nomor artikel di bawah ini untuk melihat artikel dalam Pengetahuan Microsoft Base: Untuk informasi tambahan tentang cara bermigrasi konfigurasi server cetak antara Windows NT 4.0 dan Windows 2000 komputer, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft: