Daveinholland

Forum Replies Created

Viewing 10 posts - 31 through 40 (of 40 total)
  • Author
    Posts
  • in reply to: Error access denied in script #290952

    Re: Error access denied in script

    Thanks marcel this helps me!

    in reply to: Subnetting #290951

    Re: Subnetting

    Ah thx a lot.

    I was wondering do you also know a great article about vlsm?

    in reply to: Error access denied in script #290950

    Re: Error access denied in script

    And for strDefprinter I substitute that for printer1? I don’t know what strDefprinter refers to.

    So How would I say “printername1” in the script has to go to teh sales group.

    “printername2” to support.

    Maybe you already gave the answer but I don’t really get it yet.

    thx a lot for replying

    David

    in reply to: Error access denied in script #290949

    Re: Error access denied in script

    Hi

    Thanks a lot. Yes this turned out to be the problem thanks a lot. Maybe another question to you. How can I set the default printer per department in teh script? So let’s say I want to use printer 1 for sales printer 2 for helpdesk?

    in reply to: error with synchronising offline files #290948

    Re: error with synchronising offline files

    Thx jeremy and also you Marcel that was it!

    in reply to: Default printer is not retained in windows xp #290947

    Re: Default printer is not retained in windows xp

    Hi Marcel,

    yeah I definitely have, I will try your suggestion. May I ask what the difference is?

    Kind regards

    David

    in reply to: error with synchronising offline files #290946

    Re: error with synchronising offline files

    Hoi thx for answering,

    All the permissions are set when I check the share. On a different pc it works fine under the same user account. Could it be that I simply need to delete the offline files and synchronise again?

    Kind regards,

    David

    in reply to: Default printer is not retained in windows xp #290945

    Re: Default printer is not retained in windows xp

    Hi there,

    No the profiles are all local, but for some reason when a user sets his default printer to a different one, it switches back again.

    in reply to: Default printer is not retained in windows xp #290944

    Re: Default printer is not retained in windows xp

    Dim objShell, processEnv, logonServer, colSysEnvVars, strDefPrinter, PrinterPath, WshNetwork, rc

    Set objShell = WScript.CreateObject(“WScript.Shell”)
    Set processEnv = objShell.Environment(“Process”)
    Set colSysEnvVars = objShell.Environment(“SYSTEM”)

    strDefPrinter = “\Serverdc1” + colSysEnvVars(“Def_Printer”)
    logonServer = processEnv(“LogonServer”)
    Set WshNetwork = WScript.CreateObject(“WScript.Network”)

    If WshNetwork.ComputerName = “server3” Then
    Else
    If (LCase(Left(logonServer, 5)) = “\serv”) Then

    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer10”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer9”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer20”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer1”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer2”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer3”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer4”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer5”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer6”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer7”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer8”)

    If Len(strDefPrinter) 12 Then
    WshNetwork.SetDefaultPrinter strDefPrinter
    End If
    End If

    If (LCase(Left(logonServer, 5)) = “\ser”) Then
    ‘ Here the server2 printers
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer11”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer12”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer13”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer14”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer15”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer16”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer17”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer18”)
    End If
    End If

    in reply to: Default printer is not retained in windows xp #290943

    Re: Default printer is not retained in windows xp

    Hi,

    This is the script. I just modified teh names. Is the mistake here somewhere??

    Dim objShell, processEnv, logonServer, colSysEnvVars, strDefPrinter, PrinterPath, WshNetwork, rc

    Set objShell = WScript.CreateObject(“WScript.Shell”)
    Set processEnv = objShell.Environment(“Process”)
    Set colSysEnvVars = objShell.Environment(“SYSTEM”)

    strDefPrinter = “\Serverdc1” + colSysEnvVars(“Def_Printer”)
    logonServer = processEnv(“LogonServer”)
    Set WshNetwork = WScript.CreateObject(“WScript.Network”)

    If WshNetwork.ComputerName = “server3” Then
    Else
    If (LCase(Left(logonServer, 5)) = “\serv”) Then

    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer10”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer9”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer20”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer1”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer2”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer3”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer4”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer5”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer6”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer7”)
    WshNetwork.AddWindowsPrinterConnection(“\Server1dc1printer8”)

    If Len(strDefPrinter) 12 Then
    WshNetwork.SetDefaultPrinter strDefPrinter
    End If
    End If

    If (LCase(Left(logonServer, 5)) = “\ser”) Then
    ‘ Here the server2 printers
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer11”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer12”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer13”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer14”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer15”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer16”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer17”)
    WshNetwork.AddWindowsPrinterConnection(“\server2dc1printer18”)
    End If
    End If

Viewing 10 posts - 31 through 40 (of 40 total)