Logonscript windows2000 problemer

[jacoweb]

Hei!

Noen som har peiling på logonscript her? Problemer med å mappe opp en del nettverks skriver.

 

har prøvd følgende:

net use 1lp1: \\server\Printer

 

Det funker ikke. Noen som vet hvorfor?

[BKB]

nå er ikke jeg helt inne på logonscript men må det ikke knyttes til et "Drive letter"?

Feks:

net use Z: \\server\printer

[klumpen]

For å koble opp en skriver via login script så kan du bruke dette.

rundll32 printui.dll,PrintUIEntry /in /q /n "\\SERVER\printer

[Superslask]

Her legger vi til printere via et vb script som kjøres fra login.bat som legger inn printer avhengig av hva maskinen heter. (Slipper å legge inn i image f.eks.)

Scriptet henter info om datamaskiner fra en tekstfil.

 

; ### Rom A304 ###
\\elevfs2\Biofys,maskin1
\\elevfs2\Biofys,maskin2
\\elevfs2\Biofys,maskin3
\\elevfs2\Biofys,maskin4
\\elevfs2\Biofys,maskin5

Slik er et eksempel fra tekstfila. Den viser til printeren ( \\elevfs2\biofys ) og så slenger du på maskinnavnet etter der. (maskin1 etc)

 

 

 

Option Explicit
Dim oFSO, oNet
Dim sPrintersListFile, oPrintersList, sText
Dim sPrinter, sPCName
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oNet = WScript.CreateObject("WScript.Network")
sPrintersListFile = "\\elevfs2\netlogon\printers.txt"
Set oPrintersList = oFSO.OpenTextFile(sPrintersListFile)
Do While Not oPrintersList.AtEndOfStream
 sText = Trim(oPrintersList.ReadLine)
  If sText<>"" Then
   If Left(sText,1) <> ";" Then
    sPrinter = Mid(sText,1,(InStr(sText,",")-1))
    sPCName = Right(sText,Len(sText)-(instr(sText,",")))
    If UCase(sPCName) = UCase(Trim(oNet.ComputerName)) Then
     oNet.AddWindowsPrinterConnection sPrinter
    End If
   End if
  End If
Loop

Koden i VB scriptet.

Legg merke til "\\elevfs2\netlogon\printers.txt" det er der txt fila med printere og maskinnavn ligger, den må du bytte ut. Vb scriptet kjøres selvfølgelig fra login.bat fila.

 

 

Scriptet er fra gutta på Technet

Endret 15. desember 2005 av Dimensionx