Script til at vælge printer

Måske sådan her:

Dim strComputer : strComputer = "."
Dim objWMI : Set objWMI = GetObject("winmgmts:")
Dim colSettingsComp : Set colSettings = objWMI.ExecQuery("Select * from Win32_ComputerSystem")
Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")


For Each objItem in colSettings
  strComputerSystem_Name = objItem.Name
Next

msgbox strComputerSystem_Name

If lcase(strComputerSystem_Name) = lcase("xxx") Then
objNetwork.AddWindowsPrinterConnection "\\printserver\yyy"
Else
objNetwork.AddWindowsPrinterConnection "\\printserver\zzz"
objNetwork.AddWindowsPrinterConnection "\\printserver\www"
End If

Set objNetwork = Nothing
Set colSettings = Nothing
Set objWMI = Nothing

Lige et par rettelser.
\\printserver\zzz osv skal selvfølgelig erstattes med navnet på serveren hvor printeren er installeret og sharenavnet på printeren og ellers skal scriptet se sådan ud:

On Error Resume Next

Dim strComputer : strComputer = "."
Dim objWMI : Set objWMI = GetObject("winmgmts:")
Dim colSettingsComp : Set colSettings = objWMI.ExecQuery("Select * from Win32_ComputerSystem")
Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")


For Each objItem in colSettings
  strComputerSystem_Name = objItem.Name
Next

If lcase(strComputerSystem_Name) = lcase("xxx") Then
objNetwork.AddWindowsPrinterConnection "\\printserver\yyy"
Else
objNetwork.AddWindowsPrinterConnection "\\printserver\zzz"
objNetwork.AddWindowsPrinterConnection "\\printserver\www"
End If

Set objNetwork = Nothing
Set colSettings = Nothing
Set objWMI = Nothing

Hey !
Da network-objektet alligevel benyttes, kan du lige så godt bruge det til, at finde navnet på computeren også. Det går lidt hurtigere, og giver et lidt mindre script :o)

set network = wscript.createobject("wscript.network")
cpunavn = lcase(network.computername)
If cpunavn = lcase("xxx") Then
objNetwork.AddWindowsPrinterConnection "\\printserver\yyy"
Else
objNetwork.AddWindowsPrinterConnection "\\printserver\zzz"
objNetwork.AddWindowsPrinterConnection "\\printserver\www"
End If
Set objNetwork = Nothing
Set colSettings = Nothing
Set objWMI = Nothing

Ja da...
jeg er forholdvis ny i vbscript så det er rart at få en kommentar:-)

Hehe .. Har selv været der en gang :o)
Men der er egentlig ikke noget galt med det, du gør.
Det er bare en smule langsommere, og mere tastearbejde ;)

/Killer

Points

Points