VBS Scripts

[Westi]

but how do I run a vbs file from a cmd?

Just call it, or use "CScript myscript.vbs //B //NoLogo"

You get more options at the console window with "cscript /?".

[prathapml]

I have a vbscript to enable ICF automatically, but wscript asks for confirmation. i tried cscript <any.vbs> //B to do it silently, but still it asks "Yes/No".

This is it:

OPTION EXPLICIT

DIM ICSSC_DEFAULT, CONNECTION_PUBLIC, CONNECTION_PRIVATE, CONNECTION_ALL
DIM NetSharingManager
DIM PublicConnection, PrivateConnection
DIM EveryConnectionCollection

DIM objArgs
DIM con 

ICSSC_DEFAULT         = 0
CONNECTION_PUBLIC     = 0
CONNECTION_PRIVATE    = 1
CONNECTION_ALL        = 2

Main( )

sub Main( )
   if Initialize() = TRUE then    
       GetConnectionObjects()
       FirewallTestByName(con)
   end if
end sub


sub FirewallTestByName(conName)
on error resume next
   DIM Item
   DIM EveryConnection
   DIM objNCProps
   DIM szMsg
   DIM bFound
   bFound = false        
   for each Item in EveryConnectionCollection
       set EveryConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item)
       set objNCProps = NetSharingManager.NetConnectionProps(Item)
       bFound = true
       EveryConnection.EnableInternetFirewall
   next
end sub

function Initialize()
   DIM bReturn
   bReturn = FALSE
   set NetSharingManager = Wscript.CreateObject("HNetCfg.HNetShare.1")
   if (IsObject(NetSharingManager)) = FALSE then
       Wscript.Echo("Unable to get the HNetCfg.HnetShare.1 object")
   else
       if (IsNull(NetSharingManager.SharingInstalled) = TRUE) then
           Wscript.Echo("Sharing isn't available on this platform.")
       else
           bReturn = TRUE
       end if
   end if
   Initialize = bReturn
end function

function GetConnectionObjects()
   DIM bReturn
   DIM Item
   
   bReturn = TRUE
   
   if GetConnection(CONNECTION_PUBLIC) = FALSE then
       bReturn = FALSE
   end if
   
   if GetConnection(CONNECTION_PRIVATE) = FALSE then
       bReturn = FALSE
   end if
   
   if GetConnection(CONNECTION_ALL) = FALSE then
       bReturn = FALSE
   end if
   
   GetConnectionObjects = bReturn     
    
end function


function GetConnection(CONNECTION_TYPE)
   DIM bReturn     
   DIM Connection
   DIM Item
   bReturn = TRUE
   
   if (CONNECTION_PUBLIC = CONNECTION_TYPE) then
       set Connection = NetSharingManager.EnumPublicConnections(ICSSC_DEFAULT)
       if (Connection.Count > 0) and (Connection.Count < 2) then
           for each Item in Connection
               set PublicConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item)
           next          
       else
           bReturn = FALSE
       end if
   elseif (CONNECTION_PRIVATE = CONNECTION_TYPE) then
       set Connection = NetSharingManager.EnumPrivateConnections(ICSSC_DEFAULT)
       if (Connection.Count > 0) and (Connection.Count < 2) then
           for each Item in Connection
               set PrivateConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item)
           next
       else
           bReturn = FALSE
       end if
   elseif (CONNECTION_ALL = CONNECTION_TYPE) then
       set Connection = NetSharingManager.EnumEveryConnection
       if (Connection.Count > 0) then
           set EveryConnectionCollection = Connection
       else
           bReturn = FALSE
       end if
   else
       bReturn = FALSE
   end if
   
   if (TRUE = bReturn)  then
   
       if (Connection.Count = 0) then
           Wscript.Echo("No " + CStr(ConvertConnectionTypeToString(CONNECTION_TYPE)) + " connections exist (Connection.Count gave us 0)")
           bReturn = FALSE
       elseif (Connection.Count > 1) and (CONNECTION_ALL <> CONNECTION_TYPE) then          
           Wscript.Echo("ERROR: There was more than one " + ConvertConnectionTypeToString(CONNECTION_TYPE) + " connection (" + CStr(Connection.Count) + ")")
           bReturn = FALSE               
       end if
   end if
   GetConnection = bReturn
end function

function ConvertConnectionTypeToString(ConnectionID)
   DIM ConnectionString
   
   if (ConnectionID = CONNECTION_PUBLIC) then
       ConnectionString = "public"
   elseif (ConnectionID = CONNECTION_PRIVATE) then
       ConnectionString = "private"
   elseif (ConnectionID = CONNECTION_ALL) then
       ConnectionString = "all"
   else
       ConnectionString = "Unknown: " + CStr(ConnectionID)
   end if
   
   ConvertConnectionTypeToString = ConnectionString
end function

I think windows doesn't allow auto-changing of network settings. If so, what can i do to have the above VBS run silently.

Thanks.

prathapml

[IcemanND]

Hmm...looks familiar.

Windows doesn't like it being changed by script. So it asks to make sure you want to do it. The only way I know to do it is to create another script to run this one that waits for the prompt to come up and clicks the button for you.

[prathapml]

Iceman, i had in fact got the above ICF-enable script from you.

would you mind telling me (or posting the auto-click) script too ?

[IcemanND]

I would if i had managed to figure it out. still working on it.

[hyp3r]

Well boys and girls, I know this isn't related to unattended set-ups but you may be able to help me.

I've got the below script which is not working 100% accurately. On the line it defines the target path (MyShortcut.TargetPath = .......) there's a section which goes .... & Chr(47) & "wrkgrp" ..... now Chr(47) is a /, why oh why is it appearing as a \ when the shortcut is built? Is windows in all it's "wisdom" auto-converting the character because thinks I've made a mistake?

(for all you out there who don't know much about access - I need that to be a "/"

What is going on folks? How can I force windows to accept that as a /?

Dim WSHNetwork, fso, WSHShell, MyShortcut, StartMenuPath, intDrive, strDrive, DriveFlag, AppDrive, Quote, Workgroup

Set fso = CreateObject("Scripting.FileSystemObject")
intDrive = 9 'This refers to the alphabet (9=I, 10=J etc)
DriveFlag = False

Do
strDrive = Chr(intDrive + 64) & ":"
    If fso.folderexists(strDrive & "\IBOS") Then
	msgbox strDrive
  Call IdentifyAppsDrive
	DriveFlag = True
    Elseif intDrive = 27 then
	msgbox "The VBScript can not locate your Chase Shared Drive" & vbnewline & _ 
  vbnewline & "Please contact the BIT Team"
	DriveFlag = True
    Else
	intDrive = intDrive + 1
    End If
Loop Until DriveFlag = True

'*******************************************************************

Sub IdentifyAppsDrive()

intDrive = 1 'This refers to the alphabet (1=A, 2=B etc)
DriveFlag = False

Do
AppDrive = Chr(intDrive + 64) & ":"
    If fso.fileexists(AppDrive & "\W32APPS\MSOffice.97\Office\msaccess.exe") Then
	AppDrive = Appdrive & "\W32APPS\MSOffice.97\Office\msaccess.exe"
	Msgbox Appdrive
  Call MakeShortcut
	DriveFlag = True
    Elseif fso.fileexists(AppDrive & "\Program Files\Microsoft Office\Office\msaccess.exe") Then
	AppDrive = Appdrive & "\Program Files\Microsoft Office\Office\msaccess.exe"
	msgbox appdrive
	Call MakeShortcut
	DriveFlag = True
    Elseif intDrive = 27 then
	msgbox "The VBScript can not locate your app's drive" & vbnewline & _ 
  vbnewline & "Please contact the BIT Team"
	DriveFlag = True
    Else
	intDrive = intDrive + 1
    End If
Loop Until DriveFlag = True

End Sub

'*******************************************************************
Sub MakeShortcut()
Set WSHShell = WScript.CreateObject("WScript.Shell")
Quote = Chr(34)
WorkGroup = Chr(47) & "wrkgrp"

' Read desktop path using WshSpecialFolders object
StartMenuPath = WSHShell.SpecialFolders("StartMenu") 

if fso.fileexists(StartMenuPath & "\Overtime.lnk") then
	fso.deletefile(StartMenuPath & "\Overtime.lnk")
end if	

' Create a shortcut object on the desktop
Set MyShortcut = WSHShell.CreateShortcut(StartMenuPath & "\Overtime.lnk")

' Set shortcut object properties and save it
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(AppDrive & Quote & " " & Quote & strDrive & "\IBOS\Overtime\Secure Overtime.mdb" & Quote & " " & Chr(47) & "wrkgrp" & " " & Quote & strDrive & "\IBOS\Overtime\eobot.mdw")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings(strDrive & "\IBOS\Overtime")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings(strDrive & "\IBOS\Overtime\bit.ico, 0")
MyShortcut.Save

WScript.Echo "A shortcut to the Overtime database now exists on your Start Menu."

End Sub

[Lost Soul]

how do you set up a vbscript so that your actually able to use it meaning having it work to instal the program ?

how do you call it ?

and where does the program fit into it all ?

[robmb008]

Here are a few of my vbs scripts that I have developed for my 1st unattended install:

Foobar2000 0.75 special edition

-full installation

-start menu shortcuts placed in Programs\media\foobar2000

-all available media file extensions associated with foobar2000

Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next

WshShell.Run ("%systemdrive%\install\Applications\Foobar\foobar075_special.exe")
WScript.Sleep 1000

WshShell.SendKeys "%N"
WScript.Sleep 400

WshShell.SendKeys "%A"
WScript.Sleep 400

WshShell.SendKeys "{TAB 2}"
WScript.Sleep 400

WshShell.SendKeys "F"
WScript.Sleep 400

WshShell.SendKeys "%N"
WScript.Sleep 400

WshShell.SendKeys "%N"
WScript.Sleep 400

WshShell.SendKeys "{TAB 2}"
WScript.Sleep 400

WshShell.SendKeys "media\foobar2000"
WScript.Sleep 400

WshShell.SendKeys "%I"
WScript.Sleep 10 * 1000

WshShell.SendKeys "{TAB 2}"
WScript.Sleep 400

WshShell.SendKeys "A"
WScript.Sleep 400

WshShell.SendKeys "{TAB 2}"
WScript.Sleep 400

WshShell.SendKeys "{ENTER}"
WScript.Sleep 6000

WshShell.SendKeys " "
WScript.Sleep 400

WshShell.SendKeys "%F"
WScript.Sleep 400

Wscript.Quit

Mozilla Firebird 0.7

-only the QuickLaunch icon added

Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next

WshShell.Run ("%systemdrive%\install\Applications\Firebird\MozillaFirebird-0.7-setup.exe")
WScript.Sleep 1000

WshShell.SendKeys "%N"
WScript.Sleep 400

WshShell.SendKeys "{TAB 2}"
WScript.Sleep 400

WshShell.SendKeys "{DOWN 3}"
WScript.Sleep 400

WshShell.SendKeys " "
WScript.Sleep 400

WshShell.SendKeys "{DOWN}"
WScript.Sleep 400

WshShell.SendKeys " "
WScript.Sleep 400

WshShell.SendKeys "%N"
WScript.Sleep 400

WshShell.SendKeys "%I"
WScript.Sleep 10 * 1000

WshShell.SendKeys "%R"
WScript.Sleep 400

WshShell.SendKeys "%F"
WScript.Sleep 400

Wscript.Quit

enjoy...

[WannaXP]

Well boys and girls, I know this isn't related to unattended set-ups but you may be able to help me.

I've got the below script which is not working 100% accurately. On the line it defines the target path (MyShortcut.TargetPath = .......) there's a section which goes ....  & Chr(47) & "wrkgrp" .....  now Chr(47) is a /, why oh why is it appearing as a \ when the shortcut is built? Is windows in all it's "wisdom" auto-converting the character because thinks I've made a mistake?

@hyp3r

I don't know if you still need this info, but I'll post this anyway just in case someone might find it useful.

When creating a shortcut using VBS you use the Object.TargetPath property for the executable and Object.Arguments for anything you wish to have entered after your executable. Here's a link to MS's WSH doc: WSH Documentation (as of 1/30/04).

Also, if I'm reading your script correctly WSHShell.ExpandEnvironmentStrings isn't really doing anything. According to MS's WSH documentation this is used to retrieve (or expand as MS puts it) environment variables. Also, it'll only return variables within the PROCESS environment space only.

Given the two points above, your line:

MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(AppDrive & Quote & " " & Quote & strDrive & "\IBOS\Overtime\Secure Overtime.mdb" & Quote & " " & Chr(47) & "wrkgrp" & " " & Quote & strDrive & "\IBOS\Overtime\eobot.mdw")

Should be split into two lines:

MyShortcut.TargetPath = AppDrive & """ """ & strDrive & "\IBOS\Overtime\Secure Overtime.mdb"
MyShortcut.Arguments = "/wrkgrp" & " """ & strDrive & "\IBOS\Overtime\eobot.mdw"""

I also removed your Quote variable and replaced it with double quotation marks. Easier read if you ask me. I tried to find the doc that discusses using multiple quotation marks, but couldn't find it.

I'm not exactly sure what your AppDrive & Quote & " " & Quote & strDrive & ... etc... is doing. I'm not an Access person, but the resulting "Target" isn't anything I've ever seen:

"X:\Y:" "Y:\IBOS\Overtime\Secure Overtime.mdb" /wrkgrp "Y:\IBOS\Overtime\eobot.mdw"

Shouldn't this read somthing like:

"Y:\IBOS\Overtime\Secure Overtime.mdb" /wrkgrp "Y:\IBOS\Overtime\eobot.mdw"

Hope this helps!

Nate

[Shotgun]

I'm in need of a VBS script to automate the install of UltraZip. (www.ultrazip.com). It's an InnoSetup file, but when I try to install it unattended, the readme file pops in screen, and the UltraZip program is started. It is a nuisance to have windows pop up even when using silent install switches. Can anyone help me out?

[Bâshrat the Sneaky]

I wrote one for adding a Language Pack to Nero:

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run (".\NBR6302nld.exe")
WScript.Sleep 5000
WshShell.SendKeys "~"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{UP}"
WScript.Sleep 1000
WshShell.SendKeys "~"
WScript.Sleep 1000
WshShell.SendKeys "~"
WScript.Quit

[mentalindustrie]

ok not sure if this is kinda out of place cause its a working script.

but i cant get it to run.

script for Intellitype v5.0

Set WshShell = WScript.CreateObject ("WScript.Shell")

WScript.Sleep 3000

WshShell.SendKeys "{ENTER}"

WScript.Sleep 1000

WshShell.SendKeys "{n}"

WScript.Sleep 1000

WshShell.SendKeys "{n}"

WScript.Sleep 1000

WshShell.SendKeys "{ENTER}"

WScript.Sleep 1000

WshShell.SendKeys "{TAB}"

WScript.Sleep 1000

WshShell.SendKeys "{=}"

WScript.Sleep 1000

WshShell.SendKeys "{ENTER}"

WshShell.SendKeys "{M}"

WScript.Sleep 1000

WshShell.SendKeys "{TAB}"

WScript.Sleep 1000

WshShell.SendKeys "{-}"

WScript.Sleep 1000

WshShell.SendKeys "{ENTER}"

WScript.Sleep 20000

WshShell.SendKeys "{TAB}"

WScript.Sleep 1000

WshShell.SendKeys "{-}"

WScript.Sleep 1000

WshShell.SendKeys "{ENTER}"

WScript.Sleep 1000

WshShell.SendKeys "{ENTER}"

(this makes country as new zealand and selects multimedia keyboard)

i suggest u run it once and change those two so it installs for ur contry and keyboard.

but my real problem is i can't get it to run from my auto_install.cmd

ECHO.

ECHO Installing Intellitype

ECHO Please wait...

"%systemdrive%\Install\Applications\Intellitype\ITP5_0Eng\keyboard.vbs"

start /wait "%systemdrive%\Install\Applications\Intellitype\ITP5_0Eng\setup.exe"

there is the code. is my problem the start /wait or can u not run *.vbs from command prompt.

thanks

Mental Industries

[mentalindustrie]

And here is my code for Intellimouse v5.0

Set WshShell = WScript.CreateObject ("WScript.Shell")
WScript.Sleep 3000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "{n}"
WScript.Sleep 1000
WshShell.SendKeys "{n}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{=}"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "{w}"
WScript.Sleep 1000
WshShell.SendKeys "{w}"
WScript.Sleep 1000
WshShell.SendKeys "{w}"
WScript.Sleep 1000
WshShell.SendKeys "{w}"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{-}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 30000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{-}"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"

again i live in New Zealand so change teh two "n" to where u live and i make a wheelmouse optical so again change the four "w" so it highlights what u have.

run it for ur self once taking note on those to pages of your keystrokes.

but like with my keyboard scipt can't get it to run from the command prompt.

But they do both work when run in windows!!!

Thanks

Mental Industries

[erther]

has anybody a script for zonealarm pro to "restore security settings"?? see under overview --> preference...

my little script looks like that:

- open zonealarm.exe

- send 8 times TAB

- and then send 2 times RIGHT <-- but it didn't do this step

- send r

- send path for xml file

- send 2 times ENTER

please help me, i'm going to be crazy...

thx!!

erther

[chezy666]

Use %systemdrive% for C:\

scripts for >>>

tune up utilities 2004

Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next


WshShell.Run ("C:\tu\setup.exe")

WScript.Sleep 7000
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "a"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "NAME"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "Company"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "m"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 40000
WshShell.SendKeys "f"
WScript.Sleep 200
Wscript.Quit

agnitum latest

Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next


WshShell.Run ("C:\ao\OUTPOSTPROINSTALL.EXE")

WScript.Sleep 12000
WshShell.SendKeys "n"
WScript.Sleep 2000
WshShell.SendKeys "{TAB 2}"
WScript.Sleep 500
WshShell.SendKeys "{UP}"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 2000
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 20000
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "{TAB 4}"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "{TAB 4}"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "f"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500


Wscript.Quit

winamp 5.03C

Set WshShell = WScript.CreateObject("WScript.Shell")



WshShell.Run ("C:\winamp\winamp.exe")

WScript.Sleep 7000
WshShell.SendKeys "%a"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "{DOWN 6}"
WScript.Sleep 200
WshShell.SendKeys "%n"
WScript.Sleep 200
WshShell.SendKeys "%n"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "%n"
WScript.Sleep 200
WshShell.SendKeys "%n"
WScript.Sleep 200
WshShell.SendKeys "i"
WScript.Sleep 27000
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200
WshShell.Run ("C:\winamp\pskill.exe winamp.exe")
WScript.Sleep 200
Wscript.Quit

make sure pskill is in the same directory

spy sweeper 3

Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next


WshShell.Run ("C:\ss\ss.exe")

WScript.Sleep 7000
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "XXXXXXXXXXXXXXXXX"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "%a"
WScript.Sleep 200
WshShell.SendKeys "%n"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "i"
WScript.Sleep 20000
WshShell.SendKeys "{ }"
WScript.Sleep 200
WshShell.SendKeys "f"
WScript.Sleep 200


Wscript.Quit

objectdock

Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next


WshShell.Run ("C:\od\ObjectDock.exe")

WScript.Sleep 7000
WshShell.SendKeys "XXX-XXX-XXX-XXX-XX"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "{TAB 2}"
WScript.Sleep 200
WshShell.SendKeys "{UP}"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 25000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200

Wscript.Quit