Heh.. yeah. I know. No one wants to go to a domain, they like micromanaging each individual computer. The job I left to come here.. heh.. 8 locations, all on Win2k/2k3 domains, everything worked nice, only had the usual bigger issues that required work.
I come here.. I spend more time mapping network drives, installing printers, setting up Lotus Notes, and figuring out why people can't connect to a server because they have a password for 1) Windows Logon, 2) Lotus Notes, 3) As400 Session, 4) Other AS400 Logons for other locations.
I swear, every user has at least 4 passwords.. They're all 3 characters, 3 numbers.. I have an entire database of everyone's password. Why? Because my boss likes having that kind of control I guess.
You know what's even better? Everytime someone wants to change seats or computers, I have to go in and set up a local account on the computer. If someone's computer dies, I have to set them up on another computer.
I think everyone realizes how much BS this is and how dumb this place it setup except for my boss.
Anyhow.. here's the basic script that I'll basically email to people and tell them to double click on to map their drives.. It'll eventually map all drives, select ones will be denied/allowed by security on the server though..
On Error Resume Next
strComputer = "."
Set objShell = Wscript.CreateObject("Wscript.Shell")
Set colSystemEnvVars = objShell.Environment("System")
Set colUserEnvVars = objShell.Environment("User")
Set objNetwork = Wscript.CreateObject("Wscript.Network")
'----- Get user name, computer name, and left 3 characters of computer name -----
samUser = objNetwork.UserName
computerName = objNetwork.ComputerName
computerName2 = Left(computerName,3)
'----- Check for first three characters of computer name -----
If computerName2 = "MAU" Then
dim objNet, objNet1
Set objNet = CreateObject("Wscript.Network")
objNet.MapNetworkDrive "X:","\\it-2003\everyone"
objNet.MapNetworkDrive "W:","\\it-2003\%username%"
objNet.MapNetworkDrive "y:","\\it-2003\projects"
StrMsg="Network Drives Mapped!"
Riser