tilføj printer ud fra maskinnavn

Hej
Kører du i et windows miljø med AD, kunne du jo oprette en Gruppe med computernavne og så tildeleprinter udfra Gruppenavnet.

en lille snas..


Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 to oPrinters.Count - 1 Step 2
    'WshNetwork.RemovePrinterConnection oprinters.item(i+1) 'Slet printerene (alle)
next i   

Set oSI = CreateObject("ADSystemInfo")
DomainString = oSi.DomainShortName
strComputer = oSI.ComputerName
Set ComputerObj = GetObject("LDAP://" & strComputer)
For Each GroupObj in ComputerObj.Groups
    select case ucase(groupobj.name)
        case "CN=Printer 1"  'Hvor "Printer 1" er navnet på gruppen
          WshNetwork.AddWindowsPrinterConnection "\\<printservernavn>\<printernavn1>"
          WshNetwork.setdefaultPrinter "\\<printerservernavn>\<printernavn1>"  'sætter printeren som default
          WshNetwork.AddWindowsPrinterConnection "\\<printservernavn>\<printernavn1a>"
        case "CN=Printer 2"
          WshNetwork.AddWindowsPrinterConnection "\\<printservernavn>\<printernavn2>"

        case "CN=Printer 3"
          WshNetwork.AddWindowsPrinterConnection "\\<printservernavn>\<printernavn3>"

        case "CN=Printer 4"
          WshNetwork.AddWindowsPrinterConnection "\\<printservernavn>\<printernavn4>"

    End Select
Next

Hej thygelarsen
Dejligt med en reaktion, havde næsten opgivet det.
Din kommentar ser godt ud, bringer mig et stykke af vejen - men ikke helt. Jeg ved godt at jeg kan gruppere computernavnene i AD, men jeg vil helst have at det hele foregår i scriptet, da vi har et externt firma til at vedligeholde AD. Vi er en del af et større netværk. Jeg vil derfor helst have at maskinerne grupperes i scriptet. Kan du også hjælpe med det, så vil det være helt perfekt

Ok , du har jo computernavent (maskinenavnet)i env. så du kan bruge :

Set WshNetwork = WScript.CreateObject("WScript.Network")
strcomputernavn = Wshshell.computername
Select case strcomputernavn
  case  "maskine1","maskine2","maskine3"
    WshNetwork.AddWindowsPrinterConnection "\\<printservernavn>\<printernavn1>"
  case  "maskine4","maskine5","maskine6"
    WshNetwork.AddWindowsPrinterConnection "\\<printservernavn>\<printernavn2>"
end select

og så kan du selvfølgelig indføje "setdefaultprinter..." hvor det måtte være nødvendigt.

Det ser godt ud. Nu har jeg ikke meget erfarig i vb-script, men kan man ikke sætte maskinerne ind i er array, og så henvise til dette array i case sætningen? Tilsvarende kunne man vel også gruppere printerne i et område i et array og så henvise til dem i case sætningen. Kan du hjælpe her? :O)

Joe man kan godt bruge array's men disse array's skal jo først "fyldes" med maskinenavn.

Hvor mange maskiner snakker vi om ?

Der er tale om ca. 90 maskiner

ups det var en fejl at dit svar blev afvist. Læg venligst et nyt - så du kan få dine velfortjente point.
Kan du give mig strukturen hvis der jeg vil anvende et array?

lukker