Search the Community

Hi everybody. I am sure by now we have all seen the exact same old boring print script a thousand times. You create a set of groups sharing the same name as your printers and add your machines to those groups. How ever, I felt that this basic boring print script was actually sub standard and that as a programmer I could whip up something with a lot more functionality. So with out further delay I present to you my Over Complicated Printer Logon script lets begin with a break down of how this print script is superior Logging: The ability to create a text log of what the print script is doing, perfect for debugging those irritating issues. Recursive Groups: When searching for printer groups, say if my machine is a member of a sub group or a sub sub sub group with a printer then it still gets the printer. Multiple Servers: Why map printers on 1 print server, when you can map printers on all your print servers. Exclusion Group: You can add a group that prevents the print script from making any changes to the computers printers. OU Group Printers: You can define a group using a named prefix in an ou container, any machine in this ou will search that group for printer groups too. Follow Me Printers: Not only can you define print groups by machine and ou but it will also search the logged in user for printer groups. Easy to understand config section built into the script, this is the one part you are allowed to change. Print Servers Group name to prevent printer changes Print group name prefix Delete local printers, yes or no Enable ou printer groups Prefix name of ou printer groups File path for logging (supports %USER% and %COMPUTER%). I do apologise, I am the absolute worst at explaining things, but if you have any questions just drop em below and i shall do my best to reply with an answer. Printer Script: Click here for the Gist on Github. Please keep note of the version number in the top comment as this will be used to track changes. The bar for printer scripts has now been raised! Thank you and Enjoy! - - - Updated - - - Reserved for change log.

I have to modify a script to create a folder on the desktop and share with everyone if it does not exist on a Windows 7 PC - No Domain. Here is the script, need help at bottom ======================================================= Set objShell = CreateObject("WScript.Shell") objComputer=objShell.ExpandEnvironmentStrings("%ComputerName%") IF Right(objComputer,3) = "000" Then Else strShortcut = objShell.SpecialFolders( "Desktop" ) & "\%username% Share.lnk" strShortcut = objShell.ExpandEnvironmentStrings(strShortcut) Set objLink = objShell.CreateShortcut( strShortcut ) objComputer=objShell.ExpandEnvironmentStrings("%ComputerName%") objServer=Left(objComputer,7) & "-000" objLink.Description = objShell.ExpandEnvironmentStrings("%username% Share") objLink.TargetPath = objShell.ExpandEnvironmentStrings("\\" & objServer & "\Users\%username%\Desktop\%username% Share") objLink.Save End If ======================================================= if "C:\Users\%username%\desktop\%username% Share" exits do nothing if not create the folder and share it with everyone read only ====================================================== The section directly above is what I need to add, anyone have a clue how to make this work?

Hi, I may be going completely mad but I've been trying to deploy Pcounter Popup using a vbs as Group Policy User Logon Script for some time and can't get it working! I created a vbs script which runs fine if I run it by double clicking but when I tried deploying it with Group Policy something odd started happening. I could see the icon in the task bar appear and then disappear. Trying to get to the bottom of the problem, I have pared back my script so it just runs the popup.exe from the c:\ drive and put in a message so that I can see the script has run. Now I can see that the script runs but when it closes, the application closes too . I then tried running a different app (notepad and then calculator), the same happens, script runs and when it closes, the app closes too. Does anyone have any idea what is wrong??

I HATE PRINTERS!!!!! They are like badly behaved children they never do as they are asked to do and always seem to cost lots of money and need feeding.... I am starting to get a little bit mad with a few of our printers as they don't seem to like being connected to, the clients won't connect most of the time and when they do, they never seem to let the pupils, only staff or admins. I have tried Batch, VBscript, Kix and group policy and all of the above are being a royal pain in the A$$. Anybody else having printer issues like this with Windows 7 clients and if so pleaseeeeee help!!!!! thanks guys

HI all i have Project to my college and i need help on some Scripts to Create 1000 User and make "share folder" with the User name for each User of them and set the permissions for it "user only one can see/read/write this Folder and + Administrator Account and make the user change the password at the First login I can't write Scripts i can read it only if any one help me with a specifically Scripts to do that not a lot of things and i can't understandably cheers

Hi Ive basically got a script that loads a power point from the network, copys it to C: and loops it until it detects the file has been modified with a newer version. At this point, the machine is restarted, it auto logs in, copys the new script to C:, replacing the old one and then plays it on a loop until it is revised again. I now want to expand that if possible so it could have 6 files (one for monday to friday and a master file). The master file would be the one it opens if it is the newest modification date, else it would open the relevant file per day. As it stands we have 18 VDUs in different areas of the academy with the below script running and im editing the PPT per day (the PPT is repeated weekly) to display relevant info for that area, however they want all 18 VDUs to display the same info on occasion. Any Ideas? On Error Resume Next WScript.sleep 120000 Const ppAdvanceOnTime = 2 ' Run according to timings (not clicks) Const ppShowTypeKiosk = 3 ' Run in "Kiosk" mode (fullscreen) Const ppAdvanceTime = 5 ' Show each slide for 10 seconds ' Open the two power point files to work with them. Set objFileSys = CreateObject("Scripting.FileSystemObject") Set CurrentPPT = objFileSys.GetFile("c:\presentations\FOXVDU01.pptx") Set NewPPT = objFileSys.GetFile("y:\presentations\FOXVDU01.pptx") ' Open the shell object for passing commands. Set objShell = CreateObject("WScript.Shell") Set objPPT = CreateObject("PowerPoint.Application") objPPT.Visible = True Set objPresentation = objPPT.Presentations.Open(currentPPT.Path) ' Apply powerpoint settings objPresentation.Slides.Range.SlideShowTransition.AdvanceOnTime = TRUE objPresentation.SlideShowSettings.AdvanceMode = ppAdvanceOnTime objPresentation.SlideShowSettings.ShowType = ppShowTypeKiosk objPresentation.Slides.Range.SlideShowTransition.AdvanceTime = ppAdvanceTime objPresentation.SlideShowSettings.LoopUntilStopped = True ' Run the slideshow Set objSlideShow = objPresentation.SlideShowSettings.Run.View Do Until Err <> 0 If NewPPT.DateLastModified > CurrentPPT.DateLastModified Then objPresentation.Close objFileSys.CopyFile NewPPT, CurrentPPT, True Set CurrentPPT = objFileSys.GetFile("c:\presentations\FOXVDU01.pptx") Set objSlideShow = objPresentation.SlideShowSettings.Run.View End If Loop objPresentation.Saved = False objPresentation.Close objPPT.Quit Thanks Steve