-
Notifications
You must be signed in to change notification settings - Fork 0
/
BF2PrivateStats(Server).vbs
140 lines (121 loc) · 4.69 KB
/
BF2PrivateStats(Server).vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
' ==============================================================
' Vbscript' Name: BF2PrivateStats.vbs
' Usage: BF2PrivateStats.vbs [Enable|Disable]
' Author: The Shadow
' Email: shadow42@iinet.net.au
' Desc: This script enables/disables the HOSTS file workaround
' for BF2 Private Statistics. It supports dynamic IPs and can
' Enable/Disable the entry via way of a runtime argument.
' Execution is silent. Change the string lookup variables to suit.
' ==============================================================
' Setup Environment
Const FOR_READING = 1
Const FOR_WRITING = 2
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("Wscript.Shell")
strHostsFile = objShell.ExpandEnvironmentStrings("%SystemRoot%") & "\system32\drivers\etc\hosts"
strMatchContent = "BF2web.gamespy.com"
' ========================================================================
' String Lookup Variables
' ========================================================================
' EDIT: This Line includes your game server host name/IP address.
'strLookupAddr = "privatestats.gamespy.host" ' Host Name
strLookupAddr = "127.0.0.1" ' IP Address
' ========================================================================
' ========================================================================
' Prepare a regular expression object
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = False
myRegExp.Pattern = "\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b"
Set MatchData = myRegExp.Execute(strLookupAddr)
If MatchData.Count > 0 Then
' Address is an IP Address
Set Match = MatchData(0)
ipAddress = Match.Value
Else
' Resolve IP Address
strLookup = "Address:"
strTmpFile = objShell.ExpandEnvironmentStrings("%Temp%") & "\" & strLookupAddr & ".tmp"
objShell.Run "%ComSpec% /c nslookup " & strLookupAddr & "> " & strTmpFile, 0, True
Set objTF = objFS.OpenTextFile(strTmpFile)
i = 1
Do Until objTF.AtEndOfStream
strLine = Trim(objTF.Readline)
If i > 2 And Left(strLine, len(strLookup)) = strLookup Then
Set MatchData = myRegExp.Execute(strLine)
If MatchData.Count > 0 Then
Set Match = MatchData(0)
ipAddress = Match.Value
Exit Do
End If
End If
i = (i + 1)
Loop
objTF.Close
objFS.DeleteFile strTmpFile
End If
' Check ipAddress
If Len(ipAddress) > 0 Then
' Build Output String
strOutput = ipAddress & Chr(9) & strMatchContent & Chr(9) & Chr(9) & "# BF2 Statistics Redirect"
' Remove Outsmart Permissions
objShell.Run "SetACL.exe -on ""%SystemRoot%\System32\drivers\etc\HOSTS"" -ot file -actn clear -clr dacl", 0, True
' Get HOSTS Contents
Set objTS = objFS.OpenTextFile(strHostsFile ,FOR_READING)
strContents = objTS.ReadAll
objTS.Close
' Set HOSTS for Writing
Set objTS = objFS.OpenTextFile(strHostsFile ,FOR_WRITING)
arrLines = Split(strContents, vbNewLine)
' Prepare a regular expression object
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = strMatchContent
' Re-write HOSTS file
bUpdated = False
For i = 0 To UBound(arrLines) - 1
If myRegExp.Test(arrLines(i)) Then
bUpdated = True
objTS.WriteLine strOutput
Else
objTS.WriteLine arrLines(i)
End If
Next
' Check File Updated
If bUpdated = False Then
' Insert Reference at end of File
objTS.WriteLine strOutput
End If
objTS.Close
' Outsmart BF2 - Deny Read Permissions on HOSTS file
objShell.Run "%ComSpec% /c ipconfig /flushdns", 0, True
objShell.Run "%ComSpec% /c ping " & strMatchContent, 0, True
objShell.Run "SetACL.exe -on ""%SystemRoot%\System32\drivers\etc\HOSTS"" -ot file -actn ace -ace ""n:S-1-5-32-545;p:read;s:y;m:deny""", 0, True
' Get Arguments
Set objArgs = WScript.Arguments
strArgs = ""
If objArgs.Count >= 1 Then
For i = 0 To objArgs.Count - 1
strArgs = strArgs & " " & objArgs(i)
Next
Else
strArgs = " +menu 1 +fullscreen 1"
End If
' Run BF2 :)
objShell.Run "BF2_w32ded.EXE" & strArgs, 0, True
' Remove Outsmart Permissions
objShell.Run "SetACL.exe -on ""%SystemRoot%\System32\drivers\etc\HOSTS"" -ot file -actn clear -clr dacl", 0, True
' Re-write HOSTS file back to original
Set objTS = objFS.OpenTextFile(strHostsFile ,FOR_WRITING)
For i = 0 To UBound(arrLines) - 1
objTS.WriteLine arrLines(i)
Next
objTS.Close
Else
strErrMsg = "ERROR: Could not resolve '" & strLookupAddr & "'!" & vbCrLf
strErrMsg = strErrMsg & "Please Manually update your HOSTS file!"
Wscript.Echo strErrMsg
End If
' ========================================================================