|
Thanks a lot - I really appriciate all of your help.
I am dropping the plan for mapping the printers for w95/98. However, I would like to know get some feedback from you guys for the following script. Specially I need to know if I need to delete the printer mapping before it map for Windows NT and up , I do not know how to delete the printer so please let me know the commands for that.
; Print Mapping IF InGroup("Sales") $null=AddPrinterConnection("\\myt-1001\HP-sales") ;$null=AddPrinterConnection("\\myt-1001\HP-sales-01") ;$null=SetDefaultPrinter("\\myt-1001\HP-sales") ? "Added printer connection.........." ENDIF -------------------------- Original Script:--------------------- md "\\myt-1001\home\@userid" USE p: /DELETE USE p: "\\myt-1001\@USERID$"
IF @inwin GOSUB nt ELSE GOSUB win95 ENDIF :end ? "script completed" EXIT
:nt IF %type% = "server" RETURN ENDIF
IF RedirectOutput("\\Myt-1001\Users\LoginLogs\@WKSTA.log", 1) = 0 ? "Opened '\\myt-1001\Users\LoginLogs\@WKSTA.log' "+@time ENDIF
? "ERRORS ARE " +@error " WHICH MEANS " + @serror ? ; Print Mapping IF InGroup("Sales") $null=AddPrinterConnection("\\myt-1001\HP-sales") ;$null=AddPrinterConnection("\\myt-1001\HP-sales-01") ;$null=SetDefaultPrinter("\\myt-1001\HP-sales") ? "Added printer connection.........." ENDIF
IF InGroup("Marketing") $null=AddPrinterConnection("\\myt-1001\HP-marketing") ;$null=AddPrinterConnection("\\myt-1001\HP-marketing-01") ;$null=SetDefaultPrinter("\\myt-1001\HP-marketing") ? "Added printer connection.........." ENDIF
IF InGroup("Sales") USE N: /delete /persistent USE N: "\\myt-1001\Sales" ENDIF
IF InGroup("Marketing") USE Y: /delete /persistent USE Y: "\\myt-1001\marketing" ENDIF RETURN ; Windows 95 Share Mapping
:win95 IF INGROUP ("myt\sales") ;$t = "Connecting drive I:" GOSUB text USE i: /DELETE USE i: "\\myt-1001\sales" ENDIF ;IF RedirectOutput("\\MYT-1001\Users\LoginLogs\@WKSTA.log", 1) = 0 ;? "Opened '\\Gfclnt03\Users\LoginLogs\@WKSTA.log' "+@time ;ENDIF
;? "ERRORS ARE " +@error " WHICH MEANS " + @serror ;?
IF INGROUP ("myt\marketing") ;$t = "Connecting drive I:" GOSUB text USE i: /DELETE USE i: "\\myt-1001\marketing"
GOSUB debug RETURN
|