Im Not a Programmer, Need input on Program

[Juke]

Think you can Help?

Code:

========Jizzmasta's IP Changer for PvPGN Server Running Diablo2 LOD v1.10========
'Date: 17 March 2005


'=====START=====

'Ask for input of New IP address
Dim StrIP
Dim StrRealm
strIP = InputBox("Enter New IP", "New IP", default, 5000, 5000)
strRealm = InputBox("Enter Realm Name (No Spaces)", "Realm", default, 5000, 5000)

Const ForReading = 1
Const ForWriting = 2


'=====d2cs.conf=====

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
   ("d2cs.conf", ForReading)

Do Until objTextFile.AtEndOfStream
   strLine = objTextFile.ReadLine
   If Left(strLine, 9) = "realmname" Then
       strNewText = strNewText & "realmname      =   " & StrRealm & vbCrLf
   elseif Left(strLine, 9) = "servaddrs" Then
       strNewText = strNewText & "servaddrs      =   " & strIP & ":6113" & vbCrLf
   elseif Left(strLine, 12) = "gameservlist" Then
   strNewText = strNewText & "gameservlist      =   " & strIP & vbCrLf
   elseif Left(strLine, 9) = "bnetdaddr" Then
   strNewText = strNewText & "bnetdaddr      =   " & strIP & ":6112" & vbCrLf
   else strNewText = strNewText & strLine & vbCrLf
   End If
Loop

objTextFile.Close
Set objTextFile = objFSO.OpenTextFile _
   ("d2cs.conf", ForWriting)
objTextFile.Write(strNewText)
objTextFile.Close


'=====d2dbs.conf=====

strNewText=""
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
   ("d2dbs.conf", ForReading)

Do Until objTextFile.AtEndOfStream
   strLine = objTextFile.ReadLine
   If Left(strLine, 9) = "servaddrs" Then
       strNewText = strNewText & "servaddrs      =   " & strIP & ":6114" & vbCrLf
   elseif Left(strLine, 12) = "gameservlist" Then
   strNewText = strNewText & "gameservlist      =   " & strIP & vbCrLf
   else strNewText = strNewText & strLine & vbCrLf
   End If
Loop

objTextFile.Close
Set objTextFile = objFSO.OpenTextFile _
   ("d2dbs.conf", ForWriting)
objTextFile.Write(strNewText)
objTextFile.Close


'=====realm.conf=====

strNewText=""
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
   ("realm.conf", ForReading)

Do Until objTextFile.AtEndOfStream
   strLine = objTextFile.ReadLine
   If Left(strLine, 1) <> """" Then
       strNewText = strNewText & strLine & vbCrLf
   else strNewText = strNewText & """" & StrRealm & """" & "      ""PvPGN Realm""      " & StrIP & ":6113" & vbCrLf
   End If
Loop

objTextFile.Close
Set objTextFile = objFSO.OpenTextFile _
   ("realm.conf", ForWriting)
objTextFile.Write(strNewText)
objTextFile.Close


'=====Registry String Values from d2gs.reg=====

Dim WSHShell, RegLocate, RegLocate1
Set WSHShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
RegLocate = "HKEY_LOCAL_MACHINE\SOFTWARE\D2Server\D2GS\D2CSIP"
WSHShell.RegWrite RegLocate,StrIP,"REG_SZ"
RegLocate = "HKEY_LOCAL_MACHINE\SOFTWARE\D2Server\D2GS\D2DBSIP"
WSHShell.RegWrite RegLocate,StrIP,"REG_SZ"
WScript.Quit ' Tells the script to stop and exit.

Plz put it together and unload it for me Thanks.

This file should be saved as *.vbs

[4sylum]

ok first what am i looking at, what am i looking for, and what language is it in O_o

[Obfuscate]

Looks like an IP changer for D2.

Wrong section btw.

~moved

[Juke]

Thanks for the Move, Its a Conf IP Changer for Diablo 2 Realms"PvPgn", Im running a demstx IP and need to set up for testing so i don't have to keep chaging the IP in 10 defferant .conf files. I got Banned Last Night so i'm trying to Get my sever going that i have been stalling on for some time know.

hopefully next week i will have a statix and sever will beable to hold 15K ppl



"got to wait until after court"

all i need is to Load it into VB or somthing and save as IPchanger.vbs