=?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?=

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
    - Re: How to make a dynamic file name? I have not WMI installed for testing .. try : Set objNetwork = CreateObject("Wscript.Network") sComputerName = objNetwork.ComputerName Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextfile("c:\" & sComputerName & ".txt", True) 'sComputer = "." ' use . for local computer 'Msgbox sComputer '''''MyFile.Write InstalledApplications(sComputer) MyFile.Write InstalledApplications(sComputerName) MyFile.Close Function InstalledApplications(node) Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE Set oRegistry = _ GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & node & "/root/default:StdRegProv") sBaseKey = _ "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys) For Each sKey In arSubKeys iRC = oRegistry.GetStringValue( _ HKLM, sBaseKey & sKey, "DisplayName", sValue) If iRC <> 0 Then oRegistry.GetStringValue _ HKLM, sBaseKey & sKey, "QuietDisplayName", sValue End If If sValue <> "" Then InstalledApplications = _ InstalledApplications & sValue & vbCrLf End If Next End Function -- Fosco Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188886
  - 2
    - Question regarding shelling out of an HTA to invoke an EXE I have written an HTA program to facilitate the addition and deletion of DNS host records using Microsoft DNS. The hypertext make the program user friendly but the really work is being performed by the imbedded VBScript code and the DNSCMD.EXE program. Currently, the VBScript sets up some oshell.run statements involving the DNDCMD.EXE and the program works fairly well. My question is this..... Is there another commands other than oshell.run or oshell.exec to invoke a command line (non-GUI) program and pipe the output of the program directly back into the HTA? Here's what I want and don't want...... I don't want to have to deal with piping output to temp or permanent files. I want the DNSCMD program to run completely in the background. I want the output of the DNSCMD program to be it's directly accessible to me from memory, not in a file that I would have to read. Any suggestions would be greatly appreciated. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188882
  - 3
    - error when exporting crystal report to pdf using asp I receive this error when trying to export a crystal report to a pdf via an asp page...can anyone help? This worked perfectly on Windows 2000 but we have moved it to a Windows 2003 machine and it doesn't work... Microsoft VBScript runtime error '800a01fb' An exception occurred: 'session(...).Export' Any ideas? Thanks! Amanda Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188881
  - 4
    - IE7. Any word about the affect on vbs. A recent blurb in pcMag says that IE7 is much more secure than IE6 ever was, and the major means by which the "improvements" were achieved was by stifling scripting and actX objects. Further, it went on to say the IE7 would most likely "break" (does that mean render inoperable?) a vast number of websites, and "break" an even vaster number of intRA-net web applications (leading one to presume that intRA-net apps make a greater use of scripting than the public websites). The conclusion was that microsoft was frantically distributing IE7 betas (or release candidates?) so that their customers could reprogram their websites and their internal net-based apps to conform with the requirements of IE7. It is understandable that microsoft would want to stifle scripting, those evil and malicious scripters have been giving everybody agita. However, the customary advice given here to anybody who wishes to have a scripting GUI is to script yourself up a suitable dialog using the automation interface to IE6. So finally, here's the question. Are all those scripts (or hta's) going to be "broken" by IE7 also??? cheers, jw Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188871
  - 5
    - posting here with attachments (follow-up) A couple of weeks ago, there were some postings here related to what was allowed in this ng as far as the size of attachments. I don't know the definitive answer, but I recently tried to post a message with TWO 40kb attachments, and that was rejected by the server (grumble). Then I removed one of the attachments and that one was posted successfully. So a somewhat vague answer would be that (at least) up to a 40kb of attachments is acceptable, but 80kb is not. hope this helps, jw Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188869
  - 6
    - resolve OU current user Hi, Can anyone, please, help me with some code. I'm looking for a VB script to resolve the OU of the current user. This way I want to create the LDAP path of the current logged in user automatically. Anyone some ideas? Best regards, Jerry Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188862
  - 7
    - Error running scripts against W2K3 boxes. In the script below and all other scripts I have that I run against Win2k3 boxes I get an error. The error is: Line: 33 Char: 1 Error: Permission denied:'GetObject' Code: 800A0046 What am I doing wrong. '-------------------------------------------------------------------- ' This script looks for a CSV file in the same directory as this script to. ' pull server names from. '-------------------------------------------------------------------- Dim fsoIn, fsoOut Dim inFile, outFile Dim arrComputerNames Dim objUser Dim strComputer Dim ErrorOccurred Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Const inFilename = "servers.csv" Const outFilename = "STARTTelnet.log" 'On Error Resume Next ErrorOccurred = False ' Open the input file and skip the header line Set fsoIn = CreateObject("scripting.filesystemobject") Set inFile = fsoIn.OpenTextFile(inFilename, ForReading, True) inFile.Skipline While Not inFile.AtEndOfStream arrComputerNames = Split(inFile.Readline, vbTab, -1, 1) ' arrComputerNames(0) contains the computer name strComputer = arrComputerNames(0) '-------------------------------------------------------------------- 'This section sets up the information. '-------------------------------------------------------------------- 'THIS IS LINE 32 the one below is the one I'm havin' trouble with!!! Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\sp1\sp1.exe" , "\\" & strComputer & _ "\c$\SP1\sp1.exe", OverwriteExisting 'Next Wend Wscript.Echo "Done" Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188861
  - 8
    - script for sharedtemplates location I need to move the location of the sharedtemplates to another server and need a script to automate the change for users. I know how to change the location in office and the registry, however, with over 400 workstations spread over 5 locations, a manual process just doesn't seem efficient. Help...Please. :-) Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188859
  - 9
    - Exporting datagrid contents to Excel using ASP.NET Hello, I am attempting to export the contents of a datagrid on my webform (using Excel automation) through ASP.NET. I have added the Excel object library to my VS ASP.NET project but I am lost on how to export my datagrid contents to Excel? I am sure it can be done but having difficulties figuring out the code. Any help would be greatly appreciated. Thanks, Mike Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188858
  - 10
    - redirecting stdout?? hi all, I need to redirect stdout to a file within a VBS script I need to do this because I'm forced to use this SQL-DMO method: http://msdn2.microsoft.com/de-de/library/ms141159(SQL.90).aspx ...which does not allow capturing of its stdout, since the one I need: http://support.microsoft.com/default.aspx?scid=kb;EN-US;q279514 is broken (and has been since 2003). a response would be great! - erick <e@arix.com> p.s. in Ksh this would be so easy... I don't remember the syntax exactly but it would be something like: exec > /tmp/myfile Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188855
  - 11
    - Servers Status Monitor Hi all. I have writern a script which shows the online status of the all servers which i have configured in the database, which includes Disk space, Services status, Anvivirus stastus (Macfee), Processor usage. Like how it synchronises with the server and show the status. Please contact me on srikanth.vemu@gmail.com, whoever wants the script. Regards, Srikanth.V Senior Systems Administrator, HSBC. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188854
  - 12
    - Advice on working script Hi, I would welcome any comments on this script - it works and does what I want it to, but I'm interested if any of the syntax is dodgy. The script it intended to copy a file over from a location to another location, and if the file already exists, check if the user wants to overwrite. Many thanks in advance Script ----- ' Script to copy over the email signature 'get current user, put it in a string Dim strUsername Dim strBoo Dim intResult Const OverwriteExisting = TRUE set strBoo = createobject("WSCRIPT.Network") strUsername=strBoo.Username ' gets currently logged in username Set objFSO = CreateObject("Scripting.FileSystemObject") 'Check for files and prompt user to overwrite if it exists If objFSO.FileExists("C:\Documents and Settings\"&strUsername&"\Application Data\Microsoft\Signatures\sig.txt") Then intResult = MsgBox("You already have the signature files. Do you wish to overwrite?",4,"email signature") if intResult = vbNo then WScript.Quit else MsgBox ("End of script") objFSO.CopyFile "J:\sig.txt", "C:\Documents and Settings\"&strUsername&"\Application Data\Microsoft\Signatures\", OverwriteExisting End If else objFSO.CopyFile "J:\sig.txt", "C:\Documents and Settings\"&strUsername&"\Application Data\Microsoft\Signatures\", OverwriteExisting end if Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188853
  - 13
    - Script for adding/removing local user accounts on servers Hello, I have a need to maintain exact copies of local user accounts between two Win2k3 member servers. I cannot use AD; the accounts must be local. I'm looking for a script that will create/delete user accounts on both servers. In addition, when a PW needs to be updated it will change it on both servers. I'm vbScript "savvy" so I'm looking for a good headstart if someone else is doing something like this already. Thanks! Troy Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188849
  - 14
    - hot to round time to next day, next week or next month? Hi Guys: I have a scheduled task, should be run at every day, or every first day of next week, or every first day of next month (from now). I'm wondering if it's possible that: Given today = March 13, 2006 Then URoundWeek(today) == March 20, 2006 URoundMonth(today) == April 1, 2006 Thanks in advance. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188845
  - 15
    - Folder/Sub-folder contents to a DB Hello all, just wondering if I can can get some help here. My company just purchased an EMR (Electronic Medical Records) system and we need to perform a mass scanning offsite. The vendor is asking us to scan patient files this way. The top folder is the patient account number the sub folders contains the tabs where we want the files to be stored on the EMR database and then inside of these sub-folders we will be scanning all the files. What I need to do is to create a script that can monitor a Hard Drive for all top folders (Account #'s) and all sub-folders and files and store the folder names and file names into a databse for each top folder (account #). Each database entry will need to have the account#, Tabname, filename. Once Everything is scanned and the databse knows the location of all the files we will then give an .csv file to the vendor with all the databse entries plus the hard drive for a complete import to their system. I've looked everywhere to see how can I accomplish this. So basically I will be creating folders manually on the Hard Drive conataining the patients account#, the sub-folders containing the tab names and then inside of the sub folders that's where the scanned files will be. As for my database for the mass scanning it will be an Access or SQL db containing only a table with pt_account,pt_tab,pt_image. Any help would be greatly appreciated. Thanks, Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188840
  - 16
    - how to resolve Microsoft VBScript runtime error '800a0006' Hi all, I'm using the following bit of code to try to convert some date fields to the epoch equivelant, but getting the error: Microsoft VBScript runtime error '800a0006' Overflow: '[number: 1142289086]' /test.asp, line 25 After it hits a certain value. Here's the asp I'm using: <html> <head> <title>Result of Database Query</title> </head> <body> <h1>Result of Database Query - ASP/VBScript</h1> <% set myconn = server.createobject("adodb.connection") connection = "helpdesk" myconn.open (connection) set result = server.createobject("adodb.recordset") result.PageSize = 50 sql = "SELECT id,create_date,lastupdate FROM ooz_tickets" set result = myconn.execute(sql) if not result.EOF then response.write("<p>Data:") response.write("<table border=2><tr><th>ID<th>create_date<th>lastupdate<th>newcd<th>newlu") while not result.EOF response.write("<tr><td>" & result("id")) response.write("<td>" & result("create_date")) response.write("<td>" & result("lastupdate")) oldid = result("id") newcd = DateDiff("s", "01/01/1970 00:00:00", result("create_date")) newlu = DateDiff("s", "01/01/1970 00:00:00", result("lastupdate")) response.write("<td>" & newcd) response.write("<td>" & newlu) result.movenext() wend response.write("</table>") else response.write("<p>No Entry for " & request("place")) end if %> </p> </body> </html> Line 25 is: newcd = DateDiff("s", "01/01/1970 00:00:00", result("create_date")) I'm assuming DateDiff() can't handle numbers greater than some specific value. How can I get around this, or is there a different way to convert the date values to epoch? TIA Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188837
  - 17
    - VBScript grammar for Yacc? Hello, I am looking for a up-to-date VBScript grammar for Lex/Yacc, Flex/Bison or any other free lexer/parser. Any idea where I could find one please? Thank you in advance. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188836
  - 18
    - PopUp from LocalSystem Hi, I have a scheduled task which has to run as LocalSystem. Basically the program allows me to specify "another program" to be ran before the actual program begins (not confusing if you think about it). If the called program's return code is an error, the scheduled task won't start. The idea is to have a message box displayed to the user, and if the user chooses to cancel the operation or if it "times out", then the task won't start. I already did the trivial message box vbscript, which works fine if ran from the same account of course: displays message box, in case times out, and returns 0 or 1.. My "little" problem (and I come here after having searched almost everywhere) is that the message box is not displayed at the user (as the program runs from LocalSystem and not as the user) and therefore it always returns the timeout. Do you have any indication on how to solve this, or even a direction in which to point me? Looking forward to hearing from you soon, Marco Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188835
  - 19
    - Making Startup Script Visible I have created a VBScript that runs interactively/visible as a Windows startup script via Domain Group Policies. My script calls CreateObject("InternetExplorer.Application") to display a form and everything works correctly, but Windows is waiting for the script to finish before displaying the login window. I can run another script and quit the first script to get around this, but anything started by the following means is not interactive/visible, even if it is forced to be visible by all means that I have tried. I can keep the first instance of Internet Explorer open, but is there any way to connect to that instance of Internet Explorer from the second script, or is there another way to start the second script similar to CreateObject? These do not work: Set WshShell = CreateObject("WScript.Shell") WshShell.Run "WSCRIPT.EXE """ & WScript.ScriptFullName & """" & " /Start" 'Set objStartup = objWMIService.Get("Win32_ProcessStartup") Set objConfig = objStartup.SpawnInstance_ objConfig.ShowWindow = 5 objConfig.PriorityClass = NORMAL Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process") ScriptPath = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName) -1) errReturn = objProcess.Create("CSCRIPT.EXE """ & WScript.ScriptFullName & """" & " /Start", null, objConfig, intProcessID) Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("WSCRIPT.EXE """ & WScript.ScriptFullName & """" & " /Start") -- a178235 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188832
  - 20
    - adding user to AD Hello ! I have a small but very anoyning problem. The helpdesk I work for is makeing a mess in the add when creating users. There is allways a problem when there is some new user added to the domian. Sometime there is userhomeshare is wrong, wrong wrights on homeshare server, homeshare on wrong server, wrong loginscript and so on....... I am looking for a good, smart way to let the helpdesk create users. I thought of a script that could make such thing. But I do not know where to start. Do I really need to envent the wheel agin ? Perhaps I am not alone in this world and someone els has made such a script before me. I thought of a script that add a input. The input should be 1 First name 2 Last name 3 networkloginid Then the script would no everything els. Everthing the same. Like what server the user has as homeshare folder. Login script should all be the same. Password set to "password4me" as default to all users created by the script. The user account enabled. Well, do You see my point and do You understand what I am trying to accomplish. Any advice and direction to the correct soloution would make me happy. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188829
  - 21
    - Printer Usage I have a Print Server having more than 400 defined LPR print queues. I know there are many that are no longer needed. I would like to find out when was the printer object last used. For example if a particular queue has not been used for more than an year, I can remove it from my server. Any help would be appreciated. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188825
  - 22
    - How to make a dynamic file name? I have a simple script that does what I want except that it saves the file as a predetermined static name each time it's run. I need to change it so it gets the computer name, adds it to the output and also saves the file as the "computername."txt so each time it runs on a different machine it would be easy to identify which machine it came from without having to manually rename the file. Here is the code: Const OpenAsASCII = 0 ' Opens the file as ASCII (TristateFalse) Const OverwriteIfExist = -1 ' file where result is to be saved sFile = "c:\apps.txt" sComputer = "." ' use . for local computer Set oFSO = CreateObject("Scripting.FileSystemObject") Set fFile = oFSO.CreateTextFile(sFile, _ OverwriteIfExist, OpenAsASCII) fFile.Write InstalledApplications(sComputer) fFile.Close Function InstalledApplications(node) Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE Set oRegistry = _ GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & node & "/root/default:StdRegProv") sBaseKey = _ "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys) For Each sKey In arSubKeys iRC = oRegistry.GetStringValue( _ HKLM, sBaseKey & sKey, "DisplayName", sValue) If iRC <> 0 Then oRegistry.GetStringValue _ HKLM, sBaseKey & sKey, "QuietDisplayName", sValue End If If sValue <> "" Then InstalledApplications = _ InstalledApplications & sValue & vbCrLf End If Next End Function What would need to change so the results are saved as the name of the computer it ran on instead of apps.txt or any other static name?I searched around the Microsoft scripting site and could not find an understandable answer. I found another script there that did a similar software inventory, except it had even worse output. It outputted to pop-up dialog boxes instead a written file. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188823
  - 23
    - Connect to db via VBScript? Is it possible to connect to a MS Access (Mdb) database file from a html page and write some records in the html file using Document.Write(myRec) etc. The db file will be located in the same folder as the html file. Lets say the database is a Telephonelist and I want to be able to read it from a html page located in a shared folder. I suppose you would use ADO and SQL? A very short example would be very much appriciated. Thank you so much in advance. Sincerely Jan PS. I know a little ASP but that is not an option here. Security is not important in this case. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188816
  - 24
    - Enumerate ODBC Data Sources on all computers and write to file I am not a programmer, but in preparation for a SQLnet rollout, we need to poll the computers on our network to determine what ODBC definitions they have. To get ODBC connections, I believe we'd need a means of enumerating the values of these two registry keys: HKEY_LOCAL_MACHINE/SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources HKEY_CURRENT_USER/SOFTWARE/ODBC/ODBC.INI/ODBC Data Sources Is there any way, perhaps with VBScript, to gather this type of information and write it to a file? If you're aware of any code that has been written to accomplish something like this, I'd certainly be most appreciative! Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188814
  - 25
    - Disable local account I created a local user, that I addd to the local admin group. So outside of the local admin account, I've also got another account in the local admin group. Lets call it localA. My question is once the pc is added to the domain, and a person logs in with a domain account, I want to be able to remove the account called localA. How do I script that out? I was thinking of putting a script in the default users startup, that will look for my FQDM and if it detects it, then it will remove the localA account, and delete itself. I just need to know how I can delete that localA account.... the rest I think I can handle Thanks Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188808
- Next
  - 1
    - Can not find the files Hi Alll I got a very strange problem today. I have couple user they saved pst file on the file server. Because outlook2000 can't open pst file over 2GB. So I decide to monitor those pst file on the server. I am using this vbscript to find out the pst file on the server, during the test, I just need the script can report where is the pst file. ********************************************************** strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where extension = 'pst'") For Each objFile in colFiles Wscript.Echo objFile.Name Next ********************************************************** It runs and can't find any pst file. I change pst to mdb or xls, it got a lot result. I rename one of the file to test.abc, and try to search by extension='abc', still nothing. any idea? Thanks Fire Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188807
  - 2
    - ADO and NDS I am using the following script to perform and LDAP query using ADO. The LDAP server is Novell Netware 6 with eDirectory 8.6.2. The query runs below returns all the attrubutes and their values when I use LDP.EXE. The query in the VBScript below finds the object and enters the While loop, but I receive a Type Mismatch error when I try to retrieve the Value property. TypeName tells me the Value property is a Variant() type. VarType tells me the Value property is 8204, which is an array of Varriant Ubound(objUser.Value) tells me there are 0 items in the array Value objUser.Name returns "sn", which is correct. Set cnnLDAP = CreateObject("ADODB.Connection") Set rstLDAP = CreateObject("ADODB.RecordSet") cnnLDAP.Provider = "ADSDSOObject" cnnLDAP.Open Query = _ "<LDAP://192.168.10.11/o=org>;(mail=bburns@ix.netcom.com);sn;subtree" rstLDAP.Open Query, cnnLDAP While Not rstLDAP.EOF set objUser = rstLDAP.Fields.Item(0) wscript.echo TypeName(objUser.Value) wscript.echo Ubound(objUser.Value) wscript.echo VarType(objUser.Value) wscript.echo objUser.Name rstLDAP.MoveNext Wend rstLDAP.Close cnnLDAP.Close Does anyone know why I am getting these results? Could this be an issue with Novell's LDAP server? I have the Novell LDAP service running in Compatibility mode. Do I need a specific option set to retrieve the attributes? Thanks for any help. Brian Burns Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188806
  - 3
    - Converting an array of bytes to a string (VBScript) Hi All, I am trying to store the message id/correlation id from a MSMQ message into a database table but am having trouble doing so as the data type of the message id is of type Variant (array of bytes). In VBScript how can I convert this data type in order to store as a varchar in a SQL Server 2000 db table? When I run the code (from Michael Harris),where sMsgId is the array of bytes for an MSMQ message Id, I get =F2c=B3=8B=AEvG=80O^=F0"=F40=FF back as my character string: ChrString =3D "" NumValues =3D "" HexValues =3D "" comma =3D "" for n =3D 0 to ubound(sMsgId) ChrString =3D ChrString _ & midb(sMsgId,n+1,1) & chrb(0) NumValues =3D NumValues & comma _ & asc(midb(sMsgId,n+1,1) & chrb(0)) HexValues =3D HexValues & comma _ & "0x" & hex(asc(midb(sMsgId,n+1,1) & chrb(0))) comma =3D "," next msgbox "Typename: " & typename(sMsgId) & vbcrlf _ & "Vartype: " & vartype(sMsgId) & vbcrlf _ & "ChrString: " & ChrString & vbcrlf _ & "NumValues: " & NumValues & vbcrlf _ & "HexValues: " & HexValues & vbcrlf ------------------------------------------- I also tried and get the same result: For j =3D 1 To Lenb(sMsgId) sMessageId =3D sMessageId & Chr(AscB(MidB(sMsgId, j))) Next=20 Thanks for any help Patrick Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188799
  - 4
    - prob to take html data from vbscript boucle Hi, I generated a web page with input type checkbox with variable quantity I loaded from vbs and after i wanted to take which case chaecked and apply sub for each one But vbs see my variable like a simple string, is there any solution in vbscript to transform it in object or variable, or is the only solution is to use javascript in html page ? +++++==================================== For intCount = 0 To (intIndexLine -1) Step 1 Set strCase = "Case" & intCount WScript.Echo strCase WScript.Echo "test: " & objIECheckListApp.Document.CheckList.strCase.Checked ' If objIECheckListApp.Document.CheckList.strCase.Checked Then ' WScript.Echo "arrGRemboSrv :" & arrGRemboSrv(intCount) & "arrGHostName :" & arrGHostName(intCount) & "arrGMacAddress :" & arrGMacAddress(intCount) 'Call ResetAutoload(arrGRemboSrv(intCount), arrGHostName(intCount), arrGMacAddress(intCount)) ' End If Next +++++==================================== Arnaud ####RemboPcList rembosrvb5;pcgiger;00-01-aa-bb-cc-dd;30 rembosrvb5;lapgiger;00-01-dd-8d-3e-68;32 rembosrvb5;pcgiger2;00-01-aa-bb-cc-dd;30 rembosrvb5;lapgiger;00-01-dd-8d-3e-68;32 EOF ####RemboResetLog 10/03/2006;19:18:58;;;;;INFO-Script Started 10/03/2006;19:19:59;;;;;INFO-Script Started 10/03/2006;19:22:46;;;;;INFO-Script Started 10/03/2006;19:24:39;;;;;INFO-Script Started 10/03/2006;19:24:39;;;;;ERROR-RemboPcList Wrong Elements number 10/03/2006;19:24:39;;;;;ERROR-RemboPcList Seems Incorrect Elements 10/03/2006;19:28:07;;;;;INFO-Script Started 10/03/2006;19:28:07;;;;;ERROR-RemboPcList Wrong Elements number 10/03/2006;19:28:07;;;;;ERROR-RemboPcList Seems Incorrect Elements 10/03/2006;19:46:56;;;;;INFO-Script Started 10/03/2006;19:46:56;;;;;ERROR-RemboPcList Wrong Elements number 10/03/2006;19:46:56;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;09:24:31;;;;;INFO-Script Started 13/03/2006;09:24:31;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;09:24:31;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;09:38:55;;;;;INFO-Script Started 13/03/2006;09:38:55;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;09:38:55;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;09:48:02;;;;;INFO-Script Started 13/03/2006;09:48:02;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;09:48:02;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;09:53:02;;;;;INFO-Script Started 13/03/2006;09:53:02;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;09:53:02;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:32:54;;;;;INFO-Script Started 13/03/2006;11:32:55;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:32:55;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:38:31;;;;;INFO-Script Started 13/03/2006;11:38:31;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:38:31;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:42:52;;;;;INFO-Script Started 13/03/2006;11:42:52;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:42:52;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:44:32;;;;;INFO-Script Started 13/03/2006;11:44:32;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:44:32;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:45:42;;;;;INFO-Script Started 13/03/2006;11:45:42;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:45:42;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:46:36;;;;;INFO-Script Started 13/03/2006;11:46:36;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:46:36;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;11:51:24;;;;;INFO-Script Started 13/03/2006;11:51:24;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;11:51:24;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:17:39;;;;;INFO-Script Started 13/03/2006;13:17:39;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:17:39;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:18:55;;;;;INFO-Script Started 13/03/2006;13:18:55;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:18:55;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:21:47;;;;;INFO-Script Started 13/03/2006;13:21:47;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:21:47;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:22:00;;;;;INFO-Script Started 13/03/2006;13:22:01;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:22:01;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:24:10;;;;;INFO-Script Started 13/03/2006;13:24:10;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:24:10;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:25:30;;;;;INFO-Script Started 13/03/2006;13:25:30;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:25:30;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:26:45;;;;;INFO-Script Started 13/03/2006;13:26:45;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:26:45;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:28:54;;;;;INFO-Script Started 13/03/2006;13:28:54;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:28:54;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;13:30:40;;;;;INFO-Script Started 13/03/2006;13:30:40;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;13:30:40;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;14:56:58;;;;;INFO-Script Started 13/03/2006;14:56:58;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;14:56:58;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;14:59:58;;;;;INFO-Script Started 13/03/2006;14:59:58;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;14:59:58;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:01:36;;;;;INFO-Script Started 13/03/2006;15:01:36;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:01:36;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:03:11;;;;;INFO-Script Started 13/03/2006;15:03:11;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:03:11;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:06:33;;;;;INFO-Script Started 13/03/2006;15:06:33;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:06:33;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:07:27;;;;;INFO-Script Started 13/03/2006;15:07:27;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:07:27;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:07:38;;;;;INFO-Script Started 13/03/2006;15:07:38;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:07:38;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:08:16;;;;;INFO-Script Started 13/03/2006;15:08:16;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:08:16;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;15:13:09;;;;;INFO-Script Started 13/03/2006;15:13:09;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;15:13:09;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;16:37:51;;;;;INFO-Script Started 13/03/2006;16:37:51;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;16:37:51;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;16:38:14;;;;;INFO-Script Started 13/03/2006;16:38:14;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;16:38:14;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;16:40:00;;;;;INFO-Script Started 13/03/2006;16:40:00;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;16:40:00;;;;;ERROR-RemboPcList Seems Incorrect Elements 13/03/2006;16:48:36;;;;;INFO-Script Started 13/03/2006;16:48:36;;;;;ERROR-RemboPcList Wrong Elements number 13/03/2006;16:48:36;;;;;ERROR-RemboPcList Seems Incorrect Elements ####RemboReset.vbs ' ############################################################################ ' ' ' ' ############################################################################ option Explicit Dim strScriptVersion, strScriptName strScriptVersion = "Last change 07/02/2006" strScriptName = "RemboReset" ' Declaration Section ' for normalization we prefix variable in minus with the type ' obj=instance of objet, str=string, arr=array of data, int=interger.. ' After prefix there is "L" for local variable and G for Global variable Set objSHELL = WScript.CreateObject("WScript.Shell") Set objNET = WScript.CreateObject("WScript.Network") Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objSHELL, objNET, objFSO Dim objLogFile, objIECheckListApp, objIECheckListDoc,objRemboPcList Dim objTextStreamA, objRegExp, objRemboResetLog, objTextStreamB, objMyFile Dim objFileAutoload, objTextStreamC Dim arrCodeDescriptions(8), arrLineA, arrMacAddress, arrDate, arrLineC Dim arrGRemboSrv(100), arrGHostName(100), arrGMacAddress(100), arrGNbDays(100) Dim strCurrentFolder, strResetMode, strTitleWebPage Dim strRemboPcList, strRemboResetLog, strTest, strTmpFolder, strCheckList Dim strLineA, strLineB, strLineC, strMacAddress, strArchiveAutoload, strContents Dim strLRemboSrv, strLHostName, strLMacAddress, strLNbDays, strCase, strMyTd, strRemboPass Dim intInput, intLineMatches, intGLastMatchLine, intCountC, intIndexLine, intCount 'The iomode argument can have any of the following settings Const ForReading = 1 'Open a file for reading only. You can't write to this file. Const ForWriting = 2 'Open a file for writing. Const ForAppending = 8 'Open a file and write to the end of the file. 'The format argument can have any of the following settings Const TristateUseDefault = -2 'Opens the file using the system default. Const TristateTrue = -1 'Opens the file as Unicode. Const TristateFalse = 0 'Opens the file as ASCII. strCurrentFolder = objFSO.GetParentFolderName(WScript.ScriptFullName) strRemboPcList = "RemboPcList.txt" strRemboResetLog = "RemboReset.log" strTitleWebPage = "Pc List can be Reset for reinstall" strTmpFolder = objShell.ExpandEnvironmentStrings("%temp%") strCheckList = "CheckList.html" strRemboPass = "xxxx" arrCodeDescriptions(0) = "ERROR-RemboPcList File Not Found" arrCodeDescriptions(1) = "ERROR-RemboPcList Wrong Elements number" arrCodeDescriptions(2) = "ERROR-RemboPcList Seems Incorrect Elements" arrCodeDescriptions(3) = "ERROR-Netclnt.ini File Not Found for Get" arrCodeDescriptions(4) = "ERROR-Autoload File Not Found" arrCodeDescriptions(5) = "INFO-Autoload Modified" arrCodeDescriptions(6) = "INFO-Script Started" arrCodeDescriptions(7) = "INFO-Script Finished" ' _____________________________________________________ ' Confirm section intInput = MsgBox("Do you really want to lunch ESRF script : " & strScriptName,4,strScriptName) Select Case intInput Case 2 Wscript.Quit Case 7 Wscript.Quit End Select ' _____________________________________________________ ' Verification and cleaning Section If Not objFSO.FileExists(strCurrentFolder & "\RemboReset.log") Then Set objLogFile = objFSO.CreateTextFile(strCurrentFolder & "\RemboReset.log", True) objLogFile.Close End If If Not objFSO.FileExists(strCurrentFolder & "\RemboPcList.txt") Then Call LogEvent("","","","",arrCodeDescriptions(0)) WScript.Quit End If If WScript.Arguments.Count = "1" Then If LCase(WScript.Arguments(0)) = LCase("Now") Then strResetMode = "GUI" Else strResetMode = "Silent" End If Else strResetMode = "Silent" End If ' _____________________________________________________ ' Main Script Section ' Log Execution of the script Call LogEvent("","","","",arrCodeDescriptions(6)) If strResetMode = "GUI" Then Call CleanFile(strTmpFolder & "\" & strCheckList) Set objIECheckListDoc = objFSO.OpenTextFile(strTmpFolder & "\" & strCheckList, ForAppending, True) objIECheckListDoc.Writeline "<HTML>" objIECheckListDoc.WriteLine "<HEAD><TITLE>" & strTitleWebPage & "</TITLE></HEAD" objIECheckListDoc.WriteLine "<BODY bgcolor='#FFFFD2' scroll='yes'>" objIECheckListDoc.WriteLine "<FORM name=""CheckList"">" objIECheckListDoc.WriteLine "<input type=""checkbox"" name=""MyCase"" value=""MyCase"">" objIECheckListDoc.WriteLine "<TABLE name=TableList border=5 cellspacing=""5"" cellpadding=""5"">" objIECheckListDoc.WriteLine "<CAPTION align=left>Pc List to Reinstall :</CAPTION>" objIECheckListDoc.WriteLine "<TR>" objIECheckListDoc.WriteLine " <TD></TD>" objIECheckListDoc.WriteLine " <TD>HostName</TD>" objIECheckListDoc.WriteLine " <TD width=60 height=40>Days for Reboot</TD>" objIECheckListDoc.WriteLine " <TD>Mac Address</TD>" objIECheckListDoc.WriteLine " <TD>Rembo Server</TD>" objIECheckListDoc.WriteLine "</TR>" End If Set objRemboPcList = objFSO.GetFile(strCurrentFolder & "\" & strRemboPcList) Set objTextStreamA = objRemboPcList.OpenAsTextStream(ForReading,TristateUseDefault) intIndexLine = 0 Do While Not objTextStreamA.AtEndOfStream strLineA = objTextStreamA.ReadLine() If CheckLine(strLineA) = "true" Then arrLineA = Split (strLineA, ";") arrGRemboSrv(intIndexLine) = arrLineA(0) arrGHostName(intIndexLine) = arrLineA(1) arrGMacAddress(intIndexLine) = arrLineA(2) arrGNbDays(intIndexLine) = arrLineA(3) If strResetMode = "Silent" Then ' Return last line number where mac address found in ResetLog file intGLastMatchLine = CheckLastReset(arrGMacAddress(intIndexLine)) If intGLastMatchLine = "0" Then ' Start reset Autoload for mac address not write in log file yet Call ResetAutoload(arrGRemboSrv(intIndexLine), arrGHostName(intIndexLine), arrGMacAddress(intIndexLine)) Else ' For Pc already Reseted compare date of log from now date and Number of day Set for reset If CheckDate(intGLastMatchLine, arrGNbDays(intIndexLine)) = "true" Then Call ResetAutoload(arrGRemboSrv(intIndexLine), arrGHostName(intIndexLine), arrGMacAddress(intIndexLine)) End If End If End If If strResetMode = "GUI" Then objIECheckListDoc.WriteLine "<TR>" objIECheckListDoc.WriteLine " <TD name=MyTd" & intIndexLine & "><input type=""checkbox"" name=""case" & intIndexLine & """ value=""case " & intIndexLine & """></TD>" objIECheckListDoc.WriteLine " <TD>" & arrGHostName(intIndexLine) & "</TD>" objIECheckListDoc.WriteLine " <TD align=center>" & arrGNbDays(intIndexLine) & "</TD>" objIECheckListDoc.WriteLine " <TD>" & arrGMacAddress(intIndexLine) & "</TD>" objIECheckListDoc.WriteLine " <TD>" & arrGRemboSrv(intIndexLine) & "</TD>" objIECheckListDoc.WriteLine "</TR>" End If intIndexLine = intIndexLine + 1 End If Loop If strResetMode = "GUI" Then objIECheckListDoc.WriteLine "</TABLE>" objIECheckListDoc.WriteLine "<input type=""button"" name=""Bok"" value=""OK"" >" objIECheckListDoc.WriteLine "<input type=""button"" name=""Bca"" value=""Cancel"" >" objIECheckListDoc.WriteLine "</FORM>" objIECheckListDoc.WriteLine "<script language=""VBScript"">" objIECheckListDoc.WriteLine "" objIECheckListDoc.WriteLine "</script>" objIECheckListDoc.WriteLine "</BODY>" objIECheckListDoc.WriteLine "</HTML>" objIECheckListDoc.Close Set objIECheckListApp = CreateObject("InternetExplorer.Application") With objIECheckListApp .Left = 50 .Top = 100 .Height = 400 .Width = 550 .MenuBar = 0 .ToolBar = 0 .StatusBar = 0 .Resizable = true .Navigate strTmpFolder & "\" & strCheckList .Visible = 2 End With Do While (objIECheckListApp.Busy) WScript.Sleep 200 Loop ' Wait until MSIE is ready and suspend 200ms to lower CPU load On Error Resume Next ' Wait until the user clicks the button Do WScript.Sleep 200 Loop While (objIECheckListApp.Document.Script.CheckVal() = 0) ' The user closes the form without clicking the Ok or Cancel button If Err <> 0 Then Wscript.Echo "Request Form Cancel" objIECheckListApp.Quit Call CleanFile(strTmpFolder & "\" & strCheckList) Wscript.quit end If strTest = objIECheckListApp.Document.Script.CheckVal() If strTest=-1 Then objIECheckListApp.Quit Wscript.Echo "Install Process Cancel" objIECheckListApp.Quit Call CleanFile(strTmpFolder & "\" & strCheckList) Wscript.quit end If WScript.Echo "Reset launch" For intCount = 0 To (intIndexLine -1) Step 1 Set strCase = "Case0" strMyTd = "MyTd" & intCount WScript.Echo strCase WScript.Echo "erere: " & objIECheckListApp.Document.CheckList.strCase.Checked ' If objIECheckListApp.Document.CheckList.strCase.Checked Then ' WScript.Echo "arrGRemboSrv :" & arrGRemboSrv(intCount) & "arrGHostName :" & arrGHostName(intCount) & "arrGMacAddress :" & arrGMacAddress(intCount) 'Call ResetAutoload(arrGRemboSrv(intCount), arrGHostName(intCount), arrGMacAddress(intCount)) ' End If Next objIECheckListApp.Quit Call CleanFile(strTmpFolder & "\" & strCheckList) Wscript.quit End If ' _____________________________________________________ ' Sub Section Sub LogEvent(strLRemboSrv, strLHostName, strLMacAddress, strLNbDays, strLComment) Set objLogFile = objFSO.OpenTextFile (strCurrentFolder & "\" &strRemboResetLog, 8, True, TristateUseDefault) objLogFile.Writeline Date() & ";" & Time() & ";" & strLRemboSrv & ";" & strLHostName & ";" & strLMacAddress & ";" & strLNbDays & ";" & strLComment objLogFile.Close End Sub Sub CleanFile(strFullPathFile) If objFSO.FileExists(strFullPathFile) Then objFSO.DeleteFile(strFullPathFile) End If End Sub Sub ResetAutoload(strLRemboSrv, strLHostName, strLMacAddress) ' Build Mac Address Folder for Rembo arrMacAddress = Split(strLMacAddress, "-") strMacAddress = arrMacAddress(0) & arrMacAddress(1) & arrMacAddress(2) & arrMacAddress(3) & arrMacAddress(4) & arrMacAddress(5) ' Cleanning tmp files if present If objFSO.FileExists(strCurrentFolder & "\netclnt.ini") Then objFSO.DeleteFile(strCurrentFolder & "\netclnt.ini") End If If objFSO.FileExists(strCurrentFolder & "\autoload") Then objFSO.DeleteFile(strCurrentFolder & "\autoload") End If ' Buid NetClnt.ini parameters file for GET Autoload Set objMyFile = objFSO.CreateTextFile(strCurrentFolder & "\netclnt.ini", True) objMyFile.WriteLine("open " & strLRemboSrv & " " & strRemboPass) objMyFile.WriteLine("cd /hosts/" & strMacAddress) objMyFile.WriteLine("get autoload") objMyFile.WriteLine("exit") objMyFile.Close If Not objFSO.FileExists(strCurrentFolder & "\netclnt.ini") Then Call LogEvent(strLRemboSrv,strLHostName,strLMacAddress,strGNbDays,arrCodeDescriptions(3)) Exit Sub End If ' Run Command to Get file objSHELL.Run("%comspec% /K netclnt20.exe netclnt.ini & exit"), 1, TRUE WScript.Sleep 4000 ' Clean tmp netclnt.ini file objFSO.DeleteFile(strCurrentFolder & "\netclnt.ini") ' modification of autoload If objFSO.FileExists(strCurrentFolder & "\autoload") Then ' Backup version of autoload in Local machine folder Hostname-MacAddress If Not objFSO.FolderExists(strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress) Then objFSO.CreateFolder(strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress) End If objFSO.CopyFile strCurrentFolder & "\autoload", strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress & "\" arrDate = Split(Date(), "/") ' Build Achive of Autoload Name with Date xx-xx-xx-autoload strArchiveAutoload = arrDate(0) & "-" & arrDate(1) & "-" & arrDate(2) & "-" & "autoload" ' Achive with random suffixe if already exist If objFSO.FileExists(strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress & "\" & strArchiveAutoload) Then strArchiveAutoload = strArchiveAutoload & "-" & Int(1000*Rnd()) End If ' Rename autoload with his archive Name Set objFileAutoload = objFSO.GetFile(strCurrentFolder & "\" & strLHostName & "-" & strLMacAddress & "\autoload") objFileAutoload.Name = strArchiveAutoload ' Buid Object objFileAutoload with autoload content Set objFileAutoload = objFSO.OpenTextFile(strCurrentFolder & "\autoload", ForReading) strContents = objFileAutoload.ReadAll objFileAutoload.Close ' Replace full line match with true option one strContents = Replace(strContents, "bool Unattended = (bool)""false"";", "bool Unattended = (bool)""true"";") ' Write File with new content Set objFileAutoload = objFSO.OpenTextFile(strCurrentFolder & "\autoload", ForWriting) objFileAutoload.WriteLine strContents objFileAutoload.Close ' Buid NetClnt.ini parameters file for PUT Autoload Set objMyFile = objFSO.CreateTextFile(strCurrentFolder & "\netclnt.ini", True) objMyFile.WriteLine("open " & strLRemboSrv & " " & strRemboPass) objMyFile.WriteLine("cd /hosts/" & strMacAddress) objMyFile.WriteLine("put autoload") objMyFile.WriteLine("exit") objMyFile.Close ' Run Command to Put file objSHELL.Run("%comspec% /K netclnt20.exe netclnt.ini & exit"), 1, TRUE WScript.Sleep 4000 ' Cleanning tmp files if present If objFSO.FileExists(strCurrentFolder & "\netclnt.ini") Then objFSO.DeleteFile(strCurrentFolder & "\netclnt.ini") End If If objFSO.FileExists(strCurrentFolder & "\autoload") Then objFSO.DeleteFile(strCurrentFolder & "\autoload") End If Call LogEvent(strLRemboSrv,strLHostName,strLMacAddress,strGNbDays,arrCodeDescriptions(5)) Else Call LogEvent(strLRemboSrv,strLHostName,strLMacAddress,strGNbDays,arrCodeDescriptions(4)) Exit Sub End If End Sub ' _____________________________________________________ ' Function Section Function CheckLine(strLLine) CheckLine = "true" arrLineA = Split (strLineA, ";") ' ---------------------------- ' Test info from file If LCase(strLineA) = LCase("EOF") Then CheckLine = "false" End If If UBound(arrLineA) <> "3" Then Call LogEvent("","","","",arrCodeDescriptions(1)) CheckLine = "false" End If If Not LCase(Left(strLineA,5)) = LCase("rembo") Then Call LogEvent("","","","",arrCodeDescriptions(2)) CheckLine = "false" End If End Function Function CheckLastReset(strLMacAddress) Set objRegExp = New RegExp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = strLMacAddress intLineMatches = 0 Set objRemboResetLog = objFSO.GetFile(strCurrentFolder & "\" & strRemboResetLog) Set objTextStreamB = objRemboResetLog.OpenAsTextStream(ForReading,TristateUseDefault) Do While Not objTextStreamB.AtEndOfStream strLineB = objTextStreamB.ReadLine() If objRegExp.Test(strLineB) Then intLineMatches = objTextStreamB.Line -1 End If Loop objTextStreamB.Close CheckLastReset = intLineMatches End Function Function CheckDate(intLLastMatchLine, strLNbDays) Set objRemboResetLog = objFSO.GetFile(strCurrentFolder & "\" & strRemboResetLog) Set objTextStreamC = objRemboResetLog.OpenAsTextStream(ForReading,TristateUseDefault) intCountC = 0 Do While Not intCountC = intLLastMatchLine strLineC = objTextStreamC.ReadLine() intCountC = intCountC + 1 Loop arrLineC = Split (strLineC, ";") ' WScript.Echo "arrLineC(0)=" & arrLineC(0) 'Debug Info ' WScript.Echo "NbJrs LastDate=" & Abs(DateDiff("d",Date(),arrLineC(0))) & " - NbJrs=" & Abs(strLNbDays) 'Debug Info If Abs(DateDiff("d",Date(),arrLineC(0))) > Abs(strLNbDays) Then CheckDate = "true" ' WScript.Echo "Date Depasse Modif Activer" 'Debug Info Else CheckDate = "false" ' WScript.Echo "Date Non Depasse Pas de Modif" 'Debug Info End If End Function Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188795
  - 5
    - collect contact information I am not a programmer, only network and systems admin who knows enough to be dangerous. I would like to collect information such as addresses and phone numbers from end users and save the results to a database. I will ultimately import that data into Active Directory. I am using a Kix Script that contains some VB and uses WMI to collect hardware information and save it to a table in an SQL database. I would like to collect information such as addresses and phone numbers from end users and save that to the SQL database as well. Can someone help me with the following. Here is my logic: 1. Detect the username at login and match it to the username field in SQL database. 2. If address and phone number are blank than pop up a form for them to fill out. Clicking OK will save the fields to the database. Also register the date the form was filled out. 3. If address and phone number are NOT blank. Verify if it is older than 90 days. If it's older, pop up the form. if Not, continue through the script. thanks! Brian Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188788
  - 6
    - Script is not working? Hello All, Sorry for the cross post but i realized it was int he wrong forum... Anyway, I seem to be having trouble with this script...In fact it is not working so I would say that is more than a little trouble. I am looking at it and cant figure out why it is not able to run successfully thru GPO but when it runs locally I am able to execute. Any insights? I am trying to use group policy (logon script portion) to copy files into the Documents and Settings\username\Application Data\Microsoft \Word\Startup folder. The actual files which i would like to copy exist on the root drive on the same machine but I have not been successful with the following script ; ON Error Resume Next Dim obj, strUser Set obj = CreateObject("WScript.Network") strUser = obj.UserName Dim strPath strPath = "c:\Documents and Settings\" & strUser & "\Application Data\Microsoft\Word\STARTUP\" Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "c:\Program Files\App1\teris.dot" , "c:\Program Files\App1\teris1.dot" objFSO.MoveFile "c:\Program Files\App1\teris1.dot" , strPath Thanks in advance, Altria Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188781
  - 7
    - Calculations on LARGE numbers Hi, I am trying to do some calculations on large numbers (ie 7,768,489,957,892,578,474,792,094 / 12,280) and no matter what I do it doesn't get it quite right. Its always somewhere between 10 and and 5000 out :( I have a suspition is could be down to one of the number functions I am using along the way but im not sure. Any help or guidance would be greatly appriciated. Thanks in advance Fred Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188780
  - 8
    - Compressed files in VBScripts How to uncompress a compressed file using VBScripts. e.g to check if the file is compressed u use this line(if file.Attributes and 2048): but now I want to change that attribute to zero(uncompressed state)-- Please help urgently Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188779
  - 9
    - How to add machine to Active Directory group? Hello, Can anyone tell me how to add a machine to an Active Directory group through scripting? The machine is a member of th Active Directory allready. I tried NET GROUP xx tt /ADD /DOMAIN, but this doesn't work for machines. I want to start the command from the machine, during update operations. From a batch-file, which runs under an domain administrator account, I cann add the machine to a domaingroup, through which it gets extra rights after a reboot. Windoos Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188778
  - 10
    - Secure connection POST method Dear All, How may I establish an HTTP POST connection to a HTTPS server that is listening on port 443. I'm trying to access open a socket connection throgh Vbscript: But the response returned is : Bad Request Your browser sent a request that this server could not understand. Reason: You're speaking plain HTTP to an SSL-enabled server port. Instead use the HTTPS scheme to access this URL, please. Any help Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188777
  - 11
    - How to find a word in a string? How to find a word, like "successful" in a string???? Thanks!!! Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188774
  - 12
    - VBScript to add many computers to and group Guys help me please. I am still struggling with vbscript. This time I want to add large number of computers from text file to to a domain group. I wanna check if the computer already exist in the group, if not add it to the domain group. So far I have come across adding list of users to group by VB but not computers. I am using windows 2000 domain. Thank you very much you kind people. rgds Eric Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188772
  - 13
    - Output script. Anybody know how to send the actions of a vbscript to a text file like the "spool" command in batch? Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188767
  - 14
    - Help with script I have the below function in my logon script. I call sub scripts based on the gateway of the client. It works great except when a machine has more than one NIC. We have some laptops that have docking stations and the docking stations have a PCI NIC in them. I get the following error on these machines. "Type mismatch: 'oDg.DefaultIpGateway 800A000D VBScript Runtime Error" I am guessing all I need is an entry that tells this function to ignore any NIC that does not have a gateway. Could someone give me hand with such a syntax? I would appreciate it. Ben Function DefaultGateway DefaultGateway = Empty Dim oDG, oDGs, WMI Set WMI = GetObject("winmgmts:\\.\root\cimv2") Set oDGs = WMI.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each oDG in oDGs If Not IsNull (oDG.DefaultIPGateway) And Not oDG.defaultIPGateway(0) = "0.0.0.0" Then DefaultGateway = oDG.DefaultIPGateway(0) Exit For End If Next End Function Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188762
  - 15
    - Login of the current connection I write small HTA utility which requests information from my ISP and shows me the report on the traffic (day, week, month) and account balance. My ISP provides paid and free-of-charge services. The type of the current service (paid or not) can be determined on login of the current connection. Login of the free-of-charge service always contains ":free" substring. I need to determine type of the current service in order to calculate current traffic correctly. How to get a login of the current connection in HTA? Not password, login only! I can see login in the Connection Properties dialog (Dial-up settings), but how to get this string in HTA? Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188759
  - 16
    - Trouble writing script to run as scheduled task I have an application that oddly enough will ONLY run as a scheduled task. The app generates some reports in the background and is generally meant to be run after hours. I can create a scheduled task that runs a command from the command line with the appropriate switches. The problem is that I have almost 80 reports and I really don't want to maintain a scheduled task for each. I'd like to batch the reports together into daily, weekly, & monthly scripts (or by just passing in a reporting period command line switch into a single script). Since this app will not even run from the command line (remember it seems to require that it only run as a task), I can't seem to determine a way to do this. I've tried using a run command for the Wshell object with every conceivable initialization parameter. Does anyone have a suggestion as to how to accomplish this task? I've also tried this with a simple .bat file with the same results - the task will not run. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188751
  - 17
    - Network utilisation Hello! does anyone know a vbscript which could acquire the network utilisation of a specified network connection? Anyone that could help would be good thanks. Kyle.... Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188748
  - 18
    - Dial-up connections How to get list of all available dial-up connections? Under Windows 2000, XP. Thanks. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188744
  - 19
    - Windows Scripting Help file in Italian hi Where can I find help file for windows scripting in Italian? Can only find it in Italian. Thanks Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188742
  - 20
    - Restricting a Program. Hi, Is there any way I can use VBS to restrict a program to run on a client pc....? Like I want my users not to run windows media player. There are some other programs also which will be restricted in future by mgmt. Thanx in Advance. Jaydeep. Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188735
  - 21
    - Bringing system out of standby or waking up the PC with a script (WMI?) Hello, Any ideas on how to bring a computer out of standby via a script? I'm thinking it may be possible with WMI. I think this must be possible since a program like PassMark's Sleeper can do a standby timer; and then bring the PC out of standby. Any ideas? Thanks, Matt Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188722
  - 22
    - Desktop inventory Scripting Question Hello, I work for a small business with 25 remote branches with 100 computers in total. I started working for this company recently and my supervisor has given me the task of maintaining inventory of all these machines. I know that this is possible with WMI Remote scripting. But my question is; is it possible if all of these machines are not in any specific network. i.e. this company does not have a client-server environment. They are all just standalone machines connected to the internet. So, how do i go about doing this? Thanks, Gunnu Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188721
  - 23
    - RegExp and special characters I found a perfect application for the RegExp replace method, removing a varying string of dots following a table entry. (March Madness is upon us.) Duke................ North Carolina...... Boston College...... NC State............ However, setting a RegExp "pattern" property to ".+" and running the "replace" method won't work because the dot is also a control character for the method. How do I work around this? -- Crash "There is nothing more exhilarating than to be shot at without result." ~ Winston Churchill ~ Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188720
  - 24
    - WMI Changing subnet mask on multiple comp Thanks for reading this posting. I have a script that reads a text file and calls a function to modify its subnet mask. Script works fine except sometimes it works and sometimes it gives me an error as "remote procedure call failed" Code: 800706BE I belive it has something to do with Dcom time outs. i have manually added a line to sleep for a while but still my script crashes. Any help is well appreciated. Rick. SUB Fixsubmask(inputstr) strComputer = inputstr Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where Ipenabled = true") strSubnetMask = Array("255.255.254.0") For Each objNetAdapter In colNetAdapters msgbox objNetAdapter.Caption If Not IsNull(objNetAdapter.IPAddress) Then For Each sIP In objNetAdapter.IPAddress msgbox sIP aIP = array(cStr(sIP)) msgbox aIP(0) Next End If errEnable = objNetAdapter.EnableStatic(aIP, strSubnetMask) WScript.Sleep 21000 Next End Sub Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188710
  - 25
    - Is vbscript similar to msbasic? I have briefly looked at vbscript and it looks very much like msbasic. Is there a close similarity? Tag: =?utf-8?B?SUlT5pyN5Yqh5Zmo5aSH5Lu96L2s56e76Kej5Yaz5pa55qGI?= Tag: 188706

5LiA5Liq5pyI5Lul5p2l55qE5b+D6KGA5ZWKCklJU+acjeWKoeWZqOWkh+S7vei9rOenu+ino+WG
s+aWueahiCjkuIApCmh0dHA6Ly93d3cuY3VibG9nLmNuL3UvMzA1Mi8/dT1odHRwOi8vd3d3LmN1
YmxvZy5jbi91LzMwNTIvc2hvd2FydC5waHA/aWQ9Nzk0NzcKSUlT5pyN5Yqh5Zmo5aSH5Lu96L2s
56e76Kej5Yaz5pa55qGIKOS6jCkKaHR0cDovL3d3dy5jdWJsb2cuY24vdS8zMDUyLz91PWh0dHA6
Ly93d3cuY3VibG9nLmNuL3UvMzA1Mi9zaG93YXJ0LnBocD9pZD03NTY4Nwo=

Top