[KIX] Printers hebben bij logon domein

[Kingskawn]

Ik heb een logonscript gemaakt in kixtart om iedereen toegang te geven tot de netwerkprinters in de OU die zitten op de server.

Het probleem is dat ik wanneer ik deze start met start.bat dan blijft hij steken op de laatste printer en uiteindelijk geen enkele printer installeert.
Wat kan de fout zijn?

Dit is de script


Dim $Print
Dim $Group

$root = GetObject("LDAP://Ou=hulk Printers,Ou=hulk Groups,DC=Hulkserv,DC=COM")
$PrintServer = "\\serv01.Hulkserv.com\"

For Each $object In $root

$Print = Split($Object.Name,"_")
$Group = Split($Object.Name,"=")

? $Group[1]
? $Print[1]

If InGroup ($Group[1])

If ADDPRINTERCONNECTION ($PrintServer + $Print[1])=0
? "Added printer " + $Print[1]
Endif

Endif
Next

[ Voor 9% gewijzigd door Kingskawn op 29-04-2005 16:55 ]

[Kingskawn]

Niemand die een beetje kix kent?

[zwippie]

Ik ken geen kix, maar je hebt de ene keer $object en daarna $Object met een hoofdletter dus. Maar zoals gezegd ken ik geen kix dus misschien is het wel hoodletterongevoelig.

[ Voor 10% gewijzigd door zwippie op 02-05-2005 15:48 ]

[Creepy]

We gaan er hier vanuit dat je in eerste instantie zelf aan het debuggen gaat. Een topic openen met daarin "wie weet er wat er fout gaat" zonder dat je aangeeft wat je nu zelf al hebt geprobreerd om het op te lossen is hier not done.

Dus: Wat heb je nu zelf al geprobreerd? Wat lukte daar niet mee?

[NMe]

Verder, zoals ik je al eerder verteld heb: gebruik [code]-tags als je code post. Nou gaat het bij deze kleine hoeveelheid code nog wel, maar het is echt vervelend lezen zo.

[qwertyuiop]

Het zou kunnen zijn dat deze niet benadert kan worden omdat deze aan een computer gekoppeld zit (LPT/ USB). Dat kwam ik wel eens tegen.

[Verwijderd]

qwertyuiop schreef op maandag 02 mei 2005 @ 16:12:
Het zou kunnen zijn dat deze niet benadert kan worden omdat deze aan een computer gekoppeld zit (LPT/ USB). Dat kwam ik wel eens tegen.

Dit zou geen verschil mogen maken, het is nl op een compleet andere laag (usb/lpt driver vs. windows sharing).

Ik ben sowieso geen KIX kenner, omdat "ik" het te omslachtig vind werken. Alles wat KIX kan doen kan ik ook met DOS, dus waarom dubbel op? Goeie GPO struktuur icm normale (dos based) loginscript werken voor mij altijd. Icm het programmatje con2prt van MS kan je makkelijk printers toevoegen. Ik heb zonder veel moeite een systeem gemaakt dat je zelfs computers in een OU hangt (bijvoorbeeld een verdieping), en dat hij adhv de OU een default printer kiest (zonder het printer localisation system, wat dus met subnets werkt -> aparte dhcp servers OF macadressen hardcoden in je dhcp, iets wat je niet wil doen voor een groot bedrijf).
^{Er wel van uit gaande dat er een NT (2k/xp) versie van Windows draait, en geen DOS versie (9x).}

[ Voor 6% gewijzigd door Verwijderd op 02-05-2005 17:37 ]

[Remco]

Ik weet niet of het per se met kix moet, maar deze gebruiken wij vaak, compinatie van vbscript en wsh.

Visual Basic:

if Memberof("PrinterOC6e") then 
  MapPrinter strLogonServer & "\OCE6e", "OCE 2200 6e Etage"
end if

if Memberof("administrators") then 
  oWSHNetwork.SetDefaultPrinter strLogonServer & "\OCE6E"
end if

Function GetGroups

Dim oUser, oGroup
  on Error Resume Next
  Set oUserGroups = CreateObject("Scripting.Dictionary")
  oUserGroups.CompareMode = vbTextCompare
  'use ADSI WINNT provider for simplicity
  Set oUser = GetObject("WinNT://" & strLogonDomain & "/" & strUser & ",user")
  For Each oGroup In oUser.Groups
   oUserGroups.Add oGroup.Name, "-"
  Next
  Set oUser = Nothing
  if Err.number then 
    Getgroups=false
  else
    Getgroups=true
  end if
End Function 'Getgroups

Function MemberOf(strName)
 MemberOf = CBool(oUserGroups.Exists(strName))
End Function 'memberoff

Sub MapPrinter(strPrinter,strDescription)
on error resume next
  owshNetwork.AddWindowsPrinterConnection strPrinter
  if Err.number then 
    NonFatalError("<FONT COLOR=#FF6666>ERROR! Printer" & strPrinter & "is niet toegevoegd" & Err.number & ":" & Err.Description & "</font>")
    Err.clear
  else
    writeoutput "Printer" & strPrinter & " (" & strDescription &  ") is toegevoegd " 
  end if
end sub

[arjants]

Uit de readme van Kix:


ADDPRINTERCONNECTION
Action
Adds a connection to the specified printer for the current user.

Syntax
ADDPRINTERCONNECTION ("printer name")

Parameters
Printer name
The (share)name of the printer to which to connect.

Remarks
This function is available only on Windows NT or higher, and can be used only to connect to printers on a server running under Windows NT or higher.

When Windows NT connects to the printer, it may copy printer driver files to the local computer. If the user does not have permission to copy files to the appropriate location, ADDPRINTERCONNECTION fails, and @ERROR returns ERROR_ACCESS_DENIED.

Returns
0 Printer connection established
Error code Function failed

Example

code:

If ADDPRINTERCONNECTION ("\\vleerbeer\hp laserjet 4") = 0
   ? "Added printer connection...."
Endif

Weet je zeker dat de printer (share)naam compleet goed getypt is incl. hoofdletters?
Deze moet namelijk compleet gelijk zijn aan de sharenaam van de printer op de server.
(voor de zekerheid neem ik meestal een korte naam zonder spaties)