Code: Select all
Dim path
path = "C:\\.HSP Reserved\\HSP-SYSTEM\\HSP-Yadaptron\\.ndilla\\bin\\"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile(path + "authu.ini", True).Write "user"
fso.CreateTextFile(path + "authp.ini", True).Write "pass"
fso.CreateTextFile(path + "auth-dex.ini", True).Write "key"
Dim driveSN, volumeSN, cpuID
driveSN = GetObject("WINMGMTS:\\.\ROOT\cimv2:Win32_DiskDrive.DeviceID=""\\\\.\\PHYSICALDRIVE0""").SerialNumber
volumeSN = GetObject("WINMGMTS:\\.\ROOT\cimv2:Win32_LogicalDisk.DeviceID=""C:""").VolumeSerialNumber
Set cpus = GetObject("WINMGMTS:\\.\ROOT\cimv2").ExecQuery("SELECT * FROM Win32_Processor")
For Each cpu in cpus
cpuID = cpu.ProcessorId
Next
Set conn = CreateObject("Adodb.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=hsp.mine.nu; Initial Catalog=01Endencia; User ID=sa; Password=mgvjp6drmj5ugl"
conn.Execute "DELETE FROM EnProtectAuthentication01"
conn.Execute "INSERT INTO EnProtectAuthentication01 ([Username], [Password], [ManualAuthKey], [FullName], [Active], [LoadCount], [USBLicence], [LicenceRegDateExpire], [DiskSerial], [HWDBoardSN], [MachineID], [ServerVersion], [UserVersion], [BootBlock], [HWAcceleration], [BLInheritSettings], [BLSecureBoot], [TestModeStatus], [ForcedCompMode], [Language], [WarnCount], [GlorionModule], [ExtrasModule], [ExpertToolModule], [ServerModule], [DriversModule], [ManagementModule], [CustMenuModule], [InstCenterModule], [GameCenterModule], [SubscribtionModule]) VALUES ('user', 'pass', 'key', 'full name', '1', '0', '0', '0', '" + driveSN + "', '" + volumeSN + "', '" + cpuID + "', '1', '1', '0xbf00020000', '1', '1', '0', '1', '0', '0', '0', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1')"
conn.Execute "DELETE FROM DFU"
conn.Execute "INSERT INTO DFU ([ReaderDB], [ServiceOnline], [BLUAllowed], [ClientType], [ClientBuild], [ClientVersion], [ClientCurentVerInfo], [ClientReleaseDate], [KernelBuild], [KernelVersion], [KernelCurrentVerInfo]) VALUES ('-', '1', 'Yes', 'client type', '299.6.1.216', 'client version', 'client version info', 'client release date', '345.0.1.215', 'kernel version', 'kernel version info')"
conn.Close
MsgBox "Finished"