MSXML2.XMLHTTP compatibility with IE 5.0 and above
Object:
We are using the Microsoft.XMLHTTP component for uploading data from
the IE Client.
The VBScript code required for a CLIENT - SIDE is:
Sub Sendit
dim sfileName
dim sType
dim xmlhttp
sfileName="c:\\voir.txt"
sType=2
sData = getFileBytes(sfileName, sType)
sfileName= mid(sfileName,
InstrRev(sFileName,"\")+1,len(sfileName))
set xmlhttp=createobject("MSXML2.XMLHTTP")
strURL = "http://localhost/INGEB/uploads/" & sFileName
msgbox "URL is: " & strURL
xmlhttp.Open "PUT", strURL, false
xmlhttp.Send sData
show.innerText= "Status: " & xmlhttp.statusText
set xmlhttp=Nothing
End sub
Questions:
The Client side use the IE version 5 and above.
What version of Microsoft.XMLHTTP is required to execute the
previous script ?
Is it included by default with IE5 and above?
Thanks!!! Tag: How to send a command Unix Tag: 137723
auto send mail using Pop3
I am automating the tasks.
After it finished, it will send a e-mail using Outlook to
notify the people.
But under office XP / latest service pack on Office 2000,
It will come up a dialog box, and I need to confirm it 2
times manually, so that the message can be sent.
Can anyone give me some example on sending the e-mail via
POP3 protocol? (I don't need to manually confim the
message one by one). Tag: How to send a command Unix Tag: 137702
call a query in access from vbs program part 2
Set cn = server.createobject("adodb.connection")
cn.open "provider=Microsoft.Jet.OLEDB.4.0;" & "r:\basegeneral.mdb"
cn.r-daytoday
cn.close
set cn = nothing
I ran the script and I got this error message
code: 800AO1A8
error: objet requis: "server"
why?
--
Direct access to this group with http://web2news.com
http://web2news.com/?microsoft.public.scripting.vbscript
To contact in private, remove nn3osp+-3pa6m Tag: How to send a command Unix Tag: 137691
ASP email validation
I was wondering if there was a way to validate the email
software of a contact to see if their software can support
HTML emails before sending the emails using ASP? I want to
send them a plain text email if their software does not
support HTML...
Many Thanks,
Kevin Tag: How to send a command Unix Tag: 137685
Need a Loop For my Code
Hi there can anyone out there help me ?
The following VBS script I wrote to alow me to Save some
webpages as text files. However I need a to have some kind
of loop put in so that I can do this for multiple URL's
and save each webpage as a different text file ?
I am new to VBS but am fairly experienced with VBA and VB
If this were either I would just write an Array to handle
the different URL's and File Names and than run this code
through a Loop, which would change the Elements in the URL
array and textfile name array each time the loop ran
through . However Im not sure if I can do such a thing
with VBS. If so how can I do this and do you need to "Dim"
any array's or variables ???
code:
Set IE = createobject("InternetExplorer.Application")
fWrite "C:\SBM\DataMining\TextData\zcd9.txt", WebText
("http://www.cpc.ncep.noaa.gov/products/analysis_monitoring
/cdus/degree_days/msacddy.txt")
fWrite "C:\SBM\DataMining\TextData\zhd9.txt", WebText
("http://www.cpc.ncep.noaa.gov/products/analysis_monitoring
/cdus/degree_days/msahddy.txt")
Function WebText(sUrl)
IE.Navigate sUrl
Do Until IE.ReadyState = 4:WScript.Sleep 10 : Loop
WebText = IE.Document.Body.InnerText
End Function
Function WebHTML(sUrl)
IE.Navigate sUrl
Do Until IE.ReadyState = 4:WScript.Sleep 10 : Loop
WebHTML = IE.Document.Body.InnerHTML
End Function
Sub fWrite(FilePath, sData)
'Given the path to a file, will return entire contents
With CreateObject("Scripting.FileSystemObject")._
OpenTextFile(FilePath, 2, True)
.Write sData: .Close
End With
End Sub
IE.Quit
MsgBox ("Web Pages Saved As Text Files") Tag: How to send a command Unix Tag: 137681
Enumerate All file attributes
anyone have a script that will return the file attributes of all files
in a folder and it's subfolders?
Thanks
azeem. Tag: How to send a command Unix Tag: 137679
Hacking MS Exchange
Is is possible to create a script that can access the internet mail service
queues and delete anything that does not have an originator? If so, does
anyone have an example? Sorry for the xpost. Tag: How to send a command Unix Tag: 137674
document.Cookie
Hi
I have just created my first OCX in VB6 and all works great!
Next I want to read parameters from the hosting web page and store user
information locally on their disk.
And pointers on how to do either.
I have been looking at :
UserControl.Parent.script.Document.cookie
but can't seem to retrieve all the parameters or set them?!
I know this a VB script forum but it would seem more appropriate given the
script.document,cookie bit!
Thanks Tag: How to send a command Unix Tag: 137671
Change File Attributes
Hello, I need to copy a folder and all it's files to a new location
for backup. How do I change the attributes of the destination
read-only files so I can overwrite them for the copy and then reset
the attribute after the copy?
Anyone?
Thanks. Tag: How to send a command Unix Tag: 137666
Listing all Forest users
I want to write a script which will list all the users in each domain in a
forest.
So far i have been able to list all the domain and subdomains on the forest.
The problem is that when i try to list each domain users i get only the user
list of my current domain (the domain my account belongs to).
This should not be a permissions problem, since i query the nearest Global
Catalog for the user list.
Any help / suggestions would be appreciated. Tag: How to send a command Unix Tag: 137663
internal Mail server (exchange) won't accept CDONTS generated mail
We have several forms on an intranet which are used to
submit information to a database, but also in some case to
generate notices to relevant staff as emails.
I have checked
mailroot/queue
mailroot/badmail
and the messages are getting to queue (*.eml) and some
time later to badmail. Even the mail undelivable messages
don't get sent. But they do contain:
>>>
Unable to deliver message to the following recipients, due
to being unable to connect successfully to the destination
mail server.
paul.ritchings@nulc.ac.uk [or whatever]
<<<
The scripts will work however if the address is an
external one.
eg: someuser@ntlworld.com
Has anyone got any idea what might be causing this.
ps. I don't have access to the mail server. And have
limited rights on the webserver. Tag: How to send a command Unix Tag: 137660
automatic installing
Hello,
How can I automatize the insertion of the key code number in a form usign
VisualBasic script?
Thank oyu a lot!
Alberto Gori Tag: How to send a command Unix Tag: 137659
how to automatically download files to specified location
When you click file link to download a file, a window
pops up to confirm the file download. And it will ask you
to select the location to save your file. Can I customize
this task to automatically do these things in background
by programming? and how?
Thanks. Tag: How to send a command Unix Tag: 137658
Word 2002 Automation / Windows 2000 SP4
I have a program that uses word automation to open word,
open a document, print a selected document, and closes
word. Before I installed SP4 for Windows 2000, the
following code worked flawlessly:
Dim objWord
Set objWord = CreateObject("Word.Application")
objWord.Documents.Open strFileName, false, true, false
objWord.Application.DisplayAlerts = 0
objWord.Application.ActivePrinter = "HP_printer"
objWord.Application.PrintOut true,,0,,,,,1
objWord.ActiveDocument.Close false
objWord.Quit
Set objWord = Nothing
In DCOMCNFG, I have Word set to run under the identity of
Administrator, in order to have access to all network
resources.
This was on Windows 2000 SP3.
Since I installed SP4 for Windows 2000, this Word
automation does not work. Whenever I call the line in the
above code 'objWord.documents.open ... " the program
freezes and the word process hangs. The same happens if I
try to run this code in a macro in Word VBA. Whenever it
gets to the line that opens a file, and the file is on a
shared network resource, it hangs. Again, this worked
prior to SP4. Is there a new security setting in SP4?
I have tried uninstalling Office, restarting, and
reinstalling Office, but that did not work.
Any help would be GREATLY appreciated. Thanks! Tag: How to send a command Unix Tag: 137656
pass data to a dll
I'm new in this process, I have an asp page that is calling vb dll. I need
to pass a varaible to the dll from the asp page, then the DLL will execute a
stored procedure. In the SP the where clause is based on the variable being
passed from the asp page/dll.
How can I accomplish this? Tag: How to send a command Unix Tag: 137649
Creating local user accounts
hi folks. i have a little problem creating local users on a windows 2000
system with the user object.
problem is, that the local security policies do not allow a blank password.
is there a way to directly set the password when creating the user
account??
i only know of the method with setpassword. but that requires that the user
already exists.
another way would be to temporarily disable the local security policies.
how do i do that with a script?
thanks in advance Tag: How to send a command Unix Tag: 137647
Using EOLWTSCOM module to enumerate Terminal server profile in AD
I am using EOLWTSCOM (ftp://ftp.go-eol.com/public/thinssentials/wtscom/) You
can use this module to set and enumerate Terminal Servers settings in AD.
I am having trouble enumerating some properties. The properties show up as
boxes (invalid charactors). I think I need to change data types. I 'm not
sure how to do this.
This is my code below:
Const WTSUserConfigInitialProgram = 0
Const WTSUserConfigWorkingDirectory = 1
Const WTSUserConfigfInheritInitialProgram = 2
Const WTSUserConfigfAllowLogonTerminalServer = 3
Const WTSUserConfigTimeoutSettingsConnections = 4
Const WTSUserConfigTimeoutSettingsDisconnections = 5
Const WTSUserConfigTimeoutSettingsIdle = 6
Const WTSUserConfigfDeviceClientDrives = 7
Const WTSUserConfigfDeviceClientPrinters = 8
Const WTSUserConfigfDeviceClientDefaultPrinter = 9
Const WTSUserConfigBrokenTimeoutSettings = 10
Const WTSUserConfigReconnectSettings = 11
Const WTSUserConfigModemCallbackSettings = 12
Const WTSUserConfigModemCallbackPhoneNumber = 13
Const WTSUserConfigShadowingSettings = 14
Const WTSUserConfigTerminalServerProfilePath = 15
Const WTSUserConfigTerminalServerHomeDir = 16
Const WTSUserConfigTerminalServerHomeDirDrive = 17
Const WTSUserConfigfTerminalServerRemoteHomeDir = 18
Set oWTSCOM = CreateObject("EOLWTSCOM.WTSCOM")
MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName",
WTSUserConfigTerminalServerProfilePath)
MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName",
WTSUserConfigfAllowLogonTerminalServer)
MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName",
WTSUserConfigfDeviceClientDrives)
MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName",
WTSUserConfigfDeviceClientPrinters)
MsgBox oWTSCOM.WTSQueryUserConfig("DC", "samAccountName",
WTSUserConfigfDeviceClientDefaultPrinter)
If anyone has experience enumerating the last 4 properties, I would be
forever greatful.
Thanks,
Dan Tag: How to send a command Unix Tag: 137632
Email
newbie...when I run a script that sends an email...it pops up a dialog
box that says "Another program is trying to access your address book
to send a message..." How do I turn this off or accept it
automatically??
Function SendEmail(MailRecipient1, Subject, Message)
Const olMailItem = 0
Dim OutlookProfile: OutlookProfile = "MS Exchange Settings"
Dim objoutl, objNameSpace, objMailItem
Set objOutl = WScript.CreateObject("Outlook.Application")
Set objNameSpace = objOutl.GetNameSpace("MAPI")
Set objMailItem = objOutl.CreateItem(olMailItem)
objMailItem.Recipients.Add(MailRecipient1)
objMailItem.Subject = Subject
objMailItem.Body = Message
objNameSpace.Logon OutlookProfile
objMailItem.Send
objNameSpace.Logoff
End Function Tag: How to send a command Unix Tag: 137622
Identify if Windows version is US, FR, DE, etc..
Hi,
I am looking for a scriptable way to identify if the Windows version is a
US version, a French version, a German version, etc... ?
Also is there a way to do the same thing for SQL Server and Office ?
Regards,
Fred. Tag: How to send a command Unix Tag: 137620
collection of objects??
Hi,
I was wondering if/how you could (in vbscript - jscripters and .net
scripters chime in too) define a class then instantiate multiple instances
and keep track of them. Do you use an array??
Thnx,
Bill Wallace Tag: How to send a command Unix Tag: 137608
Is machine present
Is there a quick way of finding if a machine is present on the network (not
present in the AD). I mean, a machine might be in the AD but switched off or
removed from the network.
I though I would use this code to check for the c$ share (something all our
machines have) but its dog slow.
Function ExistShare(sComputer, sShare)
Set oWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" &
sComputer & "\root\cimv2")
Set colShares = oWMI.ExecQuery ("Select * from Win32_Share WHERE name = '"
& sShare & "'")
If colShares.Count > 0 Then
ExistShare = True
Else
ExistShare = False
End If
End Function
Any ideas how i can do it, or speed the process up ?
Olly
--
________________________________________________
ADSSupport.net
http://www.adssupport.net
Dedicated free Active Directory ServicesT support
email: oliver.marshall@nospam@adssupport.net Tag: How to send a command Unix Tag: 137607
set NTFS file compression by script
How do I set a file to use NTFS file compression by vbscript? I have a
script that makes a backup of an Access database, runs database compress and
repair then renames it.
Option Explicit
CallCompress "\\....\...\mystuff.mdb"
'beep
WScript.CreateObject("Wscript.Shell").Run "%comspec% /c echo "&chr(7),0,true
sub CallCompress(origMdbFile)
'based on backupDBs.vbs by Doug LaMar at dlamar@lamarsoft.com
Dim IsLocked, destMdbFile, origLdbFile, fso
origLdbFile = Left(origMdbFile,(Len(origMdbFile)-3)) & "ldb"
destMdbFile = Left(origMdbFile,(Len(origMdbFile)-4)) & " " & _
Year(Now()) & right("0" & Month(Now()), 2) & _
right("0" & day(now()),2) & ".mdb"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
IsLocked = True
While IsLocked
If (fso.FileExists(origMdbFile)) Then
If (fso.FileExists(origLdbFile)) Then
' Database locked by Access
IsLocked = True
WScript.Sleep 60000 ' Wait 1 minute
Else
' Database free
IsLocked = False
End If
Else ' File doesn't exist
WScript.Quit
End If
Wend
DoCompress origMdbFile, destMdbFile
Set fso = Nothing
end sub
sub DoCompress(strSourceDB, strDestDB)
CreateObject("Access.Application").DbEngine.CompactDatabase strSourceDB,
strDestDB
If Err.Number > 0 Then MsgBox "The following error was encountered while
compacting database:" & _
vbCrLf & vbCrLf & Err.Description
end sub Tag: How to send a command Unix Tag: 137601
send mail with vbs in lotus notes
This is a multi-part message in MIME format.
------=_NextPart_000_0021_01C340C6.97B1A590
Content-Type: text/plain;
charset="windows-1255"
Content-Transfer-Encoding: quoted-printable
hey i newbie and my question is:
can a make a script that send me a email in lotus notes /domino =
envoriment
becuse i dont have direct internet access?
------=_NextPart_000_0021_01C340C6.97B1A590
Content-Type: text/html;
charset="windows-1255"
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=3Dwindows-1255">
<META content=3D"MSHTML 6.00.2800.1170" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV>
<P><FONT face=3DArial size=3D2>hey i newbie and my question =
is:</FONT></P>
<P><FONT face=3DArial size=3D2></FONT> </P>
<P><FONT face=3DArial size=3D2>can a make a script that send me a email =
in lotus=20
notes /domino envoriment</FONT></P>
<P><FONT face=3DArial size=3D2>becuse i dont have direct internet =
access?</FONT></P>
<P><FONT face=3DArial size=3D2></FONT> </P>
<P><FONT face=3DArial size=3D2></FONT> </P></DIV></BODY></HTML>
------=_NextPart_000_0021_01C340C6.97B1A590-- Tag: How to send a command Unix Tag: 137599
File Object will not open
[Win XP; IIS 5.1]
This VB script (ASP) does not work. It fails when trying
to open the file; says it doesn't exist (after a long
wait) despite the 'if' statement evaluating to True. It
worked fine in PWS on Win98. I am at a complete loss!
--Start code sample
Set fso = CreateObject("Scripting.FileSystemObject")
sFilePath = "c:\inetpub\wwwroot\test.txt"
If fso.FileExists(sFilePath) Then
Set f = fso.OpenTextFile(sFilePath, 1, True)
[... stuff deleted from sample ...]
/--End code sample Tag: How to send a command Unix Tag: 137598
Copying Folders
Hi all!!
I have recently receive a task from my boss to write script that will copy
contents from one folder (including all subdirectories and files) into
another folder but without deleting old files in the target folder!!
Let me give an example:
There are folder on my CD-ROM, let's say it's path is D:\folder1, with a lot
of files and subderictories. There are folder on my hard disk,
C:\test\folder2. I want to copy all contents from folder 1 to folder 2, but
without replacing files in folder2 with that from folder1 in case that are
the same.
I have found some example scripts in "Windows 2000 scripting guide", and on
the net using shell.application object or copyfolder method in
filesystemobject, but they all replace old files with the new ones. I want a
script that will preserve an old files in folder2!
Thanks
Vinko Malada Tag: How to send a command Unix Tag: 137594
Select option on right click
I have a simple select form element object and want to be able to get it to
select whatever the user chooses when they right-click in it.
I've managed to use the following code, but on the right-click it displays
whatever was previously selected and still highlighted with the left click.
Is there a way to get a right click in the select object to perform the same
functionality as a left click? (ie. select the option)
<html>
<head>
<script language="VBScript">
<!--
sub fnDelMsg
if window.event.button = 2 then
Call MsgBox("Are you sure you wish to delete this message?" _
& vbcrlf & vbcrlf &
form1.messages.Options(form1.messages.selectedIndex).text, _
4,"Delete message?")
end if
end sub
sub fnViewMsg
Call MsgBox(form1.messages.Options(form1.messages.selectedIndex).text, _
,"Message details")
end sub
-->
</script>
<body>
<form name="form1">
<select name="messages" size="8" onDblClick="fnViewMsg()"
onMouseDown="fnDelMsg()">
<option>Message 1</option>
<option>Message 2</option>
<option>Message 3</option>
<option>Message 4</option>
</select>
</form>
</body>
</html> Tag: How to send a command Unix Tag: 137590
Using the hardware wizard through VBscript?
Hi all
I'm working on a script that checks the USB Ports on the users machine
for unauthorized USB-Hardware. I got the script from someone else but
would like to implement an option to deactivate the USB Hardware. I'm
able to call up the hardware wizard (to deactivate the Hardware) but
fail to let the script navigate throught the dialogs (press next,
choose deactivate, press next and so on). so my questions are: is it
even possible and if it's possible, how can I do it?
thanks in advance.
This is the code I use to call up the Hardware wizard:
Dim shl
Set shl = CreateObject("Shell.Application")
shl.ControlPanelItem cstr("hdwwiz.cpl") Tag: How to send a command Unix Tag: 137589
Export parameters of COM+ object
Hello,
I have an application than is composed of several packages.
Each packages contains severals objects.
I would like to export in a file the list of the packages with the
parameters.
In fact the need is to compare the production and the test server to see if
there is a difference in parameters.
Thanks o lot Tag: How to send a command Unix Tag: 137587
FileSystemObject and INPUT/FILE
I open a file using the HTML
INPUT TYPE+FILE
in a form.
Then in ASP I want to move the file I just picked to a
different place and it fails - error difficult to decypher.
Could it be that the file is still open as a result of the
INPUT activity? If so, how do I close it in ASP VBscript
before I can move it with FSO.copyfile?
Thanks, Tag: How to send a command Unix Tag: 137584
Copy over read-only files
newbie here...how do I use vbs to copy over read-only files. I want
to copy a folder to a new location every night and want to overwrite
read-only files as well...
Any help would be great..thanks.
Bioman Tag: How to send a command Unix Tag: 137575
Help creating a sufficient FOR EACH ... LOOP
Hi all,
I have a situation with creating a FOR EACH ... LOOP condition which submits
the values of a querystring (or form) with the following querystring output:
"partners.asp?action=listupdate&
AffiliateSiteID=4&
affiliatePageID=4&AffPgID4=on&
affiliatePageID=8&AffPgID8=on&
affiliatePageID=11&AffPgID11=on
&affiliatePageID=12&
affiliatePageID=54"
The form is a list with check boxes, and those checkboxes which are checked
have the on value. I need to structure an INSERT statement that updates
fields: AffiliateSiteID, AffiliatePageID where AffPgID=ON. Therefore for
each page it should submit a SiteID = 4, PageID = {AffiliatePageID}.
The problem is in creating the FOR EACH statement. The following doesnt
include AffiliateSiteID for each record and doesnt recognise the number of
AffPgID.
*******************************************
for each item in request("AffiliatePageID")
dbConnect.execute ("INSERT into tblMapUserToPartner (AffiliateSiteID,
AffiliatePgID) VALUES ("& request("AffiliateSiteID") &","&
request("AffiliatePageID") &")")
next
*******************************************
Note: I can change the structure of the form if this is not a sufficient
structure for the output. Any help in how to structure this would really
help as i just cant work it out.
Thanks
Regards,
Kevin Tag: How to send a command Unix Tag: 137570
HTML using WMI possible ??
Hi
I am trying to create a web application where I want the wmi to run as
client scripts.Is that possible in the first case?
I'm trying to create a website where user can login and get his PC health
checked.What will I have to do such a application
Im a newbie to scripting .Please help.I tried the following
<html>
<head>
</head>
<body>
<script language=vbscript>
strComputer = "."
Set objDCOMApp = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objApp = objDCOMApp.ExecQuery ("Select * from Win32_LogicalDisk")
For Each objOS In objApp
if 3 = objos.DriveType then
MsgBox "Drive Name = " & objos.Name
end if
Next
</script>
</body>
</html>
I get the following error
"Activex component can create object:Getobject"
Please help
-Bahar Tag: How to send a command Unix Tag: 137565
If statement not working
I have the following statement--
If request("user")="BOB" or request("user")="FRED" then
This will not work what am I missing? Tag: How to send a command Unix Tag: 137560
Can anyone script this for me ?
I need a script that will prompt the user for a filename and then search the
C$ shares of all the machines on the network, in all of their folders, until
it finds it, then dump the machine name and path to a text file.
Any takers ?
--
________________________________________________
ADSSupport.net
http://www.adssupport.net
Dedicated free Active Directory ServicesT support
email: oliver.marshall@nospam@adssupport.net Tag: How to send a command Unix Tag: 137551
Highlight line of a textarea on mouse click
Does anyone know if its possible to get the line number of a textarea form
element when a user clicks on a specific line, and hence highlight it?
If so, can you point me in the right direction of the code to do so.
Many thanks
Dan Williams. Tag: How to send a command Unix Tag: 137550
Need decent VBS reference!
I am increasingly frustrated with the VBS/JS script help file provided by
Microsoft (script56.chm). It is totally devoid of information on functions,
events, etc. related to browser and server scripting. For example, events like
"onClick," "onError" are missing, and functions like "setTimeout" are nowhere to
be found. I have to use an old Netscape javascript reference and try to
translate that into VBScript syntax. Is there a better VBS/JS reference around?
--
Dave "Crash" Dummy - A weapon of mass destruction
crash@gpick.com
http://lists.gpick.com Tag: How to send a command Unix Tag: 137549
Signing Scripts
Signing a script, is this a stupid thing as I presume you can just remove
key at bottom if you want to change or edit it.
or is there a mechanism to check for signatures and take action from this
from os ?
I mean if the key at bottom of script is to validate a security key hashed
to the script file, as a protection against editing the I seems a bit
pointless.
Can some enlighten me into a scenario that it could be usefull.
Regards
Don Grover Tag: How to send a command Unix Tag: 137539
java configuring
I have windows xp, I.E. 6.0, web site tells me "browser
not config. to support java". Need help!!! Tag: How to send a command Unix Tag: 137537
Is there a size limit for a receive (output) string parameter?
Hello,
I created an ActiveX control that have a member function with two
string parameters. The first parameter is basically an SQL statement
to be executed The second parameter is a receive (or ByRef/Output)
parameter that is used to deliver the results of an execution of the
SQL statement to the caller. These results are output in the XML
format.
Sometimes the size of the output string parameter could be rather
large. When the ActiveX function is called from say a VB program
there are no problems with large strings. However, when the function
is called from an ASP page for the strings larger than 127233
characters the following error occurs: Error 0x80010105, Server threw
an exception.
Is there a size limit for an output string parameter in VBScript when
it is used in an ASP page? Or what else could be causing this
problem.
I use IIS 5 that comes with WinXP Professional.
Regards
Igor B. Tag: How to send a command Unix Tag: 137526
Updating passwords stored in Manage Network Passwords
Hi All,
Is there any way to update the passwords stored in Manage Network Passwords
using vbscript or VB?
I can update my domain and local passwords but not these.
Regards
Colin Tag: How to send a command Unix Tag: 137524
Code fragment to check for numeric data
I need to check that the user has entered numeric data
(only the numbers 0 to 9) in a string.
Could someone please let me have a code fragment to do
this.
Thanking you in anticipation. Tag: How to send a command Unix Tag: 137523
Active Directory storing Signatures
This is a multi-part message in MIME format.
------=_NextPart_000_0008_01C33FF2.372A9940
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi All,
Okay, I got a wierd question of many parts and if anyone can advise =
I would appricate it.
Basically, I run a drug treatment center and we have many staff who =
write into the patient chart (still paper chart but one day hopefully =
fully electronic). One thing we do is create a staff signature list so =
that we can include in the chart the staff's signatures so we can =
identify who signed an entry and such.
My question is if there is some way to store a signature (not an =
electric one but a handwritten one in active directory and then whenever =
desired, print a list of all the users and their corresponding =
signature.
Does anyone have any suggestions? I guess I could have just had easily =
posted to a active directory group and then figured out who to script =
it, but vbscript is my first love, so I figured I would start here.
Is there a scripting solution to this or is this just a pipedream.
BTW, I was thinking I would download the signatures onto the computer =
via a scanner and then store it as a pdf or picture format if that =
matters. Is there a staff picture object in Active Directory? I haven't =
seen it before so I would assume not. Any thoughts (besides leave us =
alone you crazy social worker wannabe a scripter :-))).
Robert
--=20
My E-mail address is close to rcohen@yourfears.bbhtx.org. If you
need to e-mail me off list just get rid of "your fears" and
drop me a line.
------=_NextPart_000_0008_01C33FF2.372A9940
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.1106" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi All,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> Okay, I got a wierd =
question of=20
many parts and if anyone can advise I would appricate it.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Basically, I run a drug treatment =
center and we=20
have many staff who write into the patient chart (still paper chart but =
one day=20
hopefully fully electronic). One thing we do is create a staff =
signature=20
list so that we can include in the chart the staff's signatures so we =
can=20
identify who signed an entry and such.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>My question is if there is some way to =
store a=20
signature (not an electric one but a handwritten one in active directory =
and=20
then whenever desired, print a list of all the users and their =
corresponding=20
signature.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Does anyone have any suggestions? =
I guess I=20
could have just had easily posted to a active directory group and then =
figured=20
out who to script it, but vbscript is my first love, so I figured I =
would start=20
here.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Is there a scripting solution to this =
or is this=20
just a pipedream.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>BTW, I was thinking I would download =
the signatures=20
onto the computer via a scanner and then store it as a pdf or picture =
format if=20
that matters. Is there a staff picture object in Active Directory? =
I=20
haven't seen it before so I would assume not. Any thoughts =
(besides leave=20
us alone you crazy social worker wannabe a scripter :-))).</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Robert</FONT></DIV><FONT face=3DArial =
size=3D2>
<DIV><BR>-- <BR>My E-mail address is close to <A=20
href=3D"mailto:rcohen@yourfears.bbhtx.org">rcohen@yourfears.bbhtx.org</A>=
. =20
If you<BR>need to e-mail me off list just get rid of "your fears" =
and<BR>drop me=20
a line.</DIV>
<DIV> </DIV>
<DIV></FONT> </DIV></BODY></HTML>
------=_NextPart_000_0008_01C33FF2.372A9940-- Tag: How to send a command Unix Tag: 137518
Check if remote PC is on via script?
Is there any way to check via script if a remote PC is powered on? I don't
want to attempt to map a drive or something and wait till it times out. I
would like a quick way to say it's up and has an ip address. The PC is dhcp
assigned so the IP changes also. Windows 2000 PC by the way in Active
Directory. Any sample code would be appreciated.
Thanks Tag: How to send a command Unix Tag: 137512
QA Test?
Hi there,
To apply with our internal SLA's for more than 3000 desktop PC's, we'd like
to have some complete QA test which detects potential application problems
before shipping the PC to our internal customer (user). We want to automate
the manual action of starting each application shortcut from the user's
start menu to see if everything is ok.
We started off with a simple VBScript (addressing WMI) which starts each
application and ends it one by one. This way we can already detect badly
configured shortcuts. However we cannot detect whether the application
starts with an error message because of a missing DLL, harddisk space
shortage, bad registry settings, etc. etc. etc.
Any advice on creating such a bulletproof QA test as described above would
be more than appreciated.
Thanks,
--
SLE Tag: How to send a command Unix Tag: 137509
Close but no VBCigar
Hello...
I am trying to copy the records from a secured Access DB table into an
existing Excel spreadsheet. The code below copies the records from
the original table into a new table (tblNew) in the same database.
How can I connect to and consequently dump my records from Access into
Excel?
- - - - - - - - - - - - - -
Option Explicit
Dim cnPowell
Set cnPowell = CreateObject("ADODB.Connection")
cnPowell.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"User ID=scrump; Data Source=C:\PB2000.mdb;" & _
"Jet OLEDB:System database=C:\secured.mdw"
cnPowell.open
cnPowell.Execute "select * into tblNew from tblOriginal"
--------
Thanks for the help as always.
Nick Tag: How to send a command Unix Tag: 137508
passing javascript variable into asp variable using vbscript
The subject pretty much sums up what I need to do. Here is what I
have so far, but still can't figure out how to get it working:
<script language="javascript" type="text/javascript">
function fillForm()
{
// split the query string into pieces
var qs = location.search.substr(location.search.indexOf("?")+1);
qs = qs.split("&");
alert(qs); // qs is the variable that I need to pass into a
// vbscript var. This actually works up to here.
'<%the_name%>' = qs // this line does not work, but is what I need
// to do.
}
</script>
later in the code:
<%
Response.write ("<script>fillForm();</script>")
Response.write("This is the variable: " & the_name)
%>
On the page it obviously comes up as "This is the variable: " and that
is it...blank for the_name.
I need to use javascript to get the variables out of the url, such as:
http://www.x.com/test.asp?Dell%20Computer%20Corp
qs will then end up being "Dell Computer Corp" and I need to make a
vbscript variable to also be that so I can query/load/etc certain
stuff in asp to display on the site.
Thanks for your help!
- Jonas Tag: How to send a command Unix Tag: 137496
How can I post data without redirecting
Hi,
I need to post data to obtain credit card authorization, then wait for
a response code, then redirect depending on the response code. The
server that I'm posting to only sends information back to the url that
sent it. What's the best way to go about this? Thanks. Tag: How to send a command Unix Tag: 137492
Hello,
How to send an UNIX command with JavaScript or VBScript ?