Hacking MS Exchange

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - 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: Hacking MS Exchange Tag: 137671
  - 2
    - 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: Hacking MS Exchange Tag: 137666
  - 3
    - 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: Hacking MS Exchange Tag: 137663
  - 4
    - 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: Hacking MS Exchange Tag: 137660
  - 5
    - 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: Hacking MS Exchange Tag: 137659
  - 6
    - 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: Hacking MS Exchange Tag: 137658
  - 7
    - 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: Hacking MS Exchange Tag: 137656
  - 8
    - 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: Hacking MS Exchange Tag: 137649
  - 9
    - 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: Hacking MS Exchange Tag: 137647
  - 10
    - I want to make sure that all my servers only have one enabled local administrator account I want to make sure that all my servers only have one enabled local administrator account. How can I make a script file which does this? Tag: Hacking MS Exchange Tag: 137636
  - 11
    - 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: Hacking MS Exchange Tag: 137632
  - 12
    - 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: Hacking MS Exchange Tag: 137622
  - 13
    - 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: Hacking MS Exchange Tag: 137620
  - 14
    - 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: Hacking MS Exchange Tag: 137608
  - 15
    - 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: Hacking MS Exchange Tag: 137607
  - 16
    - test test Tag: Hacking MS Exchange Tag: 137604
  - 17
    - 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: Hacking MS Exchange Tag: 137601
  - 18
    - 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: Hacking MS Exchange Tag: 137599
  - 19
    - 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: Hacking MS Exchange Tag: 137598
  - 20
    - 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: Hacking MS Exchange Tag: 137594
  - 21
    - 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">  </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: Hacking MS Exchange Tag: 137590
  - 22
    - 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: Hacking MS Exchange Tag: 137589
  - 23
    - 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: Hacking MS Exchange Tag: 137587
  - 24
    - 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: Hacking MS Exchange Tag: 137584
  - 25
    - 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: Hacking MS Exchange Tag: 137575
- Next
  - 1
    - 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: Hacking MS Exchange Tag: 137570
  - 2
    - Confirm the file link is available or not. Hi, how to Confirm it by VBscript ??? the file link(s) are file:// or http:// Tag: Hacking MS Exchange Tag: 137567
  - 3
    - 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: Hacking MS Exchange Tag: 137565
  - 4
    - 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: Hacking MS Exchange Tag: 137560
  - 5
    - 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: Hacking MS Exchange Tag: 137551
  - 6
    - 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: Hacking MS Exchange Tag: 137550
  - 7
    - 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: Hacking MS Exchange Tag: 137549
  - 8
    - 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: Hacking MS Exchange Tag: 137539
  - 9
    - java configuring I have windows xp, I.E. 6.0, web site tells me "browser not config. to support java". Need help!!! Tag: Hacking MS Exchange Tag: 137537
  - 10
    - 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: Hacking MS Exchange Tag: 137526
  - 11
    - 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: Hacking MS Exchange Tag: 137524
  - 12
    - 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: Hacking MS Exchange Tag: 137523
  - 13
    - 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: Hacking MS Exchange Tag: 137518
  - 14
    - 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: Hacking MS Exchange Tag: 137512
  - 15
    - 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: Hacking MS Exchange Tag: 137509
  - 16
    - 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: Hacking MS Exchange Tag: 137508
  - 17
    - 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: Hacking MS Exchange Tag: 137496
  - 18
    - 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: Hacking MS Exchange Tag: 137492
  - 19
    - Stumped. Access db compacting issue. I'm using fairly generic code that I've used many times before to compact an Access database on the web. It goes like this.... set jro = server.createobject("jro.JetEngine") jro.CompactDatabase dbconnString, CompactedConnString set jro = Nothing Both conn strings are done with straightforward DSN-less Provider statements. I have one client whose server seems to be setting a lock (ldb file) on the original db that persists after the compacted db is completed. There are no errors or other indications of anything wrong. This identical code (with the exception of the physical paths inthe provider statements) works just fine on MANY other machines. Has anyone ever seen this before, or have any idea what might be causing this? -- Posted via http://dbforums.com Tag: Hacking MS Exchange Tag: 137490
  - 20
    - Newbie with VBScript Coding problem FYI: I'm a newbie to VBScripting I am trying to use the Option Explicit command in a script that contains a sub routine but when the Option Explicit command is used the the routine is not called correctly but when it is ommited then it works fine. Could someone define what is going on here? Any suggestions? Thanks, -Ken- ----------------------- Start Code Here ------------------------------ ' Option Explicit VerifyHostIsCscript() '******************************************************************** '* '* Sub VerifyHostIsCscript() '* '* Purpose: Determines which program is used to run this script. '* '* Input: None '* '* Output: If host is not cscript, then an error message is printed '* and the script is aborted. '* '******************************************************************** Sub VerifyHostIsCscript() ON ERROR RESUME NEXT Dim strFullName, strCommand, i, j, intStatus strFullName = WScript.FullName If Err.Number then Call Wscript.Echo( "Error 0x" & CStr(Hex(Err.Number)) & " occurred." ) If Err.Description <> "" Then Call Wscript.Echo( "Error description: " & Err.Description & "." ) End If intStatus = CONST_ERROR End If i = InStr(1, strFullName, ".exe", 1) If i = 0 Then intStatus = CONST_ERROR Else j = InStrRev(strFullName, "\", i, 1) If j = 0 Then intStatus = CONST_ERROR Else strCommand = Mid(strFullName, j+1, i-j-1) Select Case LCase(strCommand) Case "cscript" intStatus = CONST_CSCRIPT Case "wscript" intStatus = CONST_WSCRIPT Case Else 'should never happen Call Wscript.Echo( "An unexpected program was used to " _ & "run this script." ) Call Wscript.Echo( "Only CScript.Exe or WScript.Exe can " _ & "be used to run this script." ) intStatus = CONST_ERROR End Select End If End If If intStatus <> CONST_CSCRIPT Then Call WScript.Echo( "Please run this script using CScript." & vbCRLF & _ "This can be achieved by" & vbCRLF & _ "1. Using ""CScript UserAccount.vbs arguments"" for Windows 95/98 or" _ & vbCRLF & "2. Changing the default Windows Scripting Host " _ & "setting to CScript" & vbCRLF & " using ""CScript " _ & "//H:CScript //S"" and running the script using" & vbCRLF & _ " ""UserAccount.vbs arguments"" for Windows NT/2000." ) WScript.Quit End If End Sub ------------------ End Code Here --------------------------------- Tag: Hacking MS Exchange Tag: 137481
  - 21
    - Creating a NTDS shortcut on myDesktop Hi All, I want to create a shortcut on my desktop of an OragnizationUnit with a logonScript. I try to use the follow code: '********** set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oShellLink = WshShell.CreateShortcut(strDesktop & "\Cartelle condivise.lnk") oShellLink.TargetPath = "ntds://myDomain.it/myOU" oShellLink.relativePath = "ntds://myDomain.it/myOU" oShellLink.Description = "Shortcut Condivisione" oShellLink.WorkingDirectory = strDesktop oShellLink.Save '********** But it does not create a valid shortcut. Do u have an idea why it does not work?? The only way i find to create the shortcut to the OU is to drag and drop the OU on my desktop, but I must to automate it!!! Please Help me! Sergio Marchi Tag: Hacking MS Exchange Tag: 137478
  - 22
    - addressing variables in different windows Hi, There are very few thread about this subject in htis forum and the thread about this subject have no answer! So I hope that will not be the same! I have 2 client-side local pages (page1.htm and page2.htm) running each a script. The script of the first page1 set a var1 variable and the script of page2 set a var2 variable. How to address the var2 variable in the first script and vice versa? More preciseley, the page1 script is a parent window whic open page2 as child window thru Set ie=createobject ("internetexplorer.application") ie.visible=true ie.navigate page2.htm I try in script1 the following : ie.var2 ie.script.var2 ie.document.var2 Nope The following addressing is working but not what I search for : ie.document.scripts(0).name Many thanks Tag: Hacking MS Exchange Tag: 137473
  - 23
    - Environment Variable I am using the following code in a script to determine the location of jview.exe and later on I query the version number of jview.exe. JViewFN = WshShell.ExpandEnvironmentStrings("%WinDir%") & "\system32\jview.exe" (I can't remember if it's a _ or a - for line continuation so I left it out). My question is whether the environment variable %WinDir% will also work with 9x boxes? Thanks for any help. Brian *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Hacking MS Exchange Tag: 137469
  - 24
    - Word Document Will Not Open Via Clients - HELP! Ok, this code works fine on the Web server machine. But when I try to run it via any other clients on the LAN, I keep getting scripting errors (the MS Word Document never opens.) Do I have to configure the server somehow to allow it to share this MS Word doc? <SCRIPT LANGUAGE=VBScript> Dim objWord Sub Btn1_onclick() call OpenDoc("http://WEBSERVER/ClerkOfCourt/CourtLetters/TestTemplate.doc") End Sub Sub OpenDoc(strLocation) Set objWord = CreateObject("Word.Application") objWord.Visible = true objWord.Documents.Open strLocation End Sub </SCRIPT> Tag: Hacking MS Exchange Tag: 137457
  - 25
    - help troubleshooting error in script The following script is giving me an error (0x80005000) when I run it in my live environment (forest with multiple domains, running on a DC that has the accounts being updated), but runs fine in my test environment (single domain). Const OpenAsDefault = -2 Const OpenAsASCII = 0 Const OpenAsUnicode = -1 Const CreateIfNotExist = -1 Const ForReading = 1 Const FailIfNotExist = 0 Const ForWriting = 2 Const ForAppending = 8 Dim strNTPath, strQuery Dim oDirObject, oUser Dim aCSVargs, test Set aCon = CreateObject("ADODB.Connection") Set aCmd = CreateObject("ADODB.Command") Set oFS = CreateObject("Scripting.FileSystemObject") Set oRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = oRootDSE.Get("defaultNamingContext") aCon.Provider = "ADsDSOObject" aCon.Open aCmd.ActiveConnection = aCon Set oFSO = CreateObject("Scripting.FileSystemObject") sCSVFile = wscript.arguments.item(0) if oFSO.FileExists(sCSVFile) then err.clear set fCSVfile = oFSO.OpenTextFile(sCSVFile,ForReading,FailIfNotExist,TristateUseDefault) If Err Then WScript.Echo(Err.Number & " - " & Err.Description) WScript.Quit End If Else WScript.Echo("File: " & sCSVFile & " does not exist.") WScript.Quit end If Set objTrans = CreateObject("NameTranslate") objTrans.Init 3, strDNSDomain objTrans.Set 1, strDNSDomain strNetBIOSDomain = objTrans.Get(3) strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1) objTrans.Init 1, strNetBIOSDomain do until fCSVfile.AtEndOfStream sLine = fCSVfile.ReadLine if left(sLine, 3) = "Obj" then sLine = fCSVfile.ReadLine aCSVargs = split(sLine, ",") if instr(aCSVArgs(1), "\") then strUserDN = mid(aCSVArgs(1), instr(aCSVArgs(1), "\")+1, len(aCSVArgs(1))) else strUserDN = aCSVArgs(1) end if objTrans.Set 3, strNetBIOSDomain & "\" & strUserDN strUserDN = objTrans.Get(1) **(this is the line causing the error)** Set oUser = GetObject("LDAP://" & strUserDN) oUser.GetInfo oUser.Put "givenName", Trim(aCSVArgs(2)) oUser.Put "initials", Trim(aCSVArgs(3)) oUser.Put "sn", Trim(aCSVArgs(4)) set oContainer = GetObject(oUser.Parent) oContainer.MoveHere oUser.AdsPath, "cn=" & aCSVArgs(5) oUser.Put "physicalDeliveryOfficeName", Trim(aCSVArgs(6)) if ubound(aCSVArgs) >6 then oUser.Put "telephoneNumber", Trim(aCSVArgs(7)) end if oUser.SetInfo Loop fCSVfile.Close ------------------- Any help is appreciated. Tag: Hacking MS Exchange Tag: 137455

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.

Top