Dopher
asked on
Could someone tell me what this vb script does? Thanks!
' Start of Script
strOldPServ = "FL-Print1"
strNewPServ = "FL-File01"
strOldFServ = "FL-File1"
strNewFServ = "FL-File01"
strMessageLog = "Changing Printers Mappings from " & strOldPServ & " to " & strNewPServ & vbcrlf & _
"Changing Mapped Drives from " & strOldFServ & " to " & strNewFServ & vbcrlf
Set objNetwork = CreateObject("WScript.Netw
Set objPrinters = objNetwork.EnumPrinterConn
For i = 0 to objPrinters.Count - 1 Step 2
strPrinter = objPrinters.Item(i+1)
If Left(strPrinter, 2) = "\\" Then
strPrinter = Replace(strPrinter,"\\",""
PrinterArray = Split(strPrinter,"\")
PrintServer = PrinterArray(0)
Printer = PrinterArray(1)
If LCase(PrintServer) = LCase(strOldPServ) Then
objNetwork.RemovePrinterCo
strMessageLog = strMessageLog & "Removed: " & objPrinters.Item(i+1) & vbcrlf
strNewPrinter = "\\" & strNewPServ & "\" & Printer
objNetwork.AddWindowsPrint
strMessageLog = strMessageLog & "Added: " & strNewPrinter & vbcrlf
End if
End If
Next
Set aryMapDrives = objNetwork.EnumNetworkDriv
For i = 0 to aryMapDrives.count -1 Step 2
strDriveLtr = aryMapDrives(i)
strDrivePath = aryMapDrives(i + 1)
strDrivePath = Replace(strDrivePath,"\\",
aryDrivePath = Split(strDrivePath, "\", 2)
FileServer = aryDrivePath(0)
Path = aryDrivePath(1)
If LCase(FileServer) = LCase(strOldFServ) Then
objNetwork.RemoveNetworkDr
strMessageLog = strMessageLog & "Removing: " & strDriveLtr & vbcrlf
strNewPath = "\\" & strNewFServ & "\" & Path
objNetwork.MapNetworkDrive
strMessageLog = strMessageLog & "Mapping: " & StrDriveLtr & " to " & strNewPath
End If
Next
msgBox strMessageLog,,"Florida Rollover Script"
' End of Script
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
You're welcome,,,
and thanks for the grade!
Lynn
and thanks for the grade!
Lynn
ASKER