Printer Migration for Clients and Windows 2003 Server

September 29th, 2008

Migrating Printers from One server to the other can be a harmless process and here’s how!

First download “Windows Print Migrator 3.1″ usually found here if not google it

Open the printer migrator on your Old server ( The one you wish to transfer the printers from ) and Select the Action Menu then Backup

This will backup all your printers drivers , shares and names etc to a cab file

Open the printer migrator on your new server , and Action Menu then Restore. This now replicates the printer setup you had on your old server. All that needs to happen now is the clients need to readd the printers using the new server. This can be automated with this script saved as a .vbs and entered under a group policy for the OU

‘——————–8<———————-

‘ put in the server names here (keep the quotes!)
MovePrinters “oldserver”, “netservername”

‘ *********************************************
‘ Move printers to new server
‘ *********************************************
Sub MovePrinters(OldServer, NewServer)
‘ Loops through all network printers and moves all printers
‘ on “OldServer” to the same printername on “NewServer”.
dim WshNetwork, oPrinters, i, PrinterPath, DefaultPrinter, PrinterList

‘ Check that WSH version is new enough:
If CDbl(Replace(wscript.version,”.”,”,”)) < CDbl(5.6) Then
MsgBox “Automatic printer migration is not available for” & _
” this computer.” & vbCrLf & _
“Please migrate printers manually.” & vbCrLf & _
“The new printer server name is “”" & NewServer & “”"”, _
vbOKOnly + vbCritical, “Windows Scripting Host is too old”
wscript.quit 1
End If

Set WshNetwork = WScript.CreateObject(”WScript.Network”)
Set PrinterList = CreateObject(”Scripting.Dictionary”)

‘ Get the default printer before we start deleting:
DefaultPrinter = GetDefaultPrinter

‘ Get a list of printers to work with:
‘ (We cannot modify the collection while looping through it)
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 1 to oPrinters.Count Step 2
PrinterList.Add oPrinters.Item(i), “x”
Next ‘ i

‘ Loop through the printer list and migrate mathching ones:
For Each PrinterPath In PrinterList.Keys

If StrComp(ServerName(PrinterPath), OldServer, 1) = 0 Then
WshNetwork.RemovePrinterConnection PrinterPath, True, True
On Error Resume next
WshNetwork.AddWindowsPrinterConnection “\\” & NewServer & “\” & _
ShareName(PrinterPath)
‘If Err.Number = -2147023095 Then
‘ MsgBox “The printer “”" & ShareName(PrinterPath) & _
‘ “”" does not exist on server “”" & NewServer & “”".” & vbCrLf & _
‘ “The printer has been removed.”, vbOKonly + vbExclamation, _
‘ “Missing printer”
‘End If
On Error goto 0
End If
Next

‘Set the default printer:
If ServerName(DefaultPrinter) = OldServer Then
On Error Resume Next
WshNetwork.SetDefaultPrinter “\\” & NewServer & “\” & _
ShareName(DefaultPrinter)
‘If Err.Number = -2147352567 Then
‘MsgBox “Your default printer did not exist, and has been deleted.”, _
‘ vbOKonly + vbInformation, “Invalid default printer”
‘End If
On Error goto 0
End If
End Sub ‘ MovePrinters

Function GetDefaultPrinter()
‘ Returns the UNC path to the current default printer
Dim oShell, sRegVal, sDefault
Set oShell = CreateObject(”WScript.Shell”)
sRegVal = _
“HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device”
sDefault = “”
On Error Resume Next
sDefault = oShell.RegRead(sRegVal)
sDefault = Left(sDefault ,InStr(sDefault, “,”) - 1)
On Error Goto 0
GetDefaultPrinter = sDefault
End Function

Function ServerName(sPrinterPath)
Dim aPrinterPath
ServerName = “”
If Left(sPrinterPath, 2) = “\\” Then
aPrinterPath = Split(sPrinterPath, “\”)
ServerName = aPrinterPath(2)
End If
End Function

Function ShareName(sPrinterPath)
Dim aPrinterPath
ShareName = “”
If Left(sPrinterPath, 2) = “\\” Then
aPrinterPath = Split(sPrinterPath, “\”)
ShareName = aPrinterPath(3)
End If
End Function
‘——————–8<———————-

HP Proliant ML350 G5 - DVD Sata Drive dissapears upon fresh install of Windows 2003 Server

September 3rd, 2008

HP’s Proliant ML350 G5 has started shipping with a SATA dvd writer. Upon installation of Windows 2003 Server using the HP SmartStart disks , there is no DVD drive listed in Windows Device Manager , Windows

HP Proliant ML350 G5

Disk Management or under My Computer. This can be resolved by

-Shutting down the server

-Opening the case and locating the dip switches on the bottom right of the main board

HP Proliant ML350 G5

-Flicking up switch 6  ( Maintenance Switch )

- Powering up the server until it gets to the error screen ” Please put the maintenance switch to the off position”

- Power the server off , and as said ” put the maintenance switch to the off position” (Switch 6)

- Power up the server and you should have a DVD rom drive again , this is only a temporary fix , HP are aware and should be working on a solution

Added******

This is now fixed with Bios : 2008.08.04 (A)
26 Aug 2008

http://h20000.www2.hp.com/bizsupport/TechSupport/SoftwareDescription.jsp?lang=en&cc=us&prodTypeId=15351&prodSeriesId=1121586&prodNameId=3279711&swEnvOID=1005&swLang=8&mode=2&taskId=135&swItem=MTX-6d7148a9cb4740d3837fe26303

Tor Not Working

March 19th, 2008

tor_sticker1.png

After the installation of the Tor project , The tor client would connect however the Tor Network Map stayed blank and followed errors frequent errors of <Path Empty> and failed. This also lead privoxy to display resolving error’s due to tor not connecting. This issue was down to the local clock on the computer being set incorrectly

Wireless association failed to due to an unknown reason Windows Vista

March 18th, 2008

9106-wireless-connection11.jpg

Problem with Windows Vista Connecting to Sky Box

To resolve this issue, disable the DHCP BROADCAST flag in Windows Vista. To do this, follow these steps:

1.Click On the Start button, type regedit in the Start Search box, and then click regedit in the Programs list.
2.Locate and then click the following registry subkey:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters

\Interfaces\{GUID}
In this registry path, click the (GUID) subkey that corresponds to the network adapter that is connected to the network.
3.On the Edit menu, point to New, and then click DWORD (32-bit) Value.
4.In the New Value #1 box, type DhcpConnEnableBcastFlagToggle, and then press ENTER.
5.Right-click DhcpConnEnableBcastFlagToggle, and then click Modify.
6.In the Value data box, type 1, and then click OK.
7.Close Registry Editor.

 

NOTE: You should do this for each and every GUID subkey.
NOTE2: (GUID) is a mnemonic for the individual subkeys, the actual text “GUID” does not appaer.

Venezuelan Black - Best Chocolate in the World

March 6th, 2008

Good Watch

http://www.channel4.com/food/on-tv/willies-wonky-chocolate-factory/

The chocolate is available from Selfridges , Ebay ( Venezuelan Black) and http://venezuelan-black.co.uk/ if anyone is interested!

Windows 2000 Registry Repair Bootable CD

February 12th, 2008

Windows 2000 Setup Screen

This iso file , enables you to boot off the Windows XP Bootable floppy disks and run the Windows 2000 Registry Repair Tool , created with the help of Jayroo’s

Instructions Below ( This is usually brought about by the system crashing or pulling the power early on the system before it has had time to properly shut-down )

Read the rest of this entry »

Windows Defender MSI for Windows 2000

February 12th, 2008

Windows Defender Icon

Windows Defender does not install on Windows 2000 due to a limitation in the .MSI.

With editing help thanks to Compatdb , I was able to assemble WindowsDefenderWin2000.msi

Spanish Paella

February 1st, 2008

Pealla

Based on Gordon Ramsay Paella

See the Whole Recipe!

 

Read the rest of this entry »

Network Design and Advanced Data Security Questions

January 21st, 2008

Questions and Answers for Network Design and Advanced Data Security Module

pdf_red1.jpg


Adhoc Wireless Network Comparison with Opnet Modeller

January 18th, 2008

Final Year Labortary Project Modelling the DSR and AODV Routing Protocol In Opnet Modeller

Click on the Icon To View The Report

pdf_red1.jpg