Become a fan of Slashdot on Facebook

 



Forgot your password?
typodupeerror
×
User Journal

Journal va3atc's Journal: Notes for Win2k3

overiding 2003 to install comes down to 2 ways editing the installer wit added commands or hex editing the instaler for certain programs

I've been using 2003 server for moere than a year now and i must say it' rock solid

For most applications adding " /a " after thr installer (shortcut ) wil do just fine

when that doesn't work you can also try this >>

------- copy here ----

Option Explicit

Const msiOpenDatabaseModeReadOnly = 0
Const msiOpenDatabaseModeTransact = 1

Dim argNum, argCount:argCount = Wscript.Arguments.Count
If (argCount 1) Then
Wscript.Echo "Please supply the name of the msi file to be modified."
Wscript.Quit 1
End If

' Scan arguments for valid SQL keyword and to determine if any update operations
Dim openMode : openMode = msiOpenDatabaseModeReadOnly
openMode = msiOpenDatabaseModeTransact

' Connect to Windows installer object
Dim installer : Set installer = Nothing
Set installer = Wscript.CreateObject("WindowsInstaller.Installer") : CheckError

' Open database
Dim databasePath:databasePath = Wscript.Arguments(0)
Dim database : Set database = installer.OpenDatabase(databasePath, openMode) : CheckError

' Process SQL statements and delete the crap out of this installer!
Dim query, view, record, message, rowData, columnCount, delim, column
Set view = database.OpenView("Delete from LaunchCondition") : CheckError
view.Execute
wscript.echo "Launch Conditions Removed"
Set view = database.OpenView("Delete from InstallExecuteSequence where Action='OnCheckSilentInstall'")
view.Execute
wscript.echo "OnCheckSilentInstall step removed"
Set view = database.OpenView("Delete from Property where Property = 'ISSETUPDRIVEN'")
view.Execute
wscript.echo "Property ISSETUPDRIVEN removed"
Set view = database.OpenView("INSERT INTO Property (Property,Value) VALUES ('ISSETUPDRIVEN',1)")
view.Execute
wscript.echo "Property ISSETUPDRIVEN added"
database.Commit
Wscript.Quit 0

Sub CheckError
Dim message, errRec
If Err = 0 Then Exit Sub
message = Err.Source & " " & Hex(Err) & ": " & Err.Description
If Not installer Is Nothing Then
Set errRec = installer.LastErrorRecord
If Not errRec Is Nothing Then message = message & vbLf & errRec.FormatText
End If
Fail message
End Sub

Sub Fail(message)
Wscript.Echo message
Wscript.Quit 2
End Sub
----- end copy ---

save this in a file with extension *.vbs

now copy the installer *.exe or *.msi to your hard disk with the rest of the installer and drag it over the visual basic script this will remove all os checks in the installer

kinda neat huh :)

along the way it wil tell you exactly what it's doing

when finished run the application works for games to

like Vampire masquarade and Doom 3 Ressurection of Evil

Well enjoy one of m$oft best OS
by the way i got my version from the MSN beta cd so i guess it's legal

did some minor ***ching

Laters compadres

This discussion has been archived. No new comments can be posted.

Notes for Win2k3

Comments Filter:

Get hold of portable property. -- Charles Dickens, "Great Expectations"

Working...