Easy Cd/DVD Cover Creator

This is one of my Delphi project

This simple software doesn't require any installation:

1. Extract the executable from the rar archive downloadable from the below link

DOWNLOAD Easy Cd/DVD Cover Creator

2. Double click on it :-))

3. Download your favourite cd or dvd cover

4. Define your Layout (horizontal,vertical,2 fronts or DVD)

5. Select your cover

6. PRINT!!!!!!

The good old time

Long time has gone since this picture was taken!
Long hair...gone!
Sepultura t-shirt....gone!
2.000.000 Neurons...gone!

Thank god things are a bit different now :-O

List of Special Folders

AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates

Example:

Set WshShell = WScript.CreateObject("WScript.Shell")
WSCript.Echo "My documents are in: " & WshShell.SpecialFolders("MyDocuments")

Output: C:\Documents and Settings\darconio\My Documents

Script To Create a shortcut on the desktop

Dim WSHShell, fs

Set WSHShell = WScript.CreateObject("WScript.Shell")

Set fs = WScript.CreateObject("Scripting.FileSystemObject")

Function MakeDesktopShortcut( name, target )

Dim Shortcut,DesktopPath,StartupPath

DesktopPath = WSHShell.SpecialFolders("Desktop")

Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" & name & ".lnk")

Shortcut.TargetPath = target

StartupPath = fs.GetParentFolderName( target )

If fs.FolderExists( StartupPath ) then

Shortcut.WorkingDirectory = StartupPath

End If

Shortcut.Save

End Function

MakeDesktopShortcut "Shortcut to Notepad", "%windir%\notepad.exe"

Map a network drive using a different username/password

net use drive letter \\computer_name\shared folder name or root folder /user:domain name or computer name password

Example:

net use * \\SERVER\Share /USER:darconio password /PERSISTENT:Yes

Using the star (*) will use the first available letter and with PERSISTENT:Yes the drive will be kept even after a reboot

To remove a mapped drive:

net use X: /del

Where X is the letter of the unwanted drive

Add a printer using TCP port

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_(ip address of your printer)"
objNewPort.Protocol = 1
objNewPort.Queue = "(name of your printer)"
objNewPort.HostAddress = "(ip address of your printer)"
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = False


'prevents timeout WMI problem
On Error Resume Next
objNewPort.Put_
ErrCounter = 0
Do While (Err.Number <> 0) And (ErrCounter < 3)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Err.Number = 0
objNewPort.Put_
ErrCounter = ErrCounter + 1
Loop
On Error GoTo 0

Sample script to update the proxy settings

set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoConfigURL", "(Your proxy here)"
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
MsgBox "Proxy settings updated succesfully."

First Post

I've finally decided to open a blog for myself: everybody does so here I am!