Jump to content

VBS Scripts

b0r3d

By b0r3d
in Unattended Windows 2000/XP/2003

 Share

Recommended Posts

b0r3d

b0r3d

Posted
Posted

Install switches just dont do what you want them to? Well, this thread will hopefully provide answers to thoes programs that dont have the silent install switches you're looking for.

Please contribute any VBS scripts you've found that work :)

Quite a few can be found here


SOOPAFLY

SOOPAFLY

Posted
Posted

here's a script for NOD32 Antivirus, change the sleep value according to your machine speed

(you know the deal paste in notepad and save with the vbs extension)

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

Wscript.Sleep 9000

WshShell.SendKeys "{DOWN}"

Wscript.Sleep 100

WshShell.SendKeys "{DOWN}"

Wscript.Sleep 100

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 2000


WshShell.SendKeys "{LEFT}"

Wscript.Sleep 100

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 1000


WshShell.SendKeys "{ENTER}"

Wscript.Sleep 1000


WshShell.SendKeys " "

Wscript.Sleep 100

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 1000


WshShell.SendKeys "{DOWN}"

Wscript.Sleep 100

WshShell.SendKeys " "

Wscript.Sleep 100

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 1000


WshShell.SendKeys "{ENTER}"

Wscript.Sleep 1000


WshShell.SendKeys "{UP}"

Wscript.Sleep 100

WshShell.SendKeys "{TAB}"

Wscript.Sleep 100

WshShell.SendKeys "{TAB}"

Wscript.Sleep 100

WshShell.SendKeys "{TAB}"

Wscript.Sleep 100

WshShell.SendKeys " "

Wscript.Sleep 100

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 1000


WshShell.SendKeys " "

Wscript.Sleep 100

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 1000


WshShell.SendKeys "{ENTER}"

Wscript.Sleep 1000


WshShell.SendKeys "{TAB}"

Wscript.Sleep 100

WshShell.SendKeys "{TAB}"

Wscript.Sleep 100

WshShell.SendKeys "{TAB}"

Wscript.Sleep 100

WshShell.SendKeys "{TAB}"

Wscript.Sleep 100

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 1000


WshShell.SendKeys "{ENTER}"

Wscript.Sleep 9000

WshShell.SendKeys "{RIGHT}"

Wscript.Sleep 100

WshShell.SendKeys "{ENTER}"

Wscript.Sleep 2000

WScript.Quit

here's a script for regcleaner (again change the sleep values accordind to your machine speed).

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

WScript.Sleep 1500

WshShell.SendKeys "{Tab}"

WshShell.SendKeys "{Tab}"

WshShell.SendKeys "{Tab}"

WshShell.SendKeys "{Tab}"

WshShell.SendKeys "{ENTER}"

WshShell.SendKeys "{ENTER}"

WScript.Sleep 1000

WScript.Quit

here's a script for winrar 3.2 (context menu without icons and will include only extraxt to,extract here,extract(filename) all file associations are being chosed)

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

WScript.Sleep 3500

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 500

WshShell.SendKeys " "

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys " "

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys " "

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys " "

WScript.Sleep 500

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys " "

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys " "

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys " "

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys " "

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys " "

WScript.Sleep 500

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys " "

WScript.Sleep 100

WshShell.SendKeys "{TAB}"

WScript.Sleep 100

WshShell.SendKeys "{ENTER}"

WScript.Sleep 600

WshShell.SendKeys "{ENTER}"

WScript.Sleep 3500

WshShell.SendKeys "%{F4}"

WScript.Quit

beep

beep

Posted
Posted

Hi all,

Im reading a lot of post here, realy nice, thanks m8s.

If you don't already know the Script.Shell has a property/method calld AppActive

With its method you can bring a particularly window to focus.

Using it as a propery you can check if there is a window with that name if so it will get focus.

this will speed up vb script installation helper and you dont have to fine tune the sleep between you actions, you can use a function similar to this

Option Explicit

'to wait for the window "Setup Finish" to appare and press Alt n

'!NOTE! if there are more then one window with the same name it will not work, it will need more work!


dim WshShell, iLoopTimeWait
Set WshShell = WScript.CreateObject("WScript.Shell")
iLoopTimeWait = 500 
Call Main()
Set WshShell = Nothing

Sub Main()
   Connect2Window iLoopTimeWait, "Setup Finish"
   WshShell.SendKeys "%n"
End Sub


Function  Connect2Window(iTime, sWindowName)
   Do until WshShell.AppActivate (sWindowName)
      WScript.Sleep iTime
   loop
End function

cheers

::beep

devil270975

devil270975

Posted
Posted

if people are going to use scripts to automate sendkeys then there is no need for reg tweaks and all the settings that ppl just cant do with the registry simply run file and settings wizard and save all your settings and stuff and then use a vbscript to replace all your settings, that way no need to fiddle with the registry :)

b0r3d

b0r3d

Posted
  • Author
Posted

Sendkeys is so you can automate a program that doesnt have a silent switch, or presents a screen that requires the user to interact on installation. Take winamp for example. At the end of the winamp installation, you're presented with a screen that the user has to press OK on. If a user has to do anything than this defeats the purpose of an unattended installation.

With these vbscripts, they use the sendkeys command to make the software think that someone pressed the OK button. So problem solved. Tricky software that requires user intervention, now doesnt.

devil270975

devil270975

Posted
Posted

i have managed to save the settings from one machine to another using file and setting transfer wizard and a vbscript

vbs is easier than taking a p**s after 10 pints of lager...lol...

Westi

Westi

Posted
Posted

Here is a example of an installation script fully in vb:

-Edit sysoc.inf

-Copy, move, delete, create files & folders

-Close programs

-Shutdown WinXP without an external program

-Wait for a window to appear, but not endless

On Error Resume Next

'Declare var's and objects
Dim WshS, fso, wi, sysr, sysd, home, aup, cpf, pf, up, upr, app, tool, Stpr, sys32, dllc, f1, t0, t1 ,t2, t5, t7, t10, t15, t30, Btn, i, wmi, os, objset
Set WshS = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'Expand Environment
'Create const's to spare time and place
sysr = WshS.ExpandEnvironmentStrings("%SystemRoot%")
sysd = WshS.ExpandEnvironmentStrings("%Systemdrive%")
home = WshS.ExpandEnvironmentStrings("%Homepath%")
aup = WshS.ExpandEnvironmentStrings("%AllUsersProfile%")
cpf = WshS.ExpandEnvironmentStrings("%CommonProgramfiles%")
pf = WshS.ExpandEnvironmentStrings("%Programfiles%")
up = WshS.ExpandEnvironmentStrings("%UserProfile%")

'WARNING: I use a "\" at the end.
'The above const's DON'T have a "\" at the end !
app = sysd & "\APPLICATIONS\"
sys32 = sysr & "\System32\"
dllc = sys32 & "\dllcache\"
Stpr = aup & "\Startmenu\Programs\"

'Upr-->%UserProfile%\Startmenu\Programs\
Upr = up & "\Startmenu\Programs\"

'Create a log-file
Set f1 = fso.CreateTextFile(sysd & "\install.log", True)

'Write a line to the log
f1.WriteLine "Begin Installation"

'I don't explain it;-)
f1.WriteBlankLines(1)

'Create const's for use in the script
wi = " is installed"

'Time const's for sleep
t0 = 500
t1 = 1000
t2 = 2000
t5 = 5000
t7 = 7000
t10 = 10000
t15 = 15000
t30 = 30000

'Make some optional components visible for (de)installation
WshS.Run "notepad.exe %systemroot%\inf\sysoc.inf"
WinDo = "sysoc.inf - Editor"
Call SendK("%{e}")

'I think in english is r-->replace
WshS.SendKeys "r"

Wscript.Sleep t1
WshS.SendKeys ",hide,"
WshS.SendKeys "{TAB}"
WshS.SendKeys ",,"
WshS.SendKeys "{TAB 4}"
WshS.SendKeys "~"
WshS.SendKeys "{TAB}"
WshS.SendKeys "~"
Wscript.Sleep t1
WshS.SendKeys "%{F4}"
WinDo = "Editor"
Call SendK("~")

'Show me a box for 2 sec.
WshS.Popup "Create TEMP-Folder",2

'Create Temp-folder
'I set all Temp-folders in the registry to %systemdrive%/Temp,
'cause i hate three or more temp-folders in the 2nd subdir
fso.CreateFolder(sysd & "\Temp")
f1.WriteLine "TEMP-Folder" & wi

'Packets to extract
WshS.Run app & "DirectX9b.exe", 0, true
'true --> same as /wait in batch
'0 --> hide window

'Delete what you (don't) want
fso.DeleteFile(dllc & "scrnsave.scr"), true
'true means--> DO IT!

'Move and copy what you want
fso.MoveFile dllc & "uxtheme.dll", dllc & "uxtheme.old"
fso.MoveFile sys32 & "uxtheme.dll", sys32 & "uxtheme.old"
fso.CopyFile app & "uxtheme.dll", dllc
fso.CopyFile app & "uxtheme.dll", sys32

'Install what you want

WshS.Run "REGEDIT /S " app & "reg.reg", 0, false
fso.CopyFile app & "directx.cpl", sys32 & "\"
f1.WriteBlankLines(1)
f1.WriteLine "Programs and files registered and copied "

WshS.Popup "Install programs",2, StrT,64

'For example
WshS.Run app & "Java141\setup.exe -s -f1" & Chr(34) & app & "Java141\setup.iss" & Chr(34), 0, true
f1.WriteLine "SUN-Java" & wi

WshS.Run app & "MsnMsgs.msi /QB", 0, true
WshS.Run app & "MsgPlus.exe /SilentInstallNoSponsor", 0, true
f1.WriteLine "Messenger 6 und Plus" & wi

'Thank you beep;-)
WinDo = "Internet Explorer"
Call SendK("%{F4}")
WinDo = "MSN Messenger"
Call SendK("%{F4}")

'Install your programs here or anywhere

'Install DX9b
WshS.Run app & "DirectX9b\dxsetup.exe /windowsupdate", 0, true

'You can simple check for execution, but this is a lot of work
If fso.FileExists(sysr & "\directx.log") Then
	f1.WriteLine "DirectX9b" & wi
Else
	f1.WriteLine "  DirectX9b NOT installed "
End If

f1.WriteBlankLines(1)
WshS.Run app & "xp-AntiSpy.exe 0 1 2 3 4 5 6 7 8 9 10 11 12 14 16 19 20 21 22 24 25 26 27 29 30 31 32"

fso.DeleteFolder(Stpr & "PrintM~1"), true
fso.DeleteFile(upr & "Remote~1.lnk"), true

'Delete PrintMe- thing
fso.DeleteFolder(pf & "\Adobe\Acrobat 6.0\Reader\plug_ins\Printme"), true
fso.DeleteFile(pf & "\Adobe\Acrobat 6.0\Reader\plug_ins\Printme.*"), true
f1.WriteLine "Stupid things deleted "

fso.DeleteFolder(sysd & "\Applications"), true
fso.DeleteFile(sysr & "\deluser.exe"), true

'Close the log
f1.Close

'empty Tempfolder
fso.DeleteFile(sysd & "\Temp\*.*"), true

'delete tmp-files in windir
fso.DeleteFile(sysr & "*.tmp"), true

'Shutdown in 10 sec. If you press 'Yes', immediatly.
Btn = WshS.Popup ("System-Shutdown in 10 sec. !",10," - Shutdown - ",36)
If Btn = 7 Then Wscript.Quit
Set wmi = GetObject("winmgmts:{(Shutdown)}")
Set objset = wmi.instancesof("win32_operatingsystem")
For each obj in objset
Set os = obj :  exit For
Next

fso.DeleteFile(sysd & "\install.vbs"), true
'Delete this script

os.shutdown
Wscript.Quit

Sub SendK(Skey)
  Connect2Window t0, WinDo
  WshS.SendKeys Skey
End Sub

Function  Connect2Window(iTime, sWindowName)
i = 1
  Do until WshS.AppActivate (sWindowName)
i = i + 1
     WScript.Sleep iTime
'wait max. 40 x t0 ~ 20 sec.
If i = 40 Then Exit Function
  loop
End Function

Maybe someone can use few lines..

gosh

gosh

Posted
Posted

msconfigdisabled.vbs

I like this because it's a vbs version of msconfig. It's good for newbies, and it's good if a virus deleted/disabled your msconfig.

Set oReg = GetObject("winmgmts:!root/default:StdRegProv")

Const HKLM = &H80000002

RegKeySUF = "SOFTWARE\Microsoft\Shared Tools\MSConfig\startupfolder"

RegKeySUR = "SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg"

ResultsSUF = EnumKey(HKLM, RegKeySUF, False)

If ResultsSUF = "" Then

  ResultsSUF = space(5) & "(none)"

  iBtns = 0

Else

  iBtns = 4

  sDelPrompt = "Would you like to selectively delete any of these items?"

End If

sResults = "Disabled items in startupfolder key:" & vbcrlf & _

        ResultsSUF & vbcrlf & vbcrlf

ResultsSUR = EnumKey(HKLM, RegKeySUR, False)

If ResultsSUR = "" Then

  ResultsSUR = space(5) & "(none)"

  If iBtns <> 4 Then iBtns = 0

Else

  iBtns = 4

  sDelPrompt = "Would you like to selectively delete any of these items?"

End If

sResults = sResults & "Disabled items in startupreg key:" & vbcrlf & _

        ResultsSUR & vbcrlf & vbcrlf

If MsgBox(sResults & sDelPrompt, iBtns + 256) <> 6 Then WScript.quit

EnumKey HKLM, RegKeySUF, True

EnumKey HKLM, RegKeySUR, True

Function EnumKey(Key, SubKey, bDelete)

Dim Ret()

oReg.EnumKey Key, SubKey, sKeys

  On Error Resume Next

 

ReDim Ret(UBound(sKeys))

  If Err = 13 Then Exit Function

  On Error GoTo 0

For Count = 0 to UBound(sKeys)

If Not bDelete Then

  'this branch used on first call

    Ret(Count) = space(5) & sKeys(Count)

  Else

    'this branch used on deletion iteration

    If MsgBox("Do you want to delete " & sKeys(Count) & "?" & vbcrlf & _

              vbcrlf & "This operation cannot be undone!", 4 + 256) = 6 Then

        DeleteKey HKLM, SubKey & "\" & sKeys(Count)

    End If

End If

Next

EnumKey = Join(Ret, vbcrlf)

End Function

Function DeleteKey(Key, SubKey)

DeleteKey = oReg.DeleteKey(Key, SubKey)

End Function

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

VisitKelly's Korner

Sub VisitKelly's Korner

If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then

  ws.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm"

End If

End Sub

gosh

gosh

Posted
Posted

I am currently using this in my new cd. This script is very simple but does something very important, it tells you what OS type the person is using. This is really cool because it let's you write one batch file and use it for multiple os's such as xp pro, win2k pro, and win2k server, etc. This batch file works on win2k/xp/server2k3

os.vbs

WScript.Echo SystemRole

Function SystemRole

Dim wmi, wql, Systems, System

Set wmi = getobject("winmgmts:")

wql = "select DomainRole from Win32_ComputerSystem"

Set Systems = wmi.execquery(wql)

For Each System In Systems

  Select Case System.DomainRole

Case 0 SystemRole = "Workstation"

Case 1 SystemRole = "Workstation"

Case 2 SystemRole = "Server"

Case 3 SystemRole = "Server"

Case 4 SystemRole = "Server"

Case 5 SystemRole = "Server"

Case Else SystemRole = "Unknown"

  End Select

Exit For

Next

End Function

studguy1

studguy1

Posted
Posted

DivX Pro 5.1 Install with removal of the adware,

you will need pskill.exe (http://www.MSFN.org/unattended/files/pskill.zip) in your system directory for this to work

modify 'app' to the location of the files

Create the two files divx.vbs abd gator.reg and place in install directory

***************** divx.vbs************************

'DivX 5.1 Pro Adware
'Script Created by Puru Oct 13, 2003
Dim WshShell, fso, temp, sysd, app, t0, reg, i, WinDo

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
temp = WshShell.ExpandEnvironmentStrings("%TEMP%")
sysd = WshShell.ExpandEnvironmentStrings("%Systemdrive%")
app = sysd & "\install\Applications\DivXPro\"
reg = app & "gator.reg"
t0 = 500 

On Error Resume Next
WshShell.Popup "Do NOT MOVE the mouse an do NOT PRESS any button!",5," - Warning - ",48

WshShell.Run (app & "DivXPro51GAINBundle.exe")

'Increase this value if you have a slower harddisk
WScript.Sleep 5000

'DivX Pro(tm) Codec Adware Setup
WshShell.SendKeys "n"
WScript.Sleep 200

'Welcome
WshShell.SendKeys "n"
WScript.Sleep 200

'Choose Destination Location
WshShell.SendKeys "n"
WScript.Sleep 200

'Select Components
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys " "
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys " "
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "n"
WScript.Sleep 200

'Ready to Install
WshShell.SendKeys "n"
WScript.Sleep 200

'Gain Installation
WshShell.SendKeys "n"
WScript.Sleep 200

'DiVX License Agreement
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200

'The Gator Corporation Privacy Statement
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200

'The Gator Corporation License Agreement
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"


'Wait for Installation to Finish
WinDo="Finished"
Call SendK("{Enter}")
WSCRipt.Sleep t0

'Close Window
WinDo = "DivX Pro Codec Adware"
Call SendK("%{F4}")


'Kill the gain process
WshShell.Run ("PSKill gain_3202")
WScript.Sleep 200

'Delete the executables
fso.DeleteFile(temp & "\~vis0000\gain_3202.exe"), true
fso.DeleteFolder(temp & "\~vis0000"), true
WScript.Sleep 200

'Remove Adware Registry Keys
WshShell.Run "REGEDIT /S " & reg, 0, false


Sub SendK(Skey)
 Connect2Window t0, WinDo
 WshShell.SendKeys Skey
End Sub

Function  Connect2Window(iTime, sWindowName)
i = 1
 Do until WshShell.AppActivate (sWindowName)
i = i + 1
    WScript.Sleep iTime
'wait max. 40 x t0 ~ 20 sec.
If i = 40 Then Exit Function
 loop
End Function

Wscript.Quit

****************** Gator.reg***********************

Windows Registry Editor Version 5.00

[-HKEY_LOCAL_MACHINE\SOFTWARE\Gator.com]

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"Trickler"=-

Thanks to all the guys who posted scripts earlier

My 0.02

KonuS

KonuS

Posted
Posted

Total copy 1.1

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

'uruchomienie instalacji
WshShell.Run app & "tc11.exe"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "%e"
WScript.Sleep 500
WScript.Quit

Avant Browser

with making only shortcut on quicklaunch, if you want standard instalation del

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "{TAB}"

WshShell.SendKeys "{ }"

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

'uruchomienie instalacji
WshShell.Run app & "absetup.exe"
WScript.Sleep 2500
WshShell.SendKeys "N"
WScript.Sleep 500
WshShell.SendKeys "%A"
WScript.Sleep 500
WshShell.SendKeys "N"
WScript.Sleep 500
'odznaczanie menu w starcie
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ }"
WshShell.SendKeys "N"
WScript.Sleep 500
'odznaczenie skrotow
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ }"
WshShell.SendKeys "I"
'start kopiowania
WScript.Sleep 5000
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ }"
WshShell.SendKeys "F"
WScript.Sleep 500

WScript.Quit

AiRoboForm

this is standard instalation with adding my setting to registry,deleting folder c:\my... because i have in my own location my files, and killing processys.

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'uruchomienie instalacji
WshShell.Run app & "airoboform.exe"
WScript.Sleep 2500
WshShell.SendKeys "%A"
WScript.Sleep 500
WshShell.SendKeys "N"
WScript.Sleep 500
WshShell.SendKeys "M"
WScript.Sleep 500
WshShell.SendKeys "I"
WScript.Sleep 5000
WshShell.Run app & "pskill.exe RoboTaskBarIcon.exe", 1, true
WScript.Sleep 500
WshShell.Run app & "pskill.exe iexplorer.exe", 1, true
WScript.Sleep 500
WshShell.Run app & "REGEDIT /S airoboHCU.reg", 1, true
WScript.Sleep 500
fso.DeleteFolder(Stpr & "c:\MyRobo~1"), true
WScript.Quit

Westi

Westi

Posted
Posted

Some hints:

Write a key:

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce\Imp", "C:\imp.htm", "REG_SZ"

Delete a key:

WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\MsnMsgr"

Check for Cdrom:

Very useful for a 2 CD installation

This function checks for : Drive ready, CDROM and Volumename.

Change the VolumeName to your value.

...
Call ChCD(D:\)
WshShell.Popup "CD is " & s
...
Wscript.Quit
Function ChCD(DriveN)
  Set d = fso.GetDrive(DriveN)
  If d.IsReady And d.DriveType = 4 And d.VolumeName = "XPBOOT" Then s = DriveN
End Function

Combine Sendkey and sleep:

Wait 0.5 sec. and press enter.

SendST(500,"~")
...
Wscript.Quit

Sub SendST(pause, key)
WScript.Sleep pause
WshShell.SendKeys key
End Sub

Don't declare any variables of the codes with Dim, but 's' !!

DarkBringer

DarkBringer

Posted
Posted

I may be out of line but, could I ask one of you knowledgable folks to do a .vbs script for an unattended install of Webshots Desktop and Webroot's Spysweeper?

I have tried the /s, /silent, /VERYSILENT, /R , /QB..................You name it, I've tried it.

I even tried .vbs scripts myself but failed miserably. (Probably due to the fact that I don't know what I'm doing. I just changed a couple of settings on Westi's Adaware 6 script to see if it would work)

Help?

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...