VBS Scripts

[Westi]

@Darkbringer

I don't have all the software.

If you post the window title and the needed value of each window or button to be pressed, i will try to write a script.

The better way is to make screenshots of the windows, who needs user interaction and send a PM.

[Westi]

Disable Mouse and Keyboard while running a script:

Download AutoITX

You need only the ActiveX Control version ~78kb (at the end of the page)

Dim WSHShell, AutoIt
Set WSHShell = WScript.CreateObject("WScript.Shell")
'Register the dll
WSHShell.Run "regsrv32 /s \YourPath\AutoItx.dll"
Set AutoIt = WScript.CreateObject("AutoItX.Control")
AutoIt.BlockInput "on"
'Do things
.
.
.
Wscript.Quit

[DarkBringer]

PM sent, Westi.

[ahmedramzi]

Does anyone know how to make a VBS Script that installs:

ACDSee 6 PowerPack

Acrobat writer pro 6

Quicktime player 6.1?

they all require name, company name & product key to be entered during setup

[ahmedramzi]

does anyone know how to silent install these programs in order to attach them to my unattended XP CD?

ACDSee 6 PowerPack (without MSI)

Acrobat writer pro 6?

Quicktime Player 6.1

they all need some information to be entered during setup, I've asked DAVEXP & he told me to go to this thread and look for VBS Script that will do the job.

any help?

[visaversa]

ahmedramzi

Unlike Acrobat Reader prior to version 6, this new release does not use InstallShield's PackageForTheWeb. Instead, it uses something called the "Netopsystems FEAD optimizer", whose command-line switches are documented nowhere.

However, Adobe provides silent installation instructions in their knowledgebase articles 53446 and 53495. Viewing these requires registering for an account with the "Adobe Solutions Network"; how annoying. Briefly, the magic invocation is:

AdbeRdr60_enu_full.exe -p"-s /v\"/qn\""

Alternatively, you can get hold of the MSI file with a quick hack. If you start the installer and wait for it to finish extracting files, you will find it creates a folder named %SystemRoot%\cache\Adobe Reader 6.0\BIGENU. (SystemRoot is normally C:\WINNT or C:\WINDOWS.)

This folder contains the complete uncompressed tree, including an MSI file named Adobe Reader 6.0.msi. So just copy the BIGENU folder to, say, Z:\packages\AdobeReader60, and you can perform unattended installations like any other MSI package:

msiexec /qb /i "z:\packages\AdobeReader60\Adobe Reader 6.0.msi"

I know this is for Reader 6, but lets try it for the writer sorry

Let me know

W

[DarkBringer]

PM sent for Spysweeper, Westi.

Still can't download Webshots.

[Westi]

PM sent for Spysweeper, Westi.

Still can't download Webshots.

I've the same problem with your file !?

Check your PM !

[XtremeMaC]

hey does anyone know how to use two send keys in one

what I mean :

{SHIFT} & {TAB} at the same time ? how do we do this?

i've failed my previous attempts!

[ahmedramzi]

visaversa

unfortunately I'm trying to install Acrobat writer, not reader..

thanks anyway for your post

[DarkBringer]

Sorry I took so long to get back to you, Westi. But when I tried installing Webshots for the first time, I got errors like crazy. Then when you sent the correction I was like, "YES!!"

The whole thing took about 10 seconds to install. I haven't tried Spysweeper yet, though. I'll send you a PM when I do. I am so indebted to you.

[Westi]

hey does anyone know how to use two send keys in one

what I mean :

{SHIFT} & {TAB} at the same time ? how do we do this?

i've failed my previous attempts!

Sendkeys "+{TAB}"

-SHIFT TAB

Sendkeys "+"

-SHIFT

Sendkeys "^"

-CTRL

Sendkeys "%"

-ALT

Sendkeys "+(ec)"

-SHIFT EC

Sendkeys "+ec"

-SHIFT E and normal c

If you need the normal value, insert it in {}:

"{+}" is +

All special keys:

{BACKSPACE} or {BS} or {BKSP}, {BREAK},{CAPSLOCK},{DELETE} or {DEL}

{DOWN},{UP},{END},{ENTER} or ~,{ESC},{HELP},{HOME},{INSERT} or {INS}

{LEFT},{RIGHT},{NUMLOCK},{PGDN},{PGUP},{PRTSC},{SCROLLLOCK},{TAB}

{F1}..... {F16}

CTRL/ALT/DEL and special window keys not implemented !

[XtremeMaC]

thanks westi! exactly what I was looking for

[Westi]

Check for the right drive and name, Version 2 :

Dim fso, objDrive, s, InstCD
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
For Each objDrive In fso.Drives
If objDrive.IsReady Then 
If objDrive.DriveType = 4 And objDrive.VolumeName = "xxx-Your CD name-xxx" Then s = objDrive.DriveLetter & ":\"
End If
Next
'Write it to all keys in the registry
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\CDROM",s ,"REG_SZ"
WshShell.RegWrite "HKCU\Environment\CDROM", s, "REG_SZ"
WshShell.RegWrite "HKU\.Default\Environment\CDROM", s, "REG_SZ"
'Get the value in another script
InstCD = WshShell.ExpandEnvironmentStrings("%CDROM%")

Wscript.Quit

My first version fails if a drive isn't ready

[aitf311]

I know this is a complete noob question, but how do I run a vbs file from a cmd? For example the winamp.vbs file...