Help with VBS and ASP
I have a script sitting in my asp page, and I needs some help trying
to accomplish something. Below is my script and I can display the
date in my title of my web page, but I would like to display the
pervious date if possible. I am pulling information out of a database
for things that happened the day before and want to print that date
out.
%>
<html>
<head>
<title>Eventlogs for <% Response.Write Date() %></Title>
</head>
<body>
<p>
<%
Thanks for the help in advanced,
Steve Tag: problems with a scheduled script Tag: 153793
Help with ASP and HTML Tables
Below is my code, I am one trying to make it where I don't have my
usename and password, and server information to be in my code.
Second, unser my response.write, I want to massage this data into
table format where it will make sense. All I get now is everthing ran
together. If you can, can some help me in doing this.
Thanks in advance.
Stephen Robinson
______________________________________________________________________
<%@ Language=VBScript%>
<%
dim Conn, objRS, objConn, strSQL
Set Conn = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")
Conn.Open = "provider=sqloledb;data source=SCK-EAV-01;" & _
"user id=sa;password=XXXXXX;" & _
"initial catalog=Eventlogs"
strSQL = "SELECT [ComputerName], [EventCode], [Message] " & _
"[SourceName], [TimeWritten], [Type] FROM [EventTable] " & _
"WHERE [Type]='error' ORDER BY [TimeWritten]"
objRS.Open strSQL, Conn, 0, 1 'adOpenForwardOnly, adLockReadOnly
%>
<html>
<head>
<title>Eventlogs for <% Response.Write Date() %></Title>
</head>
<body>
<p>
<%
objRS.MoveFirst
While Not objRS.EOF
Response.Write objRS("ComputerName") & objRS("EventCode") &
objRS("SourceName")
objRS.MoveNext
Wend
%>
</p>
</body>
</html>
___________________________________________________________________________ Tag: problems with a scheduled script Tag: 153792
Toggle IE Accessibility settings
Here's a VBS for quickly toggling "Internet options", "Accessibility",
to use/ignore web page fonts and colors. I've named the file "IE
Accessibility.vbs" and placed it in
. . .\Documents and Settings\. . .\Favorites\Links
To toggle the settings, just click on the "IE Accessibility.vbs"
button in the IE "Links" toolbar. Your comments and ideas are most
welcome. I'm pasting the code below, sorry about the wrapped lines:
============== START ===================
'Toggle IE Accessibility settings
Set WSHShell = CreateObject("Wscript.Shell")
RegKey = "HKCU\Software\Microsoft\Internet Explorer\Settings\"
With WSHShell
If .RegRead(RegKey & "Always Use My Colors") = 1 Then 'Use Web
page Fonts and Colors
.RegWrite RegKey & "Always Use My Colors", 0, "REG_DWORD"
.RegWrite RegKey & "Always Use My Font Size", 0,
"REG_DWORD"
.RegWrite RegKey & "Always Use My Font Face", 0,
"REG_DWORD"
Else 'Ignore Web
page Fonts and Colors
.RegWrite RegKey & "Always Use My Colors", 1, "REG_DWORD"
.RegWrite RegKey & "Always Use My Font Size", 1,
"REG_DWORD"
.RegWrite RegKey & "Always Use My Font Face", 1,
"REG_DWORD"
End If
End With
WSHShell.Run "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 1,
False
If ActivateWindow("Internet Properties") Then
WSHShell.SendKeys "{ENTER}", True
End If
WScript.Quit
Function ActivateWindow(Title)
Do
i = i + 1
If i > 50 Then Exit Do 'Try for max 5 seconds
WScript.Sleep 100
ActivateWindow = WSHShell.AppActivate(Title)
Loop While ActivateWindow = False
' WSHShell.Popup i ' Debug attempt count
End Function
============== END =================== Tag: problems with a scheduled script Tag: 153785
VBScript runtime (0x800A0046) Permission denied: 'GetObject'
Hello,
I am trying to construct a script that will add local users to a remote
machine that does not reside in the same domain as the machine running the
script. Currently I have the following;
'---------Script Begin--------------
strComputer = "Reports"
Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
Set objUser = colAccounts.Create("user", "NewUser")
objUser.SetPassword "1234"
objUser.Put "Description", "NewUser account"
objUser.SetInfo
Set objGroup = GetObject("WinNT://" & strComputer & "/Users,group")
Set objUser = GetObject("WinNT://" & strComputer & "/NewUser,user")
objGroup.Add(objUser.ADsPath)
objUser.SetInfo
'---------Script End--------------
The problem here is that the computer "Reports" is not the computer
running the script nor is it even in the same domain. When I run it now I
get
Error: Permission denied: 'GetObject'
Code: 800A0046
Is there a way I can pass a username and password or something so it
will work?
--
-Scott Elgram Tag: problems with a scheduled script Tag: 153784
problems with a scheduled script
I have a small script that gives me some problems.
The script is
InFolder = "\\10.1.1.3\mcafee$\Autoupdate"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fld = FSO.GetFolder(InFolder)
When i run the script via the command line it runs without a problem.
When i schedule the script i get the following message when it runs
Line : 3
Char: 1
error : Path not found
code : 800A004C
Who can help ?
Rikkie Tag: problems with a scheduled script Tag: 153781
How to register a NT client on a 2000 Dynamic DNS via script
Hi, all
is there a way to register a nt machine with a script o similar on a DNS
server on Windows 2000 with dynamic update activate?
Thanks, Giuseppe Cibrario Tag: problems with a scheduled script Tag: 153780
Differentiate between Server and Workstation
Hello,
I need to run a script in a W2K AD domain but I only want it to run against
servers (Member, DC, GC, FSMO).
Is there a way to do this using VBScript (only - no third party apps)?
All suggestions will be greatly appreciated.
TIA,
Bill Burke
bill@2burkes.com Tag: problems with a scheduled script Tag: 153778
Last time Password Changed
I want to write a script that will query AD and tell me when a user last
changed thier passsword or how old the password is. Any ideas? Tag: problems with a scheduled script Tag: 153775
ARITHABORT when trying to run UPDATE query from vbscript?
Hi All,
I have a simple update query that I'm trying to run in VBScript
against an SQL SERVER 2000 database table.
The query runs without problems when I run it in SQL Analyzer,
however, when I try to run the same query in VBScript, I get the
following error message:
Microsoft OLE DB Provider for ODBC Drivers: [Microsoft][ODBC SQL
Server Driver][SQL Server]UPDATE failed because the following SET
options have incorrect settings: 'ARITHABORT'.
I think the problem is caused because I have an indexed computed
column in this table that concatenates several other columns from the
table, and the update query is updating a column that included in the
computed column's concatenation.
However, I'm confused that this would run in SQL Analyzer, and not in
VBScript. I was expecting that it would either run in both, or
neither.
Can anyone give me any advice on how to get past this error?
Much warmth,
Murray Tag: problems with a scheduled script Tag: 153774
cration of Mailenabled user
Hi,
I would like to create a mailenabled user in AD, not a mailboxenabled user.
When I put an external e-mailaddress in TargetAddress i only get an account
that is disabled in AD. Is there any other attributes that needs to be
established?
//Mariah Tag: problems with a scheduled script Tag: 153773
Scripting the display of active desktop items?
It's driving me nuts
I have a gif[1] that comes from the web and is on my desktop as active
content.
Sometimes I want it displayed, sometimes I don't.
Switching it off is easy - just click the little x at top rhs.
Switching on? right click on the desktop, properties/desktop/customise
desktop/web/checkboxes
Anyone know how I can script that (and I don't mean sendkeys :-))?
I know how to script changes to the registry, but not yet the values for the
relevant entries which I suspect are
HKCU/software/internet explorer/desktop/components...
Anyone know for certain what the various entries there mean and valid
values? and that they are the ones that matter?
I would prefer something less brutal than registry editing IYSWIM.
Many thanks in advance.
[1]http://www.meto.gov.uk/datafiles/flat3ani.gif
William Hite
maximize the value of your IE favs: www.searchfavorites.com Tag: problems with a scheduled script Tag: 153767
Enumeration of Files on the Local Machine
Hi,
Does anyone know how I can enumerate files on the local computer in a
directory?
I need to do 2 things in my script. Get a list of all the files in a
particular directory into an array from the local machine
and in a second array, get a list of files on a shared directory on a remote
computer
Any ideas? Tag: problems with a scheduled script Tag: 153765
Serial communications
Hello,
Is it possible to send data on the serial port via vbscript?
Gr
Yves Wittouck Tag: problems with a scheduled script Tag: 153764
WSH - VBScript - Retrieving 'Last Saved By' for Office Doc (2K)
Hi,
I am trying to use a VBScript WHS script to retrieve the Last Saved By
property for an Excel 2000 document.
Can somebody please clue me in?? I'd be very thankful.
Thanks,
FM Tag: problems with a scheduled script Tag: 153757
entering system variables over a network
A new software package we are implementing needs a path, (eg c:/temp) to
be placed in the "variable value" field via control panel, system,
advanced, environmental variables, then by clicking on path, edit in
the system variables box.
The path needs to be placed on all the computers in our domain.
Can this be done with VBS scripts or with active directory. Any ideas
would be valuable. If to be done with VBS the code would be great.
Thanks,
Tim, (Adelaide Australia).
--
hekyl
------------------------------------------------------------------------
posted via www.WebFrustration.com Tag: problems with a scheduled script Tag: 153755
*** Help Req: problems with a vbscript used in an SMTP eventsink
Win2K3 server, running the default Microsoft SMTP service. The server
is forwarding mail to an internal email server.
I installed spamassassin using the instructions from here:
http://www.openhandhome.com/howtosa260.html
All my spamassassin tests are 100% successful. I then downloaded a
recommended vbscript to integrate spamassassin with the SMTP service,
via something called an eventsink.
When I enable the spamfilter.vbs eventsink, email still flows just
fine. However, spamassassin never runs.
Can anyone assist me in getting the code below to actually run on
every email?
<SCRIPT LANGUAGE="VBSCRIPT">
On Error Resume Next
' Declare Windows 2000/2003 SMTP Transport Event Sink constants
Const cdoRunNextSink = 0
Const cdoSkipRemainingSinks = 1
Const cdoStatAbortDelivery = 2
Const cdoStatBadMail = 3
' Declare ADO constants
Const adSaveCreateOverWrite = 2
' paths to folders we will be using
Const TEST_PATH = "c:\TEST\"
Const SPAM_PATH = "c:\test\spam_final\"
Const NONSPAM_PATH = "c:\test\NONSPAM_FINAL\"
Sub ISMTPOnArrival_OnArrival(ByVal objMessage, EventStatus)
'Start up Error Checking (so that we can promptly ignore it)
On Error Resume Next
' Declare variables
Dim strTestEmail
Dim objFields
Dim objStream
Dim iCount
Dim listRnd
Dim iRnd
Dim strRandom
Dim oShell
Dim objFileSystem
Dim strMessage
Dim ts
Dim f
' Get fields collection of message
Set objFields = objMessage.EnvelopeFields
' Process message
With objMessage
' Get message as stream
Set objStream = .GetStream
' Save message as stream to file
objStream.SaveToFile (TEST_PATH & "spamtestin.txt"),
adSaveCreateOverWrite
End With
'spamtest file now exists, so we should now run spamassassin
against it and have it output a file
Set oShell = wscript.CreateObject("WScript.Shell")
comm = "e:\perl\bin\spamassassin.bat < c:\TEST\spamtestin.txt >
c:\TEST\spamtestout.txt"
oShell.Run comm
'now open up the spamtestout.txt file and see if that is spam (see
if it contains "X-Spam-Status: Yes"
'if it is spam, then copy spamtestin.txt to a randomly named text
file in the SPAM_PATH
'if it is not spam, then copy spamtestin.txt to a randomly named
text file in the NONSPAM_PATH
'then later run bat scripts to learn on those directories, and
then del the files in there after learning
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
'open up the file
Set f = objFileSystem.GetFile(TEST_PATH & "spamtestout.txt")
Set ts = f.OpenAsTextStream(1,-2)
strMessage = ts.ReadAll
ts.Close
If InStr(1, strMessage, "X-Spam-Status: Yes", 1) Then
'if in here, then we will add a flag to the message
subject
objMessage.Subject = "*****SPAM*****" & objMessage.Subject
objMessage.DataSource.Save
'the message is still getting sent to the user, so keep
checking sinks
EventStatus = cdoRunNextSink
End If
' Clean up the mess we have made
Set objFileSystem = Nothing
Set objStream = Nothing
Set objFields = Nothing
Set oShell = Nothing
Set f = Nothing
Set ts = Nothing
End Sub
</SCRIPT> Tag: problems with a scheduled script Tag: 153746
Read first few characters in Variable
I have written a script that reads CSV file lines into an variable.
I then split the variable into other variable where the comma is the
delimiter.
What I can't figure out is how to read only the first 3 characters of the
third variable.
Here is some code:
Possible lines from CVS file:
Internet,Google,http://www.google.com
Office,Microsoft Word,%PROGRAMFILES%Microsoft Office\Office10\winword.exe
Note, not all the code for reading the file is here.
I want to be able to read the first 3 characters of the variable "scTarget".
I need to be able to seperate the URLs from regular file locations to create
the proper shortcut type.
Code lines:
strOTF = fName.ReadLine() 'Read the next line in the CSV file
strARR = Split(strOTF,",") 'Split by the , (comma)
scFolder = strARR(0) 'Folder name
scName = strARR(1) 'Shortcut name
scTarget = strARR(2) 'Target of shortcut
Thanks for any help.
Dan Tag: problems with a scheduled script Tag: 153742
get ProxyAddresses from any user in AD
This is a multi-part message in MIME format.
------=_NextPart_000_0009_01C3FBC3.ABE7B730
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I'm trying to get the ProxyAddresses from any user in AD. However, I can =
get around the requirement in LDAP for the OU. If I omit OU then I get =
an error. However, I can retreive the User Object if I included the OU =
for a known user in a known OU. The point is that I don't know what OU a =
user is in but I need to retrieve ProxyAddresses from all User objects. =
Am I going about this wrong or is there a better way?=20
strUsername =3D "tuser"
set objUser =3D GetObject("WinNT://domain/" & strUserName & ",User")
Set objUserLDAP =3D GetObject( "LDAP://CN=3D" & objUser.fullName & =
";OU=3DIT;DC=3Ddomain,DC=3Dcom" )
For Each strAddr in objUserLDAP.ProxyAddresses
strList =3D strList & strAddr & vbCrLf
Next
wscript.echo strList=20
Thanks,
m@n.com
------=_NextPart_000_0009_01C3FBC3.ABE7B730
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1400" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>I'm trying to get the ProxyAddresses =
from any user=20
in AD. However, I can get around the requirement in LDAP for the OU. If =
I omit=20
OU then I get an error. However, I can retreive the User Object if I =
included=20
the OU for a known user in a known OU. The point is that I don't =
know what=20
OU a user is in but I need to retrieve ProxyAddresses from all User=20
objects. </FONT><FONT face=3DArial size=3D2>Am I going about this =
wrong or is=20
there a better way? </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2>strUsername =3D =
"tuser"</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2>set objUser =3D=20
GetObject("WinNT://<EM>domain</EM>/" & strUserName &=20
",User")</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2>Set objUserLDAP =3D GetObject( =
"</FONT><A=20
href=3D"ldap://CN"><FONT face=3D"Courier New" =
size=3D2>LDAP://CN</FONT></A><FONT=20
face=3D"Courier New" size=3D2>=3D" & objUser.fullName &=20
";OU=3DIT;DC=3D<EM>domain</EM>,DC=3Dcom" )</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2>For Each strAddr in=20
objUserLDAP.ProxyAddresses<BR> strList =3D strList =
& strAddr=20
& vbCrLf<BR>Next<BR></FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2>wscript.echo strList =
</FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2></FONT> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2><FONT =
face=3DArial></FONT></FONT> </DIV>
<DIV><FONT face=3D"Courier New" size=3D2><FONT=20
face=3DArial>Thanks,</FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" size=3D2><FONT face=3DArial><A=20
href=3D"mailto:m@n.com">m@n.com</A></FONT></FONT></DIV>
<DIV><FONT face=3D"Courier New" =
size=3D2> </DIV></FONT></BODY></HTML>
------=_NextPart_000_0009_01C3FBC3.ABE7B730-- Tag: problems with a scheduled script Tag: 153741
Login script question
I was curious if there is a way that I can some how create a login script
that will map drives acording to the local server?
We are a bank that has what we call floaters. Theses are employees that
may work in Branch A today and then Branch B the next day. I would like to
be able to create a login script that will map out the drives that this
user needs according to the branch they are at today. All of the branches
are the same as far as a directory structure is concerned.
For example:
Today at Branch A they login into a local computer and the login script
maps the F: drive to \\Br-A\Data.
The next day while at Branch B they login to a local computer and the login
script maps the F: drive to \\Br-B\Data.
I posted this in another group and they suggested I post it here. I this
is the wrong place, please re-direct me.
I also have no experience in scripting, we are migrating from Novell to MS,
and I was curious if there are any good references for this?
Thanks. Tag: problems with a scheduled script Tag: 153740
Change Primary Monitor
I am having a problem where I need to change what display (I have two) is set
as primary when certain programs are executed, and reset it when they close.
Is there a way to do this with VBS/WSH, or some simple program I could write
in VB.NET? I know there must be a way; but I am still a beginner and haven't
found it. Any help would be aprreciated.
--
Thomas E Lackey Tag: problems with a scheduled script Tag: 153732
convert bat to vbs
Anyone have any idea how I can convert this bat file to vbs.
Thanks
Gavin...
@echo off
if exist "c:\program files\BigFix Enterprise\Bes Client\BESClient.exe" goto
AgentFound
@echo Now installing BigFix Enterprise Client on this machine ...
\\10.0.0.19\CLIENT\Setup /s /f2"C:\besinstall.log"
goto Exit
:AgentFound
echo Agent is already installed
:Exit Tag: problems with a scheduled script Tag: 153730
Reading a CSV file with commas in the address field.
Hi
I thought I found what I was looking for with the split function, but then realized my data was not coming up correctly because there are commas in the address line. How, or what else can I use in order to correctly read my csv file. My csv file looks something like this
"John","Doe","223 Smith Street Washington, DC"
As you can see the split was splitting the address up between Washington and DC
Can someone point me in the right direction
Thanks Tag: problems with a scheduled script Tag: 153727
xml.transformNode help needed
How do I apply a second transform to some XML? I want to run
"remove_name.xsl" followed by "consolidate.xsl".
thanks
LJB
---------------- This is my current vbs -------------------
Set xml = CreateObject("Msxml2.DOMDocument.4.0")
Set xsl = CreateObject("Msxml2.DOMDocument.4.0")
xml.async = False
xsl.async = false
xml.Load "SampleData.xml"
xsl.Load "remove_name.xsl"
?????? xml.transformNode( xsl)
xsl.Load "Consolidate.xsl"
wscript.echo xml.transformNode( xsl) Tag: problems with a scheduled script Tag: 153722
Property Set with more than one argument
I'm having a problem with VBScript declaring a Property Set with more than
one arguments.
-----
'works fine:
Property Set prop (v)
'...
End
Set prop = object
-----
'also works
Property Let prop (k, v)
'...
End
prop("something") = "value"
-----
'will give me an error!
Property Set prop (k, v)
'...
End
Set prop("something") = object
-----
Here is my sample code:
---------8<--------
Class Object
Public key
End Class
Class Test
Private key
Public Property Get blub()
If IsObject(key) Then
Set blub = key
Else
blub = key
End If
End Property
Public Property Let blub( v )
key = v
End Property
Public Property Set blub( v )
Set key = v
End Property
Public Property Get blah( k )
If IsObject(key) Then
Set blah = key
Else
blah = key
End If
End Property
Public Property Let blah( k, v )
key = v
End Property
Public Property Set blah( k, v )
Set key = v
End Property
Sub tst(o)
'works:
blub = "val"
Set blub = o
'also works
blah(0) = "val"
'doesn't work
Set blah(0) = o
End Sub
End Class
Dim o, t
Set o = New Object
o.key = "k"
Set t = New Test
t.tst o
--------->8--------
Any ideas why a Property Set with more than one argument doesn't work?
What am I doing wrong?
Regards!
-Thomas Tag: problems with a scheduled script Tag: 153717
COM add-in for Outlook
Hi,
I am building a COM add-in for Outlook to check the subject and body of
e-mails as they arrive for certain values.
I am currently using another COM add-in to navigate users to "Outlook Today"
when they launch Outlook. The code looks like the following:
***************************
Dim objOL As Outlook.Application
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal
ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As
Object, custom() As Variant)
If Not Application Is Nothing Then
Set objOL = Application
Dim objFolder As Outlook.MAPIFolder
Set objFolder = objOL.Session.GetDefaultFolder(olFolderInbox).Parent
If Not objFolder Is Nothing Then
If objOL.Explorers.Count > 0 Then
Set objOL.ActiveExplorer.CurrentFolder = objFolder
End If
End If
Set objOL = Nothing
End If
End Sub
**************************
the code executes when users launch outlook. I need to have a method called
when users send and receive e-mails.
Please advise.
Rafael Tag: problems with a scheduled script Tag: 153711
Non Greedy Regular Expression in Scripting Engine 5.1
Hi. I really need help with a regular expression in ASP. I need a regex
pattern that will grab a select or textarea tag in an HTML file. If I run
the pattern I should get
<select name="whatever">
<option value="a" selected>A</option>
<option value="b">B</option>
<option value="c">C</option>
</select>
Or
<textarea name="whatever">Here is some text area text</textarea>
I know the following pattern works:
<(select|textarea).*(.|\n)*?</(select|textarea)>
But the problem is my web hosting company is using ASP scripting engine 5.1
which does not support the non greedy delimiter (?). I doubt they are going
to upgrade to 5.5 anytime soon. I'll appreciate it if anyone can give me a
pattern that does the same job but does not use the ? delimiter. Is there a
way I can tweak the pattern above so that it works in ASP scripting engine
5.1? Thanks in advance. Tag: problems with a scheduled script Tag: 153709
Imperial to metric conversion
Hi
I have a requirement to convert imperial length measurements to metric from
data entered into a form. Can anyone point me to somewhere with the details
on how to a achieve this?
Thanks
Chris Tag: problems with a scheduled script Tag: 153708
replacing a character in very line of txt file
Hi,
I have a txt file with 12,000 lines.
I need to write a script which will replace the 21th charcater of everyline
with a "," character.
Anybody has a sample script to do somethins similar?
Thanks in advance,
Barak Tag: problems with a scheduled script Tag: 153705
code puzzle (help please)
The following code bombs after the Name pop-up box. Without the parrens
around "Name" it bombs before that line. If I change oMyObj.get ("Class")
to oMyObj.Class it works fine, of course.
When I say "bomb" I mean that debugger opens with no code and rebooting
doesn't help.
Appreciate any ideas/help
J
<code follows>
Set oMyObj = GetObject("LDAP://ou=WST,dc=NWTRADERS,dc=MSFT")
WScript.Echo "Name is " & oMyObj.Get("Name")
WScript.Echo "Class is " & oMyObj.get ("Class")
WScript.Echo "GUID is " & oMyObj.get ("GUID")
WScript.Echo "ADsPath is " & oMyObj.get ("ADsPath")
WScript.Echo "Parent is " & oMyObj.get ("Parent") WScript.Echo "Schema is "
_
& oMyObj.get ("Schema") Tag: problems with a scheduled script Tag: 153704
migration script
Hi
There're asp and VB aplications need to be migrated to
2003 server, what's the language to write migration
scripts, which level of scripting will be the best(such as
base on ADSI?), is there any resources
thank Tag: problems with a scheduled script Tag: 153701
Disjoin a Domain and join a workgroup
Hi
Is there a way to disjoin a domain and join a workgroup instead? Is it possible with the JoinDomainOrWorkgroup Method in the Win32_ComputerSystem Class? Tag: problems with a scheduled script Tag: 153700
Excel object broken in my scripts
This script was working good, until my win2k box had a profile problem.
When I logged in, I ended up with a default profile, instead of my own.
After rebooting, my old profile resumed working again, but my scripts were
broke. I have added and removed excel rebooting between removing and
installing, and after installing. To no avail, excel is no longer working
in my script. Any help would be greatly appreciated.
<<<<<<<Begin script
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
RootPath = "P:"
ResultLimit = 600
CompressLimit = 200
Const NOTIFY_ADMIN_SUCCESS = False
Const NOTIFY_ADMIN_FAILURE = True
Const NOTIFY_ON_COMPLETION = True
Const SUMMARY_OF_WORK = True
On Error Resume Next
'Set up the Excel Object
Set objExcel = WScript.CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
'>>>Set up the failure worksheet
RenameWorksheet "Sheet1", "Failure"
WriteCellLoc "A1", "Count", "True"
WriteCellLoc "A2", "Folder", "True"
WriteCellLoc "C1", "=COUNTA(A3:A900)", "False"
WriteCellLoc "B2", "Size", "True"
WriteCellLoc "B1", "=SUM(B3:B900)", "False"
FormatRange "B:B", "", "10"
FormatRange "A:A", "", "60"
FormatRange "B1", "#,##0""mb""", ""
FormatRange "B3:B900", "#,##0""mb""", ""
GotoCell "A3"
'>>>Set up the Success worksheet
RenameWorksheet "Sheet2", "Success"
WriteCellLoc "A1", "Count", "True"
WriteCellLoc "A2", "Folder", "True"
WriteCellLoc "C1", "=COUNTA(A3:A900)", "False"
WriteCellLoc "B2", "Size", "True"
WriteCellLoc "B1", "=SUM(B3:B900)", "False"
FormatRange "B:B", "", "10"
FormatRange "A:A", "", "60"
FormatRange "B1", "#,##0""mb""", ""
FormatRange "B3:B900", "#,##0""mb""", ""
GotoCell "A3"
If SUMMARY_OF_WORK Then
'Set up Summary Worksheet
RenameWorksheet "Sheet3", "Summary"
WriteCellLoc "A1", "Success", "True"
WriteCellLoc "A2", "Failure", "True"
WriteCellLoc "A3", "Total", "True"
WriteCellLoc "B1", "=Success!C1+0", "False"
WriteCellLoc "B2", "=Failure!C1+0", "False"
WriteCellLoc "B3", "=B1+B2", "False"
WriteCellLoc "C1", "=B1/B3", "True"
WriteCellLoc "C2", "=B2/B3", "True"
WriteCellLoc "D1", "=Success!B1+0", "False"
WriteCellLoc "D2", "=Failure!B1+0", "False"
WriteCellLoc "D3", "=SUM(D1:D2)", "False"
WriteCellLoc "E1", "=D1/D3", "False"
WRiteCellLoc "E2", "=D2/D3", "False"
FormatRange "C1:C2", "0.0%", ""
FormatRange "D1:D3", "#,##0""mb""", ""
FormatRange "E1:E2", "0.0%", ""
Else
'Trim the fat
DeleteWorksheet "Sheet3"
End If
'Work section
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(RootPath)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder In colSubfolders
Bytes = objFSO.GetFolder(objSubfolder).Size
Result = Int((Bytes/1024)/1024)
If Result > ResultLimit Then
Write2CellAdv "Failure", objSubfolder, Result
If NOTIFY_ADMIN_FAILURE Then
'Make Noise
PlayWav "C:\WINNT\Media\chord.wav"
End If
Else
Write2CellAdv "Success", objSubfolder, Result
If NOTIFY_ADMIN_SUCCESS Then
'Make Noise
PlayWave "C:\WINNT\Media\ding.wav"
End If
End If
Next
If SUMMARY_OF_WORK Then
' Create a new sheet to summarize results of run
GotoWorksheet "Summary"
End If
If NOTIFY_ON_COMPLETION Then
'Make Noise
PlayWav "C:\WINNT\Media\Windows Logoff Sound.wav"
End If
Sub TextFileIntoArray(FileName,ArrayName)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oList = oFSO.OpenTextFile(FileName, 1, False, False)
ArrayName = Split(oList.ReadAll, vbCrlf)
oList.Close
End Sub
Sub FormatRange(Range,Format,Width)
objExcel.ActiveSheet.Range(Range).Select
If Format <> "" Then
objExcel.Selection.NumberFormat = Format
End If
If Width <> "" Then
objExcel.Columns(Range).ColumnWidth = Width
End If
End Sub
Sub PlayWav(sWaveFile)
Set oShell = CreateObject("Wscript.Shell")
oShell.Run "sndrec32 /play /close """ & sWaveFile & """",0,True
End Sub
Sub WriteCellLoc(Loc,Value,Bold)
objExcel.ActiveSheet.Range(Loc).Activate
objExcel.ActiveCell.Value = Value
objExcel.ActiveCell.Font.Bold = Bold
End Sub
Sub Write2CellAdv(SheetName,Value1,Value2)
objExcel.Sheets(SheetName).Select
objExcel.ActiveCell.Value = Value1
objExcel.ActiveCell.Offset(0,1).Value = Value2
objExcel.ActiveCell.Offset(1,0).Activate
End Sub
Sub GotoWorksheet(SheetName)
objExcel.Sheets(SheetName).Select
objExcel.ActiveSheet.Range("A1").Activate
End Sub
Sub RenameWorksheet(OldSheet, NewSheet)
objExcel.Sheets(OldSheet).Select
objExcel.ActiveSheet.Name = NewSheet
objExcel.ActiveSheet.Range("A1").Activate
End Sub
Sub GotoCell(Location)
objExcel.ActiveSheet.Range(Location).Activate
End Sub
Sub AdvanceLine(Down,Across)
objExcel.ActiveCell.Offset(Down, Across).Activate
End Sub
Sub MilDate(Variable)
Variable = Day(Now) & Left(Month(Now), 3) & Right(Year(Now), 2)
End Sub
Sub CompressFolder(Folder)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = '" & Folder & "'")
For Each objFolder In colFolders
errResults = objFolder.Compress
Wscript.Echo errResults
Next
End Sub
Sub UncompressFolder(Folder)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = '" & Folder & "'")
For Each objFolder In colFolders
errResults = objFolder.Uncompress
Wscript.Echo errResults
Next
End Sub Tag: problems with a scheduled script Tag: 153699
Trying to move a computer from the Computers container in my AD to a specified OU
Hello
I've been working with a small application i vbs(se codeexample below), so
when deploying our XP clients(a ghost image), we should be able to choose
which location specified OU we would like to place the machine in. This
application runs fine, when I'm logged on as a domain user. But I want the
application to run, the first time after the sysprep procedure is done, and
the local machine administrator is logged on(the machine is member of the
specified domain at this time).
This causes a error message stating that the specified domain could not be
found, I assume i need to add some extra code to be able to browse the
domain and make the move
Set objNewOU = GetObject("LDAP://OU="& Office &",OU=" & Oulevel1
&",OU=Clients, DC=ramboll, DC=ramboll-group,DC=global, DC=network")
Set objMoveComputer = objNewOU.MoveHere ("LDAP://CN=" & Computername &",
CN=Computers, DC=ramboll, DC=ramboll-group,DC=global, DC=network", "CN=" &
Computername)
Could anyone give me a hint.
Yours Sincerely
Jakob Svarrer Tag: problems with a scheduled script Tag: 153694
Calling Functions
Hi
Im having real problems calling Functions and passing params, I have
experience of VB but am totally new to ASP I've got a routine which call 2
other routines , which create a recordset, yet I have had no luck!!!
Here's a modified sample of my code:
FUNCTION FilterRS
DIM cnnFilteredSkillGroups
DIM rsFilteredSkillGroups
DIM Param1
DIM strSQLFilteredSkillGroups
strParam1 =Request.QueryString("Selection")
SET cnnFilteredSkillGroups = Server.CreateObject("ADODB.Connection")
'*****DB CONNECTION STRING****************
cnnFilteredSkillGroups.Open "Provider=sqloledb;" & _
"Data Source=Server1;" & _
"Initial Catalog=PUBS;" & _
"User Id=uesr1;" & _
"Password=PWord"
'*****DB CONNECTION STRING****************
strSQLFilteredSkillGroups ="SELECT ID,Au_fname FROM authors"
SET rsFilteredSkillGroups =
cnnFilteredSkillGroups.Execute(strSQLFilteredSkillGroups)
FilterSkills=rsFilteredSkillGroups
END FUNCTION
FUNCTION CollateData
DIM rsTemp
DIM strTemp
SET rsTemp = FilterRS
strTemp = FilterRs.Fields(1).Value
END FUNCTION
Any ideas, what's wrong?
--
Kind Regards
Rikesh
(V.InterDev6.0-SP5/W2K-SP4/SQL2K-SP3) Tag: problems with a scheduled script Tag: 153688
Print Server rename
Hello,
I have been able to put together the script below that renames the
print server name on a users computer to a new print server name by
using information gleened from this newsgroup (thank you to the
multitude of talented people here).
The script (please don't laugh too hard) works beautifully but I need
to get a bit more functionality out of it, and I am at a loss as to
how to. What I need to do is have the script look for more than (1)
old server name on the target machine and then change any of those old
server names found to a single new server name.
Any help in this will be greatly appreciated as well as any comments
on how to streamline it more efficiently.
Thank you,
Nick
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
' get the path to the windows folder And add a \
sWinDir = oFSO.GetSpecialFolder(0) & "\"
' get the username
Set oNetwork = CreateObject("WScript.Network")
sUserName = oNetwork.UserName
myfilename = sWinDir & sUserName & ".txt"
set myfileFSO = CreateObject("scripting.FileSystemObject")
If myfileFSO.FileExists(myfilename) Then
'do whatever u want, wherever u want
WScript.Quit
' MsgBox ("File Exists")
Else
'do somthing else
On Error Resume Next
Dim strComputer, sPrinterPath, sPrinterName, sDefaultPrinter,
sOldPrntSrv, sNewPrntSrv
sOldPrntSrv = "Old_Server"
sNewPrntSrv = "New_Server"
Set WshNetwork = CreateObject("WScript.Network")
'Grab the old print info, set the printer name as a variable
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
sPrinterPath = objPrinter.Name
If Instr(sPrinterPath, sOldPrntSrv) Then
Length = Len(sPrinterPath)
sPrinterName = Right(sPrinterPath,Length - InStrRev(sPrinterPath,"\"))
'See if it is the default printer; if so, set a variable to use for
the replacement
If objPrinter.Default = True Then
sDefaultPrinter = sPrinterName
End If
'Delete the old printer connection
WshNetwork.RemovePrinterConnection "\\" & sOldPrntSrv & "\" &
sPrinterName
'Create the new printer with the same printer name
WshNetwork.AddWindowsPrinterConnection "\\" & sNewPrntSrv & "\" &
sPrinterName
End If
Next
'Set the new default printer
WshNetwork.SetDefaultPrinter "\\" & sNewPrntSrv & "\" &
sDefaultPrinter
' get the path to the windows folder And add a \
sWinDir = oFSO.GetSpecialFolder(0) & "\"
' get the username
Set oNetwork = CreateObject("WScript.Network")
sUserName = oNetwork.UserName
' create the filename
sFileName = sWinDir & sUserName & ".txt"
' create the file
Set fFile = oFSO.CreateTextFile(sFileName, OpenAsASCII)
End If Tag: problems with a scheduled script Tag: 153682
Writing to the NT Event Log
Hi
I am trying to write a script that will write to the NT event log. Does anyone know how this is done
Regard
Peter Tag: problems with a scheduled script Tag: 153669
wmi access to sql server
Hello,
Forgive a newbie's question ...
Can I access SQL Server and the databases and tables within using windows
script?
If so, could someone point me in the right direction?
Regards,
Bob Tag: problems with a scheduled script Tag: 153658
ie buttons
Does anybody have a code sample to show how to add a button to Internet
Explorer's toolbar in VB?
Thanks.
Scott Baxter Tag: problems with a scheduled script Tag: 153652
Reading Security Permissions for a User Account
I copied a script from the script center that details a users security permissions. I am to display all the DACL permission entries but I'm trying to determine on which object each applies to. I have gone through and looked at the IADsAccessControlEntry Property Methods and just don't have enough experience to figure this out. The script is at http://www.microsoft.com/technet/treeview/default.asp?url=/technet/ScriptCenter/user/ScrUG128.asp can anyone tell me how I can determine what each ACE refers to?
Sample Output:
DACL permission entry: 1
Name: GOB\Domain Admins
Type: Allow Access <-------------------------Allow Access to What??????????????????????
Standard Access Rights
-Delete an object.
-Read permissions.
-Write permissions.
-Modify owner.
Directory Service Specific Access Rights
-Create child objects.
-Delete child objects.
-Enumerate an object.
-Read the properties of an object.
-Write the properties of an object.
-Delete a tree of objects
-List a tree of objects.
Control Access Rights
-Extended access rights.
-Active Directory must validate a property
write operation beyond the schema definition
for the attribute.
Thanks
Paul Tag: problems with a scheduled script Tag: 153651
Continue While statement VBSCRIPT
HI all,
I have question about VBSCRIPT WHILE statement. When using while statement, I want to re-iterate through the while statement without executing other instrustions once one of my conditions gets true/Fals
e.
DO WHILE I <
IF I= 3 THE
'skip all the instructions below just like 'continue' keyword in c,c++, java or jscrip
'How to do thi
END I
'Otherwise print the value of
Response.Write I & "<BR>
LOO Tag: problems with a scheduled script Tag: 153649
Remote WMI Win32_Printers Question - Printers returned for environment of passed credentials
Uhg. If one uses the SWBEMLocator to enumerate Win32_Printers the instances
returned are only for the user
profile of the login credentials passed in the locator connect string.
I guess this makes sense since installed printers are isolated per user
profile. However, can anyone think of a decent
way to gather the printer info for...let's say the currently logged on user?
Or maybe all printers that have ever been installed?
As always thanks for the help
-Jack Tag: problems with a scheduled script Tag: 153645
Good VBScript Editor?
Does anyone have any recommendation to a good VBScript editor?
I have access to MSDN stuff, but have not found one on any of the disks yet.
Or are there any good third party ones out there?
I have downloaded several and been testing them out, but a recommendation
from people that use one all the time is worth a lot more than my 15 minutes
of testing.
Thanks,
Dan Tag: problems with a scheduled script Tag: 153644
Is it possible to access Outlook from vbscript on the Internet?
Dear vbscript gurus,
I have experience on the Internet in the Linux environmet (PHP, myscwl, etc)
but not (yet) in Microsoft environment.
I have a Linux server and I want to add to my application the possibility to
let the end users to set automatically their
mail accounts on Outlook.
I know that is is possible twith a java signed applet but I renounce at this
(due to incompatibility between the Sun Java Pluh-ins and Microsoft ones).
I was suggested to try to use a Visual Script that has to be executed on the
client's computer.
Due to the fact that vbcript has to access the user's machine privacy (local
Outlook folders), it seems to me a lack of security and I'm asking you if
this is possible or not?
Thank you in advance!
Daniel Tag: problems with a scheduled script Tag: 153643
typing speed program
I'm trying to create a typing speed program and have no idea where to
start. Could anyone give me a few pointers. Many htanks in advance. Tag: problems with a scheduled script Tag: 153641
Batch calling vbs.
This is a multi-part message in MIME format.
------=_NextPart_000_0008_01C3FADC.8A510320
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Since learning scripting, I have always been able to run a script in bat =
to call a vbs file and output to a text file like below. However, =
recently, instead of using relative links from where I run the script, =
the cscript or wscript look to "c\winnt" instead of the location of the =
file I am running. Thus it can't find the file and won't output the =
text. If I change where to the full location (ie =
c:\scripts\logon\lastlogon.vbs) it will pull the script correctly but I =
never had to to that before. Is this a new security measure? Did I =
miss something. I know it used to work.
cscript //nologo lastlogon.vbs > lastlogon.txt
--=20
Robert Cohen
A legend in his own mind
--
------=_NextPart_000_0008_01C3FADC.8A510320
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1276" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Since learning scripting, I have always =
been able=20
to run a script in bat to call a vbs file and output to a text file like =
below. However, recently, instead of using relative links from =
where I run=20
the script, the cscript or wscript look to "c\winnt" instead of the =
location of=20
the file I am running. Thus it can't find the file and won't =
output the=20
text. If I change where to the full location (ie=20
c:\scripts\logon\lastlogon.vbs) it will pull the script correctly but I =
never=20
had to to that before. Is this a new security measure? Did I =
miss=20
something. I know it used to work.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>cscript //nologo lastlogon.vbs >=20
lastlogon.txt</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><BR>-- <BR>Robert Cohen<BR>A legend in =
his own=20
mind<BR>--<BR></FONT></DIV></BODY></HTML>
------=_NextPart_000_0008_01C3FADC.8A510320-- Tag: problems with a scheduled script Tag: 153640
Saving Security Log to DB
The scripting website has an example of how to copy the
event logs to a db. I want to modify this and just copy
the security logs to a db. Below is the relevant portion
of that code:
Set colRetrievedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent")
To modify this for the Security logs, do I change the code
to:
Set colRetrievedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile _
='Security'")
I would greatly appreciate any input on this subject.
Thanks,
Scott Tag: problems with a scheduled script Tag: 153631
File Version Comparison
Hello All,
I am trying to put together a vbscript that will confirm minimum required
versions of applications are installed on clients. Vbscript is getting the
file version correctly via the FSO GetFileVersion object. However, I am
running in to an issue when trying to compare the current version against
the required minimum version.
The goal is to be able to perform something similar to the following:
<snip>
If CurrentVersion >= MinimumVersion Then
wscript.echo ("System is up to standards")
else
wscript.echo ("System needs to be updated")
end if
</snip>
Sounds simple enough until you start looking at the actual version numbers.
To make a long story short, how can I make vbscript see the following as
being true?
"3.0.11" > "3.0.0.47"
The decimals are screwing up the file version comparison. Any ideas?
Thanks,
Dean Tag: problems with a scheduled script Tag: 153630
Newbie baffled by "Expected Statement"
Hello,
I'm working on getting a script running on our website to query a
database. I'm pretty new to this and am working on code someone else
already started. Can you help me out with this problem I'm
getting?...
(thank you in advance)
The error is this:
Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/cwp/rad2DD02.asp, line 89
Line 89 is basically the last line of code (not sure how the
newsreader might wrap the text, so I thought I'd point out that the
following info is on line 89:
<% rs.Close %><% conn.Close %><% End If %><% End If
%></TR></TBODY></TABLE></CENTER></DIV>
This is the full code:
<%
Dim SearchText
Dim FilterName
FilterName = Request.Form("FilterName")
If FilterName = "LASTNAME" Then
SearchText = Request.Form("LASTNAME")
End If
If FilterName = "DEEDBOOK" Then
SearchText = Request.Form("DeedBookPageNumber")
End If
If FilterName = "ACCOUNT" Then
SearchText = Request.Form("ParcelNumber")
End If
If SearchText = "" Then %>
<FORM action=../cwp/view.asp?a=636&Q=419030&PM=1
method=post><BR>Last Name: <INPUT name=LASTNAME><INPUT type=submit
value=Search>Enter a last name only <INPUT type=hidden value=LASTNAME
name=FilterName></FORM><% Else %><% End If %>
<%
set conn=server.createobject("ADODB.Connection")
conn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data
Source="&server.mappath("..\lib\assessment\assessment.mdb")
set rs = server.createobject("ADODB.Recordset")
rs.Open "SELECT * from Assessment WHERE ('" & FilterName & "' = '" &
SearchText & "')", conn,1,1 %><%if rs.bof = false then
%>
<P align=center><B>Sorry, no matches found to match your
query.</B></P><% Else %><% Do While Not Rs.EOF %>
<DIV align=center>
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 width="75%" border=1>
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff><B>Name:</B></TD>
<TD vAlign=top bgColor=#ffffff><%= Rs.Fields("LASTNAME").Value %>, <%=
Rs.Fields("FRSTNAME").Value %><% If Rs.Fields("CARE_OF").Value <> ""
Then %><BR><%= Rs.Fields("CARE_OF").Value %><% End If %></TD>
<TR>
<TD vAlign=top bgColor=#ffffff><FONT
face=Arial><B>Address:</B></FONT></TD>
<TD vAlign=top bgColor=#ffffff><%= Rs.Fields("STRADR1").Value %><BR><%
If Rs.Fields("STRADR2").Value <> "" Then %><%=
Rs.Fields("STRADR2").Value %><BR><% End If %><%= Rs.Fields("PO").Value
%>, <%= Rs.Fields("STATE").Value %><%= Rs.Fields("ZIP").Value
%></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff><FONT
face=Arial><B>Municipality:</B></FONT></TD>
<TD vAlign=top bgColor=#ffffff><%= Rs.Fields("MUNI").Value
%></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff><FONT
face=Arial><B>Acres:</B></FONT></TD>
<TD vAlign=top bgColor=#ffffff><%= Rs.Fields("ACRES").Value
%></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff><FONT face=Arial><B>Square Footage -
Main Building:</B></FONT></TD>
<TD vAlign=top bgColor=#ffffff><%= Rs.Fields("SQFTBLDG").Value
%></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff><% If Rs.Fields("C_G").Value <> "" Then
%><FONT face=Arial><BR>Enrolled in Clean & Green:</B></FONT><% End
If %></TD>
<TD vAlign=top bgColor=#ffffff><% If Rs.Fields("C_G").Value <> "" Then
%><%= Rs.Fields("C_G").Value %><% End If %></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff><FONT face=Arial><B>Assessed
Values:</B></FONT></TD>
<TD vAlign=top bgColor=#ffffff></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff>
<BLOCKQUOTE><FONT face=Arial>Building -</FONT> </BLOCKQUOTE></TD>
<TD vAlign=top bgColor=#ffffff>$<%= Rs.Fields("BLD_ASMT").Value
%></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff>
<BLOCKQUOTE><FONT face=Arial>Land -</FONT> </BLOCKQUOTE></TD>
<TD vAlign=top bgColor=#ffffff>$<%= Rs.Fields("LND_ASMT").Value
%></TD></TR>
<TR>
<TD vAlign=top bgColor=#ffffff>
<BLOCKQUOTE><FONT face=Arial>Total -</FONT> </BLOCKQUOTE></TD>
<TD vAlign=top bgColor=#ffffff>$<%= Rs.Fields("TOT_ASMT").Value
%></TD></TR><% If Rs.RecordCount > 1 Then %><% End If %><% Rs.MoveNext
Loop %>
<TR>
<TD></TD>
<TD></TD>
</TR>
<% rs.Close %><% conn.Close %><% End If %><% End If
%></TR></TBODY></TABLE></CENTER></DIV> Tag: problems with a scheduled script Tag: 153629
Run Powerpoint with options
I want to run a Powerpoint (XP) presentation in a webpage, and have an
option to run it without animations. Can I include a VB-script that turns
off the animation, runs the presentation, or is there some other way to
achieve it? Tag: problems with a scheduled script Tag: 153628