Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Samples from Users
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|
- !!DISCLAIMER!!
- Account Name Associated with a Process
- Activating McAfees PGP to Create a Self Decrpyting EXE
- Adding Item to the Tool Menu of IE to Run WB
- Alex Verboons Sample Scripts
- Ansi Character Chart
- API List
- Application Installer
- ARGB Function
- asciichart
- Asynchronously Run a WinBatch Script Against a List of Workstations
- Auto Indent WBT Script
- Auto Install For SpybotSD
- Automate Transactions with MS Money 5
- Automation of Adobe Acrobat Exchange
- Backup Folders With All Permissions
- Boot and Logon Timer
- Build a Bootable Window CD-Rom
- Calculate IP Address Range
- Capturing STDOUT
- CD-ROM Drive Letter Environment Variable Setting Script
- Change Ownership on Files
- Change Screen Resolution
- Check if Adobe Acrobat is Installed
- Check Service UDF
- Check string format
- ChopShop File Splitter (Chop Files into Smaller Chunks)
- ChopShop Heavyweight
- Code - A String Externalizer
- Command Shared Printer Installer
- Console Front End
- Console Output to Screen and File
- Controlling Winamp remotely
- Convert Concatenation from Colon to StrCat using TXL
- Countdown Days
- CPU Time of a Process
- Create a splash screen
- Critical Error Handler
- Cron Scheduler - Winbatch Version
- CSV to HTML Table
- CueCat bar code reading script
- Cute Binary Clock Example
- Day Light SavingsTime Information
- Decompile CHM using 7-Zip
- DesktopHopper
- Determine Current Interactive User From System Account
- Determine Windows Vista and Windows 2008 version
- Directory Display examples
- Download a File Via HTTP Request with a Progress Bar
- Dr Watson Parser
- Drawing Pictures using the GDI Dll_1
- Drawing Pictures using the GDI Dll_2
- DynamicDesk Provides Multiple Desktops
- EarthView - Rendered View of the Earth from Space
- eBay Pager
- Eject CDROM Tray
- Email Error Snapshot
- Error Handler For Entire Script
- Event Reminder Script
- Exit and Remove Current Scripts Folder
- Extender to change IP Address
- Fancy Scrolling in Box Functions
- Fast Sort for Itemlist and Files
- Flashing Window Title Example
- Fytek - PDF Converter
- GDI Image Encoding
- GDI Image Resize
- Generic Install Routine
- Generic Printer Configuration
- Get Original Windows CD Key
- Get Selected IE7 Tab Title
- Get Status Bar of Internet Explorer
- Get User and Memory Info
- Getting the Environment Path
- Global Variable Storage - a trick with Pointers
- Gnuplot and Winbatch
- googletrans
- Growl Notify UDF
- High-Resolution Elapsed Timer
- How to Open those Special Win95 folders
- How to win at Stones Cheat Sheet
- HTML Editor
- HTTP Download with progress bar using dynamic dialog
- Image Sizer
- Ini File Editor
- Intercepting WinPopUp - Mailslot Tricks
- Ip Device List
- IsMenuChecked and IsMnuEnabled
- Job Manager Example
- List Administrative Shares Freespace in HTML
- List Installed Applications
- List Outlook Personal Folders PST Files
- Locate Taskbar UDF
- LogParser
- Look up official Mailing address at USPS website
- Lunch Restaurant Chooser
- Mail Current Mailbox Size
- Make Ascii Chart
- Make Change to NT Server While Screensaver Runs
- Make PopUp Menus from Systray Icons
- Make Popup Menus
- McAfee 4.0.2 Update
- MD5 - MD4 Checksum Using the Crypto Api
- MegaPop UDF
- MessageBox UDF
- Messenger Type Client
- Microsoft Agent Example
- Modem Scan - Get Descriptor
- Network Statistics - Bytes Received Sent
- Office 97 Installation Sample Code
- Outlook Exchange Mail Profile Maker
- Outlook Settings
- Parse Variable Commandline Parameters
- Pc Inventory Update
- PC Inventory
- PcAnywhere Host Configs
- Pi.wbt
- Profile an Application
- Progress Bar in Dialog
- Query Event Log Based on Todays Date
- Rasmon
- Read Local LAN News of the Day
- Read Text File With Status Bar
- Remove Comments from code
- Remove Leading Zeros
- Remove XP Windows Messenger
- Rename a Computer using NETDOM
- Replace an In Use File on Restart
- Rolling Logfile UDF
- Run as an SMTP Server
- Script Code Indentation Fixer
- Script Expire Routine
- Script Viewer
- Scrolling BoxText
- Scrolling Log Window
- Service Manager
- Set Timezone Code
- SHFileDelete
- SHFileOperations
- Simple Little Lottery Program
- Simple MSI Install
- Simple Script to Find My IP Address
- Simple Shell UDFs
- SMS Short Messaging with GSM Modems
- SMS-like Software Distribution in the Background
- Snapshot Server
- SOAP and WinBatch
- Software Metering Example
- SoundEx
- SourceK0d3R
- Split Up Large Text File
- Spyware Startup Removal
- String Externalizer Script
- Switchboard WinBatch
- Syncing Multiple Winbatch Scripts
- SystemInfo Plus Office Version
- Text to PDF UDF
- TrapKeys alternative to WaitforKey
- Two dimensional Array Conversion UDFs
- UDF Get Hwnd
- UrlClip
- Use Private Netscape Bookmark and Cookies during Session
- UT2004 Cache Convertor
- Utility to Start Several Apps in Different Modes
- Variable Dump
- VBScript JScript in WinBatch
- VisualBoxEditor to Visually Design WB Boxes
- Watch (Monitor) a Directory
- Watch for Files and Do Something
- wbconvert2pdfcreator
- WB_RAD Rapid Application Development Interface
- WIA Image Properties
- WILL Lookup Utility
- WinBatch Script to Uninstall Lotus Sametime
- Windows 2000 System State Backup
- WORM_SDBOT Removal Tool
- Wrap Text in Code
- Write Text on a Bitmap
- Write Text to the Screen
- Zen-Works sample
- ZLIB Compression UDFs
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Get Original Windows CD Key
#DefineFunction Dec2Hex(Dec)
IsZero=@TRUE
str="0123456789ABCDEF"
hex=""
For x=7 To 0 By -1
nibble= (dec >> (x*4)) & 15
If nibble==0 && IsZero==@TRUE Then Continue
IsZero=@FALSE
hex=StrCat(hex,StrSub(str,nibble+1,1))
Next
Return(hex)
#EndFunction
#DefineFunction Hex2Dec(hex)
str="0123456789ABCDEF"
hex=StrTrim(StrUpper(hex))
hexlen=StrLen(hex)
dec=0
For x=1 To hexlen
dec=(dec*16) + StrIndex(str,StrSub(hex,x,1),0,@FWDSCAN) -1
Next
Return(dec)
#EndFunction
reghandle=RegOpenKeyEx(@REGMACHINE,"SOFTWARE\Microsoft\Windows NT\CurrentVersion","READ",0,0)
tmp=RegQueryBin(reghandle,"[DigitalProductId]")
RegCloseKey(reghandle)
HexBuf=Arrayize(tmp," ")
lbound=0
ubound=ArrInfo(HexBuf,1) -1
StartOffset=52
EndOffset=67
Digits=ArrDimension(24)
Digits [0] = "B"
Digits [1] = "C"
Digits [2] = "D"
Digits [3] = "F"
Digits [4] = "G"
Digits [5] = "H"
Digits [6] = "J"
Digits [7] = "K"
Digits [8] = "M"
Digits [9] = "P"
Digits [10] = "Q"
Digits [11] = "R"
Digits [12] = "T"
Digits [13] = "V"
Digits [14] = "W"
Digits [15] = "X"
Digits [16] = "Y"
Digits [17] = "2"
Digits [18] = "3"
Digits [19] = "4"
Digits [20] = "6"
Digits [21] = "7"
Digits [22] = "8"
Digits [23] = "9"
dLen=29
sLen=15
HexDigitalPID=ArrDimension(16) ;15
Des=ArrDimension(30)
tmp2=""
For i=StartOffset To EndOffset
tempxyz= HexBuf[i] ;<<<<<<<<<<<<<
HexDigitalPID [i-StartOffset] = tempxyz
tmp2=tmp2 : " " : Hex2Dec (HexDigitalPID[i-StartOffset] )
Next
KEYSTRING=""
For i=dLen-1 To 0 By -1
If ((i + 1) mod 6) == 0
Des [i] = "-"
KEYSTRING =KEYSTRING : "-"
Else
HN = 0
For N = (sLen-1) To 0 By -1
Value = ( (HN *2**8 ) | Hex2Dec(HexDigitalPID [N]))
HexDigitalPID [N] = Dec2Hex(Value / 24 ) ;Value \ 24
HN = (Value mod 24)
Next
Des[i] = Digits[HN]
KEYSTRING =KEYSTRING : Digits[HN]
EndIf
Next
KeyString2 = ""
For xx = 29 To 1 By -1
ThisLetter = StrSub(KeyString, xx, 1)
KeyString2 = StrCat(KeyString2,ThisLetter)
Next xx
Message("Original Windows CD Key was:",KeyString2)
Exit
Article ID: W17221
File Created: 2007:07:03:14:28:52
Last Updated: 2007:07:03:14:28:52