'This code may be freely distributed/modified
On Error Resume Next
'Prevents errors from values that don't exist
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\TerminalType","screen","REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\AutoWrapMode","1","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\Compression","1","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\CloseOnExit","1","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\HostName","aolis.aolis.aup.edu.ph","REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\LinuxFunctionKeys","2","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\NoApplicationKeys","1","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\ScrollbackLines","0xc8","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\ScrollBar","1","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\ScrollOnDisp","1","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\TermHeight","24","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\TermWidth","80","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\WinTitle","AOLIS (AUP Computer Science Department)","REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\LockSize","3","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\Font","Lucida Console","REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\FontCharSet","0","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\FontHeight","10","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\FontVTMode","1","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\FontIsBold","0","REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings\FullScreenOnAltEnter","1","REG_DWORD"

'for vista
WSHShell.RegWrite "HKLM\System\CurrentControlSet\Services\TCPIP\Parameters\SearchList", "aolis.aup.edu.ph", "REG_SZ"

'display message
'Message = "AOLIS Putty Settings Made"
'X = MsgBox(Message, vbOKOnly, "Done")
Set WshShell = Nothing
Set fso = Nothing