VBS send e-mail with attachment

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
 - Appending results to a text file I am trying to write a vbscript that will check the status of a service on a pc and then out put the Service name, the state (running, Stopped etc) and the date and time of the check. Can anyone give me a hand please? I can create a text file called Service log in the root of C:\. Tag: VBS send e-mail with attachment Tag: 214436
 - 2
 - net user * vbscript I am looking for a method to return properties for all the user accounts on a local machine, similar to the "net user username". I have found a script that will return all the users and some properties but not the ones I am particularly looking for such as "password last set" and "last logon". Example of the information I am trying to get for all users on the local machine. Any help would be great. User name Administrator Full Name Comment Built-in account for administering the computer/domain User's comment Country code 000 (System Default) Account active Yes Account expires Never Password last set 12/6/2007 9:27 AM Password expires Never Password changeable 12/6/2007 9:27 AM Password required Yes User may change password Yes Workstations allowed All Logon script User profile Home directory Last logon 12/5/2007 9:13 AM Logon hours allowed All Thanks, Aaron K Tag: VBS send e-mail with attachment Tag: 214434
 - 3
 - outlook reminder to set OUT OF OFFICE I am sure Somebody knows how to do this in OUTLOOK We run microsoft EXCHANGE . And we can set the out of office assistant under the tools option I want to automatically set " I am out of office" automatically when I shutdown my PC (SO I am a dummy and I forget to do this sometimes) IF I can do this with a VBA script, GREAT IF I cannot , can I at least be reminded to do it.. (THEN I may actually set it) THANKS in advance Dennis Adams Tag: VBS send e-mail with attachment Tag: 214433
 - 4
 - Why do I always encounter error with "Document.Body.All.UserPassword.Value": Object doesn't support this property or method ?? Hi buddies, who can help me analyze this situation: I find a way to mask input password like below, but when I run this sample script on Win2000 client or server, it always prompt err msg: Object doesn't support this property or method, and it means "objExplorer.Document.Body.All.UserPassword.Value" . Who can help me..............Sample Code from Scripting Guy http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb05/hey0204.mspxOn Error Resume Next Set objExplorer = WScript.CreateObject _ ("InternetExplorer.Application", "IE_") objExplorer.Navigate "file:///C:\Scripts\password.htm" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width = 400 objExplorer.Height = 350 objExplorer.Left = 300 objExplorer.Top = 200 objExplorer.Visible = 1 Do While (objExplorer.Document.Body.All.OKClicked.Value = "") Wscript.Sleep 250 Loop strPassword = objExplorer.Document.Body.All.UserPassword.Value strButton = objExplorer.Document.Body.All.OKClicked.Value objExplorer.Quit Wscript.Sleep 250 If strButton = "Cancelled" Then Wscript.Quit Else Wscript.Echo strPassword End If Tag: VBS send e-mail with attachment Tag: 214426
 - 5
 - Read and rename pdf Script I need a script that will read the third line in a pdf document and rename the pdf based on information from that line. Is this possible to accomplish with vb script. Can any one provide me with some info a starting point. Im new to vb script but technical. my problem is starting need a startin point or direct me to a good online source. Thanks. Tag: VBS send e-mail with attachment Tag: 214422
 - 6
 - Retrieving file extended attributes (like in Explorer's detail vie Hello. I'd like to ask, if there are accessible extended attributes from Explorer's detail view (Author, Company, Dimensions - picture files ...) via script and if - how. I found some implemented interfaces which maybe, could solve this, but I'm confused of it. Thanks for any suggestions. Ivan. Tag: VBS send e-mail with attachment Tag: 214420
 - 7
 - Retrieving extended attributes of the file (like Explorer detail v Hello. I'd like to know, if it is possible to retrieve extended attributes of the file like it is done in Explorer's details view (e.g. Author, Company, Dimensions - pictures ...). Thanks for any suggestions. Ivan. Tag: VBS send e-mail with attachment Tag: 214417
 - 8
 - WMI DNS Query returns Nothing I'm having a lot of trouble with a script that populates a collection with DNS records via a WMI Query. Our site has 65000+ A type records so dumping the lot into a collection takes some time so I use a LIKE statement, see code below. The problem is that my query returns nothing. The problem only occurs if I use a LIKE statement within the MicrostfDNS namespace. The same query using a different namespace, like Win32_Directory, works fine. Can anyone have a go at this for me? It's driving me insane. I'm running this query on an XP [5.1.2600] box and the DNS server is Windows 2003 Ent. PLEASE help. Thanks heaps. Code: strDNSServer = "<snip>" '-->Create Objects Set objRSDNS = CreateObject("ADODB.RecordSet") Set objWMIService = GetObject("winmgmts://" & strDNSServer & "/root/MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * From MicrosoftDNS_AType Where ownername LIKE 'ABC%'") Msgbox colItems.Count Tag: VBS send e-mail with attachment Tag: 214416
 - 9
 - Vista Special Folders When I attempt to backup folders in Vista, I get the "permission denied" error below when I try to access a user's special folders like "Desktop" and "Start Menu". I can successfully backup the folder "c:\users\myUser1\documents" for "My Documents", but "Desktop" and "Start Menu" return the error. I even tried creating a shortcut to %windir%\System32\wscript.exe and the script name, then modifying the shortcut properties to "Run As Administrator", but my script quits when it gets to the special folders mentioned above. Is there a way to run a .vbs script file and allow it to properly read these special folders and copy them? ERROR: Windows Script Host Error: Permission denied Code: 800A0046 Source: Microsoft VBScript runtime error Tag: VBS send e-mail with attachment Tag: 214411
 - 10
 - Compairing Dates My script runs and compairs two dates as follows: if filelastaccessed >= mystringrep then (turns into 1/22/2008 1:28:24 PM >= 1/22/2008 1:14:00 PM) msgbox "woot" else msgbox "moot" end if Every time that I try this I'm returned false. Since 1:28 PM is obviously greater then 1:14 PM, why is this occuring? My full script follows, and yes, I know that I'm doing this backwards but it's faster then learning regex for vbs at the moment. Imput from taskoutput.csv is: "date","13:14:00, 1/22/2008","" Set fso = CreateObject("Scripting.FileSystemObject") Set testfile= fso.OpenTextFile("C:\taskoutput.csv") mystring = testfile.ReadLine myseperators = "," testfile.Close 'msgbox mystring mystringrep = replace(mystring,chr(34),"") mystringrep = replace(mystringrep,chr(44),"") mystringrep = replace(mystringrep,"a","") mystringrep = replace(mystringrep,"b","") mystringrep = replace(mystringrep,"c","") mystringrep = replace(mystringrep,"d","") mystringrep = replace(mystringrep,"e","") mystringrep = replace(mystringrep,"f","") mystringrep = replace(mystringrep,"g","") mystringrep = replace(mystringrep,"h","") mystringrep = replace(mystringrep,"i","") mystringrep = replace(mystringrep,"j","") mystringrep = replace(mystringrep,"k","") mystringrep = replace(mystringrep,"l","") mystringrep = replace(mystringrep,"m","") mystringrep = replace(mystringrep,"n","") mystringrep = replace(mystringrep,"o","") mystringrep = replace(mystringrep,"p","") mystringrep = replace(mystringrep,"q","") mystringrep = replace(mystringrep,"r","") mystringrep = replace(mystringrep,"s","") mystringrep = replace(mystringrep,"t","") mystringrep = replace(mystringrep,"u","") mystringrep = replace(mystringrep,"v","") mystringrep = replace(mystringrep,"w","") mystringrep = replace(mystringrep,"x","") mystringrep = replace(mystringrep,"y","") mystringrep = replace(mystringrep,"z","") 'msgbox mystringrep mystringrep = formatdatetime(mystringrep, vbgeneraldate) myvar3 = datediff("s",Now,mystringrep) myvar3 = myvar3 *-1 'wscript.sleep(myvar3*1000) msgbox myvar3 set checkfile = fso.Getfile("C:\taskoutput.log") filelastaccessed = checkfile.datelastaccessed msgbox filelastaccessed msgbox mystringrep if filelastaccessed >= mystringrep then msgbox "woot" else msgbox "moot" end if 'mystring2 = mid(mystring,"&chr(34)",20) 'msgbox mystring2 Tag: VBS send e-mail with attachment Tag: 214408
 - 11
 - vbscript remote execution My problem: I have 2 machine : Server and remote pc 1. I need to write a vbscript that that execute on Server and should invoke another vbscript on Remote PC. 2. Wait for the input from remote PC using text file. if Vbscript on server is time out and script get terminated then dispaly a message "script is timeout and script is closing" Tag: VBS send e-mail with attachment Tag: 214407
 - 12
 - How can I enumerate services and list the account context under which Hi all. I'm in the process of trying to head up an initiative to become PCI compliant. We have a hodge podge of servers running, many of them legacy and being fairly new to the corporation, I have no idea what services are running on these servers and what accounts those services run under. I'm looking for help on a script to not only enumerate what services are running (have a script for that) but what I'd really like is a script that will also tell me what account each service is running under. Has anyone done this before? If so, can you point me in the right direction on this? Thanks Tag: VBS send e-mail with attachment Tag: 214406
 - 13
 - Question about a VB script I am looking for a script to run as a service that will prevent certian apps from running. Apps like Trillian.exe and others. How would I start this and ideas would be helpful. Adam Michalak Lincoln Park Public Schools michala@lpark.k12.mi.us Tag: VBS send e-mail with attachment Tag: 214402
 - 14
 - How to open file? From vbscript, how do I open a file, e.g. a Word Document? The following code fails to do what I want: set shell = WScript.CreateObject("WScript.Shell") shell.Run("c:\some\file.doc") Tag: VBS send e-mail with attachment Tag: 214391
 - 15
 - Sending emails Hello, When sending an email through a VBScript, if you need to have multiple recipients of the email, does each recipient have to be in its own line, or can you do semi-colon or some other delimiter to place it on one line? See the little snippet of code below: objEmail.From = "sheel331@yahoo.com" objEmail.To = "sshah@sheel.org" objEmail.To = "sheel@sheel.org" objEmail.To = "administrator@sheel.org" OR objEmail.From = "sheel331@yahoo.com" objEmail.To = "sshah@sheel.org; sheel@sheel.org; administrator@sheel.org" Thanks, Sheel Tag: VBS send e-mail with attachment Tag: 214388
 - 16
 - Displaying Nested groups SMTP Hi, I have this vbscript that can display a distribution lists smtp addresses. What I am trying to do is list nested groups smtp addresses of the members of each group so for instance. main DL name MYDL Members mysubdl1, member a,b,c, mysubdl2 member c, d and e. I want to extract the smtp addresses for the main dl members MYDL and the memberships of mysubdl1 and mysubdl2 of a,b,c,d and e etc. Thanks for your help. On Error Resume Next Set objGroup = GetObject _ ("LDAP://cn=London,ou=Distribution Lists,Ou=Exchange Objects,ou=SM,dc=mydc,dc=com") objGroup.GetInfo arrMemberOf = objGroup.GetEx("member") WScript.Echo "Members:" For Each strMember in arrMemberOf Set objUser = GetObject("LDAP://"& strMember) WScript.Echo objUser.mail Next Tag: VBS send e-mail with attachment Tag: 214383
 - 17
 - Classes and Arrays - Novice question I'm a novice programmer who is new to the concept of Classes in VBScript, and I'm hitting a dead-end trying to implement a function in my application. Below is a very detailed description (bear with me!) of my app and the issues I'm running into. My app collects player data from a computer game server (COD4 Modern Warfare is the game), stores the raw data in a mySQL database, and then calculates and presents player stats via .asp pages using VBScript. So first I came up with a data structure to store the stats as I do all my calculations. For each player, I calculate about 30 different stats, e.g. total number of deaths, total number of kills, kill ratio (kills/deaths), time played, kills/hr, number of kills using a pistol, number of kills using a rifle, etc. The tricky part is that for each statistic, I also need to calculate and store the "rank" of that player for that statistic (e.g. player1 ranks # 2 in the number of kills, #3 in kill ratio, etc.). So here's the basic data structure I came up with (showing just two of the stats for brevity): ------------------------------------ Class StatisticClass Public Value Public Rank End Class Class PlayerClass Public playerID Public killCountStat Public killRatioStat Private Sub Class_Initialize Set killCountStat = new StatisticClass Set killRatioStat = new StatisticClass End Sub Private Sub Class_Terminate Set killCountStat= Nothing Set killRatioStat= Nothing End Sub End Class ------------------------------ Then I create an array of Players, for example: Dim Players(1) set Players(1) = New PlayerClass So I can store and manipulate the data for each player like this: Players(1).playerID = 12345 Players(1).killCountStat.Value = 99 'Player 12345 has 99 kills Players(1).killCountStat.Rank = 3 'Player 12345 is ranked #3 in kills I've written the logic for a function RankStat to take an array of stat values for players and calculate the corresponding rankings for those values. I want to call this function for every stat I am storing in the player object, so after I calculate a particular stat (like killcount) for all the players, I can call the function to rank that stat for all players, then move on to the next stat. Here's the problem - I can't figure out how to pass the data to the function call and specify which stat I am trying to rank. Conceptually I want to call the function for a particular stat object in the Players object - Rankstat(Players.KillCountStat). But of course this syntax doesn't work - since Players is an array of objects, I can only reference specific elements in the array like Players(1).KillCountStat. And if I pass the entire Players array into the function, I cannot think of a way to specify which stats object that I want to rank; because every stats object within the Player object is uniquely named (killCountStat, killRatioStat, etc.), I can't figure out how to "generically" refer to them inside the function so that I can have a single function that can rank any stat. I hope this makes sense. I'm really stuck here. Maybe my data structure is poorly suited to the task? One solution I thought of was: rather than make the Players object an array, make each stat object an array within the Players object (e.g. Players.PlayerID(1) = 12345; Players.killCountStat (1) = 99). Then for example I could pass the whole killCountStat array into the RankStat function. But I can't figure out how to declare an array of class objects within another class object! Referring to my code snippet above where I define my classes, where/how would I specify that the killCountStat and killRatioStat objects are an *array* of New StatisticClass? It seems each element of the array would have to be individually set as a New StatisticClass, but I don't understand how to to do that within a class definition; it seems like it would have to be done as each element is added to the array? Sorry for the long-winded questions! Hoping someone might find the time to take a look and offer some advice. Thanks! Steve Tag: VBS send e-mail with attachment Tag: 214381
 - 18
 - Set "Password never expires" on users in a specific OU? Hi! I'm looking for a script that will check the "Password never expires" and uncheck the "User must change password at next logon" on all users in specific OU:s, it will run once a week. I have only found scripts that does this for all users in a domain. The environment is a 2003 Active Directory. Anyone that has a good example? Thanks, Henrik Tag: VBS send e-mail with attachment Tag: 214369
 - 19
 - replace multiple strings in 1 regexp object Hello, Is it possible in regexp to replace different strings with different values? For instance, I am reading a URL to a specific file, and I am changing it into a corresponding folder path. So with the input file looking like this: http://www.sheel.org/styles/style.css http://www.sheel.org/blah/blahdeblah It needs to be changed to this: c:\webroot\www.sheel.org\styles.css c:\webroot\www.sheel.org\blah\blahdeblah I have been able to replace the http://www.sheel.org with c:\webroot \www.sheel.org, but I am unsure on if I can use the same Regular Expression object to switch the forward slashes to backslashes. Can this be done? If not, can someone provide me with an alternate? Thanks, Sheel Tag: VBS send e-mail with attachment Tag: 214368
 - 20
 - list server connections with vbs Hi, I'm looking for a script that lists all the connections to the HomeDrives on a NetApp filer. We are planning to Move some HomeDrives to different locations. This can only bin done when no connection exist. Thanks for Helping! Tag: VBS send e-mail with attachment Tag: 214364
 - 21
 - mkdir in wshshell.run I have a script that is creating a whole directory structure that doesn't exist, using the mkdir command. The script issues this simple command: backupdir = c:\migrations\backups\13833 relativepath = \sys3\sheel wshshell.run mkdir & " " & backupdir & relativepath when I echo out the command, it appears to build out the command correctly, but when I go to execute it, it says "The system cannot find the file specified" Is it not finding the "mkdir" executable? Thanks, Sheel Tag: VBS send e-mail with attachment Tag: 214361
 - 22
 - help with regular expression Hi all guys, I need some help. I have a string which basically looks like this: "john doe (contoso ltd)" <john.doe@contoso.local> what I badly need, is a script that parses this line and returns the smtp address part only(john.doe@contoso.local). I know it can be done with a regular expression but that's beyond my knowledge. Can anyone give a hand ? Thank you so much in advance. Regards zz Tag: VBS send e-mail with attachment Tag: 214358
 - 23
 - start a maximized office application Hello All, how can I open a office application, based on a provided file location in a maximized window. the following method works for notepad and jpg files. but not for office (.doc, .xls etc) files. can someone give me a hint how I could accomplish this one? <script language="vbscript" type="text/vbscript"> Sub OpenDoc(strLocation) if (not strLocation ="") Then dim WshShell Set WshShell = CreateObject("WScript.Shell") ' open strLocation maximized (3) and wait for return (true) WshShell.Run strLocation, 3, false window.close() set wshshell = nothing end if End Sub OpenDoc("""<%= this.Path %>""") </script> Thanks in advance. Tag: VBS send e-mail with attachment Tag: 214353
 - 24
 - perfmon script I need a script that will start a perfmon counter already configured on 20 servers. How can i start all of them without logging in and starting each one manually? Tag: VBS send e-mail with attachment Tag: 214344
 - 25
 - if RegistryValue then... Hi, In a logon script I need to check if a certain registry key in HKCU\Software\MyKey exist and take specific action. Psuedo code: case value HKCU\Software\MyKey\UserCodeValue of <none> (in case the key does not exist) begin DisplayMessagebox('You log in for the first time') Create Key UserCodeValue with numeric Value = 1 end 1 begin (i.e. if the numeric reg value is 1) Display YesNoBox('The key value is: '& UserCodeValue & ^M & 'Do you want to increase the value?') if Reply is Yes then increase UserCodeValue by one end I need to put this correctly in VB. Can anyone help me with that? /john Tag: VBS send e-mail with attachment Tag: 214340
- Next
 - 1
 - Object oriented Hi, I am looking for good explanation of the main terms used in the object oriented approach. I was looking with Google but I could find examples based on OO languages only. As I don't know any OO language the examples didn't explain anything to me. I am looking for any explanation for beginners. If anyone could give me a proper address, I would be very grateful. Regards, Adam Tag: VBS send e-mail with attachment Tag: 214339
 - 2
 - VBscript Welcome Message to new accounts I have a VBscript that I am going to use to automatically send a welcome a message in HTML format to all newly created mailboxes for that day. The code is below. Everything works fine, except when the message is received in outlook, the URL link which I am sending displays with an exclamation in the middle of the display text. For example, I have the code : objEmail.HTMLbody = "<HTML>Welcome to My University on behalf of the Information Services Department.The University Information Services Department provides support for students, faculty, and staff in the areas of academic computing, administrative systems, development services, instructional technology, training and support solutions. We manage and operate the medical school's network and infrastructure, enterprise server facilities, and telecommunications systems." _ & "How To Contact Us:Customer Service Help Desk (for all your technology related requests or concerns)EMail: myhelpdesk@myuniv.edu Phone: 555-5555 (6-UMHD) Fax: 555-5555 University walk-in services: S0000 - 1st floor across from the chancellor's office South Street walk-in services: Building 2 - 2nd floorWhere to find more information about our Services" _ & "Web: <A HREF=""http://ourintranet.intranet.edu/is/index.cfm"">" _ & "This is the Display text</A></HTML>" When the message is received in Outlook, the display text "This is the Display Text" shows as "This is! the Display Text". How do I get rid of that exclamation point? Everything else works great withe script Thanks! Tag: VBS send e-mail with attachment Tag: 214320
 - 3
 - Applying users listbox selection when writing back to client I am trying to set a listbox selectedIndex value when writing back to the client from the server side. On the client-side form, an onChange event grabs a listbox's value, length and selectedIndex and then populates individual hidden form fields in my .asp file (works great). As well, I loop through the select options and build an html string that is also passed to a hidden field (also working fine). === end code === //--- length --- var str_ReportType_length = document.getElementById("lbx_ReportType").length document.getElementById("fld_ReportType_length").value = str_ReportType_length //--- selectedIndex --- var str_ReportType_selectedIndex = document.getElementById("lbx_ReportType").selectedIndex document.getElementById("fld_ReportType_selectedIndex").value = str_ReportType_selectedIndex //--- value selected --- var str_ReportType_selected = document.getElementById("lbx_ReportType").value; document.getElementById("fld_ReportType_selected").value = str_ReportType_selected //--- retrieve the options and build an HTML string ---- var str_ReportType_options = ""; var obj_ReportType = document.getElementById("lbx_ReportType"); for (i=0;i<obj_ReportType.options.length;i++) { var arr_ReportType = obj_ReportType.options[i]; str_ReportType_options = str_ReportType_options + "<option value = " + '"' + arr_ReportType.value + '"' + ">" + arr_ReportType.innerHTML; } str_startselectHTML ="<select name=" + strQuote + "lbx_ReportType" + strQuote + " onChange=" + strQuote + "lbx_ReportTypeSelect()" + strQuote + ">"; var blt_ReportType_options = str_startselectHTML + str_ReportType_options + str_endselectHTML document.getElementById("fld_ReportType_options").value = blt_ReportType_options; === end code === A response.write demonstrates all the values were captured, moved up from the client to the server, and then back to rebuild the client page (e.g. submit). No problem there. *** Question *** ?? If the user has selected number 3 out of 5 items of the .asp form, how do rebuild the listbox with the user's selection displayed? I've tried a number of ways... unsuccessfully. *** Attempted Solutions **** For example, I tried setting it on the server side. I obtained the value from the hidden field transferring the selectedIndex from the client side (strSelectedIndex): <% Dim obj_lbx_ReportType obj_lbx_ReportType = document.GetElementById("lbx_ReportType") lbx_ReportType.selectedIndex = strSelectedIndex. %> Of course, I couldn't set a client side object value on the server side....... I've also tried to set a <option = "some value" SELECTED>something</ option> when writing it to/from the client/server. However, this causes problems when the user repeats the selection... the onChange fires again and..... you get the picture. Similarly, setting a flag in a JavaScript function to change the listbox when writing back causes problems with repeat selection/ submits. Perhaps a permanent function at the client side that triggers somehow. I'm out of ideas here. If you've done this before, please let me know how! Many thanks. Phil "My brain is full" Morgan Tag: VBS send e-mail with attachment Tag: 214308
 - 4
 - Change modified date of msg file to email recieved date I have a VB script that changes the name of a msg file to Sender - Subject. Now I am looking to change the modified date to be the received date of the email. I thought the following code should do it, but it does not. The name changes but date does not. Any help would be great. Cheers Strychtur ' VBScript source code On Error Resume Next Dim olkApp, olkMessage, objFSO, objFile, varFile, varNewFileName, Dir Set olkApp = GetObject(,"Outlook.Application") If TypeName(olkApp) <> "Application" Then Set olkApp = CreateObject("Outlook.Application") End If Set objFSO = CreateObject("Scripting.FileSystemObject") For Each varFile In WScript.Arguments Set olkMessage = olkApp.CreateItemFromTemplate(varFile) varNewFileName = ReplaceIllegalCharacters(olkMessage.SenderName & "-" & olkMessage.Subject) & ".msg" Set objFile = objFSO.GetFile(varFile) objFile.Name = varNewFileName Call ModFileDT (objFile.Drive, objFile.Name, olkMessage.ReceivedTime) Next Set objFile = Nothing Set objFSO = Nothing Set olkMessage = Nothing Set olkApp = Nothing WScript.Quit Function ReplaceIllegalCharacters(strSubject) Dim strBuffer strBuffer = Replace(strSubject, ":", "") strBuffer = Replace(strBuffer, "\", "") strBuffer = Replace(strBuffer, "/", "") strBuffer = Replace(strBuffer, "?", "") strBuffer = Replace(strBuffer, Chr(34), "'") strBuffer = Replace(strBuffer, "|", "") ReplaceIllegalCharacters = strBuffer End Function Function ModFileDT(strDir, strFileName, DateTime) Dim objShell, objFolder Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(strDir) objFolder.Items.Item(strFileName).ModifyDate = DateTime End function Tag: VBS send e-mail with attachment Tag: 214307
 - 5
 - CreateObject() in Class... Why the Fudge does the following give me a syntax error? Class myType Dim dictionary Set dictionary = CreateObject("Scripting.Dictionary") End Class TIA... Tag: VBS send e-mail with attachment Tag: 214306
 - 6
 - need help on error handling Hi all, I am using this script to get info on registry values on a list of computers in a file: =============================================================== Const HKEY_LOCAL_MACHINE = &H80000002 Const ForReading = 1 Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("U:\scripts\list.txt", ForReading) i = 0 Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline objDictionary.Add i, strNextLine i = i + 1 Loop For Each objItem in objDictionary Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ objDictionary.Item(objItem) & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Policies\Abc" strValueName = "VersionImage" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue Wscript.Echo objDictionary.Item(objItem) & " " & "Image Version: " & " " & strValue Next ============================================================= If a computer is unavailable, it stops... How can I have it Echo the computer name and say that its not available and resume looking for the rest? Please let me know. Thank you, Michael Tag: VBS send e-mail with attachment Tag: 214302
 - 7
 - Detection of multiple OS Can we detect if a machine has multiple OSs installed on it and what are those via VBscript ? I don't think it's doable but then I what I know is nothing, hence the post. Any help would be appreciated. Thanks Gaurav Tag: VBS send e-mail with attachment Tag: 214301
 - 8
 - access to objectClass (adsi-toolkit, .NET Framework) hello ng Is it possible to access to the objectClass from .NET framework with a script? SELECT [Name], SN [Last Name], ST State FROM OPENQUERY( ADSI, 'SELECT Name, SN, ST FROM ''LDAP://server13/ cn=users,DC=sqlsem,DC=local'' WHERE objectCategory = ''Person'' AND objectClass = ''user''') thank you mark Tag: VBS send e-mail with attachment Tag: 214300
 - 9
 - List Registry Key and Information I am looking for a VBS script that will list all of the information for a reg key. I have several Keys I need to keep track of and would like to have a script to make it easier. Here is a list of the Keys. LocalMachine/Software/Microsoft/Windows/CurrentVersion/Run LocalMachine/Software/Microsoft/Windows/CurrentVersion/RunOnce LocalMachine/Software/Microsoft/Windows/CurrentVersion/RunServices LocalMachine/Software/Microsoft/Windows/CurrentVersion/RunServicesOnce CurrentUser/Software/Microsoft/Windows/CurrentVersion/Run CurrentUser/Software/Microsoft/Windows/CurrentVersion/RunOnce LocalMachine/System/CurrentControlSet/Services Any Help Would be GREATLY Appreciated! Tag: VBS send e-mail with attachment Tag: 214298
 - 10
 - Problem accessing TSR Profile path for Users Hi All, Can anyone help, I need to manipulate the Terminal Services Profile Path, Terminal Services Home Drive and Terminal Services Home Directory for users using the WinNT provider, can anyone help as I am struggling to find the information on this and it is stopping my Script from working. All help appreciated. Thanks Tag: VBS send e-mail with attachment Tag: 214288
 - 11
 - read recordset with sql statement name (select name as res_name ....) hello ng I have a script, which copy information from a database into the active directory (it's only a cut out) sqlStm1 = "SELECT * FROM dw.EMailSignatur " Set rs = connect.Execute( sqlStm1 ) showRS rs Sub showRS( rs ) On Error Resume Next Do While Not rs.EOF For x = 0 To rs.Fields.Count -1 titel = rs.Fields(0).Value vorname = rs.Fields(1).Value nachname = rs.Fields(2).Value funktion = rs.Fields(3).Value ...... Next this is very dangerous, because a change of the columns in the database, can change a lot of in active directory. How I can read the res_'names' of the recordset, when I define: sqlStm1 = "SELECT titel as res_titel, vorname as res_vorname, nachname as res_nachname, funktion as res_funktion FROM dw.EMailSignatur " titel = rs.'res_titel.Value <<----- this is my question and problem thank you mark Tag: VBS send e-mail with attachment Tag: 214284
 - 12
 - Running a VBS in Telnet session In a rather complex environment (complex network and security) I have to run VBS script from within a Telnet session The only allowed access is plain windows based telnet. (sadly mstsc is not allowed) I have problems getting some script running. The problem is that every instance of lines like: Set objWsh = CreateObject("Wscript.Shell") Set objVS = CreateObject("VirtualServer.Application",strVServer) Give errors apperently from the create object instruction i get : Microsoft VBscript run time error, permission denied: 'create object' I 'm loged in as Administrator trough telnet so what am i doing wrong ? How to perform a vbscript trough a telnet session ? -- I always have your towl nearby ready to take off Tag: VBS send e-mail with attachment Tag: 214282
 - 13
 - how to determine if program has crashed/hung? I tried to write a script that can determine if a program/process has crashed/hangs so I can restart it. The problem is that when the program crashes, the program/processes are still running in the task manager. So the script cant tell if the program has crashed or not. Is there an alternative way to tell if the program has crashed? Something like a ping command, but for programs so that I can see if the program is responding? i need help!! Here is the code I currently use: Option Explicit Dim objProcess, objWMIService, colItems, objItem, logfile Dim strShell, objProgram, strComputer, strExe, strInput Dim isfound, FSO, writeLog, procName isfound = false strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_Process",,48) For Each objItem in colItems If objItem.Name = "calc.exe" Then 'Wscript.Echo objItem.Name & " is already running." isfound = true procName = objItem.Name Else procName = "calc.exe" End if Next if isfound = false Then 'Set path to process to run strExe = "calc.exe" ' Connect to WMI set objWMIService = getobject("winmgmts://"_ & strComputer & "/root/cimv2") ' Obtain the Win32_Process class of object. Set objProcess = objWMIService.Get("Win32_Process") Set objProgram = objProcess.Methods_( _ "Create").InParameters.SpawnInstance_ objProgram.CommandLine = strExe 'Execute the program now at the command line. Set strShell = objWMIService.ExecMethod( _ "Win32_Process", "Create", objProgram) ' SET NAME/PATH OF LOG FILE ON FILE SERVER. Set FSO = CreateObject("Scripting.FileSystemObject") logfile = "\\\LOG$\log.txt" Set writeLog = FSO.OpenTextFile(logfile, 8) writeLog.WriteLine "Process " & procName & " not found and started at " & now writeLog.Close WSCript.Quit End if Tag: VBS send e-mail with attachment Tag: 214281
 - 14
 - Outlook Script: Pb stopping Excel correctly Hi All, I use an outlook script, I create/open an excel file and write/get info from/to the Excell File, All is working fine But when I check the task manager, Excel remain in the process list How can I stop it correctly. here's a part of my code Set objExcelApp = Item.Application.CreateObject("Excel.Application") ..... .... Const olSave = 1 ObjExcelApp.Quit olSave ObjExcelApp.close -- Knowlege grows when shared. http://bensoft.miniville.fr/tra Tag: VBS send e-mail with attachment Tag: 214280
 - 15
 - Add registry *list* from logon... Hi, I have a vbs logon script and I need to add the following registry hives and fields list. How would I put that...? HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\NetCache\ExclusionErrorSuppressionList] ".mdb"=dword:00000001 ".dbx"=dword:00000001 ".pst"=dword=00000001 Thanks a lot for help on this regards Tor Tag: VBS send e-mail with attachment Tag: 214264
 - 16
 - Object not a collection? I don't understand this error: Windows Script Host Script: ... Line: 10 Char: 1 Error: Object not a collection Code: 800A01C3 Source: Microsoft VBScript runtime error Here's the script that produced it: ----------------------------------- Const HKEY_CLASSES_ROOT = &H80000000 Const REG_SZ = 1 Dim arrKeys, arrTypes Set oReg = GetObject("winmgmts:root/DEFAULT:StdRegProv") oReg.EnumValues HKEY_CLASSES_ROOT, ".key", arrKeys, arrTypes For Each key In arrKeys If key = REG_SZ Then oReg.GetStringValue HKEY_CLASSES_ROOT, ".key", key, value MsgBox(value) End If Next ----------------------------------- Any ideas? Tag: VBS send e-mail with attachment Tag: 214262
 - 17
 - [extraneous topic] Eric Lippert's latest postings... You may recall Eric Lippert. Some time ago he provided helpful "inside information", generally via mikHar, about scripting. Here is what he has been working on lately: - Immutability in C# Part One: Kinds of Immutability - Immutability in C# Part Two: A Simple Immutable Stack - Immutability in C# Part Three: A Covariant Immutable Stack - Immutability in C# Part Four: An Immutable Queue - Immutability in C# Part Five: LOLZ! - Immutability in C# Part Six: A Simple Binary Tree - Immutability in C# Part Seven: More on Binary Trees http://blogs.msdn.com/ericlippert/default.aspx Isn't that exciting stuff? Aside from his assistance to scripters in the past, Eric will be remembered for his sometimes "scolding" tone: "Every now and then someone will ask me what the VBScript error message "Cannot use parentheses when calling a Sub" means. I always smile when I hear that question. I tell people that the error means that YOU CANNOT USE PARENTHESES WHEN CALLING A SUB -- which word didn't you understand?" http://blogs.msdn.com/ericlippert/archive/2003/09/15/52996.aspx Of course, in spite of Eric's disapproval, I do that all the time: Call mySub(blah, blah, blah) And then, there was his total disrespect for scripters who used "Set myObj = nothing". His language was so insulting (especially to me because, yes, I use set obj = nothing all the time) that I hesitate to reproduce it here... cheers, jw Tag: VBS send e-mail with attachment Tag: 214258
 - 18
 - Looks right but... Error 80040E37 - Table does not exist Goal: Domain-wide (all container) search for any object Class/Category (input at start of script) The LDAP query looks correct and I've tried several options... LDAP:// DCname / FullPATH LDAP:// FulllPATH LDAP:// FQDN ...etc I've tried replacing objectCategory with objectClass in the query, same result. ---------- code ------------- sDefaultOBJECT = "computer" sDefaultNAME = "CAFE" sDefaultSERVER = "dc025" ' Domain Distinguished Name: "DC=Subdomain,DC=Domain,DC=com" - hard coded instead of using RootDSE sDefaultPATH = "DC=global,DC=ds,DC=Company,DC=com" sUSER = "user777a" sPW = "userPW!" sADSpath = InputBox("Enter the name of the Domain Controller and LDAP PATH"& vbCrLf & vbCrLf &_ "","Domain Controller Name",sDefaultPATH) sOBJECT = InputBox("Enter the OBJECT type, you'd like to search on"& vbCrLf & vbCrLf &_ "This can be any object type: Computer, User, Printer, etc.","Object Type",sDefaultOBJECT) sNAME = InputBox("Enter the NAME of the object you'd like the DN for"& vbCrLf & vbCrLf &_ "This is the sAMaccountname.","AD Object Name",sDefaultNAME) strComputerDN = GetComputerDN(sNAME, sOBJECT, sUSER, sPW, sADSpath) Wscript.echo "Object's DN: "& strComputerDN Function GetDN (strName, strFilter, strUsername, strPassword, strDomainDN) 'strName - Computer name to get the DN for 'strFilter - What to filter LDAP search for, Object type 'strUsername - Username to use for authentication to the domain 'strPassword - Password of Username specified 'strDomainDN - DN for the domain you want to search ' Use ADO to search Active Directory. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Properties("User ID") = strUsername objConnection.Properties("Password") = strPassword objConnection.Properties("Encrypt Password") = TRUE objConnection.Properties("ADSI Flag") = 3 objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strDomainDN & ">" ' Filter query strFilter = "(objectCategory=" & strFilter & ")" strAttributes = "distinguishedName,name" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute ' Enumerate the recordset. Do Until objRecordSet.EOF If strName = objRecordSet.Fields("name") Then GetDN = objRecordSet.Fields("distinguishedName") objConnection.Close Exit Function End If objRecordSet.MoveNext Loop ' Clean up. objConnection.Close End Function Tag: VBS send e-mail with attachment Tag: 214255
 - 19
 - Programlist as in the Task Manager Hello I am quite new in vb-scripting, but skilled in java programming. It is fantastic, what you can do in a vb-script - that is, if you are god enough, witch I am not L Do anyone know which class under Win32 I must use, if I want to get the task-manager program-list. Not the active process list, I manage to do that "myself" (by stealing from the net), but the very first list you see, if you type Ctrl+Alt+Del. Soren, Denmark Tag: VBS send e-mail with attachment Tag: 214249
 - 20
 - IE title bar displays "http:// - " when it shouldn't Hi I'm using the IE DOM to create a logging window. I would like the IE window's title bar to display exactly what I tell it to display, or at least start with what I tell it. I can set up the initial internal structure (document.body) of the window in two ways: 1) oIE.Document.Body.InnerHtml = "" 2) Something like this: With .document .Open "About:Blank" .Write "" .Close End With ' document If I use method 1, a title I specify is displayed properly in the title bar. If I use method 2, IE's title bar displays "http:// - " (without the "s) in front of the title I specify. Is this how IE is supposed to work, or do you think my systems are messed up. I have tried this on IE6, WXP SP2 -- home and professional, and both systems give me the same result. Script to demonstrate, which I've also attached to get around any line-wrapping problems: Option Explicit Dim oIELog1, oLogEnd1 Dim oIELog2, oLogEnd2 Dim i Set oIELog1 = SetupMSIE01("Window Title", 200, 100, 600, 400, oLogEnd1) oIELog1.Document.Title = "my new title" MsgBox "Even a changed title starts with ""http:// - """ For i = 1 To 20 IELogMsg "A message to be logged " & i & " " WScript.Sleep 250 Next Set oIELog2 = SetupMSIE02("Window Title 2", 300, 150, 600, 400, oLogEnd2) For i = 1 To 20 IELogMsg2 "A message to be logged " & i & " " WScript.Sleep 250 Next MsgBox "Using oIE.Document.Body.InnerHtml to set up end of document " & _ "does NOT mess up the title bar." Function SetupMSIE01(sTitle, iLeft, iTop, iWidth, iHeight, oLogEnd) Set SetupMSIE01 = CreateObject("InternetExplorer.Application") With SetupMSIE01 ' Not an option with IE 6 SP1 '.FullScreen = True ' .Visible = True .AddressBar = False .ToolBar = False .StatusBar = True .Resizable = True .Left = iLeft .Top = iTop .Width = iWidth .Height = iHeight .Navigate("about:blank") Do Until .readyState = 4: wscript.sleep 100: Loop .Visible = True With .document MsgBox "Prior to Document.Write, TitleBar does NOT start with ""http:// - """ .Open "About:Blank" .Write "" .Close MsgBox "After partial .Document.Write, TitleBar DOES start with ""http:// - """ .Open "About:Blank" .Write "<html><head><title>" & sTitle & "</title></head>" & _ "<body></body></html>" .Close MsgBox "Even after full html rewrite, TitleBar DOES start with ""http:// - """ .Title = sTitle Set oLogEnd = .all.theEnd End With ' document .Document.Title = sTitle End With 'SetupMSIE01 End Function 'SetupMSIE01(sTitle, iLeft, iTop, iWidth, iHeight) Sub IELogMsg(sMsg) ' On Error Resume Next oLogEnd1.insertAdjacentHtml "beforeBegin", sMsg & " " oLogEnd1.scrollIntoView End Sub Function SetupMSIE02(sTitle, iLeft, iTop, iWidth, iHeight, oLogEnd) Set SetupMSIE02 = CreateObject("InternetExplorer.Application") With SetupMSIE02 ' Not an option with IE 6 SP1 '.FullScreen = True ' .Visible = True .AddressBar = False .ToolBar = False .StatusBar = True .Resizable = True .Left = iLeft .Top = iTop .Width = iWidth .Height = iHeight .Navigate("about:blank") Do Until .readyState = 4: wscript.sleep 100: Loop .Visible = True With .document .Body.InnerHtml = "" Set oLogEnd = .all.theEnd End With ' document .Document.Title = sTitle End With 'SetupMSIE02 End Function 'SetupMSIE02(sTitle, iLeft, iTop, iWidth, iHeight) Sub IELogMsg2(sMsg) ' On Error Resume Next oLogEnd2.insertAdjacentHtml "beforeBegin", sMsg & " " oLogEnd2.scrollIntoView End Sub Thanks for any help you can give me -Paul Randall begin 666 TextLogger-02.VBS.txt M)U!R;V=R86T@=&\@9&5M;VYS=')A=&4@82!L;V=G:6YG($E%('=I;F1O=PT* M#0I/<'1I;VX@17AP;&EC:70-"D1I;2!O245,;V<Q+"!O3&]G16YD,0T*1&EM M(&])14QO9S(L(&],;V=%;F0R#0I$:6T@:0T*#0I3970@;TE%3&]G,2 ](%-E M='5P35-)13 Q*")7:6YD;W<@5&ET;&4B+" R,# L(#$P,"P@-C P+" T,# L M(&],;V=%;F0Q*0T*;TE%3&]G,2Y$;V-U;65N="Y4:71L92 ](")M>2!N97<@ M=&ET;&4B#0I-<V=";W@@(D5V96X@82!C:&%N9V5D('1I=&QE('-T87)T<R!W M:71H("(B:'1T<#HO+R M("(B(B -"@T*1F]R(&D@/2 Q(%1O(#(P#0I)14QO M9TUS9R B02!M97-S86=E('1O(&)E(&QO9V=E9" @(B F(&D@)B B/$)2/B(- M"E=38W)I<'0N4VQE97 @,C4P#0I.97AT#0H-"E-E="!O245,;V<R(#T@4V5T M=7!-4TE%,#(H(E=I;F1O=R!4:71L92 R(BP@,S P+" Q-3 L(#8P,"P@-# P M+"!O3&]G16YD,BD-"@T*1F]R(&D@/2 Q(%1O(#(P#0I)14QO9TUS9S(@(D$@ M;65S<V%G92!T;R!B92!L;V=G960@("(@)B!I("8@(CQ"4CXB#0I74V-R:7!T M+E-L965P(#(U, T*3F5X= T*#0I-<V=";W@@(E5S:6YG(&])12Y$;V-U;65N M="Y";V1Y+DEN;F5R2'1M;"!T;R!S970@=7 @96YD(&]F(&1O8W5M96YT("(@ M)B!?#0H)(F1O97,@3D]4(&UE<W,@=7 @=&AE('1I=&QE(&)A<BXB#0H-"D9U M;F-T:6]N(%-E='5P35-)13 Q*'-4:71L92P@:4QE9G0L(&E4;W L(&E7:61T M:"P@:4AE:6=H="P@;TQO9T5N9"D-"E-E="!3971U<$U3244P,2 ]($-R96%T M94]B:F5C="@B26YT97)N971%>'!L;W)E<BY!<'!L:6-A=&EO;B(I( T*5VET M:"!3971U<$U3244P,0T*"2<@3F]T(&%N(&]P=&EO;B!W:71H($E%(#8@4U Q M( T*"2<N1G5L;%-C<F5E;B ](%1R=64@#0HG"2Y6:7-I8FQE(#T@5')U90T* M"2Y!9&1R97-S0F%R(#T@1F%L<V4-"@DN5&]O;$)A<B ]($9A;'-E#0H)+E-T M871U<T)A5-T871E(#T@-#H@=W-C<FEP="YS;&5E<" Q,# Z($QO M;W @#0H)+E9I<VEB;&4@/2!4<G5E( T*"5=I=&@@+F1O8W5M96YT( T*#0I- M<V=";W@@(E!R:6]R('1O($1O8W5M96YT+E=R:71E+"!4:71L94)A<B!D;V5S M($Y/5"!S=&%R="!W:71H("(B:'1T<#HO+R M("(B(@T*"0DN3W!E;B B06)O M=70Z0FQA;FLB#0H)"2Y7<FET92 B/'-P86X@:60])W1H945N9"<^/"]S<&%N M/B(@#0H)"2Y#;&]S92 -"DUS9T)O>" B069T97(@<&%R=&EA;" N1&]C=6UE M;G0N5W)I=&4L(%1I=&QE0F%R($1/15,@<W1A<G0@=VET:" B(FAT=' Z+R\@ M+2 B(B(-"@T*"0DN3W!E;B B06)O=70Z0FQA;FLB#0H)"2Y7<FET92 B/&AT M;6P^/&AE860^/'1I=&QE/B(@)B!S5&ET;&4@)B B/"]T:71L93X\+VAE860^ M(B F(%\-"@D)"2(\8F]D>3X\<W!A;B!I9#TG=&AE16YD)SX\+W-P86X^/"]B M;V1Y/CPO:'1M;#XB( T*"0DN0VQO<V4@#0I-<V=";W@@(D5V96X@869T97(@ M9G5L;"!H=&UL(')E=W)I=&4L(%1I=&QE0F%R($1/15,@<W1A<G0@=VET:" B M(FAT=' Z+R\@+2 B(B(-"@T*"0DN5&ET;&4@/2!S5&ET;&4@#0H)"5-E="!O M3&]G16YD(#T@+F%L;"YT:&5%;F0@#0H)16YD(%=I=&@@)R!D;V-U;65N=" - M"@DN1&]C=6UE;G0N5&ET;&4@/2!S5&ET;&4-"D5N9"!7:71H(" @)U-E='5P M35-)13 Q#0I%;F0@1G5N8W1I;VX))U-E='5P35-)13 Q*'-4:71L92P@:4QE M9G0L(&E4;W L(&E7:61T:"P@:4AE:6=H="D-"@T*4W5B($E%3&]G37-G*'-- M<V<I( T*)PE/;B!%<G)O<B!297-U;64@3F5X=" -"@EO3&]G16YD,2YI;G-E M<G1!9&IA8V5N=$AT;6P@(F)E9F]R94)E9VEN(BP@<TUS9R F("(\0E(^(B - M"@EO3&]G16YD,2YS8W)O;&Q);G1O5FEE=R -"D5N9"!3=6(@#0H-"D9U;F-T M:6]N(%-E='5P35-)13 R*'-4:71L92P@:4QE9G0L(&E4;W L(&E7:61T:"P@ M:4AE:6=H="P@;TQO9T5N9"D-"E-E="!3971U<$U3244P,B ]($-R96%T94]B M:F5C="@B26YT97)N971%>'!L;W)E<BY!<'!L:6-A=&EO;B(I( T*5VET:"!3 M971U<$U3244P,@T*"2<@3F]T(&%N(&]P=&EO;B!W:71H($E%(#8@4U Q( T* M"2<N1G5L;%-C<F5E;B ](%1R=64@#0HG"2Y6:7-I8FQE(#T@5')U90T*"2Y! M9&1R97-S0F%R(#T@1F%L<V4-"@DN5&]O;$)A<B ]($9A;'-E#0H)+E-T871U M<T)A5-T871E(#T@-#H@=W-C<FEP="YS;&5E<" Q,# Z($QO;W @ M#0H)+E9I<VEB;&4@/2!4<G5E( T*"5=I=&@@+F1O8W5M96YT( T*"0DN0F]D M>2Y);FYE<DAT;6P@/2 B/'-P86X@:60])W1H945N9"<^(@T*"0E3970@;TQO M9T5N9" ]("YA;&PN=&AE16YD( T*"45N9"!7:71H("<@9&]C=6UE;G0@#0H) M+D1O8W5M96YT+E1I=&QE(#T@<U1I=&QE#0I%;F0@5VET:" @("=3971U<$U3 M244P,@T*16YD($9U;F-T:6]N"2=3971U<$U3244P,BAS5&ET;&4L(&E,969T M+"!I5&]P+"!I5VED=&@L(&E(96EG:'0I#0H-"E-U8B!)14QO9TUS9S(H<TUS M9RD@#0HG"4]N($5R<F]R(%)E<W5M92!.97AT( T*"6],;V=%;F0R+FEN<V5R M=$%D:F%C96YT2'1M;" B8F5F;W)E0F5G:6XB+"!S37-G("8@(CQ"4CXB( T* C"6],;V=%;F0R+G-C<F]L;$EN=&]6:65W( T*16YD(%-U8B ` ` end Tag: VBS send e-mail with attachment Tag: 214248
 - 21
 - Modify MailNickname IÂ´m needing to modify the Mail Nickname Attribute of all the users on my domain, I want the MailNickname attribute to be the same as the logon name. Does anyone has a script that will help me do this. Regards, -- Pablo E. Perie K Support Executive Tag: VBS send e-mail with attachment Tag: 214243
 - 22
 - Copy files to a list of PC's This is simple, but I am new to VBscripting. What I am trying to do is copy the files from a local folder to a list of pc's I have in a text file. what I have been trying to do is have the list.txt file read into an array, then copy the files to all the pc's in that array I can do it to one PC. Using this Const OverwriteExisting = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\Folder\*.*" , "\\pcname\c$\Folder\", OverwriteExisting Next But having a hard time understanding how to read the text file and have the files copied to the PC' in the list. Tag: VBS send e-mail with attachment Tag: 214236
 - 23
 - Trim Pattern I have a snippet of code below that I used to trim based on a pattern a while back, however its trimming the wrong way for me. I get "OU=Users,OU=Group,DC=mydomain,DC=com" as the result when what I need is "CN=LastName\, FirstName,". I can trim the junk characters out but does anyone know how to manipulate this code to trim to the desired side? Set oRegEx = CreateObject("VBScript.RegExp") oRegEx.Pattern = "[^\\],(.*)" sDN = "CN=LastName\, FirstName,OU=Users,OU=Group,DC=mydomain,DC=com" If oRegEx.Test(sDN) Then sOU = oRegEx.Execute(sDN)(0).Submatches(0) MsgBox sOU Thanks for any help! Sean Tag: VBS send e-mail with attachment Tag: 214222
 - 24
 - Disable a vhd disk using WMI People, I've got a vhd file which I mount using vhdmount /p on Windows XP running on my laptop. The problem is that this is incompatible with hibernation which I use a lot when travelling. Unfortunately whilst the disk device is added as a plug in it doesn't appear in the Safely Remove Hardware dialog which I can easily access from the icon in the system tray. I need to find my way to the device manager first to disable the disk then I can use vhdmount to 'unplug' the device. Only then can I hibernate. I'd like to script this process since I will do it quite frequently. So far my investigations into using WMI has drawn a blank, it seems that Win32_DiskDrive doesn't support a .Disable() method. Any one know how I can do this with WMI or _any_ other approach such as WinAPI, .NET or a different COM library, I don't realy mind how its done. Cheers, -- Anthony Jones - MVP ASP/ASP.NET Tag: VBS send e-mail with attachment Tag: 214218
 - 25
 - renaming registry keys i'd like to create a function that'll let me rename a registry key, but am having some difficulty. based on what i've read, it sounds like i basically need to copy the registry key and then delete the original one. the problem is... how do i get an exact copy? in order to do this, you'd need to know the type and i'm not sure how to figure that out. i was looking at the functions provided by StdRegProv (http:// msdn2.microsoft.com/en-us/library/aa393664%28VS.85%29.aspx) and although they'll let you get certain types, they don't let you, as far as i can tell, get the required type. RegRead, from WScript.Shell (http://msdn2.microsoft.com/en-us/library/ 2x3w20xf%28VS.85%29.aspx), appears to return a variable with the appropriate type, but how do you determine what this type is? it looks like you don't need it, persay, in RegWrite, but what if you want to copy a BINARY value? at that point, it'd be nice if you could call SetBinaryValue from StdRegProv instead of RegWrite. unfortunately, i'm not sure how to do that. RegGetValue (http://msdn2.microsoft.com/en-us/library/ms724868(VS. 85).aspx) looks potentially useful, as one of it's parameters contains the type and the other the value, but i'm not sure how to use that in VBscript? Any help would be appreciated - thanks! Tag: VBS send e-mail with attachment Tag: 214214

Can I send an e-mail with outlook express (I have Windows XP Prof ) by using
a script to manage the recipient, the subject and the name of the file.

Rolf

Top

Re: VBS send e-mail with attachment by Pegasus

Pegasus
Wed Jan 23 11:20:54 CST 2008

"Rolf Gruene" <gruene@hannoversche-kassen.de> wrote in message
news:OGWRHqcXIHA.1212@TK2MSFTNGP05.phx.gbl...
> Can I send an e-mail with outlook express (I have Windows XP Prof ) by
> using
> a script to manage the recipient, the subject and the name of the file.
>
> Rolf
>

AFAIK, VB Script only has an interface with Outlook, not
with Outlook Express. You could use the SendKey method
but I consider this to be a clumsy and unreliable method.
Alternatively you could send the message from within VB Script,
using CDO.

Top