' This script re-registers the VB packages with the proper CPU level for the PPC2002 SDK

Dim platman
Dim platform
Dim platformID
Dim tPackage
Dim CPU(2)
Dim OS
Dim nCPUs
Dim instDir
Dim tPackageFile
Dim package


set args = wscript.Arguments
If args.count <> 1 Then
	WScript.echo("Usage: fixppcvb <Install Dir>"+vbCr+vbCr+"Example:" + vbCr + "fixppcvb ""c:\windows ce tools\wce300\pocket pc 2002""")
	WScript.quit(1)
End If

instDir = args(0)

platformID = "{DE9660AC-85D3-4C63-A6AF-46A3B3B83737}"

' On Error Resume Next

If instDir <> "" Then

    set platman = CreateObject("PlatformManager.PlatformManager.1")
    set platform = platman.GetPlatform(platformID)

    set OS = platman.GetOS("wce300")

    nCPUs = 2
    Set CPU(0) = platman.GetCPU("x86")
    Set CPU(1) = platman.GetCPU("armv4")

    ' Add the vb runtimes
    GetPackage "{41D724D7-3944-11D2-A87E-0000F807F349}", "VBCE 2.0 Runtime"
    AddFiles package, "runtimes", "pvbload.exe"
    AddFiles package, "runtimes", "pvbform2.dll"
    AddFiles package, "runtimes", "pvbhost2.dll"
    AddFiles package, "runtimes", "vbscript.dll"

    GetPackage "{41D724D8-3944-11D2-A87E-0000F807F349}", "VBCE 2.0 Debug Runtime"
    AddFiles package, "runtimes", "pdm.dll"
    AddFiles package, "runtimes", "vbrmon.dll"

    GetPackage "{63C5BFD0-6C93-11d3-8485-0050047D5705}", "VBCE 2.0 Runtime"
    AddFiles package, "runtimes", "pvbkill.exe"

    GetPackage "{8FD880E0-F191-11D1-8B5C-006008B0E597}", "VBCE Declare Extension"
    AddFiles package, "runtimes", "pvbdecl.dll"

    GetPackage "{B24C5E60-62D5-11d2-8B92-006008B0E597}", "VBCE 2.0 Control Manager"
    AddFiles package, "runtimes", "pvbctrl.exe"

    ' Add Control packages
    GetPackage "{97A3DC82-CBAC-11D0-A11F-08005AB89658}", "Microsoft CE Financial Functions 3.0"
    AddFiles package, "controls", "Finance.dll"

    GetPackage "{2B7F8604-8205-11D1-A765-00AA0044064C}", "Microsoft CE Common Dialog Control 3.0"
    AddFiles package, "controls", "MSCEComDlg.dll"

    GetPackage "{481BA4B1-56F2-11D1-A1AB-00C04FA87A04}", "Microsoft CE Comm Control 3.0"
    AddFiles package, "controls", "MSCEComm.dll"

    GetPackage "{25C953B5-5464-11D1-A714-00AA0044064C}", "Microsoft CE File Control 3.0"
    AddFiles package, "controls", "MSCEFile.dll"

    GetPackage "{3F0C2794-5C3A-11D1-A717-00AA0044064C}", "Microsoft CE File System Control 3.0"
    AddFiles package, "controls", "MSCEFile.dll"

    GetPackage "{532C2C02-6B55-11D1-9AA5-00C04FAD5AEC}", "Microsoft CE Grid Control 3.0"
    AddFiles package, "controls", "MSCEGrid.dll"

    GetPackage "{FA63C734-35D4-11D1-ACB3-00AA003EE054}", "Microsoft CE Image Control 3.0"
    AddFiles package, "controls", "MSCEimage.dll"

    GetPackage "{E491F002-98EC-11D1-9B3D-00C04FAD5AEC}", "Microsoft CE ImageList Control 3.0"
    AddFiles package, "controls", "MSCEimagelist.dll"

    GetPackage "{396BA9A2-978B-11D1-80AC-00C04FAD5EFB}", "Microsoft CE ListView Control 3.0"
    AddFiles package, "controls", "MSCEListView.dll"

    GetPackage "{0DA80E6D-788B-43a4-A443-E35B1FBAD9CC}", "Microsoft PocketPC MenuBar Control 3.0"
    AddFiles package, "controls", "MSCEMenuBar.dll"

    GetPackage "{338D5EB3-4BBD-11D1-9A7D-00C04FAD5AEC}", "Microsoft CE PictureBox Control 3.0"
    AddFiles package, "controls", "MSCEPicture.dll"

    GetPackage "{01FC4480-8DE5-11D1-91B7-00C04FA87A04}", "Microsoft CE TabStrip Control 3.0"
    AddFiles package, "controls", "MSCETabStrip.dll"

    GetPackage "{D863DA00-8C5B-11D1-86C0-00AA003EE054}", "Microsoft CE TreeView Control 3.0"
    AddFiles package, "controls", "MSCETreeView.dll"

    GetPackage "{23CE4D03-25A1-11D1-9A72-00A0C986B84A}", "Microsoft CE WinSock Control 3.0"
    AddFiles package, "controls", "MSCEWinSock.dll"

    GetPackage "{481BA4A3-56F2-11D1-A1AB-00C04FA87A04}", "Microsoft CE Comm Control 3.0"
    AddFiles package, "controls", "MSCEComm.dll"

    GetPackage "{25C953A7-5464-11D1-A714-00AA0044064C}", "Microsoft CE File Control 3.0"
    AddFiles package, "controls", "MSCEFile.dll"

    GetPackage "{23CE4CF5-25A1-11D1-9A72-00A0C986B84A}", "Microsoft CE WinSock Control 3.0"
    AddFiles package, "controls", "MSCEWinSock.dll"

    ' ADOCE Packages
    GetPackage "{113033F7-F682-11D2-BB62-00C04F680ACC}", "Microsoft Windows CE Data Access Components 3.0"
    AddFiles package, "controls", "Adoce30.dll"
    AddFiles package, "controls", "Adocedb30.dll"
    AddFiles package, "controls", "Adosync.dll"
    AddFiles package, "controls", "adoceoledb30.dll"
    AddFiles package, "controls", "msdaer.dll"
    AddFiles package, "controls", "msdaeren.dll"
    AddFiles package, "controls", "msdadc.dll"
    AddFiles package, "controls", "msdaosp.dll"

    ' ADOCE 3.1 Packages
    GetPackage "{013E8274-DDB4-4C4D-8A53-7FB93D561BD2}", "Microsoft CE Data Access Control 3.1"
    AddFiles package, "dataaccess31\target", "adoce31.dll"
    AddFiles package, "dataaccess31\target", "adocedb31.dll"
    AddFiles package, "dataaccess31\target", "adosync.dll"
    AddFiles package, "dataaccess31\target", "adoceoledb31.dll"
    AddFiles package, "dataaccess31\target", "msdaer.dll"
    AddFiles package, "dataaccess31\target", "msdaeren.dll"
    AddFiles package, "dataaccess31\target", "msdadc.dll"
    AddFiles package, "dataaccess31\target", "msdaosp.dll"
    AddFiles package, "dataaccess31\target", "adocedb30.dll"
    AddFiles package, "dataaccess31\target", "adosyncstub.dll"

    ' ADOXCE Packages
    GetPackage "{77C8DF50-D29F-11D3-98BA-00105ACC50FC}", "Microsoft CE ADOX Control 3.1"
    AddFiles package, "dataaccess31\target", "adoxce31.dll"


End If

' Add CPU specific packages.
Sub AddFiles (package, location, file)
    Dim ix
    for ix = 0 To nCPUs - 1
	CPUName = CPU(ix).Name
	' PPC sdk installs arm components in arm dir instead of armv4
	If ix = 1 Then
            CPUName = "arm"
	End If

	CPUDir = instDir + "\" + location + "\" + CPUName + "\"
	package.AddFile CPUDir + file, file, CPU(ix), OS, 0, 0
    Next
End Sub


Sub GetPackage (pkgId, pkgName)
'    On Error Resume Next
    platform.DeletePackage(pkgId)
'    On Error GoTo 0
    Set package = platform.AddPackage(pkgName, pkgId)
End Sub