Com-Central.net

SnwMan0 · Posted: Wed Mar 19, 2008 11:07 pm Post subject: Back-up CoD4 Profile Script

Found this script and modified it slightly. This will make a backup of your CoD4 profile in a folder called CoD4_Profile_Backup that's within your My Documents folder.

Copy all the code and paste it into notepad, save as "CoD4_Profile_Backup.vbs" make sure to select All Files at the bottom before you click save. Then simply run it. You can change the icon as well.

'--START--
'This will backup your CoD4 Player profiles to a folder called CoD4_Profile_Backup in
'My Documents folder. To use this script, save it to a file called
'CoD4_Profile_Backup.vbs' and run it - Originally by Ized modified by Urban.
Option Explicit
On Error Resume Next
Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oShell : Set oShell = CreateObject("WScript.Shell")
Dim strInstallPath, strKey
strKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\InstallPath"
strInstallPath=oShell.RegRead(strKey)
If Len(strInstallPath)=0 Then
MsgBox("COD4 is not installed!?")
Wscript.Quit
End If
Dim strSavePath
strSavePath=oShell.SpecialFolders("MyDocuments") & "\CoD4_Profile_Backup"
If Not oFSO.FolderExists(strSavePath) Then oFSO.CreateFolder(strSavePath)
Err.Clear
oFSO.CopyFolder strInstallPath & "\players\profiles", strSavePath, True
If Err.Number=0 Then
MsgBox "Backup Sucessful - Saved to folder '" & strSavePath & "'"
Else
MsgBox "Error while copying profile #" & Err.Number & " - " & Err.Description
End If
Set oShell = Nothing
Set oFSO = Nothing
'--END--

To change the icon do this.

1. First put the script somewhere you can remember or get to easily.
2. Next Create a shortcut and put that shortcut where you want.
3. Next right click the shortcut and click properties, then click change icon.
4. Choose and icon, or if you want to use a CoD4 style icon, paste the following address in the location box:

%ProgramFiles%\Activision\Call of Duty 4 - Modern Warfare\cod4.ico

Then click Ok.

Done!

It can be slightly confusing if you don't pay attention to the text next to icons so you might accidently click the script if your trying to run CoD4.exe

What I do is rename stuff with cap and lower case letters to recognize different ones.

Enjoy!

Com-Central.net

Select Language

Login

`±`Recent Visitors

`±`User Info-big

Com-Central.net

Select Language

Login

±Recent Visitors

±User Info-big

`±`Recent Visitors

`±`User Info-big