VBS Ad-Axis Client.msi Install script

Author Message
Rioku

  • Total Posts : 52
  • Scores: 0
  • Reward points : 0
  • Joined: 1/27/2005
  • Location:
  • Status: offline
VBS Ad-Axis Client.msi Install script Monday, May 16, 2005 12:45 PM (permalink)
0
I completed this script which was very annoying becuase there is very little help for the new product. Hopefully this helps someone.

'**************************************************
' Author: Pearce Aurigemma
' 05/09/05
' Use: to install Ad-Axis client Via AD startup script
'
' This script is free for the public to use as long as
' this acknowledgment is present and not removed. I am not
' responsible for what this script might do to your network
' or your computers. Use this at your own risk.
'
' Copyright: This program licensed under the GNU GPL.
' http://www.foo.bar.com/foo/bar.txt"
'
'******************** Start COde ******************


Option Explicit

'On error resume next


Dim oShell
set oShell = WScript.CreateObject("WScript.Shell")

Dim oFS
set oFS = WScript.CreateObject("Scripting.FileSystemObject")

Dim COMSPEC
COMSPEC = oShell.ExpandEnvironmentStrings("%COMSPEC%")


if (oFS.FileExists("C:\Program Files\Lavasoft\Ad-Aware SE Professional\Ad-Aware.exe")) Then
'wscript.echo "step 1"

if (oFS.FileExists("C:\Program Files\Lavasoft\Ad-Axis Client\aaclient.exe")<> -1) Then
'wscript.echo "step 2"

'oShell.run( COMSPEC & " /c ""[location of client MSI]""SERVER_PORT=10050 SERVER_HOST=[server IP] AAWSE_PATH=""C:\Program files\Lavasoft\Ad-Aware SE Professional\"" /qn"), 7, true
'oShell.run( COMSPEC & " /c ""[location of client MSI]"" SERVER_PORT=10050 SERVER_HOST=[Server IP] AAWSE_PATH=" & chr(34) & "C:\Program files\Lavasoft\Ad-Aware SE Professional\" & chr(34) &" /qn " ), 7, true

oShell.Run "MsiExec.exe" & " /i " & chr(34) & "[location of client MSI]" & chr(34) & " /qb /t SERVER_PORT=10050 SERVER_HOST=[Server IP] ALLUSERS=2" ,7 ,true
wscript.sleep 60000 ' 1 min pause

End if

End if

'***************** Clean up *****************

Set oFS = Nothing
Set oShell = Nothing
WScript.Quit (0)

'******************End Code *****************




Please note there is a few commented out lines. the important ones "might" work however I learned about the ALLUERSER=2 when I was expiermenting with the third line. Also this is for the default installation read the script over before you go putting it on the network.

P.S sorry for the messy scripting I was in a rish to complete it and I did not really care about how it looked
 
#1

    Online Bookmarks Sharing: Share/Bookmark

    Jump to:

    Current active users

    There are 0 members and 1 guests.

    Icon Legend and Permission

    • New Messages
    • No New Messages
    • Hot Topic w/ New Messages
    • Hot Topic w/o New Messages
    • Locked w/ New Messages
    • Locked w/o New Messages
    • Read Message
    • Post New Thread
    • Reply to message
    • Post New Poll
    • Submit Vote
    • Post reward post
    • Delete my own posts
    • Delete my own threads
    • Rate post

    2000-2012 ASPPlayground.NET Forum Version 3.9