Gheek.net

January 28, 2008

IP Plan xml template

Filed under: ipplan, switchmap, xml — Tags: , , , , — lancevermilion @ 12:47 am

This is a xml template that is used with IP Plan to allow you to have custom fields. The fields are filled by a script that impoprt information from a program called Switchmap.

  
- 
- 
  
  
- 
  
  
- 
  
  
- 
  
  
-

securecrt-jumpbox-telnet_vbs

Filed under: vbs — Tags: , , , , — lancevermilion @ 12:42 am

This script is very handy to use when you are using a program like SecureCRT and you have to use a bastion host to get inside a network.

# $language = "VBScript"
# $interface = "1.0"

' This script will provide a means of connecting to a remote system via a jump box.
' To utilze this script the profile must be created as follows.
'
' Create the session profile with the actual destination remote system FQDN or IP in the "Name" field.
' Input the jump box FQDN or IP in the "Hostname" field.  Upon connection you will
' be prompted for the username and password of the jump box and then the username and password
' for the destination remote system.
' ** The protocol must be set to that of the jump box, not that of the actual destination remote system.
' ** The protocol for the acutal remote system is specificed in this script, example "telnet or ssh".
'
' This script was written for use with DHL. Please contact Donnie Williams with any questions
' or concerns.

Sub Main

  Dim host
  host = crt.window.caption
  Dim arrHost
  arrHost = split(host, "-")
  host = arrHost(0)

  crt.Screen.Send "telnet " & host & VbCr

End Sub

securecrt-jumpbox-ssh_vbs

Filed under: vbs — Tags: , , , , — lancevermilion @ 12:40 am

This script is very handy to use when you are using a program like SecureCRT and you have to use a bastion host to get inside a network.

# $language = "VBScript"
# $interface = "1.0"

' This script will provide a means of connecting to a remote system via a jump box.
' To utilze this script the profile must be created as follows.
'
' Create the session profile with the actual destination remote system FQDN or IP in the "Name" field.
' Input the jump box FQDN or IP in the "Hostname" field.  Upon connection you will
' be prompted for the username and password of the jump box and then the username and password
' for the destination remote system.
' ** The protocol must be set to that of the jump box, not that of the actual destination remote system.
' ** The protocol for the acutal remote system is specificed in this script, example "telnet or ssh".
'
' This script was written for use with DHL. Please contact Donnie Williams with any questions
' or concerns.

Sub Main

  Dim host
  host = crt.window.caption
  Dim arrHost
  arrHost = split(host, "-")
  host = arrHost(0)

  Dim user
  user = crt.Dialog.Prompt("Enter your Login Name for " & host & ":", host )

  crt.Screen.Send "ssh -l " & user & " " & host & VbCr

  Dim pass
  pass = crt.Dialog.Prompt("Enter your Password for " & user & "@" & host & ":", host , "", True)

  crt.Screen.Send pass & VbCr


End Sub

List installed programs in Windows

Filed under: microsoft, vb.net — Tags: , , — lancevermilion @ 12:34 am

A few years back I needed to write a program for my first vb.net class. I had to do something simple or complex. So I had a challenge to figure out what applications existed on my computer. I didn’t want to deal with the crappy Microsoft add/remove programs because that only listed what was in the registry and it took forever to list them sometimes.

Enjoy it if you like it.

List Installed Projects

Tile Calculator

Filed under: excel — Tags: , , — lancevermilion @ 12:30 am

A while ago I had issues trying to figure out tile costs. So I went about creating a formula in microsoft excel.

Tile_Calculator

picture_resize_vba

Filed under: excel, microsoft, msword, vba — Tags: , , , , , , , — lancevermilion @ 12:19 am

Here is a handy script to resize images that are to big for your display and size wise.

The sad thing is I don’t recall if this works for any Microsoft Office application or just MSWord/Excel.

Answer
Glenn, I came across the follwing in one of my newsletters. This is exactly
what you are trying to do. I can't answer any questions about this macro
or any macros but this may solve the resizing problem for you.

Good luck.

Dale :-)

Scaling Graphics in a Macro

You may have a need to routinely scale graphics in your document by a
certain percentage. Using the menus to do the scaling can get tiresome,
so you may want to do the scaling by using a macro you can assign to a
toolbar button or a shortcut key. The following macro will handle doing
the scaling very nicely:

    Sub PictSize()
        Dim PecentSize As Integer

        PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)

        If Selection.InlineShapes.Count > 0 Then
            Selection.InlineShapes(1).ScaleHeight = PercentSize
            Selection.InlineShapes(1).ScaleWidth = PercentSize
        Else
            Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
            Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
        End If
    End Sub

The macro first asks for a percentage by which you want to scale the
selected image, offering 75 (75%) as the default. When you specify a
percentage, the macro then checks to see if the selected graphic is an
inline or a floating graphic. The reason for doing this is that the object
specification is different in each case, as well as how the scaling is specified.
Inline objects belong to the InlineShapes collection, while floating objects are
set using the ShapeRange object.

If you want to resize all the graphics in your document by the same
percentage, then you only need to modify the above macro so that it
steps through each of the inline graphics and then each of the floating
graphics.

    Sub AllPictSize()
        Dim PecentSize As Integer
        Dim oIshp As InlineShape
        Dim oshp As Shape

        PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)

        For Each oIshp In ActiveDocument.InlineShapes
            With oIshp
                .ScaleHeight = PercentSize
                .ScaleWidth = PercentSize
            End With
        Next oIshp

        For Each oshp In ActiveDocument.Shapes
            With oshp
                .ScaleHeight Factor:=(PercentSize / 100), _
                  RelativeToOriginalSize:=msoCTrue
                .ScaleWidth Factor:=(PercentSize / 100), _
                  RelativeToOriginalSize:=msoCTrue
            End With
        Next oshp
    End Sub

(Thanks to Yechezkel Missel, Lynn Taylor, and David G. Lett for
contributing to this tip.)

Hi Glenn,

Looks like you are in luck since there is a way to do just that sort of.

However, you will have to click on each picture but only set the
setting in the Format Picture dialog box just once.

First select all the picture in your document by selecting the first
one then hold down the Control Key (Ctrl) and select the rest of them.

Right-click on one off the pictures and choose Format Picture and
then the Size Tab

Type in 200 in the Height: box and make sure the Lock aspect
ration is checked and click OK.

Good Luck.

Dale :-)

Rancid 2.3.2a7 patched to include F5 BigIP support

Filed under: bigip, Cisco, expect, f5, perl, rancid — Tags: , , , , , , — lancevermilion @ 12:10 am

Here is a RANCID alpha version patched with a complete install that include F5 support.

To get the F5rancid script to work you will need to do something similar the following to your .cloginrc

add userprompt bigip* sshOnlyNoPrompt
add autoenable bigip* 1
add user bigip*

Rancid-2.3.2a7.1.tar.gz

xorg_conf

Filed under: linux, xorg — Tags: , , — lancevermilion @ 12:06 am

This is a generic xorg.conf


# /etc/X11/xorg.conf (xorg X Window System server configuration file)
#
# This file was generated by dexconf, the Debian X Configuration tool, using
# values from the debconf database.
#
# Edit this file with caution, and see the /etc/X11/xorg.conf manual page.
# (Type "man /etc/X11/xorg.conf" at the shell prompt.)
#
# This file is automatically updated on xserver-xorg package upgrades *only*
# if it has not been modified since the last upgrade of the xserver-xorg
# package.
#
# If you have edited this file but would like it to be automatically updated
# again, run the following command:
# sudo dpkg-reconfigure -phigh xserver-xorg

Section "Files"
FontPath "/usr/share/X11/fonts/misc"
FontPath "/usr/share/X11/fonts/cyrillic"
FontPath "/usr/share/X11/fonts/100dpi/:unscaled"
FontPath "/usr/share/X11/fonts/75dpi/:unscaled"
FontPath "/usr/share/X11/fonts/Type1"
FontPath "/usr/share/X11/fonts/100dpi"
FontPath "/usr/share/X11/fonts/75dpi"
FontPath "/usr/share/fonts/X11/misc"
# path to defoma fonts
FontPath "/var/lib/defoma/x-ttcidfont-conf.d/dirs/TrueType"
EndSection

Section "Module"
Load "i2c"
Load "bitmap"
Load "ddc"
Load "dri"
Load "extmod"
Load "freetype"
Load "glx"
Load "int10"
Load "type1"
Load "vbe"
EndSection

Section "InputDevice"
Identifier "Generic Keyboard"
Driver "kbd"
Option "CoreKeyboard"
Option "XkbRules" "xorg"
Option "XkbModel" "pc105"
Option "XkbLayout" "us"
Option "XkbOptions" "lv3:ralt_switch"
EndSection

Section "InputDevice"
Identifier "Configured Mouse"
Driver "mouse"
Option "CorePointer"
Option "Device" "/dev/input/mice"
Option "Protocol" "ExplorerPS/2"
Option "ZAxisMapping" "4 5"
Option "Emulate3Buttons" "true"
EndSection

Section "InputDevice"
Identifier "Synaptics Touchpad"
Driver "synaptics"
Option "SendCoreEvents" "true"
Option "Device" "/dev/psaux"
Option "Protocol" "auto-dev"
Option "HorizScrollDelta" "0"
EndSection

Section "InputDevice"
Driver "wacom"
Identifier "stylus"
Option "Device" "/dev/wacom" # Change to
# /dev/input/event
# for USB
Option "Type" "stylus"
Option "ForceDevice" "ISDV4" # Tablet PC ONLY
EndSection

Section "InputDevice"
Driver "wacom"
Identifier "eraser"
Option "Device" "/dev/wacom" # Change to
# /dev/input/event
# for USB
Option "Type" "eraser"
Option "ForceDevice" "ISDV4" # Tablet PC ONLY
EndSection

Section "InputDevice"
Driver "wacom"
Identifier "cursor"
Option "Device" "/dev/wacom" # Change to
# /dev/input/event
# for USB
Option "Type" "cursor"
Option "ForceDevice" "ISDV4" # Tablet PC ONLY
EndSection

Section "Device"
Identifier "Intel Corporation Mobile 915GM/GMS/910GML Express Graphics Controller"
Driver "i810"
BusID "PCI:0:2:0"
EndSection

Section "Monitor"
Identifier "Generic Monitor"
Option "DPMS"
EndSection

Section "Screen"
Identifier "Default Screen"
Device "Intel Corporation Mobile 915GM/GMS/910GML Express Graphics Controller"
Monitor "Generic Monitor"
DefaultDepth 24
SubSection "Display"
Depth 1
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 4
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 8
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 15
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 16
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 24
Modes "1024x768"
EndSubSection
EndSection

Section "ServerLayout"
Identifier "Default Layout"
Screen "Default Screen"
InputDevice "Generic Keyboard"
InputDevice "Configured Mouse"
InputDevice "stylus" "SendCoreEvents"
InputDevice "cursor" "SendCoreEvents"
InputDevice "eraser" "SendCoreEvents"
InputDevice "Synaptics Touchpad"
EndSection

Section "DRI"
Mode 0666
EndSection

xorg-dual_conf

Filed under: linux, xorg — Tags: , , , — lancevermilion @ 12:05 am

A xorg.conf modified for use of dual displays. Namely a laptop screen and external monitor.


# /etc/X11/xorg.conf (xorg X Window System server configuration file)
#
# This file was generated by dexconf, the Debian X Configuration tool, using
# values from the debconf database.
#
# Edit this file with caution, and see the /etc/X11/xorg.conf manual page.
# (Type "man /etc/X11/xorg.conf" at the shell prompt.)
#
# This file is automatically updated on xserver-xorg package upgrades *only*
# if it has not been modified since the last upgrade of the xserver-xorg
# package.
#
# If you have edited this file but would like it to be automatically updated
# again, run the following command:
# sudo dpkg-reconfigure -phigh xserver-xorg

Section "Files"
FontPath "/usr/share/X11/fonts/misc"
FontPath "/usr/share/X11/fonts/cyrillic"
FontPath "/usr/share/X11/fonts/100dpi/:unscaled"
FontPath "/usr/share/X11/fonts/75dpi/:unscaled"
FontPath "/usr/share/X11/fonts/Type1"
FontPath "/usr/share/X11/fonts/100dpi"
FontPath "/usr/share/X11/fonts/75dpi"
FontPath "/usr/share/fonts/X11/misc"
# path to defoma fonts
FontPath "/var/lib/defoma/x-ttcidfont-conf.d/dirs/TrueType"
EndSection

Section "Module"
Load "i2c"
Load "bitmap"
Load "ddc"
#Load "dri"
Load "extmod"
Load "freetype"
Load "glx"
Load "int10"
Load "type1"
Load "vbe"
EndSection

Section "InputDevice"
Identifier "Generic Keyboard"
Driver "kbd"
Option "CoreKeyboard"
Option "XkbRules" "xorg"
Option "XkbModel" "pc105"
Option "XkbLayout" "us"
Option "XkbOptions" "lv3:ralt_switch"
EndSection

Section "InputDevice"
Identifier "Configured Mouse"
Driver "mouse"
Option "CorePointer"
Option "Device" "/dev/input/mice"
Option "Protocol" "ExplorerPS/2"
Option "ZAxisMapping" "4 5"
Option "Emulate3Buttons" "true"
EndSection

Section "InputDevice"
Identifier "Synaptics Touchpad"
Driver "synaptics"
Option "SendCoreEvents" "true"
Option "Device" "/dev/psaux"
Option "Protocol" "auto-dev"
Option "HorizScrollDelta" "0"
EndSection

Section "InputDevice"
Driver "wacom"
Identifier "stylus"
Option "Device" "/dev/wacom" # Change to
# /dev/input/event
# for USB
Option "Type" "stylus"
Option "ForceDevice" "ISDV4" # Tablet PC ONLY
EndSection

Section "InputDevice"
Driver "wacom"
Identifier "eraser"
Option "Device" "/dev/wacom" # Change to
# /dev/input/event
# for USB
Option "Type" "eraser"
Option "ForceDevice" "ISDV4" # Tablet PC ONLY
EndSection

Section "InputDevice"
Driver "wacom"
Identifier "cursor"
Option "Device" "/dev/wacom" # Change to
# /dev/input/event
# for USB
Option "Type" "cursor"
Option "ForceDevice" "ISDV4" # Tablet PC ONLY
EndSection

Section "Device"
#Identifier "Intel Corporation Mobile 915GM/GMS/910GML Express Graphics Controller"
Identifier "intel0"
Driver "i810"
BusID "PCI:0:2:0"
Option "MonitorLayout" "CRT,LFP"
VideoRam 131072
Screen 0
Option "DevicePresence" "true"
# Option "ForceBIOS" "1920x1440=1920x1200"
# Option "FlipPrimary" "true"
EndSection

Section "Device"
#Identifier "Intel Corporation Mobile 915GM/GMS/910GML Express Graphics Controller"
Identifier "intel1"
# Option "Rotate" "CCW"
Driver "i810"
BusID "PCI:0:2:0"
Screen 1
#Option "DisplayInfo" "false"
Option "DevicePresence" "true"
# Option "ForceBIOS" "1920x1440=1920x1200"
# Option "FlipPrimary" "true"
EndSection

Section "Monitor"
Identifier "Internal"
Option "DPMS"
EndSection

Section "Monitor"
Identifier "E172FP"
Option "DPMS"
EndSection

Section "Screen"
Identifier "builtinlcd"
#Device "Intel Corporation Mobile 915GM/GMS/910GML Express Graphics Controller"
Device "intel0"
Monitor "Internal"
DefaultDepth 24
SubSection "Display"
Depth 1
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 4
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 8
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 15
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 16
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 24
Modes "1024x768"
EndSubSection
EndSection

Section "Screen"
Identifier "externallcd"
#Device "Intel Corporation Mobile 915GM/GMS/910GML Express Graphics Controller"
Device "intel1"
Monitor "E172FP"
DefaultDepth 24
SubSection "Display"
Depth 1
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 4
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 8
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 15
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 16
Modes "1024x768"
EndSubSection
SubSection "Display"
Depth 24
Modes "1024x768"
EndSubSection
EndSection

Section "ServerLayout"
#Identifier "Default Layout"
Identifier "Xinerama"
Screen 0 "builtinlcd" 0 0
Screen 1 "externallcd" LeftOf "builtinlcd"
InputDevice "Generic Keyboard"
InputDevice "Configured Mouse"
InputDevice "stylus" "SendCoreEvents"
InputDevice "cursor" "SendCoreEvents"
InputDevice "eraser" "SendCoreEvents"
InputDevice "Synaptics Touchpad"
Option "Xinerama" "true"
EndSection

Section "DRI"
Mode 0666
EndSection

wrancid patch to rancid-fe

Filed under: perl, rancid — Tags: , , — lancevermilion @ 12:02 am

This is a patch to enable the wrapper script to work with RANCID.

Older Posts »

Create a free website or blog at WordPress.com.