Com-Central.net

Com-Central.net

Forum FAQ

Moderators

Back-up CoD4 Profile Script
General discussion about the Call of Duty game!

Forum Index › › Call Of Duty

View previous topic :: View next topic

Author

Message

SnwMan0
Power User

Offline
Joined: Feb 04, 2005
Posts: 293
Location: Mn,USA

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!

_________________

Ullus Vicis , Ullus Qua.

Forum Index › › Call Of Duty
Page 1 of 1

All times are GMT - 6 Hours

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum

Select Language

Login

`±`Recent Visitors

`±`User Info-big

Com-Central.net

Select Language

Login

±Recent Visitors

±User Info-big

`±`Recent Visitors

`±`User Info-big