DSN Creation script...

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
    - Server.Execute error Whenever i try to access an HTML file through server.execute, i got this error, Server object error 'ASP 0228 : 80004005' Server.Execute Error ("/folder1/htmls/" & strfilename& "_1.html") The call to Server.Execute failed while loading the page. Any idea how it can be resolved.. Thank you Tag: DSN Creation script... Tag: 213145
  - 2
    - Searching a text file for a line. Hey all, I'm trying to make a script that searches a text file for a line, takes the number on that line and sticks in in a variable. I have been working on it for about an hour with little success. I figure I need to use the readall method, but is there a way I can get the readline method to just grab the data off a certain line say like line 16 so I do not need to search the whole txt? Heres what I have so far. im filesys, text, readfile, contents, svrtag set filesys = CreateObject("Scripting.FileSystemObject") set readfile=filesys.OpenTextFile("C:\BRUNET\LIB\SET_BRUNET.CFG") strWordList = readfile.ReadAll readfile.Close strSearchWord = "ST_NUM" & vbCrLf If InStr(strWordList, strSearchWord) = True Then Wscript.echo strSearchWord Any help would be greatly appreciated. Tag: DSN Creation script... Tag: 213142
  - 3
    - deteremine the last process time of GPO's on computer Hello all, I would like to determine the last time a GPO was process on a local computer and determine the status if it was successfully applied. I know I can do this pulling full RSOP reports but I don't need a full report just want last process time and status. I've been unable to find any info on gaining this information. Any help would be appreciated. Thanks, DaGint Tag: DSN Creation script... Tag: 213138
  - 4
    - determine on which site i m connected and if i am on TSE hello i have two questions 1) can i with a vbs script (in a logon) determine on which site (AD) i m connected ? 2) can i with a vbs script (in a logon) determine if i am on a TSE precision i want a script who works with TSE 2000) thanks -- nt Tag: DSN Creation script... Tag: 213133
  - 5
    - IsDate("2 A") = True ? Hello Developers, Ever tried response.write IsDate("2 A") ? Well is gives True It is also becomes True by using data between 0 A tot 23 A. Any ideas on solving that problem. I used IsDate in IIS .asp / VB Kind regards, Tony J Tag: DSN Creation script... Tag: 213129
  - 6
    - access to a sql server hello ng how can I access to sql server with scripting host? I want read some user records and after write into the Active Directory. Thanks in advance for your help mark Tag: DSN Creation script... Tag: 213120
  - 7
    - want to save 1000 word files using VBScript Hi, I have created a word file from two Excel files using Mail Merge functionality. Now, i want to create a vbScript by which i can save the merged data as a single word file. For example : - let say I have 1000 records in Excel sheets that using Mail Merge now the data coming into Word file will also have 1000 records and i need to create 1000 word files using vbscript. How can i do this? Please suggest in detail. Thank you so much....! Regards, Sumeet Tag: DSN Creation script... Tag: 213118
  - 8
    - How to remote access WMI interface on NT Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") It seems that NT OS does not support this method. Error message is "ActiveX component cannot create the object". Could you tell how to access WMI on NT server? Tag: DSN Creation script... Tag: 213115
  - 9
    - Resolve PrimaryGroupID Name For A Computer I am currently able to find all of the groups a user belongs to by using the simple memberOf method. Computers are different, I can find all but the PrimaryGroup using this method. I have tried multiple scripts to try to get this done, but they all took to long or didn't work. I am on a tight time limit here and any help would be greatly appreciated. Tag: DSN Creation script... Tag: 213111
  - 10
    - Find all access database I have a script that will recursively output all files, paths and file properties to an excel spreadsheet. I want to modify it to find and output only .mdb or ldb files. It is probably simple but i cant figure out where to put in the logic for the "Where extension = 'adb' or ldb" type of command or maybe I have to use GetExtensionName method? Any help to modify the scipt below is appreciated *********************************************************** ' steps recursively through folder and outputs all files, file sizes etc. Option Explicit Const cOwner = 12 Dim sFolder Dim i, sHeadings Dim objFso, objShell Dim objExcel, objWorkbook, objWorksheet sFolder = "\\Server\groups2\BusinessIntelligence\" sHeadings = Array("File Name", "File Path", "File Size in Bytes" ,_ "Date Created", "Last Accessed", "Last Modified", "Owner") Set objFso = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Shell.Application") Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open("C:\spreadsheet.xls") Set objWorksheet = objWorkbook.Worksheets(1) i = 2 With objWorksheet For i = 0 To UBound(sHeadings) .Cells(1,i+1).Value = sHeadings(i) Next .Range(.Cells(1,1), .Cells(1,i)).Font.Bold = True End With List_Files_In_Folder sFolder, 2 '============================== Sub List_Files_In_Folder(sFolder, row) Dim objFolder, objFiles, objFile, objSubFolder Dim objShFolder, objItem 'Get properties of files in folder Set objFolder = objFso.GetFolder(sFolder) Set objFiles = objFolder.Files Set objShFolder = objShell.Namespace(sFolder) With objWorksheet .Cells(row,1).Value = objFile.Name .Cells(row,2).Value = objFile.ParentFolder .Cells(row,3).Value = objShFolder.GetDetailsOf(objItem,8) .Cells(row,4).Value = objFile.DateCreated .Cells(row,5).Value = objFile.DateLastAccessed .Cells(row,6).Value = objFile.DateLastModified .Cells(row,7).Value = objShFolder.GetDetailsOf(objItem, cOwner) End With row = row + 1 Next 'Process subfolders recursively For Each objSubFolder In objFolder.SubFolders List_Files_In_Folder objSubFolder.Path, row Next End Sub Tag: DSN Creation script... Tag: 213109
  - 11
    - Obtain share from dfs link Given a dfs linkname, I need to get the name of the sharre it points to. I need to do this on a server which is not a DC. Do I need to query Active Directory to do this? Can someone tell me how to do this, or post some sample code? I need to run this from a vbs script. Thanks very much. -- Gregg Diskin Tag: DSN Creation script... Tag: 213103
  - 12
    - create and send email with attachments I'm trying to create and send an email of a report that is generated earlier in a vbscript file, and I have been successful in generating and sending the email, but when I try to add an attachment, it gives me an error message saying the CDO.Message object does not support the method "AddAttachment". Here's the code I'm using to generate an email: set objEmail = CreateObject ("CDO.Message") 'generate email of log file every time it is executed 'objEmail.From = "sshah@soa.org" 'objEmail.To = "sshah@soa.org" 'objEmail.Subject = "Content publishing report" 'objEmail.Textbody = "This is the log file from the content migration at " & now 'objEmail.AddAttachment = "c:\sys\migration_logfile.txt" 'objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "remote server" 'objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'objEmail.Configuration.Fields.Update 'objEmail.Send Tag: DSN Creation script... Tag: 213099
  - 13
    - Question regarding New User Creation Script Hello Everybody, I wonder if someone can help with the questions I have. I have a Citrix Server which is a member of an NT4 domain which in turn trusts and AD Domain. My administrators access the citrix server to manage both the NT4 domain and the AD Domain. However if my users use the VBScript I have created to create user accounts they can only create accounts on the NT4 domain and not the AD domain. If they run the script directly on a server which is a member of the AD domain then it works fine and creates accounts on the AD domain. (I am unsure if it successfully creates accounts on the NT4 Domain from the AD Domain as I have not tested this yet.) Does anyone know if there are restrictions in place preventing a script from creating user accounts on Multiple different domains from one domain and if so does anyone know how to resolve this issue? I have posted the code below which shows how I am querying the AD domain and the NT Domain: ----------------------------------------------------------NT Domain------------------------------------------------------------------------------------------- Sub AccountCreateNT4(firstname,middlename,lastname,template,username,strNTServer) Set objNetwork=CreateObject("Wscript.network") If Len(username) > 15 Then MsgBox "The length of the user's SAMaccountname " & "is too long. The limit is 15. The account you entered " &_ "has a length of " & Len(username) & "." btnRunScript.disabled = false btnReset.disabled = false btnClose.disabled = false Exit Sub End If strPassword="password" dtExpire=DateAdd("d",Now,iExpire) '***Now we get the array of groups that the template account is a member of.*** If template = "" then btnRunScript.disabled = false btnReset.disabled = false btnClose.disabled = false Exit Sub Else 'Do Nothing and continue the script. End If Set objDomain = GetObject("WinNT://" & strNTServer) Set objUser = objDomain.GetObject("user", template) For Each objGroup In objUser.Groups strGroupList = strGroupList & objGroup.Name & "," next '***Search to see if the user already exists in the domain.*** Set objComputer = GetObject("WinNT://" & strNTServer) objComputer.Filter = Array("user") intFound = 0 For Each User In objComputer If lcase(User.Name) = lcase(username) Then intFound = 1 End If Next If intFound = 1 Then MsgBox "The " & username & " account already exists." btnRunScript.disabled = false btnReset.disabled = false btnClose.disabled = false Exit Sub Else 'Do Nothing and continue with the script. End If '***Create the User Account in the domain.*** Set objUser = objComputer.Create("user", username) objUser.Fullname = firstname & middlename & lastname objUser.Description = firstname & middlename & lastname objUser.SetInfo objUser.SetPassword strPassword objuser.Accountdisabled = FALSE objUser.SetInfo '***Add New User to Groups as per the template account.*** '***use the Split function to turn the comma-separated list into an array sGroupList = Split(strGroupList, ",") '***go through the array and add the user to each group.*** For iTemp = 0 To uBound(sGroupList) - 1 '***get the group.*** Set oDomain = GetObject("WinNT://" & strNTServer) Set objGroup = oDomain.GetObject("Group", sGroupList(itemp)) '***add the user account.*** '***When user created, they are a member of "Domain Users".*** If (objGroup.IsMember(objUser.AdsPath) = False) Then objGroup.Add(objUser.AdsPath) End If 'oGroup.Add(objUser.ADSpath) '***release the group.*** Set oGroup = Nothing Set oDomain = Nothing NEXT End Sub ------------------------------------------------------------AD Domain----------------------------------------------------------------------------------------- Sub AccountCreate2003(firstname,middlename,lastname,template,username,strNTServer) inputdomain = strNTServer intAccValue = 544 fullname = "cn=" & username displayname = firstname & " " & lastname strBase = "<LDAP://dc=" & inputdomain & ",dc="input",dc="input">" strQuery = "(&(objectCategory=person)(sAMAccountname=" & template & "))" strFilters = "sAMAccountname,adspath" LDAPCMDTXT = strBase & ";" & strQuery & ";" & strFilters Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider="ADsDSOObject" objConnection.Open = "Active Directory Provider" objCommand.ActiveConnection = objConnection objCommand.CommandText = LDAPCMDTXT Set objRecordSet = objCommand.Execute Const ADS_UF_NORMAL_ACCOUNT = 512 adsTemplate = objRecordset.fields("adspath").value Set ou = Getobject("LDAP://cn=users,dc=" & inputdomain & ",dc="input",dc="input") set templateobject=getobject(adsTemplate) '***Now we get the array of groups that the template account is a member of.*** grouplist=usersgroups(adsTemplate) templategroups=split(grouplist,",") for groups=0 to ubound(templategroups) 'msgbox templategroups(groups) next '***Now we create the new user account so that we can set its properties*** Set objuser = ou.Create("user", fullname) objuser.Put "samAccountName", username objuser.SetInfo objuser.lastname=lastname objuser.givenname=firstname if len(middlename)>0 then objuser.initials=left(middlename,1) end if objuser.setinfo objuser.userPrincipalName=username & "@" & inputdomain & "." & "input.input" objuser.displayname=displayname objuser.description=displayname objuser.setinfo '****Now we enable the account and add the account to the necessary groups.*** res=addgroups(grouplist,objuser.adspath,inputdomain) objuser.Accountdisabled=0 strPassword="password" objuser.setpassword strPassword objUser.Put "userAccountControl", intAccValue objuser.setinfo objConnection.Close End sub --------------------------------------------------------------------------------------------------------------------------------------------------------------------- Thanks for any help you can provide. Tag: DSN Creation script... Tag: 213094
  - 14
    - how to open start up program with standard size hi all, i am using window xp. I have too many start up programs and i have two monitor during work. So i am curious if there is any script that we can open up programs with same size and location on the screen whenever i click on the scipt? If there is, kindly share it with me. Thanks in advance. Tag: DSN Creation script... Tag: 213092
  - 15
    - querying an array Hi all, a registry query like this works fine getting all software installed on a pc: ----------------------------------------- Const HKCR = &H80000000 Const HKCU = &H80000001 Const HKLM = &H80000002 Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\default:StdRegProv") sUninstallPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" oReg.EnumKey HKLM, sUninstallPath, aSubkeys On Error Resume Next For Each sSubkey In aSubkeys oReg.GetStringValue HKLM, sUninstallPath & "\" & sSubkey, "DisplayName", sAppName WScript.Echo sAppName Next ----------------------------------------- But how can i query this array for a specific software wether it is installed or not and as a result of that a task will be done. Thanks in advance for your help Torsten Tag: DSN Creation script... Tag: 213091
  - 16
    - What do I need to install to use vbscripting I have a SpeakClipBoard.vbs as follows: [ Set ISpeechVoice = CreateObject("SAPI.SpVoice") 'read from clipboard Set oIE = WScript.CreateObject("InternetExplorer.Application") oIE.navigate "about:blank" ISpeechVoice.Speak oIE.document.parentWindow.clipboarddata.getData("text"), SPF_DEFAULT Set oIE = Nothing ] This speech script works fine on my machine [Windows XP Home Edition]. What 'installed software' on my machine enables this script to run. And what might i need to (check for and) install on someone else's machine to enable this script to run. Also, how can I select different voices, programatically? For instance, Select "Sam" or "Female Spanish".? Thanks in advance! ô¿ô V e r n www.parentpresent.org NoWorrys = KidSafe Internet Filter (Freeware) Tag: DSN Creation script... Tag: 213084
  - 17
    - UserAccounts.CommonDialog on Windows 2000 CreateObject("UserAccounts.CommonDialog") is working fine on XP, but on Windows Server, it doesn't. Have another way of calling browse a file on that platform? Thanks, -Andrew Tag: DSN Creation script... Tag: 213082
  - 18
    - Error while trying to access excel file using HTML Code Hi All, I have developed a web site and I am trying to show some contents on one of the Web Pages from a Excel file. I have created a small script but I am getting the error as mentioned below. Can somebody please help me on this ? VB Script : <HTML> <HEAD></HEAD> <BODY> <SCRIPT LANGUAGE="VBScript">  </SCRIPT> </BODY> </HTML> When I am opening this page I am getting following error Line: 28 Char: 5 Error: Safety settings on this computer prohibit accessing a data source on another domain. Code: 0 URL: http://littlemastersachin.com/temp.aspx Tag: DSN Creation script... Tag: 213081
  - 19
    - Help with VBscript to delete files Hello Everyone, I use the following vbscript code to delete files in a particular directory on my FTP server. I delete all files in the starting folder and it's subfolders after 14 days. Today however I had a request to keep files in one folder and it's subfolders (say folder xyz and it's sub-folders) for 5 months. I thought I could just put an If statement in the selectfiles Subroutine like so ( I also left it in the code where I thought it should go) if folder = "xyz" then vKillDate = date() - 150 but that did not work. Can anyone help? Thanks I appreciate it. Here is the Script I use. It was something I had downloaded several years ago '************************************************************** 'VBSCRIPT to delete files ' folder to start search in... path = "c:\proddev" ' delete files older than 14 days from proddev folder and subfolders... killdate = date() - 14 arFiles = Array() set fso = createobject("scripting.filesystemobject") ' Don't do the delete while you still are looping through a ' file collection returned from the File System Object (FSO). ' The collection may get mixed up. ' Create an array of the file objects to avoid this. ' SelectFiles path, killdate, arFiles, true nDeleted = 0 for n = 0 to ubound(arFiles) '================================================= ' Files deleted via FSO methods do *NOT* go to the recycle bin!!! '================================================= on error resume next 'in case of 'in use' files... arFiles(n).delete true if err.number <> 0 then wscript.echo "Unable to delete: " & arFiles(n).path else nDeleted = nDeleted + 1 end if on error goto 0 next 'msgbox nDeleted & " of " & ubound(arFiles)+1 _ ' & " eligible files were deleted" sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) on error resume next 'select files to delete and add to array... ' set folder = fso.getfolder(sPath) set files = folder.files '******************************************* '****** this is where I thought I could put an if condition if folder = "xyz" then vKillDate = date() - 150 end if '******************************************** for each file in files ' uses error trapping around access to the ' Date property just to be safe ' dtlastmodified = null on error resume Next dtlastmodified = file.datelastmodified on error goto 0 if not isnull(dtlastmodified) Then if dtlastmodified < vKillDate then count = ubound(arFilesToKill) + 1 redim preserve arFilesToKill(count) set arFilesToKill(count) = file end if end if next if bIncludeSubFolders then for each fldr in folder.subfolders SelectFiles fldr.path,vKillDate,arFilesToKill,true next end if end sub Tag: DSN Creation script... Tag: 213079
  - 20
    - Can i use vbscript to create a windows form? Can i use vbscript to create a windows form which includes some checkboxes,textboxes and buttones? Tag: DSN Creation script... Tag: 213072
  - 21
    - WMI StopService Anyone know about the error codes for Win32_Service StopService? I'm getting error 4 when trying to stop some services. The description of that error is "Invalid Service Control", which tells me nothing. I'm trying to figure out what actually causes error 4. (I asked in the WMI group but it seems to be rather sleepy over there, with little activity.) Running as only user, with full control, on XP. I think, if I remember correctly, it was trying to stop WebClient that raised the error. Tag: DSN Creation script... Tag: 213059
  - 22
    - HKEY_CLASSES_ROOT\CLSID How to get all list in HKEY_CLASSES_ROOT\CLSID? Thanks, -Andrew Tag: DSN Creation script... Tag: 213055
  - 23
    - Reference for InternetExplorer.Application Where's the reference about InternetExplorer.Application? Set objIE=CreateObject("InternetExplorer.Application") Have some properties of objIE or objIE.Document to let the IE window to be on the top (Active) and cann't be closed? Thanks, -Andrew Tag: DSN Creation script... Tag: 213053
  - 24
    - Reading input file I have what seems to be a very simple issue in a script that I am writing. The first line in an input file that I'm reading is an arbitrary number, and every line after that is the meat of the input file. An example of the log file would look like this: 12345 cf,http://dev.sheeltest.org/sys2/objFolder How would I read the first line and put it into a variable, and then take the next line and any subsequent lines in the input line and splits it into an array? Any help is greatly appreciated. Thanks, Sheel Tag: DSN Creation script... Tag: 213043
  - 25
    - Listing a domains exchange servers? Hi! :) I'm using CDO.Message to send e-mails in my scripts. I'd like my function doing this to be able to work without requiring an explicit smtp server as input. I want my scripts to function undependant of the domain they are run in and all others do... Is there a way to get a list of the smtp servers in a domain? If so, could I just use any one of these for the smtpserver setting? I don't know much about mail servers... Thanks a million! :) /Sofia Tag: DSN Creation script... Tag: 213042
- Next
  - 1
    - echo, newline escaping, and more My question is how to pipe newlines directly from echo into more. Detailed explanation: It is possible to escape newlines in cmd.exe by ending a line with the caret (^) and then pressing the enter key twice. Thus, the following 3 lines will display foo, and on the next line it will display bar: echo foo^ bar Very nifty. What I would now like, however, is for the result of an echo, piped into more, to display foo on one line, followed by bar on the next. The following 3 lines do not work: echo foo^ bar | more more will only shows the first line, foo. What is going on is that when echo is piped into more, for reasons I have not fathomed, the command line parser runs over the command line twice (for example, there are two levels of environment variable expansion as will be seen shortly). Therefore, it would seem that I have to escape the above 3 lines once to the following 5 lines (using double caret below (^^) to escape a single caret (^) above and ^ followed by two newlines below to escape a single newline above): echo foo^^^ ^ bar | more Unfortunately, this does not work, and as before, I only get the first line showing: foo Furthermore, if the last line is only bar instead of bar | more, then the 3 line output from echo's single pass is as expected: foo^ bar Now you will be thinking, Csaba, really, you were overly optimistic thinking that the command parser would be willing to accommodate that screwy newline escaping. You should be lucky that it worked at all with echo, never mind the pipe. Well, perhaps so, but then I would expect the following 5 lines to similarly fail, but it does quite nicely, thank you very much. set nl=^ set nlm=^^^^%^nl%%^nl% echo foo%nlm%bar | more The 'echo ... | more' demonstrates the double substitution mentioned earlier. The last two lines would also work as: set nlm=^^^%nl%%nl%^%nl%%nl% echo foo%^nlm%bar | more which 2nd variant causes a single expansion on the 2nd pass. But I wonder if it is possible to avoid the expansion on the second pass, which happens in both examples. In other words, could I have an environment variable just expand on the first pass? And this should be the same as my original question: How can I pipe newlines directly from echo into more? Csaba Gabor from Vienna PS. The above may be tested by copying the specified number of lines and then at the cmd.exe prompt doing (Alt+space)ep (enter may need to be pressed depending on whether the copied section has a final newline in it) PPS. Environment variable expansion happens first, and then escaped characters are unescaped. Thus, an isolated ^ in an environment variable will seemingly disappear. PPPS. VBScript group copied as a possilble interest topic when using Run/Exec Tag: DSN Creation script... Tag: 213041
  - 2
    - Newbie - Error in script Hi The following script works OK when run interactively from the command line, but when run as a scheduled task - via SQL Enterprise Manager in preperation for another SQL task - returns the error:- The process could not be created for step 2 of job 0x0882C8212587254BB055CCD056C84FD0 (reason: %1 is not a valid Win32 application). The step failed. The VB script is as follows, and it fails before the copy operation:- dim yr dim mth dim day dim objFile dim objFso dim objFolder dim objFileLoop yr = cstr(4) mth =cstr(2) day = cstr(2) file = cstr(51) yr = datepart("yyyy",Now) mth = datepart("m",Now) day = datepart("d",now) if mth = "1" then mth = "01" end if if mth = "2" then mth = "02" end if if mth = "3" then mth = "03" end if if mth = "4" then mth = "04" end if if mth = "5" then mth = "05" end if if mth = "6" then mth = "06" end if if mth = "7" then mth = "07" end if if mth = "8" then mth = "08" end if if mth = "9" then mth = "09" end if if day = "1" then day = "01" end if if day = "2" then day = "02" end if if day = "3" then day = "03" end if if day = "4" then day = "04" end if if day = "5" then day = "05" end if if day = "6" then day = "06" end if if day = "7" then day = "07" end if if day = "8" then day = "08" end if if day = "9" then day = "09" end if set objFso = createobject("scripting.FileSystemObject") objFile = "AGRESSODB01_agresso_Full_" & yr & mth & day & "2200 (1 of 1).safe" if objFso.FileExists(objFile) then objFso.CopyFile objFile, "\\agressodr\e$\sqlsafe \AGRESSODB01_Live_Full.safe" end if set objFso = Nothing set objFso = createobject("scripting.FileSystemObject") set objFolder = objFso.GetFolder("J:\SqlSafe") for each objFileLoop in objFolder.Files if datediff("d",objFileLoop.DateCreated,Now) > 7 then objFile = objFileLoop.Name if objFileLoop.Name <> "CopyFile.vbs" then objFso.DeleteFile(objFile) end if end if next Any assistance appreciated Tag: DSN Creation script... Tag: 213032
  - 3
    - vbs script to detect folder(to detect installed applications like Hi, i am an administrator with limited resources and would like to know how i can detect installed applications(like p2p applications) in client computers in network . We have a windows 2003 domain and all clients are joined to it. I wanted to use the gpinventory tool from microsoft and integrate the script into it but that is not important as long as someone guides me of an alternate technique to detect the folders. Thanks in advance and any help is appreciated. Regards, Scorp Tag: DSN Creation script... Tag: 213031
  - 4
    - copyhere and preventing progress bars and dialogs hi, I am trying to prevent the progress bar and any windows from popping up when performing: set shl = createobject("Shell.Applicatioin") shl.namespace(dest).copyhere shl.namespace(src).items do until shl.namespace(dest).items.count = shl.namespace(src).items.count wscript.sleep 100 loop according to msdn I should be able to use options: http://msdn2.microsoft.com/en-us/library/bb787866.aspx I have tried changing above line to the below but it doesn't work. shl.namespace(dest).copyhere shl.namespace(src).items, &H4 any help appreciated. thanks. Tag: DSN Creation script... Tag: 213028
  - 5
    - compress (zipped) folders issue hi, I am performing the following which works perfectly if there is not an empty subdirectory within the folder I am trying to zip. src = "c:\temp\" dest = "c:\test\test1.zip" 'write zip file header set fso = createobject("Scripting.FileSystemObject") set file = fso.opentextfile(dest,forwriting,true) file.write "PK" & chr(5) & chr(6) & string(18,chr(0)) file.close set shl = createobject("Shell.Applicatioin") shl.namespace(dest).copyhere shl.namespace(src).items do until shl.namespace(dest).items.count = shl.namespace(src).items.count wscript.sleep 100 loop However, if there is an empty subdirectory I receive the following error "The specified directory c:\temp\vbe is empty, so compressed (zipped) folders cannot add it to the archive. How do I prevent this from happening. If I do the same thing manually by right clicking on temp and choosing send to\compressed folder I do not receive the error. thanks. Tag: DSN Creation script... Tag: 213027
  - 6
    - Date range problem I'm have a site that will display a banner image based on the time of year. My date ranges go from: 4/1 - 6/30 7/1 - 9/30 10/1-11/30 12/1 - 3/31 My script is below. The first three ranges work fine, but the last one spans two different years. If it's 2007, the range will be 12/1/2007 - 3/31/2007. Obviously, that won't work. And, when the year changes to 2008, none of the date ranges will be true because the 12/1-3/31 range will now be 12/1/2008 - 3/31/2008. I thought about incrementing the year for 3/31 based on the current year, but if the current year is correct, I can't increment it. Suggestions? Just not sure how to go about this. Thanks! Doug if Date >= CDate("4/1/" & Year(Date)) AND Date <= CDate("6/30/" & Year(Date)) then Response.Write "<img src=""/images/display/Banner.jpg"" >" elseif Date >= CDate("7/1/" & Year(Date)) AND Date <= CDate("9/30/" & Year(Date)) then Response.Write "<img src=""/images/display/Banner.jpg"" >" elseif Date >= CDate("10/1/" & Year(Date)) AND Date <= CDate("11/30/" & Year(Date)) then Response.Write "<img src=""/images/display/Banner.jpg"" >" elseif Date >= CDate("12/1/" & Year(Date)) AND Date <= CDate("3/31/" & Year(Date)) then Response.Write "<img src=""/images/display/Banner.jpg"" >" end if Tag: DSN Creation script... Tag: 213022
  - 7
    - functions named the same if I have a script with two functions named the same.. such as msgbox testme(8,5) function testme (int1,int2) testme = int1 + int2 end function function testme (int1,int2) testme = int1 - int2 end function The output is the result of the last function in line in the script ie 3. However if you add the line executeglobal "function testme(int1,int2) : testme = int1 * int2 : end function" above the first function, then the result is 40.. ie it runs the first function in the script? adding a second executeglobal line after the first.. executeglobal "function testme(int1,int2) : testme = int1 / int2 : end function" and the second executeglobal function is run ie the output is 1.6. isnt that a little bit strange? how does the interpretation of the script change using executeglobal I wonder ? I assume that the executeglobal command is actually run after the rest of the code so the function is in fact the last version of the function? If that is the case why does this code executeglobal "msgbox testme (24,1)" msgbox testme(8,5) function testme (int1,int2) testme = int1 - int2 end function give the output 23 then 3 rather than the other way around? Tag: DSN Creation script... Tag: 213021
  - 8
    - vbscripting for exchange 2007 I'm just curious if we are still going to be able to run and create vbscripts for exchange 2007, and windows server 2007. I know there is a new tool out there called Powershell that I'm trying to learn, but have more vbscripts out there available to do things with. Just curious if anyone has knowledge or experience with it please let me know. Thanks J0seg Tag: DSN Creation script... Tag: 213016
  - 9
    - Question about ":" in vbscript syntax Hi, all, below uses ":" to put two statement in on line. Any one know where I can find explanation of this usage or this way just to put statment in one line. Thanks. Greg Dim sIP_Address : sIP_Address = GetIP() Tag: DSN Creation script... Tag: 213013
  - 10
    - get value from combo box to add data to JList Hi all, I am currently trying to develop a java program which has two files loaded into it. One is for room rumbers which are listed in a combo box like RM01, RM02, RM03 etc, and the other files has the computer names which are loaded into the JList like RM01_01, RM01_02, RM02_01, RM02_02 etc. What I would like to do is when I click RM01 on the combo box the JList automatically repopulates with all the computers that start with RM01 so it would only show the computer names which are RM01_01, RM01_02 etc. I have tried this and it is not working properly. What I have got I am not sure if it is working properly as I can not anything to display inside the vector for the JList. This is what I have so far. I know that this is probably completely wrong as I am a newbie to java: public void lstComputerNamesInitiate() { try { // Open the file that is the first // command line parameter FileInputStream fstream = new FileInputStream("" + DataFile.txtNamePath.getText()); // Get the object of DataInputStream DataInputStream in = new DataInputStream(fstream); BufferedReader br = new BufferedReader(new InputStreamReader(in)); String strLine = ""; //Read File Line By Line String computerNaming = strLine; String startsWith = (String) cboRoomNumber.getSelectedItem(); System.err.println("startswith: " + startsWith); while ((strLine = br.readLine()) != null) { boolean computer = computerNaming.startsWith(startsWith); System.err.println("boolean: " + computer); System.out.println("selected room number is: " + cboRoomNumber.getSelectedItem()); // Print the content on the console System.out.println(strLine); String computerName = strLine; // data.add(computerName); data.add(computerNaming); System.out.println("inside the vector is: " + data); lstComputerNames.setListData(); } //Close the input stream in.close(); } catch (Exception e) { //Catch exception if any System.err.println("Error: " + e.getMessage()); } } Any help in this matter would be highly appreciated. Thank you Tag: DSN Creation script... Tag: 213010
  - 11
    - stationery and Vista I use a lot of stationery complete with music and my friends all look forward to receiving my mail. However with the advent of Vista, my stationery does not work properly with those of my email pals who have Vista. Is there a fix for it? I use Windows XP, so don't know much about Vista. Any advice will be appreciated. Majocle Tag: DSN Creation script... Tag: 213009
  - 12
    - Convert VB app to vbscript Is there anything out there that will convert a VB program into vbscript. Thanks. Tag: DSN Creation script... Tag: 213005
  - 13
    - Retrieve ProcessID for the running script I am able to retrieve the ProcessID for processes using the Win32_Process Class, however I am not able to retrieve the ProcessID for the script that the code is running in. I can't use the Name of the process since I have multiple wscript.exe running so the only way I can think of getting the ProcessID is by finding properties for the current script process only. I have no idea how to do this since the closest I can get is a complete list of running processes while I just need the info for the currently running script. Any help with this issue would be greatly appreciated. Tag: DSN Creation script... Tag: 212991
  - 14
    - COM+ application server Hi, All, How to know whether a server is COM+ application server or not? Thanks, -Andrew Tag: DSN Creation script... Tag: 212987
  - 15
    - Sorting in VBscript I have a vbscript that retrieves pdf files and outputs them in a table with a link to the file plus the date modified. I'm trying with no luck to sort the links starting with newest file. The file path is newbusiness/2007. There is a folder for each year. A the top of the table is a list of links to each year folder. Below is the code: <%@ Language = "vbScript"%> <%option Explicit%> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <% ' **************************************************************************************************** ' FSO - Datasource - path to the icon Folder ' **************************************************************************************************** Dim ObjFSO Set ObjFSO = CreateObject("Scripting.FileSystemObject") '** Create FSO Function getCurrentYear() getCurrentYear = DatePart("yyyy", Date) if not ObjFSO.FolderExists(Server.MapPath("newbusiness\" & getCurrentYear)) then getCurrentYear = getCurrentYear - 1 end if Exit Function End Function Dim FolderRequest : FolderRequest = Request.QueryString("archive") & "\" '** grabs the query string passed by the argument "?folder=" If FolderRequest = "\" or Len(Request.QueryString) = 0 then If ObjFSO.FolderExists(Server.MapPath("newbusiness\" & getCurrentYear)) then FolderRequest = getCurrentYear & "\" else getCurrentYear = getCurrentYear - 1 FolderRequest = getCurrentYear & "\" end if end if Dim FolderPath FolderPath="newbusiness\" & FolderRequest '** newbusiness folder path/ Dim RootFolder, NavPath, s, n Dim f1 Dim sf MapMyDrive() '============================================================== ' Sets up the folder path where the pdf files will be read from '============================================================== Private Sub MapMyDrive() On Error Resume Next Set RootFolder = ObjFSO.GetFolder(Server.MapPath(FolderPath)) If Err.Number <> 0 then FolderPath = "newbusiness\" & getCurrentYear & "\" '** newbusiness folder path/ Err.Clear() else FolderPath= "newbusiness\" & FolderRequest end if Set RootFolder = ObjFSO.GetFolder(Server.MapPath("newbusiness/")) '** Root folder = New Business folder Set NavPath = ObjFSO.GetFolder(Server.MapPath(FolderPath)) '** set what files are shownview depending on what's defined in NavPath Set sf = RootFolder.SubFolders '** set subfolders to read information from the /newbusiness folder (top level directory) Exit Sub End Sub Function ShowFolderList(folderspec) '** grabs all the files within a specific folder and outputs them, with links, as a single string Dim n n = 0 For Each f1 in sf n = n + 1 if n = 1 then '=== Do Nothing === else s = s & "<font color='#ffffff'>|</font> " end if s = s & "<nobr><a href='newbusiness.asp?archive=" & f1.name & "'>" & UCase(replace(f1.name ,"_"," ")) & "</a></nobr> " Next ShowFolderList = s End Function ' **************************************************************************************************** ' Outer table ' **************************************************************************************************** %> <!doctype html public "-//w3c//dtd html 4.0 transitional//en" > <html> <head> <TITLE>New Business Archive for <%response.Write(replace(replace(FolderRequest, "\", "") ,"_"," ")) %> </TITLE> <link rel="stylesheet" href="/CityOfRichmondVirginia.css"> <link rel="stylesheet" href="newbusinessarchive.css" title="New Business Archive Style Sheet"> </head> <body bgcolor="#E2DED4" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" name="top"> <form name="frmMain" method="post" action="index.aspx" id="frmMain"> <input type="hidden" name="__VIEWSTATE" value="dDwxMzE4OTY3MjM2Ozs +cEc8jXCd4QzwkdirzxyX1EgPR0c=" ID="Hidden1"/> <div align="center"> <table bgcolor="#333333" width="760" cellspacing="0" cellpadding="1" border="0" style="background:#333333;width:760px;" ID="Table1">  <tr> <td> <table background="" bgcolor="#E2DED4" width="100%" cellspacing="0" cellpadding="0" border="0" ID="Table3"> <tr> <td align="center"><script src="/macromediaflashdetect.js" type="text/javascript"></script> <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/ swflash.cab#version=6,0,0,0" width="758" height="98" id="Richmond.Main.Menu" align="middle" > <param name="movie" value="/PageTemplates/flash/ Richmond.Main.Menu.Smaller.swf? __ServerName=wwwdev&__PageTemplateName=Default&__PageTemplateType=SmallDeptHeader" / > <param name="menu" value="false" /> <param name="allowScriptAccess" value="sameDomain" /> <param name="quality" value="high" /> <param name="scale" value="noscale" /> <param name="wmode" value="transparent" /> <param name="loop" value="false" /> <param name="bgcolor" value="#E2DED4" /> <embed src="/PageTemplates/flash/ Richmond.Main.Menu.Smaller.swf? __ServerName=wwwdev&__PageTemplateName=Default&__PageTemplateType=SmallDeptHeader" loop="false" menu="false" quality="high" scale="noscale" wmode="transparent" bgcolor="#E2DED4" width="758" height="98" name="Richmond.Main.Menu" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /> </object> </td> </tr> <tr height="15" bgcolor="FEF8E8"> <td></td> </tr> <tr> <td align="center" bgcolor="FEF8E8">  <table bgcolor="#333333" width="760" border="0" cellpadding="1" cellspacing="0" align="center" ID="Table4"> <tr> <td valign="top" bgcolor="#99cccc"> <table width="100%" border="0" cellspacing="0" cellpadding="1" ID="Table5"> <tr bgcolor=""> <td colspan="2" align="center"> <span class="pagetitleteal">New Business Archive</ span><br><br> </td> </tr> <tr bgcolor="#999999"> <td colspan="2" align="center"> <%Response.Write "<B>"&ShowFolderList(sf)&"</B>" %> </td> </tr> <tr> <td colspan="2"> <table width="100%" cellpadding="3" cellspacing="0" border="1"> <% ' *************************************************************************************************** ' Display pdf files and tables in specific folder ' *************************************************************************************************** Dim files, fileCountIndex Set files = NavPath.Files fileCountIndex = files.count ' **************************************************************************************************** ' Display Number of picture ' **************************************************************************************************** 'Determine how many files are in the directory, and create the table entries accordingly. if fileCountIndex = 0 then Response.Write "<tr><td colspan='2' valign='bottom'>There are <b>" & fileCountIndex & "</b> records available.<BR>Please choose a directory above to browse.<br>" _ & "The current list of new business licenses is: " & setCurrentLicense() & "</td></tr>" else if fileCountIndex = 1 then Response.Write "<tr><td colspan='2' valign='bottom'>There is <b>" & fileCountIndex & "</b> record available.<br>"_ & "The current list of new business licenses is: " & setCurrentLicense() & "</td></tr><tr><td align='center'><b>Week Ending</b></td><td align='center'><b>Posted Date</b></td></tr>" else if fileCountIndex >= 2 then Response.Write "<tr><td colspan='2' valign='bottom'>There are <b>" & fileCountIndex & "</b> records available.<br>" _ & "The current list of new business licenses is: " & setCurrentLicense() & "</td></tr><tr><td align='center'><b>Week Ending</b></td><td align='center'><b>Posted Date</b></td></tr>" end if end if end if 'Code goes here to set the menu navigation ' ============================================================================= ' === === ' === Daniel Dority === ' ============================================================================= getHerDone() ' ============================================================================= ' === Outputs the directory of PDFs onto the page === ' ============================================================================= Private Sub getHerDone() Dim i : i = 0 Dim Name, file, myExt, Link For Each file in Files Name = File.Name Link = Name myExt = LCase(ObjFSO.GetExtensionName(Name)) Select Case(myExt) Case "pdf": Response.Write("<tr>") Response.Write(" <td valign='middle' width='420'>") Response.Write(addLinkage(FolderPath, Link, formatString(Name))) Response.Write(" </td>") Response.Write(" <td width='220'>" & (File.DateLastModified) & "</td>") Response.Write("</tr>") Case Else: '=== Do Nothing === End Select Next Exit Sub End Sub ' ============================================================================= ' === Gets the latest file in the latest folder === ' ============================================================================= Private Function setCurrentLicense() Dim currentFolderPath, file, currentFiles, currentFileCountIndex, currentNavPath currentFolderPath = "newbusiness\" & getCurrentYear & "\" Set currentNavPath = ObjFSO.GetFolder(Server.MapPath(currentFolderPath)) '** set what files are shownview depending on what's defined in NavPath Set currentFiles = currentNavPath.Files currentFileCountIndex = currentFiles.count Dim i : i = 1 For Each file in currentfiles Select Case (i = currentFileCountIndex) Case True: setCurrentLicense = addLinkage(currentFolderPath, file.Name, formatString(file.Name)) Case Else: '=== Do Nothing === End Select i = i + 1 Next Set currentNavpath = Nothing Set currentFiles = Nothing Exit Function End Function ' ============================================================================= ' === Formats the filename from "newbusinessMMDDYYYY" to "MM/DD/ YYYY." === ' === ARGUMENTS: === ' === strLicense - file.Name === ' ============================================================================= Private Function formatString(strLicense) formatString = Left(Right(replace(strLicense ,"_"," "), 12), 2) _ & "/" & Left(Right(replace(strLicense ,"_"," "), 10), 2) _ & "/" & Left(Right(replace(strLicense ,"_"," "), 8), 4) Exit Function End Function ' ============================================================================= ' === Sets the Link Name and File Name into a Link === ' === ARGUMENTS: === ' === strFolderPath - FolderPath === ' === strLink - Link === ' === strName - Name === ' === One might use this like so: === ' === addLinkage(FolderPath, Link, Name) === ' ============================================================================= Private Function addLinkage(strFolderPath, strLink, strName) addLinkage = "<a href='" & replace(strFolderPath, "\", "/") & strLink & "' target='_blank'><span class='fontB'>" & strName & "</ span></a>" Exit Function End Function %> </td> </tr> </table> </td> </tr> <tr bgcolor="#999999"> <td> <table width="100%" ID="Table2"> <tr> <td valign="middle" align="right"></td> </tr> </table> </td> </tr> </table> <% Set Navpath = Nothing Set RootFolder = Nothing Set ObjFSO = Nothing Set sf = Nothing Set files = Nothing %>  </td> </tr> </table> </td> </tr> </table>  </td> </tr> <tr height="15" bgcolor="FEF8E8"> <td></td> </tr> <tr> <td align="center">  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#000000" id="corFooter"> <tr valign="top"> <td> <table cellspacing="0" cellpadding="0" border="0" width="100%" id="LNDL"> <tr> <td><font class="font11pxVerdanaFFFFFF" color="#FFFFFF" title="900 East Broad Street, Richmond, Virginia 23219">  900 East Broad Street, Richmond, Virginia 23219 (804)646-7000 <a href="/ contact.aspx" class="footer" title="City of Richmond Contact Information Page.">Contact Us.</a> </font></td> <td align="right" width="110" rowspan="2"><a href="/"><img src="/ images/footer.image.onecityourcity.jpg" width="110" border="0" alt="The City of Richmond Virginia." title="The City of Richmond Virginia."></a></td> </tr> <tr> <td><font class="font11pxVerdanaFFFFFF" color="#FFFFFF" title="Copyright 2000 to 2005, City of Richmond, Virginia.">  ©2000-2006 City of Richmond, Virginia. All rights reserved. <a href="/disclaimer.aspx" class="footer" title="The Privacy Statement, Disclaimer and Terms of Use for this site.">Privacy, Disclaimer & Terms.</a> </font></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr>  </table> </div> </form> </body> </html> Tag: DSN Creation script... Tag: 212985
  - 16
    - How to create an object for remote server? In my code: Set objCatlog = CreateObject("COMAdmin.COMAdminCatalog") objCatlog.Connect(strServerName) Set objApplications = objCatlog.GetCollection("Applications") objApplication.Populate For each objApplication in objApplications Set objComponents = objApplications.GetCollection("Components", objApplication.Key) objComponents.Populate For each objComponentItem in objComponents Set objComponent = CreateObject(objComponentItem.Value("ProgID")) 'it doesn't work Next Next My question: how to create an object for remote server? objComponentItem.Value("ProgID") is from server, but cannot create a object for the server, why? Thanks, -Andrew Tag: DSN Creation script... Tag: 212984
  - 17
    - Error Invalid Syntax I am writing a script (and by the way not very good with scripts) to create new users in bulk. The spreadsheet refereenced in the code below is valid and in the right place. the error I am getting is: Line 6 Car 5 Invalid syntax Code 800401E4 Source (null) I have no Idea where the error is, this is the code: Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open _ ("C:\New_users.xls") intRow = 2 Do Until objExcel.Cells(intRow,1).Value = "" Set objOU = GetObject("ou=Phil, dc=fnfglobal, dc=local") Set objUser = objOU.Create _ ("User", "cn=" & objExcel.Cells(intRow, 15).Value) objUser.sAMAccountName = objExcel.Cells(intRow, 16).Value objUser.GivenName = objExcel.Cells(intRow, 10).Value objUser.SN = objExcel.Cells(intRow, 12).Value objUser.middleName = objExcel.Cells(intRow, 11).Value objUser.company = objExcel.Cells(intRow, 1).Value objUser.street = objExcel.Cells(intRow, 2).Value 'Enter City objUser.l = objExcel.Cells(intRow, 4).Value 'Enter State objUser.st = objExcel.Cells(intRow, 5).Value objUser.postalCode = objExcel.Cells(intRow, 6).Value objUser.department = objExcel.Cells(intRow, 14).Value objUser.title = objExcel.Cells(intRow, 13).Value objUser.AccountDisabled = FALSE objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit Any help would really be appreciated.... Phil Tag: DSN Creation script... Tag: 212980
  - 18
    - Script to move folders from a list text file I need this script to move folders from a list, text file. I am new to VBS and can't get it to work. Any help would be greatly appreciated. set fso = CreateObject("Scripting.FileSystemObject") set oFile = fso.OpenTextFile("C:\listcommands.txt", 1, False) Do while (oFile.AtEndOfStream <> True ) strFolder = oFile.ReadLine() Set oFolder = fso.GetFolder(strFolder) oFolder.Copy("C:\TrashBin\" & http://oFolder.Name/) oFolder.Delete Loop oFile.Close Tag: DSN Creation script... Tag: 212975
  - 19
    - Computer Updates and SP.vbs(8, 2) (null): 0x80041021 Hello, I am new to scripting. I've come up with a script that works only if i put the variable strComputer = "." However when I create an input text file and an output textfile it works partially. Here is the script: Set fso = CreateObject("Scripting.FileSystemObject") Set objInputFile = fso.OpenTextFile("d:\Computers.txt", 1, True) Set objOutputFile = fso.OpenTextFile("d:\Results.txt", 2, True) Do While objInputFile.AtEndOfLine <> True strComputer = objInputFile.ReadLine Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery _ ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes objOutputFile.Writeline "Computer: " & objQuickFix.CSName objOutputFile.Writeline "Description: " & objQuickFix.Description objOutputFile.Writeline "Hot Fix ID: " & objQuickFix.HotFixID objOutputFile.Writeline "Installation Date: " & objQuickFix.InstallDate objOutputFile.Writeline "Installed By: " & objQuickFix.InstalledBy objOutputFile.Writeline Next Loop I am running the script locally on my machine and in the Computers.txt file is under the format "computer name" ex comp001, on line 2 it is comp002 etc.... Once i run the script it finds the 1st comp line and writes the results to the results.txt file and then it stops with the error: D:\_SCRIPTS\_VBSEDIT SCRIPTS\Computer Updates and SP.vbs(8, 2) (null): 0x80041021 How can i correct the above script? Tacobell2000 Tag: DSN Creation script... Tag: 212974
  - 20
    - Parsing a textfile and writing file properties Windows Live Mail stores each e-mail message and newsgroup posting as a textfile with a .eml or .nws extension. The filename itself is a fairly random string of hex characters, so a typical file will be called 440D491C-00000077.eml. This is not helpful if you're looking for a specific message in the file system. I'm using XPSP2. I've played around with a VBA script to do the following with a specified folder: (a) Trawl through the folder and any subfolders looking for .eml or .nws files (b) For each file found, search for data on lines starting with From:, To:, Date: and Subject: (c) Clean up the data found - eg. From: will usually be followed by something like "Joe Bloggs" <joe.bloggs@hotmail.com>. This would result in two variables - name and address. (d) Write the data found to the file properties. I've got it working up to a point, but the problems I'm facing are: (1) encoded data. Some messages have more than one of the fields mentioned encoded, as Quoted-Printable or Base64, and then there is sometimes UTF-8 on top. I've managed to cope with most of this, but not reliably (2) I seem to be limited to Summary properties, since Custom properties won't show up as columns in Explorer. So, From: becomes Author,and Subject: becomes Subject. To: I can do without. Date: becomes one of the writeable Date fields (there aren't any), so I've put it in the Comments field. Any ideas? Would anyone like to have a shot at completing the script as VBS? -- Noel -- Noel Tag: DSN Creation script... Tag: 212971
  - 21
    - WMI class for finding RSOP of Security options. Hi, Can any body help me in finding WMI class for retreving the RSOP security options like as Ex: RSOP_AuditPolicy which will give the RSOP values of the audit policy. we have "RSOP_Security settings" but this is giving account policy values. Please mail me your helpfull answers to "sheshu_142@hotmail.com" Thanks in advance. Tag: DSN Creation script... Tag: 212969
  - 22
    - Reading file from certain point Hi chaps, I need a script to search a log file (whose name is DD-MM-YYYY.log) for an error (for example "AN ERROR!"). However, even though the script rolls over each day, the files can get very large, and errors occur often. This script will be run at regular intervals (every 15 mins I reckon at the mo) and needs to return something like a 1 if an error string was found and a 0 if not. This value in turn will be used by the alerting package to fire off alerts and poke things to get it working again. Now, i've got all that working more or less (getting the date bits to auto-fill the filename is being a pain) expect for one important bit. In my script, the log file is opened and then searched line by line, and if an error is found, 1 is returned. The problem is that it restarts from line 1 each time it's fired, so basically we are always getting alerts, even for alerts we have already been told about. What I need is some way to store the last line that was checked by the script, and to start from the following line on the next check. I guess this would in turn have to save the line number to a text file and read it back when the check starts next. Any ideas how I can do the latter bit? Finding the line number and then starting from that point again ? Olly Tag: DSN Creation script... Tag: 212948
  - 23
    - If not ComputerName is ... then ... Hi, How would I do a vbs logon script which checked the workstation's ComputerName and if this name *starts* with anything else than the strings 'Class-A-' OR 'Class-B-' a messagebox should pop up with a custom message. How would I do that ...? Thanks ;-) best regards jake Tag: DSN Creation script... Tag: 212947
  - 24
    - VBA macro for find the and replace with color Hi All, I need the VB script (VBA macro) that finds particular text and then replace the background color of the cell in the excel. Find should fbe in xlPart and not XlWhole (i.e it should find Banana even if cell contains "Banana Apple" and replace it background color) I have excel function that find the text and replace it with text only. Not with cell color. And one more thing , I want to find more than one word. ===================================================== Sub FindAndReplace() ' Copies Column E (Title Col) to Column I(Blank column) so that we have Tile in D as it is Sheets("Sheet1").Range("I:I").Value = Sheets("Sheet1").Range("E:E").Value ' Find And replce in Column I Sheets("Sheet1").Select Range("I:I").Replace What:="Marketing", Replacement:="ABCD", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False End Sub ===================================================== Thanks in advance... Tag: DSN Creation script... Tag: 212946
  - 25
    - Using ASP to loop thru an XML file and generate HTML Hi All and thanks in advance for any help I can get with this! I'm very new at ASP/XML/HTML, but pretty comfortable with VB/VBScript. I've been tasked with some web content development tasks, and among them is a 'catalog' style page of images. Rather than hard-coding all the items, I wanted to use an XML file to store all the image paths and descriptive text, and just loop thru it to generate the HTML I need. Later on I'll be adding things like filters on category, etc., but for now I just want to get a simple protoype working. Below is what I've come up with but it just isn't working (keep getting HTTP 500 Internal Server Error with IE 6). The objects/methods worked pretty well in VB, so I'm wondering if it's in my handling of the quotation marks... Thanks again for the help! Hal [XML File] <?xml version="1.0" encoding="UTF-8"?> <items> <item> <imgpath>images/success_do.jpg</imgpath> <described>"Success Means Do.." Poster 24X16</described> </item> <item> <imgpath>images/Think_Twice.jpg</imgpath> <described>"Think Twice.. Act Once" Poster 18X36</described> </item> </items> [ASP Page Text] <html> <% dim strServer dim objXML, xNodeList, xNode dim i , s, sDesc, sPath strServer = Request.ServerVariables("SERVER_NAME") %> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta http-equiv="Content-Language" content="en-us"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta name="Author" content="Publishing, Desktop" /> <meta name="Contact" content="Publishing, Desktop" /> <title>Order Framed Art</title> </head> <body> <% set objXML = Server.CreateObject("Microsoft.XMLDOM") sPath = "http://" & strServer & "/vendor_mgmt/docs/artlist.xml" objXML.async = False objXML.load(sPath) If objXML.parseError.errorcode <> 0 then Response.Write "Sorry, an error occurred retrieving information." else Set xNodeList = objXML.documentElement.getElementsByTagName("item") If xNodeList.length > 0 then For i=0 to xNodeList.length-1 '[imgpath] element/field sPath = "http://" & strServer & "/vendor_mgmt/" & xNodelist.Item(i).childNodes(0).text '[described] element/field sDesc = xNodelist.Item(i).childNodes(1).text s = "<a title=" & Chr(34) & sDesc & Chr(34) & " href=" & Chr(34) & sPath & Chr(34) s = s & & " target=" & Chr(34) & "_blank" & Chr(34) & ">" Response.Write s s = "<img border=" & Chr(34) & "0" & Chr(34) & " src=" & Chr(34) & sPath & Chr(34) & " width=" & Chr(34) & "50" & Chr(34) s = s & " height=" & Chr(34) & "50" & Chr(34) & " align=" & Chr(34) & "middle" & Chr(34) & "></a><br />" Response.Write s s = "<a href=" & Chr(34) & sPath & Chr(34) & " target=" & Chr(34) & "_blank" & Chr(34) & ">" & i & ". " s = s & sDesc & "</a>" Response.Write s next else 'no items exist end if end if %> </body> </html> Tag: DSN Creation script... Tag: 212940

I have a script that create a DSN and it works like a champ, however I can't
seem
to have it create the password.

This should be able to be done.

Has anyone done this? How is it done?

Thanks.

Top