Δ
Monday, February 28th, 2011
Δ
Adobe Acrobat X Professional
How to install Adobe Acrobat silently
Command:
|
msiexec.exe /i "%windir%\system32\AcroPro.msi" /qn /norestart
TRANSFORMS="%windir%\system32\AcroPro.mst" REBOOT=ReallySuppress
|
Δ
Sunday, February 27th, 2011
Δ
Installing Firefox, Opera, & Messenger Live
How to create a single package to install 3 apps
Demo:
VBScript:
|
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'::E L I T E S O L U T I O N S
':: SCRIPT LANGUAGE: VBScript
'::
SCRIPT NAME: Install.vbs
':: PURPOSE: To be used to install
':: PrimoPDF
(Needed to create PDFs)
':: PDF Splitter (Needed to split large PDFs from
students)
':: Opera/Firefox (Use these browsers for various reasons mainly to
automate process or improve functionality)
':: Desktop PrintScreen (Needed to
create documents)
':: Windows Live Messenger (Needed to communicate with
sites, eventually we will use MS Communicator)
':: CREATION DATE: 02/17/2011
':: LAST MODIFIED:
':: DIRECTIONS: Execute from Client Workstation under
admin account
':: AUTHOR: Eddie Jackson - Computer Systems Engineer
'::
EMAIL: MrNetTek2000@yahoo.com
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'VARIABLES
'on error resume next
Dim objShell, strCurrentDirectory,
LocalTemp, strComputer, wshNetwork, OSDetect
Const HKEY_LOCAL_MACHINE =
&H80000002
Set objShell = CreateObject("Wscript.Shell")
'SETS CURRENT
DIRECTORY TO VARIABLE
strCurrentDirectory = objShell.CurrentDirectory
'PRE-SETUP COMMANDS
'on error resume next
Set objShell =
CreateObject("Wscript.Shell")
objShell.Run "%comspec% /c
%windir%\system32\taskkill.exe /f /im cmd.exe",0,True
objShell.Run "%comspec%
/c %windir%\system32\taskkill.exe /f /im setup.exe",0,True
objShell.Run
"%comspec% /c %windir%\system32\taskkill.exe /f /im GlobalFiles.exe",0,True
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe /f /im
mshta.exe",0,True
'TASKKILLS PRE-INSTALLATION COMMANDS
'KILLS
CURRENTLY RUNNING MSIEXEC.EXE
objShell.Run "%comspec% /c
%windir%\SYSTEM32\TASKKILL.EXE /F /IM msiexec.exe",0,true
'SET LOCAL TEMP
DIRECTORY
LocalTemp =
CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")
'GLOBAL
FILE EXTRACTION
objShell.Run "%comspec% /c move /y " & chr(34) &
strCurrentDirectory & "\GlobalFiles.exe" & chr(34) & " " & chr(34) & LocalTemp &
"\" & chr(34),0,true
objShell.Run "%comspec% /c " & chr(34) & LocalTemp &
"\GlobalFiles.exe" & chr(34),0,true
WScript.Sleep 1000
'SET
WORKSTATION NAME - PRIMARY METHOD
strComputer = "."
'SET WORKSTATION
NAME - SECONDARY METHOD
if strComputer = "" then
'on error resume next
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
strComputer =
wshNetwork.ComputerName
end if
'SET WORKSTATION NAME - TERTIARY METHOD
if strComputer = "" then
'on error resume next
strComputer =
objhShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
end if
'ENABLED'PRIMARY OS DETECTION
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Set objWMIService = GetObject(
"winmgmts://" & strComputer & "/root/CIMV2" )
Set colInstances =
objWMIService.ExecQuery( "SELECT * FROM Win32_OperatingSystem", "WQL",
wbemFlagReturnImmediately + wbemFlagForwardOnly )
For Each objInstance In
colInstances
'on error resume next
'msgbox objInstance.Caption
OSDetect
= objInstance.Caption
Next
OSDetect = trim(OSDetect)
'msgbox
OSDetect
'load splash
objShell.Run "%comspec% /c
%temp%\kaplan.hta",0,false
objShell.Run "%comspec% /c echo Preparing
Installation...>%temp%\msg.txt",0,true
WScript.Sleep 4000
if OSDetect
= "Microsoft Windows XP Professional" then XP()
if OSDetect = "Microsoft
Windows XP" then XP()
if OSDetect = "Microsoft Windows XP Home" then XP()
if OSDetect = "Microsoft Windows Vista Ultimate" then Seven()
if OSDetect =
"Microsoft Windows Vista Premium" then Seven()
if OSDetect = "Microsoft
Windows Vista Home" then Seven()
if OSDetect = "Microsoft Windows Vista
Basic" then Seven()
if OSDetect = "Microsoft Windows 7 Enterprise" then
Seven()
if OSDetect = "Microsoft Windows 7 Enterprise Edition" then Seven()
if OSDetect = "Microsoft Windows 7 Ultimate" then Seven()
if OSDetect =
"Microsoft Windows 7 Ultimate Edition" then Seven()
if OSDetect = "Microsoft
Windows Server 2003 Standard" then XP()
if OSDetect = "Microsoft Windows
Server 2008 Standard" then Seven()
if OSDetect = "Microsoft Windows Server
2008 Standard Edition" then Seven()
if OSDetect = "Microsoft Windows Server
2008 Enterprise" then Seven()
if OSDetect = "Microsoft Windows Server 2008
Enterprise Edition" then Seven()
if OSDetect <> "Microsoft Windows Server
2008 Enterprise" then XP()
WScript.Quit(0)
'W I N D O W S X P
Sub
XP
'on error resume next
Set objShell = CreateObject("Wscript.Shell")
'SET LOCAL TEMP DIRECTORY
LocalTemp =
CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")
'FIREFOX
objShell.Run "%comspec% /c echo Installing Firefox
Browser...>%temp%\msg.txt",0,true
WScript.Sleep 4000
objShell.Run
"%comspec% /c %temp%\Firefox_Install.exe",0, true
objShell.Run "%comspec% /c
%temp%\setup.exe -ms",0, true
objShell.Run "%comspec% /c
%windir%\system32\taskkill.exe /f /im setup.exe",0,true
objShell.Run
"%comspec% /c %windir%\system32\taskkill.exe /f /im Firefox_Install.exe",0,true
objShell.Run "%comspec% /c echo Firefox Browser
Installed!>%temp%\msg.txt",0,true
WScript.Sleep 4000
'OPERA
objShell.Run "%comspec% /c echo Installing Opera
Browser...>%temp%\msg.txt",0,true
WScript.Sleep 4000
objShell.Run
"%comspec% /c %temp%\Opera_Install.exe",0, true
objShell.Run "%comspec% /c
%temp%\opera.exe /Install /silent /launchopera 0 /allusers",0, true
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe /f /im
opera.exe",0,true
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe
/f /im Opera_Install.exe",0,true
objShell.Run "%comspec% /c echo Opera
Browser Installed!>%temp%\msg.txt",0,true
WScript.Sleep 4000
'MESSENGER
objShell.Run "%comspec% /c echo Installing
Messenger...>%temp%\msg.txt",0,true
WScript.Sleep 4000
objShell.Run
"%comspec% /c %temp%\WLSetup-all.exe /q /NOToolbarCEIP /NOhomepage /Nolaunch
/nosearch /AppSelect:Photo,Mail,Messenger",0, true
objShell.Run "%comspec% /c
%windir%\system32\taskkill.exe /f /im WLSetup-all.exe",0,true
objShell.Run
"%comspec% /c echo Messenger Installed!>%temp%\msg.txt",0,true
WScript.Sleep
4000
'END
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe /f
/im mshta.exe",0,True
WScript.Quit(0)
end sub
'W I N D O W
S S E V E N
sub Seven
msgbox "This package is intended for Windows XP
Only! "
WScript.Quit(0)
end sub
|
Δ
Saturday, February 26th, 2011
Δ
Installing DoD Certificates
How to update certificates.
Demo:
VBScript:
|
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
':: E L I T E S O L U T I O N S
':: SCRIPT LANGUAGE: VBScript
':: SCRIPT
NAME: DoDCertificates.vbs
':: PURPOSE: To be used to install DoD Certificates
from LANDesk Management Suite
':: CREATION DATE: 02/08/2010
':: LAST
MODIFIED:
':: DIRECTIONS: Send to client workstation from LANDesk
'::
AUTHOR: Eddie Jackson - Computer Systems Engineer
':: EMAIL:
MrNetTek2000@yahoo.com
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'VARIABLES
on error resume next
DIM LocalTemp, ErrorCode1, ErrorCode2,
ErrorCode3
Set objShell = CreateObject("Wscript.Shell")
strCurrentDirectory = objShell.CurrentDirectory
'SET WORKSTATION NAME -
PRIMARY METHOD
strComputer = "."
'SET WORKSTATION NAME - SECONDARY
METHOD
if strComputer = "" then
on error resume next
Set wshNetwork =
WScript.CreateObject( "WScript.Network" )
strComputer =
wshNetwork.ComputerName
end if
'SET LOCAL TEMP DIRECTORY
LocalTemp
= CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")
'COPIES SOURCE FILES TO TEMP DIRECTORY
Err.Number = objShell.Run ("%comspec%
/c copy /Y " & chr(34) & objShell.CurrentDirectory & "\DoDCertificates.p7b" &
chr(34) & " " & chr(34) & "%temp%\"&chr(34),0,true)
WScript.Sleep 1000
ErrorCode1_1 = Err.Number
Err.Number = objShell.Run ("%comspec% /c copy
/Y " & chr(34) & objShell.CurrentDirectory & "\InstallRoot_v3.13.sha256" &
chr(34) & " " & chr(34) & "%temp%\"&chr(34),0,true)
WScript.Sleep 1000
ErrorCode1_2 = Err.Number
Err.Number = objShell.Run ("%comspec% /c copy
/Y " & chr(34) & objShell.CurrentDirectory & "\InstallRoot_v3.13A.exe" & chr(34)
& " " & chr(34) & "%temp%\"&chr(34),0,true)
WScript.Sleep 1000
ErrorCode1_3 = Err.Number
Err.Number = objShell.Run ("%comspec% /c copy
/Y " & chr(34) & objShell.CurrentDirectory & "\InstallRoot_v3.13A.txt" & chr(34)
& " " & chr(34) & "%temp%\"&chr(34),0,true)
WScript.Sleep 1000
ErrorCode1_4 = Err.Number
Err.Number = objShell.Run ("%comspec% /c copy
/Y " & chr(34) & objShell.CurrentDirectory & "\certutil.exe" & chr(34) & " " &
chr(34) & "%temp%\"&chr(34),0,true)
WScript.Sleep 1000
ErrorCode1_5 =
Err.Number
Err.Number = objShell.Run ("%comspec% /c copy /Y " & chr(34) &
objShell.CurrentDirectory & "\certcli.dll" & chr(34) & " " & chr(34) &
"%temp%\"&chr(34),0,true)
WScript.Sleep 1000
ErrorCode1_6 = Err.Number
Err.Number = objShell.Run ("%comspec% /c copy /Y " & chr(34) &
objShell.CurrentDirectory & "\certadm.dll" & chr(34) & " " & chr(34) &
"%temp%\"&chr(34),0,true)
WScript.Sleep 1000
ErrorCode1_6 = Err.Number
'SET WORKSTATION NAME - TERTIARY METHOD
if strComputer = "" then
on error resume next
strComputer = wshShell.ExpandEnvironmentStrings(
"%COMPUTERNAME%" )
end if
'ENABLED'PRIMARY OS DETECTION
Const
wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Set
objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
Set
colInstances = objWMIService.ExecQuery( "SELECT * FROM Win32_OperatingSystem",
"WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
For Each
objInstance In colInstances
on error resume next
'msgbox
objInstance.Caption
OSDetect = objInstance.Caption
Next
OSDetect =
trim(OSDetect)
'msgbox OSDetect
if OSDetect = "Microsoft Windows XP
Professional" then XP()
if OSDetect = "Microsoft Windows XP" then XP()
if
OSDetect = "Microsoft Windows XP Home" then XP()
if OSDetect = "Microsoft
Windows Vista Ultimate" then Seven()
if OSDetect = "Microsoft Windows Vista
Premium" then Seven()
if OSDetect = "Microsoft Windows Vista Home" then
Seven()
if OSDetect = "Microsoft Windows Vista Basic" then Seven()
if
OSDetect = "Microsoft Windows 7 Enterprise" then Seven()
if OSDetect =
"Microsoft Windows 7 Enterprise Edition" then Seven()
if OSDetect =
"Microsoft Windows 7 Ultimate" then Seven()
if OSDetect = "Microsoft Windows
7 Ultimate Edition" then Seven()
if OSDetect = "Microsoft Windows Server 2003
Standard" then XP()
if OSDetect = "Microsoft Windows Server 2008 Standard"
then Seven()
if OSDetect = "Microsoft Windows Server 2008 Standard Edition"
then Seven()
if OSDetect = "Microsoft Windows Server 2008 Enterprise" then
Seven()
if OSDetect = "Microsoft Windows Server 2008 Enterprise Edition" then
Seven()
if OSDetect <> "Microsoft Windows Server 2008 Enterprise" then XP()
WScript.Quit(0)
sub XP()'works on XP and Server 2003
on
error resume next
'INSTALLS CERTIFICATES - PRIMARY METHOD
Err.Number =
objShell.Run ("%comspec% /c %temp%\InstallRoot_v3.13A.exe",0,true)
WScript.Sleep 2000
ErrorCode1 = Err.Number
'INSTALLS CERTIFICATES -
SECONDARY METHOD
objShell.Run "%comspec% /c %windir%\system32\regsvr32.exe /s
%temp%\certcli.dll",0,true
objShell.Run "%comspec% /c
%windir%\system32\regsvr32.exe /s %temp%\certadm.dll",0,true
Err.Number =
objShell.Run ("%comspec% /c cd\ & c: & cd %temp% & %temp%\certutil.exe -addstore
-enterprise -user root %temp%\DoDCertificates.p7b",0,false)
WScript.Sleep
2000
ErrorCode2 = Err.Number
'SENDS ERROR CODES BACK TO LANDESK
WScript.Quit(ErrorCode2)
end sub
sub Seven()'works on Server 2008
as well
on error resume next
'INSTALLS CERTIFICATES - PRIMARY METHOD
Err.Number = objShell.Run ("%comspec% /c %temp%\InstallRoot_v3.13A.exe",0,true)
WScript.Sleep 2000
ErrorCode1 = Err.Number
Err.Number = objShell.Run
("%comspec% /c cd\ & c: & cd %temp% & %windir%\system32\certutil.exe -addstore
-enterprise -user root %temp%\DoDCertificates.p7b",0,false)
WScript.Sleep
2000
ErrorCode2 = Err.Number
'TASKKILLS FAULT WINDOWS
Err.Number =
objShell.Run ("%comspec% /c %windir%\system32\taskkill.exe /f /im werfault.exe
",0,false)
WScript.Sleep 1000
ErrorCode3 = Err.Number
'TASKKILLS
COMPATIBILITY WINDOW
Err.Number = objShell.Run ("%comspec% /c
%windir%\system32\taskkill.exe /f /im taskhost.exe ",0,false)
WScript.Sleep
1000
ErrorCode4 = Err.Number
'INSTALLS CERTIFICATES - SECONDARY
METHOD
Err.Number = objShell.Run ("%comspec% /c cd\ & c: & cd %temp% &
%windir%\system32\certutil.exe -addstore -enterprise -user root
%temp%\DoDCertificates.p7b",0,false)
WScript.Sleep 2000
ErrorCode4 =
Err.Number
'SENDS ERROR CODES BACK TO LANDESK
WScript.Quit(ErrorCode4)
end sub
WScript.Quit(0)
|
Δ
Tuesday, February 22nd, 2011
Δ
Javascript Scrolling
Demo:
HTML:
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<style>
html { font-family:arial, helvetica, sans-serif }
body {
height:100%;
margin:0 auto; text-align:center;
background-color:#000000;
font-weight:normal; color:#0099cc;
font:62.5% arial, helvetica, sans-serif;
font-style:normal
}
div, span, img, a {
margin:0; padding:0;
border:none; text-decoration:none; font-family:arial, helvetica, sans-serif
}
div.genFont {font-size:1.2em} div.genFont a {text-decoration: underline}
a
{color:#0099cc} a:hover {color:#000099}
.left { float:left } .right {
float:right }
div.container {
min-width:800px; max-width:1000px;
height:3000px; margin:0 auto; text-align:left
}
div.head { margin:0 10px 0
10px; padding:25px 10px 10px 10px }
div.head h1 { font-size:2em; color:#aaa }
div.head h1 a {font-size:medium; color:#0099cc}
div.head h1 a:hover
{border-bottom:1px dashed #0099cc}
div.nav { height:35px; padding-right:5px;
background:#000000; border-top:3px solid #0099cc}
div.nav a {
float:left;
display:block; padding:0 10px 0 10px; height:35px; margin-left:5px;
font-size:1.4em; font-weight:bold; line-height:2.4em; color:#0099cc;
text-align:center;
background:#000000; border-bottom:3px solid #000000
}
div.nav a:hover, div.nav a.sel, div.nav a.sel:hover {
color:#000099;
border-bottom:3px solid #ddd
}
div.content {min-height:100px; margin:50px
20px 20px 20px}
</style>
<html
xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>Creating the "Smooth Scroll" Effect with JavaScript</title>
<meta
http-equiv="content-type" content="text/html;charset=utf-8" />
<meta
http-equiv="content-style-type" content="text/css" />
<link rel="stylesheet"
type="text/css" href="styles.css" />
<script type="text/javascript">
function currentYPosition() {
if (self.pageYOffset)
return
self.pageYOffset;
if (document.documentElement &&
document.documentElement.scrollTop)
return
document.documentElement.scrollTop;
if (document.body.scrollTop)
return
document.body.scrollTop;
return 0;
}
function elmYPosition(eID) {
var elm = document.getElementById(eID);
var y = elm.offsetTop;
var node =
elm;
while (node.offsetParent && node.offsetParent != document.body) {
node = node.offsetParent;
y += node.offsetTop;
} return y;
}
function smoothScroll(eID) {
var startY = currentYPosition();
var stopY =
elmYPosition(eID);
var distance = stopY > startY ? stopY - startY : startY -
stopY;
if (distance < 100) {
scrollTo(0, stopY); return;
}
var speed
= Math.round(distance / 100);
if (speed >= 250) speed = 250;
var step =
Math.round(distance / 1000);
var leapY = stopY > startY ? startY + step :
startY - step;
var timer = 0;
if (stopY > startY) {
for ( var i=startY;
i<stopY; i+=step ) {
setTimeout("window.scrollTo(0, "+leapY+")", timer *
speed);
leapY += step; if (leapY > stopY) leapY = stopY; timer++;
}
return;
}
for ( var i=startY; i>stopY; i-=step ) {
setTimeout("window.scrollTo(0, "+leapY+")", timer * speed);
leapY -= step; if
(leapY < stopY) leapY = stopY; timer++;
}
}
</script>
<SCRIPT Language="VBScript">
On Error Resume Next
Sub Window_OnLoad
end
sub
</script>
</head>
<body>
<div id="anchor1"
class="container">
<div class="head">
</div>
<div class="nav
right">
</div>
<div class="nav">
</div>
<div class="content">
<h1
style="height:1000px"><a href="#anchor2" onclick="smoothScroll('anchor2');
return false">Scroll Down</a></h1>
<h1 id="anchor2" style="height:1000px"><a
href="#anchor3" onclick="smoothScroll('anchor3'); return false">Scroll Down</a>
| <a href="#anchor1" onclick="smoothScroll('anchor1'); return false">Scroll
Up</a></h1>
<h1 id="anchor3" style="height:300px"><a href="#anchor4"
onclick="smoothScroll('anchor4'); return false">Scroll Down</a> | <a
href="#anchor2" onclick="smoothScroll('anchor2'); return false">Scroll
Up</a></h1>
<h1 id="anchor4" style="height:1000px"><a href="#anchor3"
onclick="smoothScroll('anchor3'); return false">Scroll Up</a></h1>
</div>
</div>
</body>
</html>
|
Δ
Sunday, February 20th, 2011
Δ
Install Communicator R2, LANDesk Client, SEP 11.06
Demo:
VBScript:
|
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
':: E L I T E S O L U T I O N S
':: SCRIPT LANGUAGE: VBScript
':: SCRIPT
NAME: Install.vbs
':: PURPOSE: To be used to install
':: Communicator R2
(communication)
':: LANDesk Client (remote support)
':: SEP (anti-virus
client)
':: CREATION DATE: 02/17/2011
':: LAST MODIFIED:
'::
DIRECTIONS: Execute from Client Workstation under admin account
':: AUTHOR:
Eddie Jackson - Computer Systems Engineer
':: EMAIL: MrNetTek2000@yahoo.com
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'VARIABLES
'on error resume next
Dim objShell, strCurrentDirectory,
LocalTemp, strComputer, wshNetwork, OSDetect
Const HKEY_LOCAL_MACHINE =
&H80000002
Set objShell = CreateObject("Wscript.Shell")
'SETS CURRENT
DIRECTORY TO VARIABLE
strCurrentDirectory = objShell.CurrentDirectory
'PRE-SETUP COMMANDS
''on error resume next
Set objShell =
CreateObject("Wscript.Shell")
objShell.Run "%comspec% /c
%windir%\system32\taskkill.exe /f /im cmd.exe",0,True
objShell.Run "%comspec%
/c %windir%\system32\taskkill.exe /f /im setup.exe",0,True
objShell.Run
"%comspec% /c %windir%\system32\taskkill.exe /f /im communicator.exe",0,True
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe /f /im
GlobalFiles.exe",0,True
objShell.Run "%comspec% /c
%windir%\system32\taskkill.exe /f /im mshta.exe",0,True
'TASKKILLS
PRE-INSTALLATION COMMANDS
'KILLS CURRENTLY RUNNING MSIEXEC.EXE
objShell.Run "%comspec% /c %windir%\SYSTEM32\TASKKILL.EXE /F /IM
msiexec.exe",0,true
'SET LOCAL TEMP DIRECTORY
LocalTemp =
CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")
'GLOBAL
FILE EXTRACTION
objShell.Run "%comspec% /c move /y " & chr(34) &
strCurrentDirectory & "\GlobalFiles.exe" & chr(34) & " " & chr(34) & LocalTemp &
"\" & chr(34),0,true
objShell.Run "%comspec% /c " & chr(34) & LocalTemp &
"\GlobalFiles.exe" & chr(34),0,true
WScript.Sleep 1000
'SET
WORKSTATION NAME - PRIMARY METHOD
strComputer = "."
'SET WORKSTATION
NAME - SECONDARY METHOD
if strComputer = "" then
''on error resume next
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
strComputer =
wshNetwork.ComputerName
end if
'SET WORKSTATION NAME - TERTIARY METHOD
if strComputer = "" then
''on error resume next
strComputer =
objShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
end if
'ENABLED'PRIMARY OS DETECTION
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Set objWMIService = GetObject(
"winmgmts://" & strComputer & "/root/CIMV2" )
Set colInstances =
objWMIService.ExecQuery( "SELECT * FROM Win32_OperatingSystem", "WQL",
wbemFlagReturnImmediately + wbemFlagForwardOnly )
For Each objInstance In
colInstances
'on error resume next
'msgbox objInstance.Caption
OSDetect
= objInstance.Caption
Next
OSDetect = trim(OSDetect)
'msgbox
OSDetect
'LOAD INITIAL SPLASH'this gives user time to save before
setup begins
objShell.Run "%comspec% /c %temp%\STARTCOUNTER.hta",0,true
'LOAD SETUP SPLASH'setup has begun, do not restart computer
objShell.Run
"%comspec% /c %temp%\kaplan.hta",0,false
objShell.Run "%comspec% /c echo
Preparing Installation...>%temp%\msg.txt",0,true
WScript.Sleep 4000
if
OSDetect = "Microsoft Windows XP Professional" then XP()
if OSDetect =
"Microsoft Windows XP" then XP()
if OSDetect = "Microsoft Windows XP Home"
then XP()
if OSDetect = "Microsoft Windows Vista Ultimate" then Seven()
if
OSDetect = "Microsoft Windows Vista Premium" then Seven()
if OSDetect =
"Microsoft Windows Vista Home" then Seven()
if OSDetect = "Microsoft Windows
Vista Basic" then Seven()
if OSDetect = "Microsoft Windows 7 Enterprise" then
Seven()
if OSDetect = "Microsoft Windows 7 Enterprise Edition" then Seven()
if OSDetect = "Microsoft Windows 7 Ultimate" then Seven()
if OSDetect =
"Microsoft Windows 7 Ultimate Edition" then Seven()
if OSDetect = "Microsoft
Windows Server 2003 Standard" then XP()
if OSDetect = "Microsoft Windows
Server 2008 Standard" then Seven()
if OSDetect = "Microsoft Windows Server
2008 Standard Edition" then Seven()
if OSDetect = "Microsoft Windows Server
2008 Enterprise" then Seven()
if OSDetect = "Microsoft Windows Server 2008
Enterprise Edition" then Seven()
if OSDetect <> "Microsoft Windows Server
2008 Enterprise" then XP()
WScript.Quit(0)
'W I N D O W S X P
Sub
XP
'on error resume next
Set objShell = CreateObject("Wscript.Shell")
'SET LOCAL TEMP DIRECTORY
LocalTemp =
CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")
'INSTALL
COMMUNICATOR R2
objShell.Run "%comspec% /c echo Installing Communicator
R2...>%temp%\msg.txt",0,true
objShell.Run "%comspec% /c
%windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager" & chr(34)
& " /v " & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",0,true
objShell.Run "%comspec% /c %windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet1\Control\Session Manager" & chr(34) & " /v
" & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",0,true
objShell.Run "%comspec% /c %windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet2\Control\Session Manager" & chr(34) & " /v
" & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",0,true
objShell.Run "%comspec% /c %windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet3\Control\Session Manager" & chr(34) & " /v
" & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",true
WScript.Sleep 4000
objShell.Run "%comspec% /c
%temp%\Communicator_Install.exe",0, true
objShell.Run "%comspec% /c
%windir%\system32\msiexec.exe /i " & chr(34) & "%temp%\Communicator_Install.msi"
& chr(34) & " /qn /norestart /L* %temp%\communicator_install.log",0,true
objShell.Run "%comspec% /c %windir%\system32\msiexec.exe /p " & chr(34) &
"%temp%\Communicator_Patch.msp" & chr(34) & " /qn /norestart /L*
%temp%\communicator_patch.log",0,true
objShell.Run "%comspec% /c echo
Communicator R2 Installed!>%temp%\msg.txt",0,true
WScript.Sleep 4000
'INSTALL LANDESK CLIENT
objShell.Run "%comspec% /c echo Installing LANDesk
Client...>%temp%\msg.txt",0,true
objShell.Run "%comspec% /c
%windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager" & chr(34)
& " /v " & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",0,true
objShell.Run "%comspec% /c %windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet1\Control\Session Manager" & chr(34) & " /v
" & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",0,true
objShell.Run "%comspec% /c %windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet2\Control\Session Manager" & chr(34) & " /v
" & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",0,true
objShell.Run "%comspec% /c %windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet3\Control\Session Manager" & chr(34) & " /v
" & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",true
WScript.Sleep 4000
objShell.Run "%comspec% /c %temp%\LANDesk_install.exe",0,
true
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe /f /im
LANDesk_install.exe",0,true
objShell.Run "%comspec% /c echo LANDesk Client
Installed!>%temp%\msg.txt",0,true
WScript.Sleep 4000
'INSTALL SEP
CLIENT
objShell.Run "%comspec% /c echo Installing SEP Client
11.06...>%temp%\msg.txt",0,true
objShell.Run "%comspec% /c
%windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager" & chr(34)
& " /v " & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",0,true
objShell.Run "%comspec% /c %windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet1\Control\Session Manager" & chr(34) & " /v
" & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",0,true
objShell.Run "%comspec% /c %windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet2\Control\Session Manager" & chr(34) & " /v
" & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",0,true
objShell.Run "%comspec% /c %windir%\system32\REG.exe DELETE " & chr(34) &
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet3\Control\Session Manager" & chr(34) & " /v
" & chr(34) & "PendingFileRenameOperations" & chr(34) & " /f",true
WScript.Sleep 4000
objShell.Run "%comspec% /c " & chr(34) &
"C:\Progra~1\Symantec\Symantec Endpoint Protection\Smc.exe" & chr(34) & " top
-p SymantecPasswordHere",0,true
WScript.Sleep 2000
objShell.Run "%comspec%
/c %temp%\SEP_Install.exe",0, true
objShell.Run "%comspec% /c " & chr(34) &
"C:\Progra~1\Symantec\Symantec Endpoint Protection\Smc.exe" & chr(34) & " top
-p SymantecPasswordHere",0,true
objShell.Run chr(34) &
"C:\Progra~1\Symantec\LiveUpdate\LUALL.EXE" & chr(34) & " ",0,true
objShell.Run "%comspec% /c " & chr(34) & "C:\Progra~1\Symantec\Symantec Endpoint
Protection\smc.exe" & chr(34) & " -updateconfig",0,true
WScript.Sleep 2000
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe /f /im
msiexec.exe",0,true
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe
/f /im SEP_Install.exe",0,true
objShell.Run "%comspec% /c echo SEP Client
11.06 Installed!>%temp%\msg.txt",0,true
WScript.Sleep 4000
'END
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe /f /im
mshta.exe",0,True
objShell.Run "%comspec% /c %windir%\system32\taskkill.exe
/f /im mshta.exe",0,True
objShell.Run "%comspec% /c " & chr(34) &
"C:\Progra~1\Symantec\Symantec Endpoint Protection\Smc.exe" & chr(34) & " tart",0,true
WScript.Sleep 1000
objShell.Run "%comspec% /c " & chr(34) &
"C:\Progra~1\Symantec\Symantec Endpoint Protection\Smc.exe" & chr(34) & " tart",0,true
WScript.Sleep 1000
'GOES INTO A 40 SECOND LOOP WAITING
FOR THE AV POPUP
counter = 0
While 1 = 1
check =
objShell.AppActivate("Old Virus Definition File")
If counter = 10000 Then
WScript.Quit(0)
If check = true then
objShell.SendKeys " "
WScript.Sleep 250
objShell.SendKeys "%{f4}"
WScript.Quit(0)
end if
Wscript.Sleep 250
counter = counter + 1
Wend
'EXITS
WScript.Quit(0)
end sub
'W I N D O W S S E V E N
sub Seven
'on error resume next
msgbox "This package is intended for Windows XP Only! "
WScript.Quit(0)
end sub
|
Δ
Saturday, February 19th, 2011
Δ
Picture Film Strip
How to create a scrolling picture strip in a web page.
Demo:
HTML:
|
<HTML>
<HEAD>
<TITLE>Picture Strip</TITLE>
<script
type="text/javascript">
<!--
// Author:
// Eddie Jackson
//
02/01/2008
// Picture Strip
// Add your pictures here
data=new
Array()
data[0]=new
Array("http://eddiejackson.net/web_images/m1.bmp","1","http://eddiejackson.net/web_images/m1.bmp")
data[1]=new
Array("http://eddiejackson.net/web_images/m2.bmp","2","http://eddiejackson.net/web_images/m2.bmp")
data[2]=new
Array("http://eddiejackson.net/web_images/m3.jpg","3","http://eddiejackson.net/web_images/m3.jpg")
data[3]=new
Array("http://eddiejackson.net/web_images/m4.bmp","4","http://eddiejackson.net/web_images/m4.bmp")
data[4]=new
Array("http://eddiejackson.net/web_images/m5.jpg","5","http://eddiejackson.net/web_images/m5.jpg")
data[5]=new
Array("http://eddiejackson.net/web_images/m6.jpg","6","http://eddiejackson.net/web_images/m6.jpg")
data[6]=new
Array("http://eddiejackson.net/web_images/m7.jpg","7","http://eddiejackson.net/web_images/m7.jpg")
data[7]=new
Array("http://eddiejackson.net/web_images/m8.jpg","8","http://eddiejackson.net/web_images/m8.jpg")
data[8]=new
Array("http://eddiejackson.net/web_images/m9.jpg","9","http://eddiejackson.net/web_images/m9.jpg")
data[9]=new
Array("http://eddiejackson.net/web_images/m10.jpg","10","http://eddiejackson.net/web_images/m10.jpg")
data[10]=new
Array("http://eddiejackson.net/web_images/m11.bmp","11","http://eddiejackson.net/web_images/m11.bmp")
data[11]=new
Array("http://eddiejackson.net/web_images/m12.bmp","12","http://eddiejackson.net/web_images/m12.bmp")
data[12]=new
Array("http://eddiejackson.net/web_images/m13.bmp","13","http://eddiejackson.net/web_images/m13.bmp")
data[13]=new
Array("http://eddiejackson.net/web_images/m14.bmp","14","http://eddiejackson.net/web_images/m14.bmp")
data[14]=new
Array("http://eddiejackson.net/web_images/m15.bmp","15","http://eddiejackson.net/web_images/m15.bmp")
data[15]=new
Array("http://eddiejackson.net/web_images/m16.bmp","16","http://eddiejackson.net/web_images/m16.bmp")
// User Defined Variables
imgPlaces=5 // number of images visible
imgWidth=70 // width of the images
imgHeight=80 // height of the images
imgSpacer=4 // space between the images
dir=0 // 0 = left, 1 = right
// Allow internet user to open a new window for href links
vis3Window=1
// 0 = Open a new window for links 0 = no 1 = yes
moz=document.getElementById&&!document.all
step=1
timer=""
//
Change basic window speed
speed=70
nextPic=0
initPos=new Array()
nowDivPos=new Array()
function initVIS3(){
for(var
i=0;i<imgPlaces+1;i++){ // create image holders
newImg=document.createElement("IMG")
newImg.setAttribute("id","pic_"+i)
newImg.setAttribute("src","")
newImg.style.position="absolute"
newImg.style.width=imgWidth+"px"
newImg.style.height=imgHeight+"px"
newImg.style.border=0
newImg.alt=""
newImg.i=i
newImg.onclick=function(){vis3Win(data[this.i][2])}
document.getElementById("display_area").appendChild(newImg)
}
containerEL=document.getElementById("container")
displayArea=document.getElementById("display_area")
pic0=document.getElementById("pic_0")
containerBorder=(document.compatMode=="CSS1Compat"?0:parseInt(containerEL.style.borderWidth)*2)
containerHeight=((imgPlaces)*imgHeight)+((imgPlaces-1)*imgSpacer)
containerEL.style.width=imgWidth+(!moz?containerBorder:"")+"px"
containerEL.style.height=containerHeight+(!moz?containerBorder:"")+"px"
displayArea.style.height=containerHeight+"px"
displayArea.style.clip="rect(0,"+(imgWidth+"px")+","+(containerHeight+"px")+",0)"
imgPos= -pic0.height
for(var i=0;i<imgPlaces+1;i++){
currentImage=document.getElementById("pic_"+i)
if(dir==0){imgPos+=(pic0.height)+imgSpacer} // if up
initPos[i]=imgPos
if(dir==0){currentImage.style.top=initPos[i]+"px"} // if up
if(dir==1){
// if down
document.getElementById("pic_"+[(imgPlaces-i)]).style.top=initPos[i]+"px"
imgPos+=(pic0.height)+imgSpacer
}
if(nextPic==data.length){nextPic=0}
currentImage.src=data[nextPic][0]
currentImage.alt=data[nextPic][1]
currentImage.i=nextPic
currentImage.onclick=function(){vis3Win(data[this.i][2])}
nextPic++
}
scrollVIS3()
}
timer=""
function scrollVIS3(){
clearTimeout(timer)
for(var i=0;i<imgPlaces+1;i++){
currentImage=document.getElementById("pic_"+i)
nowDivPos[i]=parseInt(currentImage.style.top)
if(dir==0){nowDivPos[i]-=step}
if(dir==1){nowDivPos[i]+=step}
if(dir==0&&nowDivPos[i]<= -(pic0.height+imgSpacer)
||dir==1&&nowDivPos[i]>containerHeight){
if(dir==0){currentImage.style.top=containerHeight+imgSpacer+"px"}
if(dir==1){currentImage.style.top= -pic0.height-(imgSpacer*2)+"px"}
if(nextPic>data.length-1){nextPic=0}
currentImage.src=data[nextPic][0]
currentImage.alt=data[nextPic][1]
currentImage.i=nextPic
currentImage.onclick=function(){vis3Win(data[this.i][2])}
nextPic++
}
else{
currentImage.style.top=nowDivPos[i]+"px"
}
}
timer=setTimeout("scrollVIS3()",speed)
}
function stopVIS3(){
clearTimeout(timer)
}
function vis3Win(loc){
if(loc==""){return}
if(vis3Window==0){
location=loc
}
else{
// Change window
position
newin=window.open(loc,'win1','left=430,top=340,width=300,height=300') // use for
specific size and positioned window
newin.focus()
}
}
// add
onload="initVIS3()()" to the opening BODY tag
// -->
</script>
</HEAD>
<BODY onload="initVIS3()">
<h1><span>Picture
Strip</span></h1>
<div id="container"
style="position:relative;width:1px;height:0px;border:3px solid
#000000;background-color:#000000;overflow:hidden;float:right">
<div
id="display_area" style="position:absolute; left:0; top:0; width:0px;
height:0px; clip:rect(0,0,0,0)" onmouseover="stopVIS3()"
onmouseout="scrollVIS3()"></div>
</div>
</BODY>
</HTML>
|
Δ
Friday, February 18th, 2011
Δ
Javascript Fading Box
Demo:
Javascript:
|
<script type="text/javascript">
<!--
step=1
opac=0
timer=""
function goOpac(){
oDivEl=document.getElementById("oDiv")
opac+=step
if(oDivEl.filters&&!window.opera){
oDivEl.filters.alpha.opacity=opac
}
else{
oDivEl.style.opacity=(opac/100)-0.001
}
timer=setTimeout("goOpac()",10)
if(opac>=100){
step=-step
clearTimeout(timer)
}
if(opac<0){
step=-step
clearTimeout(timer)
}
}
// -->
</script>
<DIV id="oDiv" style="width:300px;
height:100px; background-color:#000000; filter:alpha(opacity=0);
opacity:0"></DIV>
<a href="#null" onclick="goOpac()">Fade</a>
|
Δ
Thursday, February 17th, 2011
Δ
Scrollling up with Background Images
Demo:
VBScript/HTA:
|
<script type="text/javascript">
var i = 0
function FadeFunction() {
if
(i < 250) {
i=i+1
}
var d = document.body.style
d.filter =
"alpha(Opacity="+i+")"
d.opacity = i/250
var num = document.all ? 5 : 250
setTimeout("FadeFunction()",num)
}
</script>
<script
language="vbscript">
on error resume next
Window.moveTo -1200, -800
Window.ReSizeTo 400,302
</script>
<script language="vbscript">
on error resume next
w = 402
h = 302
Return = ResizeWindow(w, h)
Return = CenterWindow(w, h)
Return = ResizeWindow(w, h)
Return =
CenterWindow(w, h)
Function ResizeWindow(w, h)
On error resume next
width = w
height = h
window.resizeTo width, height
window.resizeTo
width, height
End Function
Function CenterWindow(w, h)
On error
resume next
x = (screen.width-w)/2
y = (screen.height-h)/2
window.moveTo x, y
window.moveTo x, y
End Function
sub
Window_OnLoad
FadeFunction()
end sub
</script>
<!--
==========================================================
Name: Splash
screen
Author: Eddie Jackson
Contact: MrNetTek2000@yahoo.com
Created
on: 02/11/2011
Modified:
Modified by:
Description: General use
scrolling splash screen
===========================================================
-->
<HTML>
<HEAD>
<TITLE>FAQs</TITLE>
<HTA:APPLICATION ID="FAQs"
BORDER="none"
INNERBORDER="no"
SCROLL="no"
CAPTION="no"
SHOWINTASKBAR="no"
SINGLEINSTANCE="yes"
SYSMENU="no"
WINDOWSTATE="normal"
>
<style
type="text/css">
body, table, tr, td
{
font-family:verdana;
text-align:center;
font-size:12px;
color:white;
}
table, tr, td
{
font-family:verdana;
text-align:center;
font-size:12px;
color:white;
}
.auto-style1 {
font-size: large;
font-family:franklin
}
</style>
</head>
<body bgcolor="black" background="faqs.bmp" onmouseover="self.close()"
onmouseclick="self.close()" onmousedown="self.close()">
<center>
<font
color="white">
<br>
<span class="auto-style1">Frequently Asked
Questions</span>
<br>
<hr font color="white" width="360"></font>
<br>
<marquee DIRECTION="UP" HEIGHT="170" WIDTH="330" SCROLLAMOUNT="1">
<b>Can I work while the software is being installed?</b><br />
No, it is not
recommended as this could interfere with the installation.<br /><br />
<b>Who do I contact if my software isn't working?</b><br>
Please contact the
Service Desk at 1-866-915-4440.<br /><br />
<b>What is Adobe Flash
Player?</b><br />
Adobe Flash Player is a lightweight
browser plug-in and
rich Internet
application runtime that delivers
consistent and engaging
user
experiences, stunning audio/video
playback, and pervasive reach.
<br /><br /></marquee></font>
<br /><br />
<font size="1"
color="lightgray"><b>©Kaplan Higher Education - IT Department</b></font>
<br />
<center>
</div>
<script type="text/javascript">
<!--
images=new Array("picture1here.xxx","picture2here.xxx")
// number
of objects
count = 30
maxStep=3
minStep=1
// max size
of objects
maxSize=10
// min size of objects
minSize=2
//
drift rate of objects
drift=3
function initFloaters1(){
FloatersDisplay=document.body
FloatersDisplayWidth
=FloatersDisplay.clientWidth
FloatersDisplayHeight
=FloatersDisplay.clientHeight
PosX = []
PosY = []
StepX = []
StepY = []
for(var i = 0; i < count; i++){
PosX[i] =
Math.floor(Math.random()*FloatersDisplayWidth) // x initial position
PosY[i]
= Math.floor(Math.random()*FloatersDisplayHeight) // y initial position
StepX[i] =drift+Math.ceil(Math.random()* (-drift*2-1)) // x step size
StepY[i] =minStep+Math.floor(Math.random()*maxStep)// y step size
FloaterSize=minSize+Math.floor(Math.random()*maxSize)
imgNum=Math.floor(Math.random()*images.length)
op=Math.floor(Math.random()*70)
//op=30+Math.floor(Math.random()*70)
newImg=document.createElement("img")
newImg.src=images[imgNum]
newImg.width=FloaterSize
newImg.height=FloaterSize
newImg.id="Obj"+i
with(newImg.style){
position="absolute"
left=0
top=0
if("filters" in document.body&&"alpha" in document.body.filters&&!window.opera){
filter="alpha(opacity="+op+")"
}
else{
opacity=(op/100)-0.001
}
}
FloatersDisplay.appendChild(newImg)
}
animate()
}
function animate(){
for(var i = 0; i < count; i++){
PosY[i] +=
StepY[i]
PosX[i] += StepX[i]
if(PosY[i]>FloatersDisplay.scrollTop+FloatersDisplayHeight ||
PosX[i]>FloatersDisplayWidth || PosX[i]<0){
PosX[i] =
Math.floor(Math.random()*FloatersDisplayWidth)
PosY[i] =
FloatersDisplay.scrollTop
StepX[i] = drift+Math.ceil(Math.random()*
(-drift*2-1))
StepY[i] = minStep+Math.floor(Math.random()*maxStep)
FloaterSize=minSize+Math.floor(Math.random()*maxSize)
document.getElementById("Obj"+i).width=FloaterSize
document.getElementById("Obj"+i).height=FloaterSize
op=Math.floor(Math.random()*70)
//op=30+Math.floor(Math.random()*70)
if("filters" in document.body&&"alpha" in document.body.filters&&!window.opera){
document.getElementById("Obj"+i).filters.alpha.opacity=op
}
else{
document.getElementById("Obj"+i).style.opacity=(op/100)-0.001
}
}
// y position
document.getElementById("Obj"+i).style.top = PosY[i]+"px"
// x position
document.getElementById("Obj"+i).style.left =
PosX[i]+"px"
}
// speed
setTimeout("animate()", 80)
}
//
-->
</script>
</HEAD>
<BODY onload="initFloaters1()">
</body>
</html>
|
Δ
Monday, February 14th, 2011
Δ
Cursor Chasing
Demo:
Javascript:
|
<script type="text/javascript">
<!--
moz=document.getElementById&&!document.all
timer=""
offsetX= -150
offsetY= -55
running=0
function getPositions(e){
curposX=(!moz ?
document.body.scrollLeft+event.x : e.pageX)
curposY=(!moz ?
document.body.scrollTop+event.y : e.pageY)
startposX=parseInt(document.getElementById("obj").style.left)
startposY=parseInt(document.getElementById("obj").style.top)
if(running==0){
moveObject()
running=1
}
}
function moveObject(){
newposX=startposX+(curposX-startposX+offsetX)*0.1
newposY=startposY+(curposY-startposY+offsetY)*0.1
startposX=Math.round(newposX)
startposY=Math.round(newposY)
document.getElementById("obj").style.left=startposX
document.getElementById("obj").style.top=startposY
timer=setTimeout('moveObject()',100)
}
document.onmousemove=getPositions
// -->
</script>
<DIV ID="obj" STYLE="position:absolute; top:15;
left:182; width:300; height:20;" ><h1>Cursor Chaser</h1></DIV>
|
Δ
Monday, February 7th, 2011
Δ
Stretch Image
How to stretch image to size of window.
Demo:
HTML:
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Stretched
Background Image</title>
<style type="text/css">
/* Remove margins from
the 'html' and 'body' tags, and ensure the page takes up full screen height */
html, body {height:100%; margin:0; padding:0;}
/* Set the position and
dimensions of the background image. */
#page-background {position:fixed;
top:0; left:0; width:100%; height:100%;}
/* Specify the position and layering
for the content that needs to appear in front of the background image. Must have
a higher z-index value than the background image. Also add some padding to
compensate for removing the margin from the 'html' and 'body' tags. */
#content {position:relative; z-index:1; padding:10px;}
</style>
<!-- The
above code doesn't work in Internet Explorer 6. To address this, we use a
conditional comment to specify an alternative style sheet for IE 6 -->
<!--[if IE 6]>
<style type="text/css">
html {overflow-y:hidden;}
body
{overflow-y:auto;}
#page-background {position:absolute; z-index:-1;}
#content {position:static;padding:10px;}
</style>
<![endif]-->
</head>
<body>
<div id="page-background"><img src="pic.jpg" width="100%"
height="100%" alt="Smile"></div>
<div id="content">
<h2>Stretch that
Background Image!</h2>
<p>This text appears in front of the background image.
This is because we've used CSS to layer the content in front of the background
image. The background image will stretch to fit your browser window. You can see
the image grow and shrink as you resize your browser.</p>
<p>Go on, try it -
resize your browser!</p>
</div>
</body>
</html>
|
Δ
Tuesday, February 1st, 2011
Δ
Flashing Text
How to change workgroup name on Server 2008.
Demo:
Javascript
|
<script type="text/javascript">
<!--
function flash1(){
txt1=document.getElementById("text1")
if(txt1.style.visibility=="visible"){
txt1.style.visibility="hidden"
t=1500
}
else{
txt1.style.visibility="visible"
t=1000
}
setTimeout("flash1()",t)
}
setTimeout("flash1()",1000)
// -->
</script>
<div id="text1"
style="visibility:visible;font-size:40">Flashing text here</div>
|
|
|
About
I'm a Computer
Systems Engineer
Living and loving life
........................................
Author
..
|