vbscript or perl
Dear all,
I have to port a moderately complicated unix shell script written for
Solaris to Windows. I've never done Windows scripting before. Should I
(a) learn VBScript and implement it in that;
(b) install Active Perl on the target Windows box and rewrite the script in
perl (which I am familiar with).
The script in question most does database stuff e.g. calls stored procs,
parses text files then loads new records with bcp.
Cheers,
David Tag: Schema Property Tag: 166621
A good debug tool.
Hoo WinTail v2.11
Hoo WinTail is a real-time file viewing Windows utility like the Unix
tail -f utility. It can be used to view the end of a growing file. It is
ideal for viewing application traces or server logs in real time, as they
are generated. Quickly viewing the last part of a large file without the
need to load the entire file.
Hoo WinTail is a file viewer. It makes no changes to the file that is
opened. It opens the file in read-only mode. As new lines are written to the
file by another program (such as would happen with a log file, for example),
Hoo WinTail reads the new lines and displays them.
Hoo WinTail can read and display any text file. It cannot support .doc
files, .xls files, or other proprietary formats.
Hoo WinTail can capture and display OutputDebugString (Windows Debug API)
and TRACE(MS Visual C++ Debug Function) output as well.
PROGRAM FEATURES:
=====================
* Setting highlight filters to highlight certain text.
* With Refresh Rate can be customized.
* With Searching for any text string, support search next and previous.
* With the display font can be customized.
* Buffer Size: Setting maximum display buffer size and retain line number
when truncate content.
* Both Unix and DOS/Windows text file formats support.
* Indicates file size in window title bar.
* Capture and display OutputDebugString (Windows Debug API) and TRACE (MS
Visual C++ Debug Function).
* With Unicode support.
* Clear all showed content and reload the last part of file.
* Editing showed content arbitrarily, but making no changes to the monitored
file.
* Drag and Drop support.
* Filename may be specified on the command line or by browsing.
* Maximum 10 recent files.
* Uncluttered user interface.
More detail:
http://www.hootech.com/WinTail/
Download:
http://www.hootech.com/WinTail/WinTail2Setup.zip
Best Regards,
James Tag: Schema Property Tag: 166618
Automate Outlook Profile setup for new users via vbs??
the age old question...
could someone enlighten me on how to setup for a new user (local/domain USER
not admin) for Outlook 2000 and or 2003 through scripting, group policy,
custom install wizard, yada yada yada.
I am not going to buy anything. I'm using vbs for login scripts right now,
but since 99% of users are domain users and not local admins of their pc's,
i'm stuck (but i'm a novice too!) I started reading up on deploying or
publishing outlook in AD, but i'm not to deep yet, so i'm not sure if that
is what i need.
any direction would be much appreciated.. except from sales people.
Jason Tag: Schema Property Tag: 166614
win32_tcpipprinterport
Hi,
A student has a bunch of HP network printers that got installed using
default printer names. She wants to write a script that will correct them.
Other references indicate that we should be able to use the
win32_tcpipprinterport object to do this with a WMI script. However, some
question arrises as to whether this will work with HP tcp/ip addresses due
to the software used to configure the printers on the server. I'm convinced
it should be a scriptable fix even though they'r running windows 2000 rather
than server 2003.
In testing, we run into two problems:
1. the win32_tcpipprinterport object isn't showing up on some servers even
though they have tcp/ip ports employed.
2. on servers that do have the object showing up, it doesn't show TCP/IP
port properties.
Any suggestions or thought will be appreciated.
J B. Fields
--
J Burford Fields
Wyoming wisdom: Good judgment comes from experience, and a lotta that comes
from bad judgment. Tag: Schema Property Tag: 166603
Check Boxs
Hey im really sorry at posting such a n00b question, but quite simply i want
to script a command button on a form in visual basic to run an external .exe
program if a check box that is also on the form is checked. Any ideas for
the scripting of this?
Any help would be deeply appreciated!
Yours,
FingAZ Tag: Schema Property Tag: 166600
reading registry
hi all
i am have problems reading and storing
26 dates in the registry.
what i want to do is set a date value in the registry
six months from the current date, but each morning
i want to scan the registry for the values that do not
match the value of formatDateTime(Date,2)
so seentially, i need some help with reading 26
values in the registry, "Do i need a loop for this"
or do need to check (via) hard code, the values ?
thsanks Tag: Schema Property Tag: 166594
Listing Computer Object's Attribute
I am looking for a script that will display or extract a list of computer
attributes such as Operating system, version, Name, Build no. in specific OU
within my domain. Does anyone know how or show me where can I find it? Many
thanks. Tag: Schema Property Tag: 166592
route add -- a little bit urgent ;) --
Hi,
I need to make statics routes on the computers and I'm looking for some way
to elevate the priviligedges of my users when I'm running the netlogon BATCH
process without using "RUNAS" command. I have tried with the OU in "computer
configuration\ windows configuration \ command files (start/off)" and I
don't know if I'm making something wrong; I put there a BATCH file
(prueba.bat) and when I write on this file nothing happend. the command that
I need to execute is very simple:
route add xxx.xxx.xxx.xx mask xxx.xxx.xxx.x xxx.xxx.xxx.xxx
Is a very simple "route add". I need urgent help please. Thanks in advance. Tag: Schema Property Tag: 166583
Replace() problems
Hi,
I have a file which is a list of French first-names in four CSV-type
columns
Agnès-Céline;Agnès Céline;AGNES-CELINE;AGNES CELINE
Pat;Pat;PAT;PAT
etc
The first column is correctly spelt.
But 2nd 3rd and 4th columns are mis-spellings.
2=No hyphen. 3=Block capitals. 4=Block capitals and no hyphen.
The idea is to use this first-names file to correct another file of names
and adresses where first-names may be mis-spelt..
The idea is to scan through the adresses file line by line checking for the
prescence of strings identical to data in columns 2, 3 or 4.
Any such data should then be replaced by the data from column 1.
This works BUT !! ...
Incidences of PATTON (as in PATTON STREET) were getting replaced by PatTON.
etc.
BANNER became BAnneR, (i.e. the ANNE rplaced by Anne.)
So I decided to check for whole words, thinking that as my data in the
adress file is tab-separated I could look for
chr(9)&ANNE&chr(9) and replace that with chr(9)&Anne&chr(9)
But that doesn't work and I can't figure out why.
Is it Unicode/Ascii ?
Is there no way to use Replace() on only whole words ?
It's driving me nuts.
Almost there but not quite!
Here's the script.
TIA
Scottie.
---------------------
'Create a File System Object
on error resume next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
'Get the file contents
Dim MyPrenoms
Set MyPrenoms = fso.OpenTextFile( "C:\VBS STUFF\prénoms.csv",ForReading,
False)
'Loop through counting the lines
LineCount=0
Dim MyArray (4000, 4)
Do While Not MyPrenoms.AtEndOfStream
MyLine = MyPrenoms.readLine
'msgbox Myline
LineCcontents = Split(MyLine, ",", -1, 1)
'MSGBOX LineCcontents(0) & LineCcontents(1) & LineCcontents(2)&
LineCcontents(3)
MyArray(LineCount,0) = LineCcontents(0)
MyArray(LineCount,1) = LineCcontents(1)
MyArray(LineCount,2) = LineCcontents(2)
MyArray(LineCount,3) = LineCcontents(3)
' msgBox MyArray(LineCount,0) & MyArray(LineCount,1) &
MyArray(LineCount,2) & MyArray(LineCount,3)
LineCount = LineCount + 1
Loop
msgbox "LineCount Prénoms : " & LineCount
Dim MyFileAdressesIn
Set MyFileAdressesIn = fso.OpenTextFile("C:\VBS STUFF\lapat1.txt",
1, False)
Set MyFile = fso.GetFile("C:\VBS STUFF\lapatOut.txt")
MyFile.Delete
Dim MyFileAdressesOut
Set MyFileAdressesOut = fso.OpenTextFile ("C:\VBS
STUFF\lapatOut.txt", ForAppending, True)
do while RL < 20 '---------for testing
MyAdresse = MyFileAdressesIn.readLine
RL = RL + 1
MyOldAdresse = MyAdresse
For i = 0 to Linecount
For j = 1 TO 3
' If Instr(1,Myadresse, chr(9) &trim( MyArray(i,j) )&
chr(9), 0 ) then
' MsgBox "Found" & vbcrlf & MyAdresse & vbcrlf &
MyArray(i,j)
' End if
MyAdresse = Replace( MyAdresse, _
chr(9) & MyArray(i,j) & chr(9), _
chr(9) & MyArray(i,0) & chr(9), 0 )
MsgBox MyOldAdresse & vbcrlf & _
MyAdresse & vbcrlf & _
chr(9)& MyArray(i,j)& chr(9)& vbcrlf & _
chr(9)& MyArray(i,0)& chr(9)
Next 'i
Next 'j
MyFileAdressesOut.writeline(MyAdresse)
Loop
'Cleanup
MyMyPrenoms.Close
MyFileAdressesIn.Close
MyFileAdressesOut.Close
Set MyFileContents = Nothing
Set fso = Nothing
msgbox "Finished" & "LineCount " & LineCount & vbcrlf & _
" i " & i & vbcrlf & _
" j " & j Tag: Schema Property Tag: 166582
Finding and moving folders
I've been reading a bunch of info and looking at sample scripts but I can't
seem to put it all together.
I am trying to Compare folder names in folder V:\Submit with the folders in
G:\projects. If the V:\Submit\folder1 doesn't match a folder
G:\Projects\folder1 then Move V:\Submit\folder1 to V:\Submit\Archive. The
goal is to make sure that the V:\Submit folder never has folder names that
don't exist in the G:\Projects Folder
Thanks in advance for your suggestions
Steve Tag: Schema Property Tag: 166581
Detect Client Side VBScript Enabled
Hi,
Is there any way of detecting in a script whether a user's IE settings will
allow them to run client side VBScript ?
I want to be able to either run the VBScript, or display a sensible screen
informing the user that the setting should be altered to allow this
functionality.
Is there any Javascript to get at these settings ?
Many Thanks,
Larry. Tag: Schema Property Tag: 166580
Rename a 2000 computer
I'm looking for a command line utility or a script that will rename a
Windows 2000 workstation.
The Win32_ComputerSystem ObjComputer.Rename only works on Windows XP and the
Windows 2000 Netdom.exe does not have the functionality to rename a
computer.
Any help is greatly appreciated.
TIA
Charles Tag: Schema Property Tag: 166577
ASP - problem with suiting data
Hello all!
I have a problem with suiting data in ASP. When I generate a query with a
parameter (WEEK between 200402 and 200407) in MS Access 97 I will get such
results:
GROUP WEEK VALUE
GR_1 200402 1
GR_1 200403 2
GR_1 200404 3
GR_1 200405 4
GR_1 200406 5
GR_1 200407 6
GR_2 200402 11
GR_2 200403 12
GR_2 200404 13
GR_2 200405 14
GR_2 200406 15
GR_2 200407 16
When I use the following code:
----------------------------------------------------------------------------
-----------------------
Set objRS = CreateObject("ADODB.Recordset")
strQuery="SELECT IIf([GRUPA] Is Not Null,[GRUPA],'MISC') AS [GROUP],
IIf(DatePart('ww',[Bill_date],0,2) Between 0 And 9,Year([Bill_date]) & '0' &
DatePart('ww',[Bill_date],0,2),Year([Bill_date]) &
DatePart('ww',[Bill_date],0,2)) AS BD, Sum(IIf([BillT] Is Not
Null,CLng(IIf([BillT]='IVS',[Net
value]*(-1),IIf([BillT]='RE',0,IIf([BillT]='S2',0,[Net value])))),0)) AS
Total FROM SalesInvoices AS SalesInvoices_1 LEFT JOIN Gpl_Gpc2 ON
SalesInvoices_1.Prod_hier = Gpl_Gpc2.GPC GROUP BY IIf([GRUPA] Is Not
Null,[GRUPA],'MISC'), IIf(DatePart('ww',[Bill_date],0,2) Between 0 And
9,Year([Bill_date]) & '0' & DatePart('ww',[Bill_date],0,2),Year([Bill_date])
& DatePart('ww',[Bill_date],0,2)) HAVING (((IIf([GRUPA] Is Not
Null,[GRUPA],'MISC'))<>'Cable') AND ((IIf(DatePart('ww',[Bill_date],0,2)
Between 0 And 9,Year([Bill_date]) & '0' &
DatePart('ww',[Bill_date],0,2),Year([Bill_date]) &
DatePart('ww',[Bill_date],0,2)))>="& request.form("data_od") & " And
(IIf(DatePart('ww',[Bill_date],0,2) Between 0 And 9,Year([Bill_date]) & '0'
& DatePart('ww',[Bill_date],0,2),Year([Bill_date]) &
DatePart('ww',[Bill_date],0,2)))<= " & request.form("data_do") & ")) ORDER
BY IIf([GRUPA] Is Not Null,[GRUPA],'MISC'),
IIf(DatePart('ww',[Bill_date],0,2) Between 0 And 9,Year([Bill_date]) & '0' &
DatePart('ww',[Bill_date],0,2),Year([Bill_date]) &
DatePart('ww',[Bill_date],0,2));"
objRS.open strQuery, "Data Source=Panel; PWD=XXXX!; UID=User1; Data
Source=TransOut; PWD=XXXX!; UID=User1;"
response.ContentType = "Text/HTML"
Response.write "<table align=center>"
While Not objRS.EOF
Response.Write ("<tr><td>" & objRS("GROUP") & "</td><td>" & objRS ("BD") &
"</td><td>" & objRS ("Total") & "</td></tr>")
objRS.MoveNext
Wend
Response.write "</table>"
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
----------------------------------------------------------------------------
------------
I will get such data from the same query but generated by ASP language call:
GROUP WEEK VALUE
GR_1 200401 1
GR_1 200402 2
GR_1 200403 3
GR_1 200404 4
GR_1 200405 5
GR_1 200406 6
GR_2 200401 11
GR_2 200402 12
GR_2 200403 13
GR_2 200404 14
GR_2 200405 15
GR_2 200406 16
As you can see the value of VALUE field for 200401 generated in MS Access is
different than during the ASP call.
Can you tell me why? I do not change a query while putting a SQL code from
MS Access SQL view to ASP code.
I only add request("data_od") and request("data_do") which is a parameter
taking from a form.
I do not know where I make a mistake, because everything is good, but I
don`t know why there is a value of VALUE
field for 200402 (MS Access) put in VALUE field for 200401 (ASP). Maybe I
make a mistake with calling.
Can you help me?
I would be very grateful for any posts
Kind regards
Marcin from Poland Tag: Schema Property Tag: 166575
FileSystemObject misreporting File Size
I've written a script that makes a descriptor file (in plain text) based on
audio file. In the descriptor file it needs the file size in bytes of the
audio file. I've been using the FileSystemObject to get the size of the
file. I've been having problems with the entry in the descriptor being off
by one byte. This may sound trivial but the file size needs to be exact
(its for cell phone downloads). Has anyone else had issues with the
FileSystemObject misreporting size. Or is there any system-wide settings I
need to be concerned with that may effect this (file system type,
compression, etc).
Thanks so much in advance. Tag: Schema Property Tag: 166573
HTML type "File"
Hallo
Ich like to navigate to a page with Inet-Control and fill every field I can.
Now I find out, that i can fill all text-field, but not the file-fields!
Here my Code:
DIM ie AS Object
SET ie = CREATEOBJECT ("InternetExplorer.Application")
ie.visible = - 1
ie.navigate("C:\input.html")
'Das sind alles Textfelder
ie.Document.All.user.Value = Benutzername$
ie.Document.All.pwd.Value = Passwort$
ie.Document.All.languageid.Value = Sprachcode$
'Das ist ein File-Feld
ie.Document.All.xmlfile.value = FileName$
The text-fields are filled okay, but the file-field are empty. I've read
something that the browser do not support auto-filling of file-fields! Is
there a way to do this anyway? Thanks for every help!!
Nijazi Halimaji Tag: Schema Property Tag: 166570
Exctracting FileName and FileType out of a Full-Path
Hi
I have a String with a full Path of a file:
"C:\temp\temp2\temp3\MyFile.txt"
Now I don't want to work around and like to get follwing:
1. Filename (MyFile)
2. FileType (txt)
I know that I can beginn reading from the right of the string and exctract
what I need, but is there a simple function which do this for me?
Thanks alot!
Nijazi Halimaji Tag: Schema Property Tag: 166564
Linking Scripts
Hi
Since many of my .htm pages use the same scripts I store them in a textfile
(.inc) in a separate "_Script" directory.
The main reason for this (besides making the code easier to maintain) is
that I don't want the users to by able to see what the scripts are doing.
I use the following syntax to link the scripts:
<Script Language="VBS" SRC="../../_Script/Utils.inc"></Script>
The Script tag is also present in the Utils.inc file.
On my localhost this works fine, on the webserver this produces a Type
mismatch error.
Any ideas?
PO Tag: Schema Property Tag: 166560
remembering the link that was clicked
On my site the homepage is accessible by all. The other pages need a password.
When a visitor clicks a link, they get redirected to the login page instead
of the page that they want to see. That part is under control.
If they provide the right password, they need to be sent to the page that
they clicked. How do I do that?
I'm using ASP and Access. Tag: Schema Property Tag: 166556
Easy (?) One - Fill Frame and Print
Hi.
I've got a button that uses Window.MyFrame.Location = "page2.html" to display a page within a frame. Works no problem. However, as apart of the same button click, I want to print the new frame content using Window.MyFrame.Print. Unfortunately, if before my button is clicked, MyFrame is displaying "page1.html", that is the page that gets printed, THEN "page2.html" is displayed.
Is there a way to refresh the frame to get it to display "page2.html" before the print command fires? If not, is there a convenient work-around?
Thanks, Terry
**********************************************************************
Sent via Fuzzy Software @ http://www.fuzzysoftware.com/
Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Schema Property Tag: 166549
SQL-DMO reference
Hi,
I am interested in a good SQL-DMO reference. I have solved my issues so far
by searching help in Visual Studio 2003 and finding code snippets; however,
rather than finding the magic line of code to do what I want, I would like
to see a hierarchical reference of the different SQLDMO objects, their
methods and properties, etc., etc. I can not seem to find it. Can anyone
help?
Thanks in advance,
Chris Hough Tag: Schema Property Tag: 166545
Sorry
Could someone please tell me why this is not working, sorry for the question.
@echo ON
CD C:\Program Files\SiteSafe\MAPX
COPY F:\DATA\MAPS\MapX.exe
This is my first batch file, I just need to copy the MapX into the previous
directory.
Thanks. Tag: Schema Property Tag: 166543
Toolbar visibility problem with Excel in WSH running vbscript
I am writing a vbscript running under WSH which starts Excel and
writes some stuff into some cells. This all works just fine. I am
using Excel as an output window for the script because it is easy to
do and its easy to format the data. However, there is no need to
display the toolbars, formula bar, and status bar in my Excel output
window. I am able to turn these off with vbscript code.
Here is my problem. When Excel terminates, by the user clicking the
red X to close the window, Excel remembers that the toolbars, formula
bar, and status bar were not visible. The next time the user launches
Excel to do his own thing, all he sees is the menu bar. He must
manually make the other bars visible again.
I have not been able to come up with a solution to this problem. If
vbscript could sit in a loop waiting for the user to close the Excel
window that the script created, I could then open another hidden Excel
window and reset the visibility of the hidden bars. However, I cannot
figure out how to detect when the Excel window is closed.
Creating a VBA Excel macro to reset the visibility of the bars is not
practical since my script will be distributed to a large number of
users and I don't want to mess with that sort of thing. The solution
must be contained within the vbscript program.
Any suggestions as to how I can restore the visibility of the hidden
bars would be appreciated.
By the way, is there a way to turn off the menu bar as well? I really
don't need that either. Tag: Schema Property Tag: 166530
ASP - pivot table
Hello all!
I have the following problem. Is it possible to display a text using ASP
which is a pivot table. I mean,
GROUP 200401 200402 200403 200404
GR_1 1 2 3 5
GR_2 4 1 5 3
GR_3 9 7 8 7
How to achieve such display while source data looks like this???:
GROUP WEEK VALUE
GR 1 200401 1
GR 1 200402 1
GR 1 200402 1
GR 1 200403 3
GR 1 200404 5
GR 2 200401 4
GR 2 200401 1
....
VALUE in the pivot table is a sum of VALUE.
Kind regards
Thank you in advance for your help
Marcin Tag: Schema Property Tag: 166528
How to get the company name in Windows?
Hi, all,
in vbs the owner name of windows can be read or written. But how can
one do the same with company name? I mean with owner and company
the description one can receive in Windows explorer through "info":
...licenced for
{owner}
{company}
Many thanks
--
Weichao Wang Tag: Schema Property Tag: 166522
Alternative to http-referer
Hi
I run a website that has authentication "provided" by another site -
basically we supply a username, password and destination page to the
other site and, once the user is authenticated, they get put on the
page on our site they originally requested (this is a client
requirement so there's no changing it).
This had been working fine until XP SP2. We've been using
Request.ServerVariables("HTTP_REFERER")
to check the referer, but now IE (only on XP SP2) returns an empty
string. Other browsers (NS, FF) return the referer. I created just to
show the referer string to confirm this and indeed the page was blank.
Funny thing is if I refresh that page, the original referer shows up!
Ayway, I now need some alternative way to find out the referring
domain that will accommodate IE XP SP2.
Any ideas?
Thanks Tag: Schema Property Tag: 166519
Returning my own completion code from a VbScript
Hi,
I would like to have two scripts, one of which calls the other, and have the
one that is called return a status value (set by the called script) to the
caller.
I assume I must use either Run or Exec from my 'master' script. True ?
Is there some way of using ExitCode for my purpose?
Thanks in advance,
Chris Hough Tag: Schema Property Tag: 166518
Altering an Add User script to Add Contact script for Active Directory import
Hi,
I found the below script which allows me to import Users into AD from an
Excel file:
http://www.rlmueller.net/CreateUsers.htm (about the VBScript)
http://www.rlmueller.net/Programs/CreateUsers.txt (the code)
I've managed to get this working so it creates a User in my domain, but I
need to alter this so it creates a Contact instead. Can anyone tell me how
to do this? My knowledge of scripting is VERY basic so the more detail you
can give me the better.
Thank you,
Curtis.
====================================
When replying by email please remove the X
==================================== Tag: Schema Property Tag: 166517
VB-script multiple return or reference type?
Hello all,
I want to bring VB scripting support to my MFC aplication. Therfore I need
to provide COM interface to my C++ functions. Now the problem seams that VB
script does not provide reference types or pointers. But how can I have a
function in VB-script that modifies more than one variable and retuns it to
the calling function?
Like C++ function:
void MyFunction(int iValue, int &iWillModifyA, long & lWillModifyB);
How can I express this in VB-script?
Best Regards
Thomas Tag: Schema Property Tag: 166515
Exchange General
Hello, Anyone knows how to make a script to automatically create a outlook
configuration in a machine ? For example, a new user was created, and I have
to create his profile on the user's machine. But I always have to configure
his account on Outloolk XP for our Exchange 2000. This script have to put the
username logged in, exchange host name server and save it.
Tnks for any help. Tag: Schema Property Tag: 166511
Re: Help Finding a Good eCommerce and Project Book
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft DHTML Editing Control">
<TITLE></TITLE>
</HEAD>
<BODY>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Hi Tom!<SPAN
style="mso-spacerun: yes"> </SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <?xml:namespace prefix = o
ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">I hope this makes it to you.<SPAN
style="mso-spacerun: yes"> </SPAN>I will send a few times to be sure you
get it!</P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">The URL for the book you are
looking for is below.<SPAN style="mso-spacerun: yes"> </SPAN>Yes, it?s a
good resource, and it?s cheap!<SPAN style="mso-spacerun: yes"> </SPAN>We
use it for our Entrepreneur clientele projects, and it has saved us a lot of
time, and I?m sure money too!</P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Best regards,</P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Randy</P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><A
href="http://www.wiremarkltd.com/gybol/book.html">http://www.wiremarkltd.com/gybol/book.html</A></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P>
<DIV
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 4pt; PADDING-BOTTOM: 0in; BORDER-LEFT: black 1.5pt solid; PADDING-TOP: 0in; BORDER-BOTTOM: medium none">
<P class=MsoNormal
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> <o:p></o:p></SPAN></P></DIV>
<DIV
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 4pt; PADDING-BOTTOM: 0in; BORDER-LEFT: black 1.5pt solid; PADDING-TOP: 0in; BORDER-BOTTOM: medium none">
<P class=MsoNormal
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt 3.75pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">----- Original Message -----
<o:p></o:p></SPAN></P>
<P class=MsoNormal
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; BACKGROUND: #e4e4e4; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt 3.75pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><B><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">From:</SPAN></B><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> Tom Jeffers <o:p></o:p></SPAN></P>
<P class=MsoNormal
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt 3.75pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">November 29, 2004 3:37
PM<o:p></o:p></SPAN></P>
<P class=MsoNormal
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: medium none; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; MARGIN: 0in 0in 0pt 3.75pt; BORDER-LEFT: medium none; PADDING-TOP: 0in; BORDER-BOTTOM: medium none; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto; mso-border-left-alt: solid black 1.5pt; mso-padding-alt: 0in 0in 0in 4.0pt"><B><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Subject:</SPAN></B><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> Help Finding a Good eCommerce and
Project Book<o:p></o:p></SPAN></P></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Hello,</P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Can anyone tell me where I can
find the eBook Getting Your Business Online?<SPAN
style="mso-spacerun: yes"> </SPAN>If I remember correctly it was compiled
by individuals working for a consulting company, but I do not recall which
one.<SPAN style="mso-spacerun: yes"> </SPAN>We used the book for a lot of
our web development and software projects at my other job, and I think a few of
the construction or building companies we worked with used the project
management section for their projects.<SPAN style="mso-spacerun: yes">
</SPAN>The book was an invaluable project tool, was very easy to read and
understand, and covered just about everything you could imagine!<SPAN
style="mso-spacerun: yes"> </SPAN>I?m sure someone out there has seen or
heard of it.<SPAN style="mso-spacerun: yes"> </SPAN>I would like to review
this book before I plan to go online with a business I am starting.<SPAN
style="mso-spacerun: yes"> </SPAN></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Any help would be greatly
appreciated!</P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Thanks!</P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Tom</P>
<P> </P>
</BODY>
</HTML> Tag: Schema Property Tag: 166506
Invalid CurrentPageIndex value problem ! Urgently
Hi all,
I have to using 2 radiobuttons to control 2 datagrid summay and detail
representively. when I click detail radionbutton, there are 10 pages records.
when I click summary radiobutton, I select 3rd pages it display the following
error. In the summary report just only 1 page record.
"System.Web.HttpException: Invalid CurrentPageIndex value. It must be >= 0
and < the PageCount. "
Would you like to please give me instruction how to handle this error ?
Please comment. Tag: Schema Property Tag: 166504
Creating a log file of a vbscript's activity
Hi guys,
Id like to be able to generate a log file that pumps out all the steps that
a vbscript does.
Similar to using a batch file >> log.txt
And all errors.
Can someone steer me in the right direction?
Thank you.
Simon Tag: Schema Property Tag: 166501
Script Encoder Error: "Expected Statement"
SCENARIO:
I have a very simple application that queries a database.
All my web pages are .ASP files.
I was able to successfully encode all the files.
Each file starts with the <% @LANGUAGE="VBScript"%> statement.
WHEN I RUN THE APPLICATION:
I get the following error:
"Expected Statement" line 2.
Line2 happens to be the first statement following the LANGUAGE
statement note above. So I tried removing this line of code and
re-encoding....SAME problem.
WHO HAS A "REAL" ANSWER?
I've seen posts in here talking about "VBS" and "VBE" files and
statements such as <script language="vbscript"
scr="file1.vbs">......but these make no sense to me? I saw a posting
from a Microsoft fellow that indicated that all encoded files had to
be "renamed" to "vbe" file extensions.
Well guess what? That doesn't work either. My host (localhost on a
Win2K SP4) doesn't interpret the .VBE file and instead prompts me with
a "download" dialog.
HELP:
What gives? My code is fine. The files are encoded correctly (from
what I can see). It just seems that the host can't interpret the
encoded files now.
????????????????????? Tag: Schema Property Tag: 166496
Sample to check share, set up share
Hi,
I am not familiar with much of WSH, and would like to see a sample script or
scripts that:
1) Checks to see if a given network share exists
2) Delete a network share
3) Create a network share
4) Move files to the recycle bin (as opposed to deleting them)
I am trying to use WshShell.Exec with the DOS net share command but the
correct syntax and error handling eludes me.
Are there any other objects I could use that would make this task easier?
For example, I have been able to find and use SQLDMO objects to do things
like backing up and restoring SQL Server databases.
I would appreciate any pointers to useful samples or books.
Thanks in advance.
Chris Hough Tag: Schema Property Tag: 166494
true false in quotes?
Hi,
Are there any rules for using or not using quotes around true or false.
Witness the following: (Hold the alt key and click the document)
<html>
<head>
<script language=vbs defer>
sub document_onclick()
if d1.contentEditable=true then 'doesn't work
msgbox "d1.contentEditable=true"
else
msgbox d1.contentEditable=true
end if
if d1.contentEditable="true" then 'works
msgbox "d1.contentEditable=""true"" "
else
msgbox d1.contentEditable="true"
end if
if window.event.altKey=true then 'works
msgbox "window.event.altKey=true"
else
msgbox window.event.altKey=true
end if
if window.event.altKey="true" then 'doesn't work
msgbox "window.event.altKey=""true"" "
else
msgbox window.event.altKey="true"
end if
end sub
</script>
</head>
<body>
<div id=d1 contentEditable=true> </div>
</body>
</html> Tag: Schema Property Tag: 166493
WMI Survey
Folks,
For those of you using WMI today or just knowing a bit about it, please
participate to the survey and spread the word about it!
Survey life link is at:
http://support.microsoft.com/common/survey.aspx?scid=sw;en;1236&p0=&p1=&p2=&p3=&p4=
As you may know, this survey is very critical for Microsoft to correctly
prioritize new features, updates, etc. Please participate and spread the
word !
Many Thanks.
Have a great day!
Alain LISSOIR
--------------------------------------------------------------------------------
Alain.Lissoir@LissWare.Net
Home Page: http://www.LissWare.Net Tag: Schema Property Tag: 166489
Open Files
hi,
i need to know who is connected to some file on my server, i try to make
this but i can't; i'm wait for your help
thank Tag: Schema Property Tag: 166481
ADODB.Recordset: Operation is not allowed when the object is closed
Hi there
I get the above message when trying to write to a SQL 2000 database. Can
anyone perhpas shed some light on this for me?
In theory I am tryng to create a generic subroutine which I can simply pass
my INSERT/UPDATE/DELETE statements to, and then have it executed. The
following subroutine gets called for each server that I am running through.
The error above is returned on the line "objRecordSet2.Close"
My code excerpt is as follows:
Sub AccessDB()
' Set the database connection information
sServer = "test"
sLogin = "logon"
sPwd = "pwd"
' Create the ADO Connection and Recordset objects.
Set objConnection2 = CreateObject( "ADODB.Connection" )
Set objRecordSet2 = CreateObject( "ADODB.Recordset" )
' Set the connection string, open the connection and execute the statement
objConnection2.ConnectionString = "PROVIDER=SQLOLEDB" & _
";SERVER=" & sServer & _
";UID=" & sLogin & _
";PWD=" & sPwd & _
";DATABASE=ServerSupport"
WScript.Echo & SQLString
objConnection2.open
objRecordSet2.Open SQLString, objConnection2
objRecordSet2.Close
objConnection2.Close
End Sub Tag: Schema Property Tag: 166480
UDL File
Hi All.
I have a very basic doubt.
How, in the name of GOD, I create a UDL file that works, using
vbScript?!
I've been trying to accomplish that usign FileSystemObject with no
success...
Thanks in advance!!
Rodolfo
Sao Paulo - BR Tag: Schema Property Tag: 166477
changing existing local user flag "never expires"
Hello
I'm searching for a usable script to change the flag "password never
expires" on two local users.
No domain, no OU, or so - simple local accounts.
System is Windows XP Prof SP2
I found two scripts - no one seems to work for me.
Script 1:
Set objUser = GetObject("WinNT://image/trulli")
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
Script 2:
Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000
Set objUser = GetObject("WinNT://image/trulli,user")
lngFlags = objUser.Get("userFlags")
If (lngFlags And ADS_UF_DONT_EXPIRE_PASSWD) <> 0 Then
lngFlags = lngFlags Xor ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", lngFlags
objUser.SetInfo
End If
Both scripts runs on doubleclick without error, but the flag seems not
been set.
System/User/Properties.... is the flag unchecked after the scripts.
What can i do?
Greetings
Chris Tag: Schema Property Tag: 166474
If Not Debug Then
Hi,
I am trying to use 'If Not' condition when the variable = 0.
Debug = 0
If Not Debug Then
Wscript.echo "hi"
End If
In this we VBS will step into the condition. Is there a way like in 'c'
language to use if(!Debug) ? Tag: Schema Property Tag: 166466
Windows Image Acquisition (WIA) Automation Resources?
Hi,
Does anyone know of any good resources (books, websites other than MSDN, or
newsgroups) for Windows Image Acquisition (WIA) Automation?
I'm having trouble getting it working, and the info on MSDN isn't working
for me.
Thank you,
Robert Tag: Schema Property Tag: 166462
How can I get computer name
Hi there
Does anyone knows how can I get the computer name in a workstation domain
where there is no login at the server and then pick up all the computers
name's one by one and create a directory in a shared directory at the server
with the same the of the clients computer's?...
I hope someone could help me out with a script that have already made or
give me some tips.
Thanks
Nuno Tag: Schema Property Tag: 166458
ASP, looping, and stored procedures.... error '800a0bb9' ...
Hi all, thanks in advance.
Ok, heres the story.
What is happening......
--------------------------------
I've got an ASP page that loops.
It loops in order to get data in different, sequential date ranges. I.E.
from 9/1/2000 - 10/1/2000 then 10/1/2000 - 11/1/2000 etc etc etc.
It calls SPs using the 2 dates and an integer used for companyid reference.
Let's just do this for 2 SP's (there are like 6 on the page.)
One SP has 3 params, one has only 2.
Now, the first iteration of the loop, it works. (because I'm
response.writiting out the dates it's using to verify they are ok.
The second time through I get the following error when I try to execute the
following ASP:
Set rstStoredProc = cmdStoredProc.Execute(, Array(GroupChoice, fromdate,
todate))
______________________________________________
ADODB.Command error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another.
_______________________________________________
What I need to do.........
--------------------
In the loop, I am trying to reuse my command/connection objects instead of
reinstantiating them for each iteration of the loop.
***Currently, it must use ODBC not OLEDB so keep that in mind.***
Here's the code for the SP's
--------------------
CREATE Procedure proc_getPageHits
(
@GroupID int,
@FromDate datetime,
@ToDate datetime
)
As
SELECT sum(counter) as hitcount
FROM tblTracking
WHERE CreateUserID in (select UserID from tblUser where GroupID=
@GroupID)
and (CreateDate between @FromDate and @ToDate)
GO
CREATE Procedure proc_getUserCount
(
@GroupID int,
@ToDate datetime
)
As
SELECT count(UserID) as usercount
FROM tblUser
WHERE (GroupID = @GroupID) and (CreateDate < @ToDate)
GO
Here's the ASP
----------------------------------------------
Set cmdStoredProc = Server.CreateObject("ADODB.Command")
cmdStoredProc.ActiveConnection = dbConn
do while DateCompare(currentsearchdate,todaysquarterend) = "smaller"
cmdStoredProc.CommandText = "Proc_getUserCount"
cmdStoredProc.CommandType = adCmdStoredProc
Set rstStoredProc = cmdStoredProc.Execute(, Array(GroupChoice, todate))
cmdStoredProc.CommandText = "Proc_getPageHits"
cmdStoredProc.CommandType = adCmdStoredProc
Set rstStoredProc2 = cmdStoredProc.Execute(, Array(GroupChoice,
fromdate, todate)) '(**THIS IS WHERE IT ERRORS**)
loop
----------------------------------------------
Why does it error on the SECOND procedure of the SECOND iteration of the
loop?
It makes it past the first loop ok.
Then it makes it past the first SP of the second loop but errors in the
second SP....??...
The dates are verified correct and in format.... so what the heck is the
prob?
If I re-create the command object each iteration (i.e. put the Set
cmdStoredProc = Server.CreateObject("ADODB.Command") line inside the loop)
it works fine. but it's so much slower. The results of the page are coming
back in 13seconds. (there's alot more calls and alot more stuff going on,
but these procedures should pick it up a bit.
Also, if you have any suggestions on the SQL select statements, feel free to
enlighten me. I am using the 'IN' method whereas some people have told me of
the 'where exists' SQL method. I have not received any examples though.
Thanks again in advance.
-Beau
www.worlddoc.com Tag: Schema Property Tag: 166442
Outlook Scripting
We have recently moved our internet email from an SMTP server to our exchange
server. Now we have the task of removing the service from every user's
profile. Is there a way to do this using some form of scripting? We are
already running many scripts here and I would love to write one to do this.
Touching each individual machine is not something I would prefer to do.
Thanks in advance for your assistance. Tag: Schema Property Tag: 166439
how to bypass a known-bad SSL certificate
I'm writing a VBScript to download some content from a number of internal
webservers. I'm downloading both secure (https) and non-secure (http)
content. One of these webservers (a test machine) has a number of problems
with its SSL certificate, not the least of which is that the certificate has
expired. Every time my script tries to download from the webserver with the
bad SSL certificate, Windows helpfully gives me a warning dialog that I must
click through before the script can continue. Is there any way to avoid
this warning for a specific certificate and/or webserver? I'm aware that
the certificate has issues, but it won't be replaced and/or renewed any time
soon (largely because it's on a test machine), so how can I work around it?
I have already tried:
* adding the site to Internet Explorer's "Trusted Sites" (didn't help)
* changing the system date to a period before the certificate expired when
accessing the problem webserver, then changing it back afterward (still saw
the warning dialog, because of another problem with the certificate)
I am using WSH 5.6 on WinXP SP2, with MSXML 4.0 SP2.
Code follows:
Sub CheckLink(strURL, strOutput)
Dim objHTTP, objStream, tStart, tElapsed
Set objHTTP = WScript.CreateObject("MSXML2.XMLhttp.4.0")
objHTTP.Open "HEAD", strURL, False
objHTTP.Send
WScript.Echo "Headers from " & strURL
WScript.Echo objHTTP.getAllResponseHeaders
WScript.Echo
objHTTP.Open "GET", strURL, False
objHTTP.Send
tStart = timer()
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.Write objHTTP.ResponseBody
objStream.SaveToFile strOutput, adSaveCreateOverWrite
Set objHTTP = Nothing
Set objStream = Nothing
tElapsed = timer() - tStart
WScript.Echo "Saved: " & strURL & vbCRLF & "To: " & strOutput & vbCRLF &
"Time: " & tElapsed & " seconds..." & vbCRLF
End Sub
Any assistance would be greatly appreciated!
Rob Shaw-Fuller
robshawfuller@hotmail.com Tag: Schema Property Tag: 166438
Check if connected using Terminal Services
Hi,
I would like to create a script which is able to check if it is being run in
an terminal service session.
It should only be allowed to run locally and not remotely.
Anyone any ideas?
Many thanks,
Jo Tag: Schema Property Tag: 166437
Does anyone know what the schema property for Password never Expires is on
an Active DIrectory User?
"Bart Perrier" <bart_perrier@hotmail.com> wrote in message
news:Oew2%23TU2EHA.2540@TK2MSFTNGP09.phx.gbl...
> Does anyone know what the schema property for Password never Expires is on
> an Active DIrectory User?
>
> Bart
>
>