±Recent Visitors

Recent Visitors to Com-Central!

±User Info-big


Welcome Anonymous

Nickname
Password

Membership:
Latest: nbrich1
New Today: 0
New Yesterday: 0
Overall: 6596

People Online:
Members: 0
Visitors: 120
Total: 120
Who Is Where:
 Visitors:
01: Community Forums
02: Community Forums
03: Community Forums
04: Photo Gallery
05: Community Forums
06: Photo Gallery
07: Community Forums
08: Community Forums
09: Community Forums
10: Community Forums
11: Community Forums
12: Community Forums
13: Photo Gallery
14: Community Forums
15: Community Forums
16: Community Forums
17: Community Forums
18: Photo Gallery
19: Home
20: Community Forums
21: Community Forums
22: Community Forums
23: Community Forums
24: Community Forums
25: Photo Gallery
26: Community Forums
27: Community Forums
28: Community Forums
29: Photo Gallery
30: Statistics
31: Photo Gallery
32: Search and Rescue
33: Community Forums
34: Photo Gallery
35: Community Forums
36: Photo Gallery
37: Photo Gallery
38: Community Forums
39: Community Forums
40: Community Forums
41: Community Forums
42: Photo Gallery
43: Community Forums
44: Community Forums
45: Photo Gallery
46: Photo Gallery
47: Photo Gallery
48: Community Forums
49: Community Forums
50: Community Forums
51: Community Forums
52: Community Forums
53: Community Forums
54: Community Forums
55: Community Forums
56: Community Forums
57: Community Forums
58: Photo Gallery
59: Photo Gallery
60: Home
61: Community Forums
62: Community Forums
63: Statistics
64: Community Forums
65: Community Forums
66: Community Forums
67: Photo Gallery
68: Community Forums
69: Community Forums
70: Community Forums
71: Photo Gallery
72: Community Forums
73: Community Forums
74: Community Forums
75: Community Forums
76: Community Forums
77: Community Forums
78: Photo Gallery
79: Photo Gallery
80: Home
81: Community Forums
82: Community Forums
83: Photo Gallery
84: Photo Gallery
85: Photo Gallery
86: Community Forums
87: Community Forums
88: Community Forums
89: Community Forums
90: Community Forums
91: Community Forums
92: Community Forums
93: Community Forums
94: Community Forums
95: Photo Gallery
96: Community Forums
97: Photo Gallery
98: Community Forums
99: Photo Gallery
100: News
101: Photo Gallery
102: Community Forums
103: Community Forums
104: Community Forums
105: Community Forums
106: Home
107: Downloads
108: Community Forums
109: Community Forums
110: Community Forums
111: Photo Gallery
112: Downloads
113: Community Forums
114: Photo Gallery
115: Photo Gallery
116: Community Forums
117: Community Forums
118: Community Forums
119: Photo Gallery
120: CPGlang

Staff Online:

No staff members are online!
Back-up CoD4 Profile Script
General discussion about the Call of Duty game!
Post new topic    Reply to topic    Printer Friendly Page     Forum Index ›  Ground Pounders!!Call Of Duty

View previous topic :: View next topic  
Author Message
SnwMan0
Power User

Offline Offline
Joined: Feb 03, 2005
Posts: 293
Location: Mn,USA
PostPosted: Wed Mar 19, 2008 5: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.
Back to top
View user's profile Visit poster's website MSN Messenger Photo Gallery
Display posts from previous:   
Post new topic    Reply to topic    Printer Friendly Page    Forum Index ›  Ground Pounders!!Call Of Duty
Page 1 of 1
All times are GMT - 6 Hours



Jump to:  


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