Sure. Since I am new to this bulletin board I don't know how to attach so I will type it below.

Use H: \\Charon\H
Use z: \\Atlas\D
If AddPrinterConnection (\\Charon\Periwinkle) = 0
? "Added Printer Connection..."
EndIf
If SetDefaultPrinter ("Periwinkle") = 0
? "Set default printer to Periwinkle..."
EndIf
If SetWallpaper ("toomuch.bmp") = 0
? "Set current Wallpaper to toomuch.."
EndIf

Sleep 3

exit