Hi,
I've got following VBscript that I would like to alter to java script:
This automatically sends an email without prompting the user.
Can this be done with Java script?? if so how?
VBscript:
============================================================
Set m_objCDO =...
Try this one you only need an smtp server thats all
Set m_objCDO = CreateObject("CDO.Message")
Set m_objCDOcon = CreateObject("CDO.Configuration")
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer =...
tsuji,
thanks again for your comment
i noticed there are multiple PrintQueue Objects
There is a PrintQueue Object in ADSI for LDAP providers, whitch only has 2 interfaces (IADsPrintqueue and IADsPrintqueueOperations)
The other object is part of the ADSI Object Model for WinNT providers. this...
i suppose you work in an ADP
you can easy execute Sp with this code
lstGeraete.RowSource = "EXEC SP_geraeteFilter '" & cboGraeteWahl.Value & "'"
' the text behind the Sp name are parameters
or to make it avaailable to the form (just enter the field name in the bound field)
use...
i think this is what you need
just replace the select statement with an update or insert statement and remove the code to write to the second file.
I read all information from the file into an 2 dimensional array. retrieve the info from it and make your sql statement.
to shedule the program, use...
Hello!
this script was most helpfull to me
i only have one question. I'm also trying to retrieve te Ping respond times of the ip.
I'm actually writing a monitoringstool to retrieve the service level of our routers. instead of saving to an xls, i write it in a SQL table.
With WMI you must have Administrator rights on all computors you want to read info from.
Beware that you also have to execute your script as the global administrator.
tsuji,
thanks for the replies
I changed the PrinterName to PrinterPath like you said but then i get an error executing the statement. I found this URL on microsoft. Printerpath isn't mentionned in here...
Hi tsuji
thanks for the reply
i do get indeed the first error when i runned your example
I tried a workaround but still the same error
If IsNull((arrPrinter(0,IntI))) Then
Description = "nullvalue"
Else
Description = arrPrinter(0,IntI)
'if i use here Description =...
http://support.microsoft.com/?id=319716
I also list all the users of the AD. With this script you dont have to go through all UO's
On my pc getting all userinformation takes about 30 secs for 1700 users.
For reference i suggest you take a closer look at the AD schema Object.
cheers
Hi tsuji
Yes i know it is optional but i also know that all the Printers in the domain have a description.
The funny thing is i can't convert it to a string and thats why he doesn't want to write it in the file.
I don't know what kind of information i'getting through
These solutions also give...
Hi all
i hope you can help me out with this one.
I want to write all Printers of domain tke.intra to a txt file.
however it keeps giving an error on the description column that comes from the active directory.
When i want to write it in the file it keeps saying
"Typen unverträglich"
This means...
well i let the program run for 5 minutes and i had 1300 emails. I just cant believe there were that much errors.
I think that the procedure is looping for some reason. but i dont understand why.
this code i used as you suggested
If Err.Number<>0 Then
MyErrorHandler
err.clear
End If
all...
Nope that doesn't work
I've even put an err.clear in the procedure
but now I've solved it with an if structure and a boolean so that the procedure is only executed once
Hmm the error handler works now but when it triggers an error it doesn't stop sending emails
here is the entire code
On Error Resume Next
Begintime = Now()
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider =...
I want my program to send me am email when something goes wrong. the program and the handler work fine when i put them in separate files.
But when i join them the code below doesn't seem to work.
On Error Goto MyErrorHandler
My program
.....
.....
MyErrorHandler:
here the code for sending...
Never mind the if statements were correct but all those elseif needed to be new if statements :p
no wonder the code never enters! the other statements
Sorry that i have troubled you guys, but thanks anyway!
Hi i want to write an dynamic update statement
there for i need to check wether the previous coloumn values were empty. but the code never seems to get into the "if boolean or boolean or boolean or ... "
How should I write it to make it work??
If one of the booleans is true it should go in the...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.