Check info of a crl

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
    - GetSpecialFolder(2).ShortPath not always returning fully-shortened path? I've got a VBScript that has a section which creates a temporary file: Set FSO = WScript.CreateObject("Scripting.FileSystemObject") Const TemporaryFolder = 2 Set tempFolder = FSO.GetSpecialFolder(TemporaryFolder) logFname = FSO.BuildPath(tempFolder.ShortPath, FSO.GetTempName) Set logFile = FSO.CreateTextFile(logFname, True) logFile.Close This appears to work on NT, Windows XP, Windows 2000, Windows 2003... except in a few cases where we've seen the value returned from ShortPath still has embedded spaces, e.g. C:\DOCUME~1\<username>\Local Settings\Temp\2 Is this a known issue? Any workaround or suggestions on how to correct this? Tag: Check info of a crl Tag: 206113
  - 2
    - VBScript to change phone format in AD.... Does anyone know of a way to change the phone format in AD for user accounts? I'm a greenhorn on scripting and can use the help!! Currently, most of our users have the following phone format: ###/###-#### We'd like to change that to: (###) ###-####. Is this possible at all? If so, how would I go about scripting this? TIA!!! Tag: Check info of a crl Tag: 206112
  - 3
    - Receiving "Can not find script file" error Hello, We're running a VBScript, which watches for certain event codes in the securty log as a service. Here's a copy of the registry entries which details all the information about the configuration and where the script lives HKLM\SYSTEM\CurrentControlSet\Services\Server Event Notification Service\Parameters In Parameters, there are 3 string values: AppDirectory : \\domain.local\sysvol\domain.local\scripts\evtsvr Application : C:\Windows\system32\wscript.exe AppParameters : EVTSVR.vbs Occasionally, we get a message box, if we have to reboot, which says this: Cannot find script file "C:\WINDOWS\system32\EVTSVR.vbs". I cannot figure out what is giving the machine the idea that the *.vbs file is in system32... it's not. It lives in SYSVOL and the path in the registry key above reflects that. Is there some other configuration item which could not be set correctly? Thanks! Tag: Check info of a crl Tag: 206107
  - 4
    - Scripting oddity I have having a very strange occurrence when looping through a text file. objective: Loop through text file list of username and then rename their corresponding folder to username.old. sounds simple..... Code: Dim objFSO Dim ulist On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set ulist = objFSO.OpenTextFile("ren2.txt",1,False) Do Until ulist.AtEndOfStream WScript.Echo ulist.ReadLine objFSO.MoveFolder "z:\profilerename\folders\"&uname, "z:\profilerename \folders\"&uname&".old" Loop If I run the code with the action commented out I am able to enumerate all the names. But, when I am performing the action it is actually skipping lines for the text file. Ex. It would show it was working on line1 but actually do line2. Very bizarre Has anyone seen anything like this before? Paul Tag: Check info of a crl Tag: 206103
  - 5
    - easiest way to run LDAP query with alternative login credentials? Hi I'm quite new to scripting. I'm trying to write code so the user can do an LDAP query so the user can run the query with alternative login credentials (as the user may not be logged into the domain when running the query). I've seen different examples of how to do this including from the Scripting Guys and have tried different approaches but can't get it to work. Can you advise me on the easiest way of doing this - ie Is it easier to gave the query in a separate script and execute this script using 'runas'? Or to include login credentials in the query somehow? If so, how do you do this? Any links to relevant examples would be much appreciated. Like I say, I've been trawling the net looking for the answer and have tried different approaches otherwise I would post the problem code. Hope you can help thanks in advance from Craig Tag: Check info of a crl Tag: 206100
  - 6
    - VBS and Excel interaction? I'm looking to automate the process of adding users. I'm going to be faced with 40-50 laptops that need to be completely updated and the users of each laptop re-added. Ideally, the script would work something like this: -input box prompts me for the username to be added -upon receiving the username the script checks an Excel worksheet -contained in the Excel worksheet is the username in question, as well as the other necessary info (full name, description, password) in accompanying cells -based on the username the script finds in the Excel worksheet, it takes the accompanying cells with the additional information needed and fills it in accordingly (ie. username contained in A1, takes Full Name found in B1, the Description found in C1, and so on) Is something like this even possible without getting too involved/complex? Any help would be appreciated. -- Never looking back...or too far in front of me; the present is a gift - and I just wanna BE. Tag: Check info of a crl Tag: 206097
  - 7
    - Create Network Bridge Is it possible to create a network bridge using VBScript on a Windows XP system? I have not been able to find any information regarding this? TIA Tag: Check info of a crl Tag: 206095
  - 8
    - retrieve russian text from database I am having a huge problem retrieving russian text from a mysql database. The text is viewed correctly within the database but when I use asp/vbscript to retrieve the text, every russian character is returned as a "?" I have tried Session.CodePage = 65001 and Response.CharSet = "UTF-8" but still get the same problem. Could anyone please shed any light, this has become a huge problem for me. Many thanks Dave Tag: Check info of a crl Tag: 206092
  - 9
    - VBScript on Winnt Hi, Can we execute vbscripts on Winnt machine? Please let me know. PI Tag: Check info of a crl Tag: 206090
  - 10
    - Executing VBScript Winnt machines Hi, Can we execute VBScripts Winnt machines? I am getting an exception while executing the wbem.exe on Winnt machines C:\WINDOWS\system32\wbem\wbem.exe Please let me know. Thanks, Regards, Pramod Ingle Tag: Check info of a crl Tag: 206088
  - 11
    - Wait for FSO.CopyFolder to complete before continuing I have as part of a VBS log on script a need to copy a folder to a users profile. I want to ensure that the folder and its contents have been copied before continuing with the script. Any ideas how I can achieve this? Tag: Check info of a crl Tag: 206087
  - 12
    - cd rom name My problem is someone has left a disk in a cd rom drive I would like to know if there is a way to gather the information in the my computer Most c: drives are name local disk but if there is a cd rom in the cd rom drive the drive name will change to reflect this. I would like to find be able to scan a computer and gather all the drives available on that computer. We have no mapped drives so that won't be a problem thanks, Rogue Tag: Check info of a crl Tag: 206078
  - 13
    - Renaming files in folder Can someone show me how I'd rename files in a folder. I have a folder with 92 jpg images in it all named something like S0001234.jpg. I want to rename them all 1.jpg, 2.jpg, 3.jpg and so on. I also want to name everything in another folder 1t.jpg, 2t.jpg, 3t.jpg and so on. I know this would be a loop somehow but, well, how? My beginners VBScript/WSH book is at home otherwise I'd try to get started on it then post what i've got here. TIA, Jim Tag: Check info of a crl Tag: 206076
  - 14
    - Help with ASP Insert into SQL I'm trying to pull data from a form and insert it into sql. This is what I have: <% Answer = Request("Value") pull_rs("INSERT INTO tSurveyResult (Result) VALUES (" & Answer &")") %> And the error message I get is 2147217900 - Line 1: Incorrect syntax near ')'. What am I doing wrong? Tag: Check info of a crl Tag: 206067
  - 15
    - Script to Zip Files I hope I am posting this to the correct group. If not, please let me know. I inherited a VBS program that executes WinZip to compress files. Based on what has been done in the past, this was run manually each time by simply clicking on the file. I have run it successfully many times since I took over the task. I am attempting to automate this by adding this to Scheduled Tasks. Now, the program fails. As near as I can tell, the failure occurs at the point that the WinZip command is to be executed. The line I believe is failing is: WshShell.Run ZipCommand, 1, True The ZipCommand contains the actual WinZip command to be executed such as: c:\winzip100\wzzip "d:\tstar\ADM CY2006.zip" @"d:\tstar\ZIPLIST_ADM.txt" I have two questions: 1) Can someone offer some insight as to why this would fail when executed from Scheduled Tasks, but work fine manually? Or is there a better approach to get this done? 2) I have been searching for information on the last two parameters of the Run command ("1" and "True") but cannot find anything. Can someone tell me what they are used for and the valid entries for each? I have limited experience with scripts so please be patient. Thanks. Tag: Check info of a crl Tag: 206066
  - 16
    - Window.Open fails with certain Japanese Characters on IE7 Hi, When the two Japanese characters ï½° and ï½¼ï¾? are used in the window name parameter of the window.open function, the expected new browser window does not open. See sample code below. This needs to be tested on localised Japanese operating system. The problem only happens on IE7 browsers (on all operating systems). IE6 works ok. Is this a known issue? Any suggestions for a possible solution? Rgds. Noel <Script language="VBScript"> Sub Func_BtnPress() Dim strFeature, strUrl, strWinName strFeature = "location=no,menubar=no,scrollbars=yes,resizable=yes,status=no,toolbar=no,height=600,width=800" strUrl = "NewWindow.asp" 'strWinName contains Japanese characters ï½° or ï½¼ï¾? strWinName = "ï½°ï½¼ï¾?" window.open strUrl, strWinName, strFeature End Sub </Script> <html> <head> <title>Nortel Networks</title> </head> <BODY> <table align=center><tr><td> <input type="button" id="btnOpen" name= "btnOpen" value="Open new window" Title= "Open new window" onclick = "Func_BtnPress()"> </td></tr></table> </BODY> </HTML> Tag: Check info of a crl Tag: 206064
  - 17
    - Hourglass Is it possible to show instead of an arrow as mouse an hourglass as in VBA, or something else? Rolf Grüne Tag: Check info of a crl Tag: 206057
  - 18
    - Create New Worksheet Every morning an Excel spreadsheet is generated with the same name overwriting itself with new data, call it NEW.xls Can someone guide me in writing a script that copies or writes this data into a new worksheet in EXISTING.xls? How do you go about labeling worksheets? Thanking you in advance -- Jeff C Live Well .. Be Happy In All You Do Tag: Check info of a crl Tag: 206056
  - 19
    - script for searching a string in a log file Hi all, I need to write a vbscript to search a string value in a text log file. If the string value is present, it will send an email. I know the script for sending the email. Please someone help me for searching a log file. Tag: Check info of a crl Tag: 206054
  - 20
    - Unzipping compressed files I receive information via compressed files that I place in appropriate folders to be unzipped and processed later. My VB program does much of the processing for me once the files are manually unzipped one by one, but I could use a bit of VB code that would unzip and then delete these original compressed files. Can't seem to find anything on this subject. S.F. Tag: Check info of a crl Tag: 206053
  - 21
    - Environment issue's Please help Hi all, i have the following problem sorry my english is not that great. I have 1 vbscript in with 2 things happen 1: install an MSI if not installed 2: if MSI is installed execute the advertised shortcut. the script works great but we have one issue If the MSI (we take ORACLE for example) set or expands a windows systems variable like the "Path=%Path%;C:\Oralce" the seconde action of the script doen't expands environment variables like the path en ORACLE gives a error becourse the path is nog found. This is becourse the vbscript doen't expands the new installed windows variable. my question is how can I expand reload the windows environment variables in a running VBSCRIPT? i have many workarrounds like putting the environments in a logonscript and solutions like that but I want 1 vbscript. can anybody help me i am not that great with vbscipt. greatings Roger Tag: Check info of a crl Tag: 206052
  - 22
    - VB Script to read Excel file Hi, Small question: I have a simple Excel file and I'm trying to write a VB Script that will get a string and will search for it in the Excel file at a certain column. When string was found I would like to know the right line. Note: string appears only once in a specific column. Any suggestions...? Shai. Tag: Check info of a crl Tag: 206047
  - 23
    - calling helper applications? Hi, I'm a bit vexed by one of the limitations of VBscript. I have to write byte arrays to a data source, and there doesn't appear to be any way at all to do it. I can read them just fine, but have had no luck modifying and storing them back. I can do this just fine with VB6 but my shell app is in script. If I compile a little exe in VB6 to do this for me, is it possible to call it from a Script? I'm guessing not but I'm crossing my fingers here. Thanks Eric Tag: Check info of a crl Tag: 206043
  - 24
    - Script to change registry setting in 100 servers I need to change a regisrty setting in 100 servers and the setting is different for each servers. I have an excel file that has the info and I need to have a script to connect to 100 servers and read the excel sheet with the registry info and update each servers registry based on that excel sheet. Can anybody send me a sample script. If not the whole script just the part to connect to all these 100 servers listed in this excel sheet. Thanks Tag: Check info of a crl Tag: 206041
  - 25
    - New forest namespace for migration I'm looking to consolidate 5 forests into a single forest AD design. My question is, though, can a new forest exist in an existing forest's namespace? In other words, can new.company.com be a new forest if company.com is one of the existing forests? -- Tim Tag: Check info of a crl Tag: 206033
- Next
  - 1
    - Adding Username and password to Printer Connect Script. I am trying to make a script that i can easily send to a client to connect to printers on the network. So far its gone well and im able to run the script on my computer and connect to the printer. But the issue im having is when i have a client come into the network that are not on the domain, or when i have computers that will never be on the domain and happen to get reset and lose there privilages to a printer. How do i add a username and pass into the script so it will authenticate and allow the computer to connect to the printer? ' PrintersLong.vbs - Windows Logon Script. ' VBScript - Connect a network printer with AddWindowsPrinterConnection ' VBScript - Set Printer to default with SetDefaultPrinter ' Author Eric Heyn http://www.wctv6.com ' Version 1.1 - May 15th 2007 ' ------------------------------------------------------------------------------ Dim objNetwork, strUNCPrinter, strTrueName, strPrinterName, strError, strOption, strTitle strTitle = "WCTV Printer Connect V1.1" StrOption = Inputbox ("Select Printer Desired", StrTitle) If StrOption = 1 Then strTruename = "weather-office" If StrOption = 1 Then strPrinterName = "HP Weather" If (StrOption < 1) Or (StrOption > 1) Then strError = "1" If StrError = 1 Then Msgbox "Invalid Choice please restart", vbOKOnly, strTitle If StrError = 1 Then WScript.Quit strUNCPrinter = "\\" & strTrueName & "\" & strPrintername Set objNetwork = CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection strUNCPrinter objNetwork.SetDefaultPrinter strUNCPrinter Msgbox "Printer :" & strTrueName & ": added as default", vbOKOnly, strTitle WScript.Quit ' End of Eric's Windows printer script. ' Next Version Add "Make Default? Yes/No" ' Next Version Pull Printer True ShareName and Display It ' Added Msgbox ' Added Title. ' Added Inputbox with HP Printer as 1 ' Added Inputbox error message with quit command Tag: Check info of a crl Tag: 206031
  - 2
    - Enumerate local groups and use in a drop-down box in a HTA Hi, I have a HTA we use for new users. It create a home folder and add the user to the right local group etc. RMTSHARE.EXE and XCACLS.EXE is needed in the same folder as the HTA. It works fine for us but instead of having a static list of groups i want to enumerate the groups based on which server is choosed and add the groups to the list in the drop-down box where i choose groups. Any ideas on how to do this? I made a Sub that enumerates the groups but i don't know how i could get the result in the drop-down box. ________________________________________________________________________________________ <html> <head> <title>.:: Our ::. Add new user tool</title> <HTA:APPLICATION ID="Add_new_user_tool" APPLICATIONNAME="Our Add new user tool" SCROLL="no" SINGLEINSTANCE="yes" WINDOWSTATE="maximized" </head> <style> BODY { background-color: buttonface; font-family: Helvetica; font-size: 12pt; margin-top: 2px; margin-left: 8px; margin-right: 3px; margin-bottom: 3px; } </style> <SCRIPT language="VBScript"> on error resume next Dim strServer Dim strGroup Dim strDomain Dim strUser Dim strHomeFolder Dim s Dim r Dim fso Dim f Dim objShell Dim objStdOut Dim objFSO Dim objUser Dim objGroup Sub Window_Onload self.Focus() self.ResizeTo 600,500 self.MoveTo 200,50 ' Clear all variables in order for the ' "Enable Create button" IF statement to work strServer = "" strGroup = "" strDepartment = "" strUser = "" End sub Sub ServerSelectList strServer = cboServerSelection.Value ' Enable Create button when all criteria is selected If strServer <> "" and strUser <> "" and strGroup <> "" and strDepartment <> "" Then Create_button.Disabled = False spServer.InnerHTML = "Server where home folder will be created:" & " " & strServer End Sub Sub UserButton strUser = txtUserInput.Value ' Enable Create button when all criteria is selected If strServer <> "" and strUser <> "" and strGroup <> "" and strDepartment <> "" Then Create_button.Disabled = False spUser.InnerHTML = "UserName will be added to group, also to be used for home folder name:" & " " & strUser End Sub Sub GroupSelectList strGroup = GroupSelection.Value ' Enable Create button when all criteria is selected If strServer <> "" and strUser <> "" and strGroup <> "" and strDepartment <> "" Then Create_button.Disabled = False spGroup.InnerHTML = "Group where " & strUser & " will be added: " & strServer & "\" & strGroup End Sub 'Sub enumGroups 'strComputer = cboServerSelection.Value 'Set colGroups = GetObject("WinNT://" & strComputer & "") 'colGroups.Filter = Array("group") 'For Each objGroup In colGroups ' strGroup = objGroup.Name 'Next 'End Sub Sub DepartmentSelectList strDepartment = DepartmentSelection.Value ' Enable Create button when all criteria is selected If strServer <> "" and strUser <> "" and strGroup <> "" and strDepartment <> "" Then Create_button.Disabled = False spDepartment.InnerHTML = "Home folder will be created in: " & "\\"& strServer & "\d$\path\" & strDepartment & "\" & strUser End Sub Sub Create ' Add User to group strDomain = "Domain" Set objGroup = GetObject("WinNT://" & strServer & "/" & strGroup & ",group") Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",user") objGroup.Add(objUser.ADsPath) ' Create Home Folder strHomeFolder = "\\" & strServer & "\d$\path\" & strDepartment & "\" & strUser Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateFolder(strHomeFolder) ' Share the folder If FSO.FolderExists(strHomeFolder) Then ' Share the folder and assign rights. strShare = " \\" & strServer & "\" & strUser & "$=" strSharePath = "d:\path\" & strDepartment & "\" & strUser strGrant = " /GRANT " & strUser & ":change /GRANT administrators:f / GRANT SYSTEM:f" Set oShell = CreateObject("WScript.Shell") intRunShareError = oShell.Run("%COMSPEC% /c Echo Y| RMTSHARE.EXE" & strShare & strSharePath & strGrant, 0, True) If intRunShareError <> 0 Then MsgBox "Error creating share or asigning permissions for user " _ & strUser & " to home folder " & strHomeFolder Else MsgBox "Home folder " & strHomeFolder & " is created and shared as \\" & strServer & "\" & strUser & "$. User " & strUser & " is added to " & strServer & "/" & strGroup & " !" End If End If ' Set permissions on the Home folder If FSO.FolderExists(strHomeFolder) Then ' Assign user permission to home folder. Set oShell = CreateObject("WScript.Shell") intRunPermError = oShell.Run("%COMSPEC% /c Echo Y| xcacls " & strHomeFolder & " /T /C /G Administrators:f SYSTEM:f " & strUser & ":C", 2, True) If intRunPermError <> 0 Then MsgBox "Error assigning permissions for user " _ & strUser & " to home folder " & strHomeFolder End If End If ' hide the folder from other users set objFSO = CreateObject("Scripting.FileSystemObject") set objFile = objFSO.GetFolder(strHomeFolder) objFile.Attributes = objFile.Attributes + 2 ' Disable Create Button Create_button.Disabled=True ' Clear variables strServer = "" strGroup = "" strUser = "" strDepartment = "" strDomain = "" ' Reset all text and list boxes cboServerSelection.value = "" txtUserInput.Value = "" DepartmentSelection.value = "" GroupSelection.value = "" End Sub ' Cleanup Set strServer = Nothing Set strUser = Nothing Set strGroup = Nothing Set strDepartment = Nothing Set strHomeFolder = Nothing Set s = Nothing Set r = Nothing Set fso = Nothing Set f = Nothing Set sFILE = Nothing Set objShell = Nothing Set objWshScriptExec = Nothing Set objStdOut = Nothing Set objFSO = Nothing </SCRIPT> <body STYLE=" filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=1, StartColorStr='#CCCCCC', EndColorStr='#FFFFFF')"> <H2 align="center">Add user to groups and create Home folder</H2> <table border="0" cellpadding="0" cellspacing="0" style="width: 565px; height: 104px"> <tr> <td valign="top" style="height: 30px"> Select a server:</td> <td valign="top" style="height: 30px"> Enter Username:</td> </tr> <tr> <td valign="top" style="width: 281px; height: 30px;"> <select id="cboServerSelection" onChange="ServerSelectList" name="ServerSelection" tabindex="1"> <option value="0"></option> <option value="servername1">SERVERNAME1</option> <option value="servername2">SERVERNAME2</option> </select></td> <td valign="top" style="width: 284px; height: 30px;"> <input type="text" id="txtUserInput" name="UserInput" value="xxx0yyy" size="7" tabindex="2"/>  <button onclick="UserButton" name="SubmitUser" tabindex="3">Submit</ button></td> </tr> <tr> <td valign="top" style="height: 30px"> Select a group:</td> <td valign="top" style="height: 30px"> Select department:</td> </tr> <tr> <td valign="top" style="width: 281px"> <select id="GroupSelection" onChange="GroupSelectList" name="GroupSelection" tabindex="4"> <option value="0"></option> <option value="group1"> GROUP1 </option> <option value="group2"> GROUP2 </option> <option value="group3"> GROUP3 </option> <option value="group4"> GROUP4 </option> </select></td> <td valign="top" style="width: 284px"> <select id="DepartmentSelection" onChange="DepartmentSelectList" name="DepartmentSelection" tabindex="5"> <option value="0"></option> <option value="ACCT">ACCT</option> <option value="BD">BD</option> <option value="HR">HR</option> <option value="MKT">MKT</option> <option value="PUBLIC">PUBLIC</option> <option value="STAFF">STAFF</option> <option value="Helpdesk">HELPDESK</option> <option value="IT">IT</option> </select></td> </tr> </table> <p> <hr> <span id =spServer></span> <p> <span id =spUser></span> <p> <span id =spGroup></span> <p> <span id =spDepartment></span> <hr> <p align="left"> <input id=CreateButton class="button" type="button" value="Create" name="Create_button" onClick="Create" Disabled=True tabindex="6"> </BODY> </html> Tag: Check info of a crl Tag: 206029
  - 3
    - Webtable parsing: nested A's in TD's I am trying to parse an html link inside of a table. Here is the html I am trying to hook: <tr class="gray"> <td class="oq_sameOrder">  </td><td class="oq_sameOrder"><a href="item_query?item=109808113">L9808113</a></td><td class="oq_sameOrder">NSS.HRPT.NN.D07135.S0859.E0908.B1022222.WI</ td><td class="oq_sameOrder">2007-05-15 13:58:34.0</td><td class="oq_sameOrder">Pull Ready</td><td class="oq_sameOrder"><a href="javascript:helpOpen('http://www.class.noaa.gov/download/A6031173/ NSS.HRPT.NN.D07135.S0859.E0908.B1022222.WI')">www </a> <br> <a href="javascript:helpOpen('ftp://ftp.class.noaa.gov/A6031173/ NSS.HRPT.NN.D07135.S0859.E0908.B1022222.WI')">ftp </a> </td> </tr> I am trying to get the ftp path/filename into a string. I loop over all TD (each TD named oElement) until I make the following match: Left(Trim(oElement.InnerText),4) = "NSS." I then use parentElement and cell indexing to refer to the last cell in the row: oCell = oElement.parentElement.cells(5) My problem is that I can not access the links inside of oCell.Why does the following not work?: oTags = oCell.All.Tags("A") oLinkText = oTags(1).HREF Tag: Check info of a crl Tag: 206027
  - 4
    - Populate a web form with Excel data I want to have a search box on a web page. The user enters what they want to search for in an Excel sheet that resides on the server and the data is populated in a form. There are not more than one record to be returned. I think you can use VBScript to do this but have limited experience using it. Can anyone provide an example? Thanks Tag: Check info of a crl Tag: 206024
  - 5
    - rs.RecordCount issue... hi guys I'm having a problem with the code below. The SQL statement runs fine and i've even checked the database in the backgroud and it contains a perfect set of records waiting to be picked up ... yet the rs.RecordCount funtion is returning a value which is 1 less than the correct figure. i checked the database on various instances and see that it always misses the last line, of the recordset. anyone have any ideas on how to fix this? txtRecordset.CursorLocation = adUseClient txtRecordset.Open "SELECT " & tab35 & ".prefix, " & tab35 & ".Indexing, " & tab35 & ".extension, " & tab36 & ".Title FROM " & tab35 & " INNER JOIN " & tab36 & " ON " & tab35 & ".Indexing = " & tab36 & ".Indexing", txtConnection, adOpenStatic, adLockOptimistic 'msgbox "Check client_DB temp" 'results are perfect in the DB... the recCount value is wrong. not picking up the last value. Dim RecCount RecCount = txtRecordset.RecordCount TotalRecCount = TotalRecCount + RecCount --- end. Tag: Check info of a crl Tag: 206018
  - 6
    - How to change the VLK product key Microsoft provide information how to change the Volume Licensing product key on a computer that is running Windows XP SP1 and later versions of Windows XP use VBScript. http://support.microsoft.com/kb/328874/en-us How to do the same task but for MS Office 2003 Professional? Since editing registry manually may cause serious problems if something done incorrectly. Could someone provide VBScript? Regards, Tag: Check info of a crl Tag: 206015
  - 7
    - Current Path Hello, how can I get the current path of the running vbs-Script? Thank You Joachim Tag: Check info of a crl Tag: 206014
  - 8
    - Win32_Logicaldisk - incomplete drive listing Hello, Recently I used the class Win32_Logicaldisk to list all mapped network drives and found an issue. For unknown reason some network drives are shown when I run NET USE, but do not shown when I look for them via a Win32_Logicaldisk collection. Here is the output: ***************************** C:\>net use New connections will be remembered. Status Local Remote Network ------------------------------------------------------------------------------- Unavailable K: \\deimos\temp Microsoft Windows Network Disconnected R: \\sun\netlogon Microsoft Windows Network Disconnected Z: \\sun\c$ Microsoft Windows Network The command completed successfully. C:\>cscript /nologo netdisk.vbs Drive letter: R: Drive letter: Z: ***************************** Here is the netdisk.vbs, very simple, isn't it? ***************************** Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colDrives = objWMIService.ExecQuery("Select * From Win32_LogicalDisk Where DriveType=4") For Each objDrive in colDrives Wscript.Echo "Drive letter: " & objDrive.DeviceID Next ***************************** Have anyone had this problem before? Why it does not work? Thak you for any ideas Tag: Check info of a crl Tag: 206007
  - 9
    - Check if group exists before creating it Hi all, Having "borrowed" this script and modified, it works fine by itself. I want to use this as part of a loop to create groups and populate from a file with format group|user ' SimpleGroup.vbs ' Sample VBScript to create a Global Security Group ' Author Guy Thomas http://computerperformance.co.uk/ ' Version 2.4 - May 2005 ' ----------------------------------------------------------' Dim strOU, strGroup, strDNSDomain Dim objOU, objGroup, objUser ' Check - Make sure you have the OU referenced by strOU strOU = "OU=Newport," strNewGp = "Coal Porters1" strNewGpLong = "CN=" & strNewGp Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("DefaultNamingContext") ' Create new Group Set objOU = GetObject("LDAP://" & strOU & strDNSDomain ) Set objGroup = objOU.Create("Group",strNewGpLong) objGroup.Put "sAMAccountName", strNewGp objGroup.setInfo Wscript.Quit ' End of Simple Group VBScript. So if I have a group that already exists, it dies. How can I check for the existence of a group before objGroup.setInfo? Tag: Check info of a crl Tag: 206005
  - 10
    - Check all files in all subfolders and obtain newest file Hello all. What I'm trying to do is the following: 1. Get a list of all files in all subfolders from a starting point (D:\Test). 2. Get the newest file from this list. 3. Indicate whether this newest file is more than 90 minutes old. Searching through previous posts, I've used elements of 3 different scripts to put a new script together: '~~~ Create Dynamic Array for Filenames Dim arrFiles(), i Redim arrFiles(-1) sFolder = "D:\Test" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(sFolder) Set colFiles = objFolder.Files CheckSubFolders(objFolder) Sub CheckSubFolders(objFolder) Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders Set colFiles = objSubFolder.Files '~~ Populate the array with filenames from each SubFolder For Each objFile In colFiles Redim Preserve arrFiles(UBound(arrFiles) + 1) arrFiles(UBound(arrFiles)) = objFile.Path Next '~~ Repeat subroutine until all SubFolders have been checked CheckSubFolders(objSubFolder) Next End Sub '~~~ From the Array of Filenames get the newest file Dim vDT, vFName, NewestFile For i = 0 To UBound(arrFiles) Set oFile = objFSO.GetFile(arrFiles(i)) WScript.Echo oFile.Path & vbTab & oFile.DateLastModified IF oFile.DateLastModified > vDT Then vFName = oFile.Path vDT = oFile.DateLastModified End If Next NewestFile = vFName Wscript.Echo vbCrlf & NewestFile & vbCrlf '~~~ Check if newest file is more than 90 minutes old Set oFile = objFSO.GetFile(NewestFile) IF DateDiff("n",oFile.DateCreated,Now) > 90 Then Wscript.Echo "File is more than 90 minutes old." END IF Set objFSO = nothing Set objFolder = nothing Set colfiles = nothing Set colFolders = nothing Set oFile = nothing My script works fine, but I'm guessing it could probably be streamlined and some redundancy removed. Or, maybe there's a completely different and better method that can be used. Any suggestions would be greatly appreciated. Thanks. - Dave Tag: Check info of a crl Tag: 206004
  - 11
    - Creating an Domain DFS Root link Hi all, i used the script strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root \cimv2") Set objDfsNode = objWMIService.Get("Win32_DfsNode") errReturn = objDfsNode.Create _ ("\\atl-dc-02\Scripts","\\atl-dc-02","Scripts", _ "New Dfs node for shared scripts.") but this is creating the DFS root for standalone server but not for the "Domain DFS root" if the value of "errReturn is 0" it means that the dfs kink is created but if a non 0 value is returened it means that the script failed. so the above script works fine for creating standalone dfs link but not for the domain dfs root link Is there a way we could create a Domain DFS Root link thru script? if yes pls let me know Tag: Check info of a crl Tag: 205999
  - 12
    - Why did a subroutine fix my problem? I posted a few days ago about an 800A0046 permissions issue I was seeing only on a specific server as a specific type of user in regards to a CreateObject fuction. I saw an example of someone else's FSO script that used a subroutine to call their createobjects so I thought I would try it, and it worked! but I don't know why. Here is the script that bombs with a permissions denied for CreateObject on line 2 (only for local admins and domain users; for domain admins it runs fine): Dim fso Set fso = CreateObject("Scripting.FileSystemObject") MsgBox "Hello World" Set fso = nothing Here is the script that runs fine for all users: Dim fso sub blabla Set fso = CreateObject("Scripting.FileSystemObject") end sub MsgBox "Hello World" Set fso = nothing Any idea why the subroutine fixed the issue? Thanks! Tag: Check info of a crl Tag: 205996
  - 13
    - Configuring a script, entering values Hi All! I maintain a server checking script that we use to perform daily tasks on an array of servers such as check free disk space, which services have stopped e.t.c. I've recently created an installer for this to help make the process a little easier (since some functions require the use of an exe) which nicely places all the needed files into a set location. What I'd really like to do though is this: The script itself has several variables that must be defined (such as the servers in the array and the username/password it logs onto each server with e.t.c.). I'd like to make it so that after the installer finishes it runs another script (which I can setup in the installer no problem, its the script I need help with). I'd like it so that this secod script bring up prompt boxes (or whatever you want to call them) where you can then enter in the information needed for each variable, so you'd be prompted to enter in the servers in the array, the username to be used e.t.c. The idea being that you'd have no actually need to go into the script itself uness you encountered a problem. How would I go about doing this? Can it be done through a script or do I need to do this some other way? Any advice/help would be much appreciated :-) Thanks, Sam -- _______________________________ Sam Richardson Technical Support Administrator Central Business Services ________________________________ Tag: Check info of a crl Tag: 205989
  - 14
    - Search for Files by creation date Hey guys, I'm new to vbs. (Don't they all say that?) I'm trying to automate a task at work using vbs. Basically, I need a count of files from a folder AND sub-folders for all .pdf files created today. The path is Z:\C89\ and it remains constant and the file names are formatted as such: xxxx20070518.pdf, where the current date + 5 days is embedded into the file name. (I can't get the wildcard to work-that's why I thought I'd mention it.) Next, I'd like for the script to send me the results in an email. e.g. "The C89 folder has 50 pdf files" We use Windows Exchange on XP/2003 here. I've tried to piece together code from different sites, but I always end up with some error. I don't mind cracking open a book and learning vbs from scratch-which I intend to do, but I'm up against a deadline. Regards~ Tag: Check info of a crl Tag: 205985
  - 15
    - Use a style in onmouseover? Is it possible to "call" or use a style in a DIV onmouseover/onmouseout? For example: <DIV ID="SC1" onmouseover=<MY_STYLE_1> onmouseout=<MY_STYLE_2> Style="border:1px solid #54BC00;"> If so, how do you reference it? Examples much appreciated... Thanks Tag: Check info of a crl Tag: 205978
  - 16
    - UPnP data readout Hi, can somebody suggest me a url to some API information to UPnP and VBS ? I need to build a script which allows me to a) determine a UpNP capable router on my net and b) readout some schema information for example: um:schema-upnp-org:service:WANPPPConnection:1-> GetExternalIPAddress(String) I Found this Script to set a port mapping via upnp but have no clue how to simple read already present information: '=========================================================== 'This program forwards a port via UPnP Set nat = CreateObject( "HNetCfg.NATUPnP") Dim mappingPorts Set mappingPorts = nat.StaticPortMappingCollection MsgBox("Click OK to forward the port") 'Map the SIP port mappingPorts.Add 5060, "UDP", 5060, "10.0.0.100", TRUE, "SIP" 'Get some info about the currently mapped ports for each mappingPort in mappingPorts MsgBox(mappingPort.externalIPaddress) Next MsgBox("Click OK when finished") 'Remove the mapped port mappingPorts.Remove 5060, "UDP" '=========================================================== thanks. Tag: Check info of a crl Tag: 205976
  - 17
    - HTA / IE7 question... Hi, folks!!! I'm trying to write up an HTA application to do various tasks. I have included a copy of some code to illustrating one of the things I'm trying to do. I am to open a PDF report from this HTA script. I have tried this script on one XP machine with IE6 -- works fine! The other XP machine with IE7 -- nothin! Both machines have Acrobat Reader installed. If I try to open a TXT file using this method I have no problems with IE6 or IE7. Does anyone know what gives?!? ===============test.hta=============== <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <HTA:Application border="thin" borderStyle="normal" caption="yes" maximizeButton="no" minimizeButton="no" showInTaskbar="yes" windowState="normal" innerBorder="yes" navigable="no" scroll="no" scrollFlat="yes" /> <script src="VBSlib.vbs" language="VBScript"></script> <script language="VBScript"> Dim oShell : Set oShell = CreateObject("WScript.Shell") Dim szCmd : szCmd = Chr(34) & App.Path &"\Report.PDF""" MsgBox szCmd oShell.Run szCmd </script> </head> <body> </body> </html> ================================== TIA... Tag: Check info of a crl Tag: 205970
  - 18
    - Check for missing user group in computer account I need to check each of my computer accounts in active directory for a specific user group. If it exists move on to the next computer account, if it is missing add the user group to the computer account and move on to the next computer account. The script needs to be for global groups and not local computer groups. I hope someone can help. Tag: Check info of a crl Tag: 205969
  - 19
    - DSACLS Script to Export Permissions Anyone have a script or link to export permissions for objects using DSACLS? If there is another method that would be great as well. Looking for a method to script out the SELF permissions on all user accounts to find discrepancies. Thanks, James Chong (MVP) Tag: Check info of a crl Tag: 205961
  - 20
    - VBScript BITS Can the Background Intelligent Transfer Service be configured with VBScript? I want to set up a job in a log on script. Tag: Check info of a crl Tag: 205939
  - 21
    - Inventory Script Below is an excellent inventory script I found on www.windowsitpro.com. It works great but I'd like to add three properties. 1. From the Win32_ComputerSystemProduct, the IdentifyingNumber (the computer's serial number) 2. From the Win32_ComputerSystem class, the UserName and the PrimaryOwnerName ( the username on the Computer Systems tab) Can someone please confirm that the following modifications to the script would be correct? 1. Win32_ComputerSystemProduct doesn't exist in the script. So , just before objfile.close, I need to add: strProperties = _ "IdentifyingNumber" QueryInstances "Win32_ComputerSystemProduct",strProperties,"None" 2. And I need to add UserName and PrimaryOwnerName to the Win32_ComputerSystem query like this: strProperties = _ "CreationClassName,Manufacturer,Model,Name,NumberofProcessors," & _ "SystemType,TotalPhysicalMemory,UserName,PrimaryOwnerName" QueryInstances "Win32_ComputerSystem",strProperties,"None" Thanks, Jeremy CODE 'On Error Resume Next directive is specified so that users 'are not bothered by potential operational errors with the script. 'On Error Resume Next 'Using both of these flags of the WbemFlagEnum enumeration 'makes a semisynchronous WMI call. See "Making a Semisynchronous Call" 'in the WMI SDK for more information. Const wbemFlagReturnImmediately = 16 Const wbemFlagForwardOnly = 32 'WbemCimtypeEnum Enumerations used in the script Const wbemCimtypeUint32 = 19 Const wbemCimtypeSint64 = 20 Const wbemCimtypeUint64 = 21 'Formatting and number conversion constants Const HR = "----" Const KB = 1024 Const MB = 1048576 Const GB = 1073741824 'Change this to the UNC path where inventory files should be created 'Anyone running this script must have read and write access to the 'path. strInvFilePath = "\\sea-fs-02\hw\" 'If each user will run this inventory file locally, do not change the value 'of strComputer. strComputer = "." 'Connect to WMI Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 'Determine the OS because not all classes listed here are supported 'on all versions of the Windows operating systems strProperties = "CreationClassName,Version,CSName,Caption" Set objOS = objWMIService.ExecQuery _ ("SELECT " & strProperties & " FROM Win32_OperatingSystem",_ ,wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each Setting in objOS strCreationClass = Setting.CreationClassName intVersion = Setting.Version strCSName = Setting.CSName strCaption = Setting.Caption Next 'Check for a file named after the computer. If it doesn't 'exist, then create a file that contains the computer's 'hardware inventory. Set objFSO = CreateObject("Scripting.FileSystemObject") strFileName = "HrdWrInv_" & strCSName & ".txt" strFullName = objFSO.BuildPath(strInvFilePath, strFileName) If (objFSO.FileExists(strFullName)) Then WScript.Quit Set objFile = objFSO.CreateTextFile(strFullName) 'Write the Operating System name and version but nothing more. 'The goal is to collect hardware inventory, not software inventory 'and configuration information. objFile.WriteLine("OSInformation:") objFile.WriteLine("CreationClassName: " & strCreationClass) objFile.WriteLine("ComputerName: " & strCSName) objFile.WriteLine("Caption: " & strCaption) objFile.WriteLine("Version: " & intVersion) 'The name property is automatically returned (because it's a key value), so 'it's not absolutely necessary to specify it in strProperties strProperties = _ "CreationClassName,Manufacturer,Model,Name,NumberofProcessors," & _ "SystemType,TotalPhysicalMemory" QueryInstances "Win32_ComputerSystem",strProperties,"None" 'Page file information. strProperties = _ "Name,MaximumSize" QueryInstances "Win32_PageFileSetting",strProperties,"None" 'Physical memory information. 'Note, total memory is aggregated and listed with win32_computersystem so there's 'no need to query the memory classes, such as Win32_PhysicalMemoryArray or 'Win32_PhysicalMemory. However, if you need to find out how much memory 'a computer will hold, it's useful to query Win32_PhysicalMemoryArray as 'shown strProperties = _ "MaxCapacity,CreationClassName" QueryInstances "Win32_PhysicalMemoryArray",strProperties,"None" 'SCSI Disk controller information strProperties = _ "Name,Manufacturer,Description,CreationClassName" QueryInstances "Win32_SCSIController",strProperties,"None" 'IDE Disk controller information strProperties = _ "Name,Manufacturer,Description,CreationClassName" QueryInstances "Win32_IDEController",strProperties,"None" 'Phyiscal Media information 'Note, this class is only in XP (ver5) and the Windows 'Server 2003 family (ver5). 'Win98SE reports a version number of 4 (4.10.2222) If Mid(intVersion,1,3) >= 5.1 Then strProperties = _ "SerialNumber,CreationClassName" QueryInstances "Win32_PhysicalMedia",strProperties,"None" End If 'Logical Disk information strProperties = _ "DriveType,Description,DeviceID,CreationClassName" QueryInstances "Win32_LogicalDisk",strProperties,_ "DriveType!=3 AND DriveType !=4" 'Disk drive information strProperties = _ "Caption,Description,DeviceID,InterfaceType," & _ "Manufacturer,MediaType,Model,Partitions,Size,CreationClassName" QueryInstances "Win32_DiskDrive",strProperties,"None" 'Processor information strProperties = _ "Manufacturer,MaxClockSpeed,ExtClock,ProcessorType," & _ "Revision,Version,CreationClassName" QueryInstances "Win32_Processor",strProperties,"None" 'NIC information strProperties = _ "Manufacturer,MACAddress,ProductName,AdapterType,CreationClassName" QueryInstances "Win32_NetworkAdapter",strProperties,_ "AdapterType='Ethernet 802.3' AND ProductName !='Packet Scheduler Miniport'" 'Monitor information strProperties = _ "Description,MonitorType,CreationClassName" QueryInstances "Win32_DesktopMonitor",strProperties,"None" 'Video adapter information strProperties = _ "Name,MaxRefreshRate,AdapterRAM,CreationClassName" QueryInstances "Win32_VideoController",strProperties,"None" 'Motherboard information strProperties = _ "Description,Manufacturer,Product,CreationClassName" QueryInstances "Win32_BaseBoard",strProperties,"None" 'BIOS information strProperties = _ "Manufacturer, Name,SoftwareElementID,SMBIOSBIOSVersion," & _ "SMBIOSMajorVersion,SMBIOSMinorVersion,Version" QueryInstances "Win32_BIOS",strProperties,"None" objFile.Close '*****Subroutines and Functions********* Sub QueryInstances(objClass,Properties,Conditions) If Conditions = "None" Then strSelect = "Select " & Properties & " From " & objClass Else strSelect = "Select " & Properties & " From " & objClass & _ " Where " & Conditions End If Set objClassName = _ objWMIService.ExecQuery _ (strSelect,,wbemFlagReturnImmediately + wbemFlagForwardOnly) intCounter = 0 ' Can use the following to determine the # of items in the sWbemObjectSet but ' it's processor intensive and it means that you can't use a semi-synchronous ' call because the count property doesn't work with wbemFlagForwardOnly. ' WScript.Echo "# of items in collection: " & objClassName.Count For Each objComponent in objClassName If intCounter = 0 Then objFile.WriteLine(HR) objFile.WriteLine(Mid(objClass,7) & ":") End If For Each objProperty in objComponent.Properties_ 'Start by verifying that there's a value in the property. 'If not, it isn't necessary to perform the evaluation in this loop. If ISNull(objProperty.Value) Then objFile.WriteLine(objProperty.Name & ": Not available") Else If objProperty.CIMType <> wbemCimtypeUint32 And _ objProperty.CIMType <> wbemCimtypeUint64 And _ objProperty.CIMType <> wbemCimtypeSint64 Then objFile.WriteLine(objProperty.Name & ": " & _ objProperty.Value & " " & _ GetUnits(objClass,objProperty.Name)) Else strUnits = GetUnits(objClass,objProperty.Name) intValue = _ SizeFormat(objProperty.Name,objProperty.Value,strUnits) objFile.WriteLine(objProperty.Name & ": " & intValue) End If End If intCounter = intCounter + 1 Next If intCounter > 1 Then objFile.WriteLine(HR) Next objFile.WriteLine(HR) objFile.WriteLine() End Sub Function GetUnits(ClassName,ClassProperty) Set objSchemaClass = objWMIService.Get(ClassName) For Each objClassProperty in objSchemaClass.Properties_ If objClassProperty.Name = ClassProperty Then For Each objQualifier in objClassProperty.Qualifiers_ If LCase(objQualifier.Name) = "units" Then GetUnits = LCase(objQualifier.Value) End If Next End If Next End Function Function SizeFormat(PropertyName,RawValue,Units) Select Case LCase(Units) Case "bytes" If int(RawValue/GB) >= 1 Then SizeFormat = Round((RawValue/GB),1) & " gigabyte(s)" ElseIf int(RawValue/MB) >= 1 Then SizeFormat = int(RawValue/MB) & " megabyte(s)" Else SizeFormat = RawValue & " byte(s)" End If Case "kilobytes" If int(RawValue/MB) >= 1 Then SizeFormat = Round((RawValue/MB),1) & " gigabyte(s)" ElseIf int(RawValue/KB) >= 1 Then SizeFormat = int(RawValue/1024) & " megabyte(s)" Else SizeFormat = RawValue & " kilobyte(s)" End If Case Else SizeFormat = RawValue & " " & Units End Select End Function Tag: Check info of a crl Tag: 205927
  - 22
    - Call to VBScript fails Working in an HTA; how can the following code line: <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN> in the code below, be made to call a VBScript sub rather than display a message box? I have already tried many combinations including the obvious: <SPAN onclick="Test" language=vbscript>Menu Item One</SPAN> The full code is below: <HTML> <HEAD> <TITLE>Popup Custom Navigation Menu Sample</TITLE> <SCRIPT LANGUAGE="vbscript"> Set oPopup = window.createPopup Function contextMenu lefter = window.event.offsetX+10 topper = window.event.offsetY+10 oPopup.document.body.innerHTML = oContextHTML.innerHTML oPopup.show lefter, topper, 200, 65, window.document.body window.event.returnValue=false End Function Sub ItemOne </SCRIPT> </HEAD> <BODY oncontextmenu="contextMenu"> <h1>Creating Custom Context Menus with the Popup Object</h1> Right-click anywhere on the document to see a customized popup navigation menu. <DIV ID="oContextHTML" STYLE="display:none;"> <DIV onmouseover=this.style.background="gold" onmouseout=this.style.background="#e4e4e4"> <SPAN onclick=msgbox("xxx") language=vbscript>Menu Item One</SPAN> </DIV> <DIV onmouseover=this.style.background="gold" onmouseout=this.style.background="#e4e4e4"> <SPAN onclick=msgbox("yyy") language="vbscript">Menu Item Two</SPAN> </DIV> </DIV> </BODY> </HTML> Thanks much for your assistance. Tag: Check info of a crl Tag: 205926
  - 23
    - Can a Div take a "Float" position? Could someone please correct my syntax to set a control to float? MyDivID.style.position="float" I get an error using Office 2003; Win XP; and IE 6. Thanks for your assistance. Tag: Check info of a crl Tag: 205922
  - 24
    - Write to the window I need to define a one line area of the window in which to write some text right to the screen; how do I do that and then use a reference to it? For example, I tried: <Div Name="txtArea"></Div> Then tried to write to it: txtArea.Value="Hello" But of course this failed... Your examples would be much appreciated...thanks Tag: Check info of a crl Tag: 205918
  - 25
    - date format problem i need to use datediff to calculate the difference in minutes between Now() and a date returned from a 3rd party object. Now() returns the date as: "5/10/2007 7:15:42 PM" my object returns it as: "Thu, 10 May 2007 19:13:09 -0400" datediff chokes on this. is there any way i can convert that ugly date to one that datediff can use? please say yes and give me an example :( Tag: Check info of a crl Tag: 205915

Hello,
I'm new in the VB script world.
But i need to write a script what checks the serialnumber and date of
the Certificate Revoke List, and when the CRL will be updated.
When i open the crl certificate i can see all those items so i know it
is available.
I think i have to use the CAPICOM dll but i don't know how.
Can some one help me please ?
Or give me a indication how to start?
Thanks

Top

Re: Check info of a crl by OfficeGuyGoesWild

OfficeGuyGoesWild
Fri May 18 03:10:48 CDT 2007

On May 18, 9:16 am, "hdekle...@gmail.com" <hdekle...@gmail.com> wrote:
> Hello,
> I'm new in the VB script world.
> But i need to write a script what checks the serialnumber and date of
> the Certificate Revoke List, and when the CRL will be updated.
> When i open the crl certificate i can see all those items so i know it
> is available.
> I think i have to use the CAPICOM dll but i don't know how.
> Can some one help me please ?
> Or give me a indication how to start?
> Thanks

Hi,

Two resources that might help are:

http://www.thescriptlibrary.com/default.asp?Action=Display&Level=Category3&ScriptLanguage=VBScript&Category1=Security&Category2=Other&Title=Display%20Certificate%20using%20CAPICOM

and CA_monitor.vbs from this download
http://www.microsoft.com/downloads/details.aspx?FamilyId=CDB639B3-010B-47E7-B234-A27CDA291DAD&displaylang=en

Marty
Editor
http://www.TheScriptLibrary.com

Top