Logon script

  • Thread starter Thread starter qq
  • Start date Start date
Q

qq

Hi All,

I want to have a vbscript logon script for domain users. When they login
from client PCs, detect network printers, if it exist, then do nothing, if it
doesn't exist, then add it.

Can anybody help me out? Thanks.

My code is the following:

Option Explicit

Dim objNetwork, strNJQAPrinter1, strNJQAPrinter2, strNJQAPrinter3
Dim objPrinter, intDrive
Dim ExistPrinter1, ExistPrinter2, ExistPrinter3

strNJQAPrinter1 = "\\server\SHARP AR-M455N PCL6 "
strNJQAPrinter2 = "\\server\Zebra170XiIII Plus #2"
strNJQAPrinter3 = "\\server\Zebra170XiIIIPlus #3"

ExistPrinter1 = 0 'Set not exist printer1
ExistPrinter2 = 0 'Set not exist printer2
ExistPrinter3 = 0 'Set not exist printer3

' Create a network object
Set objNetwork = CreateObject("WScript.Network")
set objPrinter = objNetwork.EnumPrinterConnections

If objPrinter.Count = 0 Then
WScript.Echo "Warning: No Printers connected"
Else
WScript.Echo "Printer Count = " & objPrinter.Count
End IF

'Determine printer
For intDrive = 0 To (objPrinter.Count -1) Step 2

If objPrinter.Item(intDrive +1) = strNJQAPrinter1 Then
ExistPrinter1 = 1
End IF

If objPrinter.Item(intDrive +1) = strNJQAPrinter2 Then
ExistPrinter2 = 1
End IF

If objPrinter.Item(intDrive +1) = strNJQAPrinter3 Then
ExistPrinter3 = 1
End IF

Next

If ExistPrinter1 = 1 Then
WScript.Echo strNJQAPrinter1 & " is exist."
Else
objNetwork.AddWindowsPrinterConnection strNJQAPrinter1
WScript.Echo strNJQAPrinter1 & " is Not exist. Add it."
End IF

If ExistPrinter2 = 1 Then
WScript.Echo strNJQAPrinter2 & " is exist."
Else
objNetwork.AddWindowsPrinterConnection strNJQAPrinter2
WScript.Echo strNJQAPrinter2 & " is Not exist. Add it."
End IF

If ExistPrinter3 = 1 Then
WScript.Echo strNJQAPrinter3 & " is exist."
Else
objNetwork.AddWindowsPrinterConnection strNJQAPrinter3
WScript.Echo strNJQAPrinter3 & " is Not exist. Add it."
End IF

' Set the default printer now
objNetwork.SetDefaultPrinter strNJQAPrinter1


WScript.Quit

' End of printer script.
 
Back
Top