vbscript

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
    - Best way to read registry of remote computer silently Hi, We have a screen recording application in use which upon installation puts an entry into the registry called clientid which basically contains the PC name. It then records the screen, and supervisors can later on view the recordings (Held centrally on the server) by computer name. However we have run into the situation where some PC's have been ghosted, so the clientid has been duplicated, and also the situation where some PC's do not seem to even have the client on at all. I am looking to write a vbscript to basically sort this out. I have a list of the machines to go through but am unsure how I should do this. These PC's are in use 24/7 so anything I do must be done silently... I attempted to write a vbscript to use the regread functionality, however this throws an error if the key is not present (Which is the case if the client is not installed)? Also I am not entirely sure what is the best method of actually getting the script to run, I was considering using psexec, but I believe this does not transmit credentials securely, so was wondering if I could do the following in vbscript. Loop to read the text file until eof assign the current line to strComputer connect to strComputer read registry to find key value if value exists append value onto anonymous writable document on network share else if value does not exist append NULL and strComputer onto document How exactly could I go about this? Tag: vbscript Tag: 217538
  - 2
    - Vbscript to scrape webpage Is it possible to have a VBScript open a webpage and look for specific words on the returned HTML? This would have to be able to run as an automated script launched through Scheduled Tasks. Any ideas would be helpful. Tag: vbscript Tag: 217529
  - 3
    - Book for someone who has never programmed before Hello, I need to train one of my co-workers to help me with writing logon and other scripts. He has never done any programming at all. I'm trying to find a good true beginners book, but the only ones I can find for beginners is for web sites. I did a search on here, but the books recommended assume the reader has programming experience. Can anyone recommend a good book for someone who has never done any programming or scripting before? Thanks, Joe Tag: vbscript Tag: 217527
  - 4
    - Large WMI notification query may cause a quota violation Hi, I am querying the Security Event log for all events, and the event log is 128MB in size. I am writing every event to a text file as it is being read from the Security event viewer. The process executes for a number of minutes until the text file reaches about 51MB, then I get the following Windows Script Host error on my Windows Server 2003 sp2 machine: Line: 181 Char: 2 Error: 0x8004106C Code: 8004106C Source: (null) I saw KB 828653 "Large WMI notification query may cause a quota violation", but found that since I had sp2 installed the properties for the Esscli.dll file on this server vs. that listed in the KB article 828653, the server version is newer. The server version of Esscli.dll is: version 5.2.3790.3959 (Srv03_Sp2_rtm.070216-1710). I called Microsoft on this and they told me that the hotfix didn't apply and that I'd have to pay $259 to get help with this. I can't justify that cost given the error is exactly what should have been fixed and is known by Microsoft, so i'm left on my own. Can anyone please help me?? The line (181) of code that is pointed to in the failure is the last line (Next) below. Code: ' Overwrite/create the Eventlog.txt Set strFile = objFSO.CreateTextFile(strPath, True) strFile.WriteLine(strLogName & "event log exported for " _ & objComputer & " on: " & Now()) & vbcrlf '--------------------------------------------------------------------- ' Connect to, and query WMI for Event Viewer Set objWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Security)}!\\" _ & strComputer & "\root\cimv2") Set colLoggedEvents = objWMI.ExecQuery _ ("Select * from Win32_NTLogEvent Where Logfile = " & strEventLog) ' -------------------------------------------------------------------- ' Enumerate/filter event properties and write them to the Eventlog.txt bOverNinetyDays = False EventCount = 0 NewEventCount = 0 For Each objItem in colLoggedEvents dtmTimeGenerated = dtmStringToDate(objItem.TimeGenerated) If CompareDates(dtmNinetyDaysAgo, dtmTimeGenerated) < 0 Then bOverNinetyDays = True End If If CompareDates(dtmYoungest, dtmTimeGenerated) > 0 Then strFile.WriteLine("Type: " & objItem.Type) strFile.WriteLine("Date/Time: " & dtmTimeGenerated) strFile.WriteLine("Source: " & objItem.SourceName) strFile.WriteLine("Event ID: " & objItem.EventCode) strFile.WriteLine("Computer: " & objItem.ComputerName) strFile.WriteLine("User: " & objItem.User) strFile.WriteLine("Category: " & objItem.CategoryString) strFile.WriteLine("Description: " & objItem.Message) strFile.WriteLine (" ") EventCount = EventCount + 1 End If If EventCount >= EventLimit Then Exit For End If Next Can you please assist me with this issue? Thanks, Jake Tag: vbscript Tag: 217526
  - 5
    - VolumeName Hallo NG, wie kann ich im FSO den VolumeName ändern? Ich möchte per script Netzlaufwerke verbinden und danach die Namen ändern, weil der Text so lang ist (Freigabename auf Servername). Danke für die Hilfe Gruß Jörg Hello NG, how can i change with FSO the VolumeName? Plz help. Thx Jörg Tag: vbscript Tag: 217519
  - 6
    - saving data in a file This is a multi-part message in MIME format. ------=_NextPart_000_0015_01C8AB71.C810D6A0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, I am developing an application that contains a html form. with a submit = button and some text box.=20 I want to save the data written in text box to a file. (if possible an = Excel file ). Is it possible with vbscript. Regards, Bhuwan ------=_NextPart_000_0015_01C8AB71.C810D6A0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.3314" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DVerdana color=3D#0000ff size=3D2>Hi, <DIV> </DIV> <DIV>I am developing an application that contains a html form. with a = submit=20 button and some text box. </DIV> <DIV> </DIV> <DIV>I want to save the data written in text box to a file. (if = possible an=20 Excel file ). Is it possible with vbscript.</DIV> <DIV> </DIV> <DIV>Regards,<BR>Bhuwan</DIV></FONT></DIV></BODY></HTML> ------=_NextPart_000_0015_01C8AB71.C810D6A0-- Tag: vbscript Tag: 217517
  - 7
    - saving data in a file. This is a multi-part message in MIME format. ------=_NextPart_000_0006_01C8AB71.333C1990 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable =20 Hi, I am developing an application that contains a html form. with a submit = button and some text box.=20 I want to save the data written in text box to a file. (if possible an = Excel file ). Is it possible with vbscript. Regards, Bhuwan ------=_NextPart_000_0006_01C8AB71.333C1990 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.3314" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DVerdana color=3D#0000ff size=3D2> <BR>Hi,</DIV> <DIV> </DIV> <DIV>I am developing an application that contains a html form. with a = submit=20 button and some text box. </DIV> <DIV> </DIV> <DIV>I want to save the data written in text box to a file. (if = possible an=20 Excel file ). Is it possible with vbscript.</DIV> <DIV> </DIV> <DIV>Regards,<BR>Bhuwan</FONT></DIV></BODY></HTML> ------=_NextPart_000_0006_01C8AB71.333C1990-- Tag: vbscript Tag: 217516
  - 8
    - Printer logon script doesn't work with Vista Domain/AD environment where dcs are Win2k3 and print server is Win 2000 Server. The following logon script is used to map HP Laserjet 4200/4250 printers: Set WshNetwork = CreateObject("WScript.Network") Set WshShell = CreateObject("WScript.Shell") WshNetwork.AddWindowsPrinterConnection \\printserver\printername This works fine on all our XP clients but not on our Vista clients, even though the printers have been configured with vista drivers on the print server. When logging on to a Vista client, the printers are not installed and the following message is displayed: "To use the shared printer \\printserver\printername, you need to install the printer driver on your computer. If you do not recognize or trust the name and location of the printer, do not install the driver." The user then has the option to Install the driver, but it requires administrative access to do so (our users are not admins). Any suggestions? Tag: vbscript Tag: 217513
  - 9
    - How to extend Timeout for WScripts? I've downloaded MS WMI Code Creator 1.0 and used it on a few occasions with considerable pleasure. One problem I cannot seem to solve is to extend the timeot for script runs. After about 30 seconds or so the script runs are terminated with an error message for some more complicated scripts. The word complicated means not the number of statements but apparently the functions they try to execute like accessing kernel, etc. How can I set this parameter to a longer value? I think I saw somehwere a statement for timeout that can be inserted directly into the scripts but now cannot recall. Also manually inserting this statement in every script that is generated may not be a good idea. I run Vista Ultimate 32 bits. Thanks -- AlexB Tag: vbscript Tag: 217504
  - 10
    - HTA - Refresh No sure if this is the right forum. but I hope someone can help - I've been searching for an answer for days - and I bet it's something simple I have over looked. That said: I have written a simple HTA script that iterates through parsing a text file by line, incrementing a Progress Bar. But because of the long process the background disappears if anything overlaps it, and a text <div> is not updated. How do I refresh (repaint) the HTA. NB: The ProgressBar is "of Object" - and not affected: <object classid="clsid:35053A22-8589-11D1-B16A-00C0F0283628" id="ProgressBar1" height="20" width="400"> Thank you for any help, and reading through a long winded request. Tag: vbscript Tag: 217501
  - 11
    - Parsing email messages Hello, Originally I posted this to the Windows Server Scripting and then saw that it may be more appropriate for here. I would like to be able to parse through some email in Exchange and update a database accordingly. It does not necesarily have to interface directly with Exchange, it may simply work with Outlook (we're using 2003). I understand that this might be accomplished with a VBA macro or some other script. Could anyone provide me with some advice? Is there an existing macro or script that I can utilize? Any help would be greatly appreciated. Thanks, Aaron Tag: vbscript Tag: 217496
  - 12
    - Casio CHRONOGRAPH Series July 2007 Model Edifice (Men's Watch) - Casio CHRONOGRAPH Series July 2007 Model Edifice (Men's Watch) - Cheapest Watch Casio CHRONOGRAPH Series July 2007 Model Edifice (Men's Watch) Link : http://www.watchesprice.net/Casio-CHRONOGRAPH-Series-July-2007-Model-Edifice-Mens-Watch-3771.html Cheap Watches Home : http://www.watchesprice.net/ Lower Price Casio General Brands : http://www.watchesprice.net/Casio-General-Watches.html Casio CHRONOGRAPH Series July 2007 Model Edifice (Men's Watch) --- one of best selling watches, it is crafted in high quality Watches. Casio CHRONOGRAPH Series July 2007 Model Edifice (Men's Watch) Description: Casio Collection: Edifice CHRONOGRAPH Series July 2007 Model Watch . Size of case / total weight: EFA-123D 42.1 x 41.3 x 11.7 mm / 146 g. World Time: 29 time zones (48 cities), city code display, daylight saving on/off. Regular timekeeping. LED light. Hourly time signal. Daily alarms. Button operation tone on/off. 1/100-second stopwatch. Battery Life: 2 YRS. Battery Type: SR726WX2. Accuracy per month: ±30 sec. Case: Stainless steel. # EFA-123D-1AV (Men's Watch) #. Casio CHRONOGRAPH Series July 2007 Model Edifice (Men's Watch) Details: Watches-Price Sales Rank: #21451 in Watches Brand: Casio _Collection Movement type: Quartz The Same Casio General Series : Casio Men's Analog-Digital Chronograph Alarm with World Time Zone Watch Model EFA-124D-2AV : http://www.watchesprice.net/Casio-Mens-Analog-Digital-Chronograph-Alarm-with-World-Time-Zone-Watch-Model-EFA-124D-2AV-3772.html Casio Men's CHRONOGRAPH Edifice Watch : http://www.watchesprice.net/Casio-Mens-CHRONOGRAPH-Edifice-Watch-3773.html Casio Men's Edifice Stainless Steel Chronograph Watch Model EF-513D-1AV : http://www.watchesprice.net/Casio-Mens-Edifice-Stainless-Steel-Chronograph-Watch-Model-EF-513D-1AV-3774.html Casio Collection Men's CHRONOGRAPH Series June 2007 Model Edifice Watch : http://www.watchesprice.net/Casio-Collection-Mens-CHRONOGRAPH-Series-June-2007-Model-Edifice-Watch-3775.html Casio CHRONOGRAPH Series July 2007 Model Edifice (Men's Watch) : http://www.watchesprice.net/Casio-CHRONOGRAPH-Series-July-2007-Model-Edifice-Mens-Watch-3776.html Casio Collection Men's ChronoGraph Retrograde Series EDIFICE Watch : http://www.watchesprice.net/Casio-Collection-Mens-ChronoGraph-Retrograde-Series-EDIFICE-Watch-3777.html Casio Active Dial Series EDIFICE (Men's Watch) : http://www.watchesprice.net/Casio-Active-Dial-Series-EDIFICE-Mens-Watch-3778.html Casio Collection Men's 1/20-second Chronograph Series Edifice Watch : http://www.watchesprice.net/Casio-Collection-Mens-1-20-second-Chronograph-Series-Edifice-Watch-3779.html Tag: vbscript Tag: 217493
  - 13
    - New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Watch BW0080-50L - Cheapest Watch New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Watch BW0080-50L Link : http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Blue-Dial-Stainless-Steel-Rectangular-Watch-BW0080-50L-5736.html Cheap Watches Home : http://www.watchesprice.net/ Lower Price Citizen Brands : http://www.watchesprice.net/Citizen-Watches.html New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Watch BW0080-50L --- one of best selling watches, it is crafted in high quality Watches. New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Watch BW0080-50L Description: DETAILS: Eco-Drive solar powered(No Batteries to Change) - solid stainless steel case and bracelet - 180 day power reserve - charges in sunlight or indoors - date display at 3 o'clock - scratch resistant mineral crystal - silver-tone hands and roman numeral markers - deployment buckle with push button - low charge indicator - time reset advisory - case size: 28 * 30mm - 30 meters water resistant. New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Watch BW0080-50L Details: Watches-Price Sales Rank: #69542 in Watches Brand: Citizen Band material: solid stainless steel Case material: solid stainless steel Clasp type: deployment clasp with push button Dial color: Blue Movement type: Quartz Water-resistant to 30 meters The Same Citizen Series : New Men's Citizen Eco-Drive Cortina Black Dial 2-Tone Watch BW8194-50 : http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Cortina-Black-Dial-2-Tone-Watch-BW8194-50-5737.html New Men's Citizen Eco-drive Elektra Navy Dial Stainless Steel Watch BL0090-63M : http://www.watchesprice.net/New-Mens-Citizen-Eco-drive-Elektra-Navy-Dial-Stainless-Steel-Watch-BL0090-63M-5738.html New Men's Citizen Eco-Drive Elektra White Dial Stainless Steel Watch BL0090-71B : http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Elektra-White-Dial-Stainless-Steel-Watch-BL0090-71B-5739.html New Men's Citizen Eco-Drive Ivory Dial Magnified Date 2-Tone Watch BM0744-54P : http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Ivory-Dial-Magnified-Date-2-Tone-Watch-BM0744-54P-5740.html New Men's Citizen Eco-Drive Riva Black Linen Dial Date Watch BM0910-57E : http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Riva-Black-Linen-Dial-Date-Watch-BM0910-57E-5741.html Sector 3253212115 : http://www.watchesprice.net/Sector-3253212115-5742.html Yes N200 : http://www.watchesprice.net/Yes-N200-5743.html Yes N201 : http://www.watchesprice.net/Yes-N201-5744.html Tag: vbscript Tag: 217492
  - 14
    - Buring DVD Failure, Cont... I am reposting this because of a concern that it won't be read as a part of another thread which is already a few days down the line. Alex, I appreciate your help and information very much. Further developments: I sussessfully burned that iso image with Nero 7 on the rig with 4GBs but then I decided out of curiosity to repeat it with the script. The burning failed. It seems I got a completely prestine, empty disk. In the task amnager I observer memory usage mounting slightly over 2Gbs but not as much as 2.65 Gbs that could be expected from the source iso file. I suspect there is another issue involved. Perhaps WMI cannot handle such big files no matter what. Nero 7 employed buffering which was evident from the fact that the memory usage never exceeded 800 Mbs as was apparent from a progress bar at the bottom. on this superfast quad it took about 3 min. Thus I've decided to close the issue as far as such huge files are concerned. I dont do any pictures or music. Data files is my only need. I am wondering if you have any experience in handling iso files via any .NET classes or even scripts. I do have Winimage.exe installed and it opened the disk file momentarily and displayed the tree directory but I want to examine other options. I've been looking for a chance to get a handle on iso files one way or another. Perhjaps you know of a web site where the complete file format is described in detail, metadata including. Many thanks. -- AlexB -- AlexB Tag: vbscript Tag: 217485
  - 15
    - MapNetworkDrive not working during first logon Greetings All, I am having a problem with mapping network drives the very first time a user logs onto a computer while their profile is being created. For some reason, during the very first interactive logon when a new user logs onto a PC they do not get their network drives. Other parts of the logon script (vbscript) appear to be working correctly. I can test for group memberhip, display a pop-up message, write to a log file etc. just not map a drive. If I manually run the logon script again once the desktop is up then all of the drives map correctly and every time after that first logon the drives get mapped properly. I have tried explicitly specifying the value for bUpdateProfile instead of relying on the default, which should be false, as indicated here: http://msdn2.microsoft.com/en-us/library/8kst88h6(VS.85).aspx I have tried enabling userenv logs but I don't really know what to look for and I nothing jumped out as an obvious error. My environment is a Windows 2003 native mode domain, Windows XP Pro with SP2 on the destktops and the logon script is a vbscript that is specified on the Profile tab of the user account in active directory users and computers. Any thoughts or suggestions would be appreciated. Work arounds would be ok too. Perhaps if there is a way for the logon script to detect that a new profile is being created then I can take some other actions. Thanks in advance, Greg Brown Tag: vbscript Tag: 217480
  - 16
    - Need a script to compare two files This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C8A9F3.D5EC7650 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hello, I am looking for a script to compare two files. Scan second file using the words from first file.=20 Extract the line that matches the word from second file I have a sample script that matches but I don't know how to extract the = line File1: tom peter joseph File2: 192.168.0.0, this is sql users, tom, testmachine 192.168.1.2, this is mysql users, john, testmachine2 192.168.0.0, this is sql users, joseph, testmachine5 192.168.0.0, this is sql users, maria, testmachine6 192.168.0.0, this is sql users, donald, testmachine7 Output: 192.168.0.0, this is sql users, tom, testmachine 192.168.0.0, this is sql users, joseph, testmachine5 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Here is the sample code: Const ForReading =3D 1 Set objFSO =3D CreateObject("Scripting.FileSystemObject") Set objFile1 =3D objFSO.OpenTextFile("C:\Audit\User_Info.txt", = ForReading) strAddresses =3D objFile1.ReadAll objFile1.Close Set objFile2 =3D objFSO.OpenTextFile("C:\Audit\User_First_Name.txt", = ForReading) Do Until objFile2.AtEndOfStream strCurrent =3D objFile2.ReadLine If InStr(strAddresses, strCurrent) <> 0 Then strNoAddress =3D strNoAddress & strCurrent & vbCrLf End If Loop objFile2.Close Wscript.Echo "Devices with no address: " & vbCrLf & strNoAddress Set objFile3 =3D objFSO.CreateTextFile("C:\Audit\User_New_Info.txt") objFile3.WriteLine strNoAddress objFile3.Close ------=_NextPart_000_0008_01C8A9F3.D5EC7650 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.3790.3959" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3D"Arial Narrow" size=3D2>Hello,</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2></FONT> </DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>I am looking for a script to = compare two=20 files.</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>Scan second file using = the words from=20 first file. </FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>Extract the line that matches = the word=20 from second file</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2></FONT> </DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>I have a sample script that = matches but I=20 don't know how to extract the line</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2></FONT> </DIV> <DIV><FONT face=3D"Arial Narrow" = size=3D2><STRONG>File1:</STRONG></FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>tom</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>peter</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>joseph</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2></FONT> </DIV> <DIV><FONT face=3D"Arial Narrow" = size=3D2><STRONG>File2:</STRONG></FONT></DIV> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users, tom,=20 testmachine</FONT></DIV> <DIV> <DIV><FONT face=3DArial size=3D2>192.168.1.2, this is mysql users, john, = testmachine2</FONT></DIV> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users, joseph, = testmachine5</FONT></DIV> <DIV> <DIV> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users, maria,=20 testmachine6</FONT></DIV> <DIV><FONT face=3DArial size=3D2> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users, donald, = testmachine7</FONT></DIV></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><STRONG>Output:</STRONG></FONT></DIV> <DIV><FONT face=3DArial size=3D2> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users,=20 <STRONG>tom</STRONG>, testmachine</FONT></DIV> <DIV> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users,=20 <STRONG>joseph</STRONG>, testmachine5</FONT></DIV> <DIV> </DIV> <DIV>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++</DIV> <DIV>Here is the sample code:</DIV> <DIV>Const ForReading =3D 1</DIV> <DIV> </DIV> <DIV>Set objFSO =3D CreateObject("Scripting.FileSystemObject")<BR>Set = objFile1 =3D=20 objFSO.OpenTextFile("C:\Audit\User_Info.txt", ForReading)</DIV> <DIV> </DIV> <DIV>strAddresses =3D objFile1.ReadAll<BR>objFile1.Close</DIV> <DIV> </DIV> <DIV>Set objFile2 =3D = objFSO.OpenTextFile("C:\Audit\User_First_Name.txt",=20 ForReading)</DIV> <DIV> </DIV> <DIV>Do Until objFile2.AtEndOfStream<BR>    strCurrent = =3D=20 objFile2.ReadLine<BR>    If InStr(strAddresses, = strCurrent)=20 <> 0 Then<BR>        = strNoAddress =3D=20 strNoAddress & strCurrent & vbCrLf<BR>    End=20 If<BR>Loop</DIV> <DIV> </DIV> <DIV>objFile2.Close</DIV> <DIV> </DIV> <DIV>Wscript.Echo "Devices with no address: " & vbCrLf &=20 strNoAddress</DIV> <DIV> </DIV> <DIV>Set objFile3 =3D = objFSO.CreateTextFile("C:\Audit\User_New_Info.txt")</DIV> <DIV> </DIV> <DIV>objFile3.WriteLine=20 strNoAddress<BR>objFile3.Close</DIV></DIV></FONT></DIV></DIV></DIV></DIV>= </BODY></HTML> ------=_NextPart_000_0008_01C8A9F3.D5EC7650-- Tag: vbscript Tag: 217471
  - 17
    - Re: Spam Pegasus (MVP) wrote: > References: <#YYHW8cqIHA.3508@TK2MSFTNGP03.phx.gbl> by creating a thread, you MAKE IT HARDER for the people who are supposed to be doing the spam removal. KNOCK IT OFF. Bob Classic VB MVP and professional spam fighter -- Tag: vbscript Tag: 217469
  - 18
    - Logon Scripts for Dept. and Printers based on Groups and IP I have a script that was put together by a several different scripts and some reading I have done on scripting. Anyhow, I=92ve attached a script located below that will map department shares based on the users active directory group membership and connected printer(s) based on their IP address. The script works well until the IP address part. If anyone can help, that would be great. Feel free to modify it in any way that would make the script better! Thanks=85. '***************************************************************************= ********* ' Title: Logon Script ' Author: MikeTir ' Date: 4/23/08 ' This is a logon script used to map department shares, and printers. '***************************************************************************= ********* '***************************************************************************= ********* 'This section tells the script to ignore any errors. 'No errors will be displayed on the users computer '***************************************************************************= ********* On Error Resume Next '***************************************************************************= ********* 'This section declares the variables '***************************************************************************= ********* Dim objNetwork Dim strUNCPrinter1, strUNCPrinter2, strUNCPrinter3, strUNCPrinter4, strUNCPrinter5 Dim strUNCPrinter6, strUNCPrinter7, strUNCPrinter8, strUNCPrinter9, strUNCPrinter10 Dim strUNCPrinter11, strUNCPrinter12, strUNCPrinter13, strUNCPrinter14, strUNCPrinter15 Dim strUNCPrinter16, strUNCPrinter17, strUNCPrinter18, strUNCPrinter19, strUNCPrinter20 Dim strUNCPrinter21, strUNCPrinter22, strUNCPrinter23, strUNCPrinter24, strUNCPrinter25 Dim strUNCPrinter26, strUNCPrinter27 Dim CheckDrive Dim AlreadyConnected Dim intDrive Dim objUser, objAdapter, colAdapters, MyArray, objWMIService '***************************************************************************= ********* 'This section will determines the person logging into Active Directory '***************************************************************************= ********* Set objSysInfo =3D CreateObject("ADSystemInfo") Set objNetwork =3D CreateObject("Wscript.Network") strUserPath =3D "LDAP://" & objSysInfo.UserName Set objUser =3D GetObject(strUserPath) '***************************************************************************= ********* 'This section maps the variables to the printers '***************************************************************************= ********* strUNCPrinter1 =3D "\\printserver\7thColorMFP" strUNCPrinter2 =3D "\\printserver\7thMail" strUNCPrinter3 =3D "\\printserver\9thAnalytics" strUNCPrinter4 =3D "\\\printserver\9thAnalytics_old" strUNCPrinter5 =3D "\\printserver\9thColor" strUNCPrinter6 =3D "\\printserver\9thHRMFP" strUNCPrinter7 =3D "\\printserver\9thMail" strUNCPrinter8 =3D "\\printserver\10thDevMFP" strUNCPrinter9 =3D "\\printserver\10thSecurity" strUNCPrinter10 =3D "\\printserver\ACCTPRINT" strUNCPrinter11 =3D "\\printserver\BHodge" strUNCPrinter12 =3D "\\printserver\BUSDEV" strUNCPrinter13 =3D "\\printserver\CEO Print" strUNCPrinter14 =3D "\\printserver\CLientAdmin" strUNCPrinter15 =3D "\\printserver\CLIENTPRT" strUNCPrinter16 =3D "\\printserver\CONTRACT" strUNCPrinter17 =3D "\\printserver\CONTRACTS MFP" strUNCPrinter18 =3D "\\printserver\COPYROOM" strUNCPrinter19 =3D "\\printserver\DEVPRINT" strUNCPrinter20 =3D "\\printserver\DevPrint2" strUNCPrinter21 =3D "\\printserver\FrontDesk" strUNCPrinter22 =3D "\\printserver\HR_Printer_1" strUNCPrinter23 =3D "\\printserver\IT_Print" strUNCPrinter24 =3D "\\printserver\MarketCLR" strUNCPrinter25 =3D "\\printserver\PLOTTER" strUNCPrinter26 =3D "\\printserver\PROJECTPRT" strUNCPrinter27 =3D "\\printserver\MORSE Print" '***************************************************************************= ********* 'The script commands '***************************************************************************= ********* Set objShell =3D CreateObject("WScript.Shell") Set objNetwork =3D CreateObject("WScript.Network") Set CheckDrive =3D objNetwork.EnumNetworkDrives() '***************************************************************************= ********* 'Sets the computer time. '***************************************************************************= ********* objShell.Run "%COMSPEC% /c net time \\corpdc1 /set /y",0,TRUE '***************************************************************************= ********* 'Checks the users IP address. '***************************************************************************= ********* sIP =3D GetIP() 'Figure out 3rd octet iFirstDot =3D InStr(0,sIP,".") iSecondDot =3D InStr(iFirstDot+1,sIP,".") iThirdDot =3D InStr(iSecondDot+1,sIP,".") 'Assuming IP's 172.23.1.0, 172.23.2.0, 172.23.3.0.... If iThirdDot =3D 1 Then Floor7 If iThirdDot =3D 2 Then Floor9 If iThirdDot =3D 3 Then Floor10 End If Next '***************************************************************************= ********* 'Checks the security groups the employee belongs to. '***************************************************************************= ********* For Each strGroup in objUser.MemberOf strGroupPath =3D "LDAP://" & strGroup Set objGroup =3D GetObject(strGroupPath) strGroupName =3D objGroup.CN Next Select Case strGroupName '**************************************************************************= ********** 'The section excutes the command. '**************************************************************************= ********** Case "Domain Group" 'This is the Active Directory Security Group Name '**************************************************************************= **** 'This will map department shares and printers '**************************************************************************= **** objNetwork.MapNetworkDrive "P:", "\\server\procedures" objNetwork.MapNetworkDrive "S:", "\\server\scratch" objNetwork.MapNetworkDrive "U:", "\\server\users" objNetwork.MapNetworkDrive "T:", "\\server\tools" 'objNetwork.MapNetworkDrive "Q:", "\\server\users\" & objNetwork.UserName IF Floor7 Then objNetwork.AddWindowsPrinterConnection strUNCPrinter23 objNetwork.AddWindowsPrinterConnection strUNCPrinter1 End If IF Floor9 Then objNetwork.AddWindowsPrinterConnection strUNCPrinter5 objNetwork.AddWindowsPrinterConnection strUNCPrinter6 End If Case "Domain Group" 'This is the Active Directory Security Group Name '**************************************************************************= **** 'To use map drives base on security remove the ' from the line below '**************************************************************************= **** 'objNetwork.MapNetworkDrive "V:", "\\server\departments$\D-CommDocs" 'objNetwork.AddWindowsPrinterConnection strUNCPrinter26 'objNetwork.AddWindowsPrinterConnection strUNCPrinter27 'IF Floor7 Then 'objNetwork.AddWindowsPrinterConnection strUNCPrinter23 'objNetwork.AddWindowsPrinterConnection strUNCPrinter1 'End If 'IF Floor9 Then 'objNetwork.AddWindowsPrinterConnection strUNCPrinter5 'objNetwork.AddWindowsPrinterConnection strUNCPrinter6 'End If End Select Function GetIP() strComputer =3D "." Set objWMIService =3D GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set myObj =3D objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled =3D True") 'Go through the addresses For Each IPAddress in myObj If IPAddress.IPAddress(0) <> "0.0.0.0" Then LocalIP =3D IPAddress.IPAddress(0) Exit For End If Next GetIP =3D LocalIP End Function Sub MapPrinter(sUNC) Set oNet =3D WScript.CreateObject("WScript.Network") oNet.AddWindowsPrinterConnection sUNC oNet.SetDefaultPrinter sUNC End Sub Wscript.Quit Set objUser =3D Nothing Tag: vbscript Tag: 217466
  - 19
    - VBScript Regexp Customer Account I have been struggling to find a way to do a regexp.replace in multiple files, if anyone can help? My company downloads a series of files daily. Each file is a single customer transsaction and contains a customer account number that is in the format of the letters "A14*CA" followed by a sixteen digit number on its own line. The customer account number needs to be adited so that the backoffice software that imports the files can read it, but the backoffice software only accepts a ten digit customer account number. So, I need to replace the sixteen digit number with a ten digit number, but the digits my company wants are characters 4-10 following the begining letters above. For example, the customer account line may read "A14*CA4290423634535002" and needs to be replaced with "A14*CA0423634535" and the file needs to be saved. This customer account information is on it's own line but the line number may vary. All customer transaction files are in the same folder. -David Tag: vbscript Tag: 217462
  - 20
    - Poly Bags <a href="http://www.polybagsusa.com">Poly Bags</a>-Poly Bags USA represents manufacturers of polyethylene and related plastic bags and plastic products. The company serves paper and plastic packaging distributors and major manufacturing companies nationwide. *** Sent via Developersdex http://www.developersdex.com *** Tag: vbscript Tag: 217459
  - 21
    - Excel (2007) Conditional Format via VBScript I had a macro in Excel with the a command to Add conditional formatting based on the check if a cells value begins with some predefined text. Selection.FormatConditions.Add _ Type:=xlTextString, String:="apple", TextOperator:=xlBeginsWith Now i will change from having an Excel file with a macro in it, to a VBScript with is creating the Excel file from scratch. Placing the code from the macro in the VBScript does't work. Does someone have an idea? -- MrWinelover... Tag: vbscript Tag: 217451
  - 22
    - Safely check for reg key existence.. Hi, I need to safely check is a registry key exists, and if not, create it: aKey = HKLM/Software/MyApp/aPath psuedo code: if Exists aPath then s = aPath else Create reg key aPath := "C:\MyApp" end if What would this be in vbs..? rgds jake Tag: vbscript Tag: 217447
  - 23
    - Identifying users with local admin rights? As subject really, I'm after the most efficient way of finding out as part of a users login script if they are a member of the Administrators or Power Users group on the machine they are logging in on? I expect the simplest way to report would be to output to a file called something like "Username is GroupName on MachineName.txt" Appreciate any tips on the leanest way of achieving this. Tag: vbscript Tag: 217446
  - 24
    - if then statements I am having a problem with a statements: Const HKEY_LOCAL_MACHINE = &H80000002 Const ForReading = 1 Dim shell Set shell = CreateObject("WScript.shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("U:\Scripts\EPO\Inputfile.txt", ForReading) Do Until objTextFile.AtEndOfStream strComputer = objTextFile.Readline Path = ("\\"& strComputer & "\C$\Program Files\Network Associates\Common Framework\FrameworkService.exe") Path1 = ("\\"& strComputer & "\c$\program files\McAfee\Common Framework\FrameworkService.exe") If path = "" Then WScript.Echo strComputer & ":" & " EPO File Version is " & objFSO.GetFileVersion (Path) ElseIf path1 = "" Then WScript.Echo strComputer & ":" & " EPO File Version is " & objFSO.GetFileVersion (Path1) Else WScript.Echo strComputer & ":" & " EPO is not installed" End If Loop objTextFile.Close When I run the script on my machine it goes to the last line even if I have a path on my machine. Maybe I am just confused Tag: vbscript Tag: 217443
  - 25
    - multi thread scripting I want to read the registry different services check and more of 25000 computers. But this script is very slow. It runs 3 days long pffffff! I can copy and make more scripts of the same, but there is a easy way to fix this. Have anybody a script or example where i can more then 1 process cscript.exe can startup.( Multi-Threaded scripting ) I have see an example http://cwashington.netreach.net/depo/view.asp?Index=957&ScriptType=vbscript but i don`t no how. Can anybody help me. The example script is what i want to start is like this : Option Explicit ' // Constanten Const sDebug = 0 Const WaitOnReturn = True Const ForReading = 1 Const HKEY_LOCAL_MACHINE = &H80000002 ' // Initialiseren objecten Dim IntConnectionError Dim StrDomain Dim strComputer '///// Open the input file Dim oFSO, oTF, oShell Set oFSO = CreateObject("scripting.filesystemobject") Set oTF = oFSO.OpenTextFile("computers.txt",ForReading,True) Set oShell = CreateObject("Wscript.Shell") '////// read computer.txt Do While oTF.AtEndOfStream <> True IntConnectionError = 0 strComputer = oTF.ReadLine ' * Ping computer Dim objShell , objExec , strPingResults Dim objWMIService , colCompSystems , objCompSystem Set objShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strComputer) strPingResults = LCase(objExec.StdOut.ReadAll) If InStr(strPingResults, "reply from") Then wscript.echo "Computer: "&strComputer&" is Online." ' * Check RegisterKey ' Open ini file for input Dim fObj , aRs1 , strKeyPath , strValueName , oReg , strValue Dim sRegIniImport : sRegIniImport = "listregkey.ini" Set fObj = oFSO.OpenTextFile(sRegIniImport,ForReading, False) Do While fObj.AtEndOfLine <> True aRs1 = Split(fObj.Readline, ",", -1, 1) strKeyPath = aRs1(0) strValueName = aRs1(1) Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue wscript.echo "Registerkey: "&strValueName& " found in: " &strValue Loop '///// Else WScript.Echo VbCrLf & strComputer & " is NOT online" End If Loop Tag: vbscript Tag: 217442
- Next
  - 1
    - Getting email address Hi, I need to retrieve the email address(abc@xyz.com) from AD based on first name and lastname. Actually i will be getting a excel file with firstname and a lastname of users and i have to fetch the corresponding email addresses and write back in the excel sheet. Could anyone help me with code? Thanks in advance Sumit Tag: vbscript Tag: 217440
  - 2
    - ?? Converting CurrentDirectory to a String ?? Hi all, I have a snippet of code like this: fso.CreateTextFile(WScript.Shell.CurrentDirectory & "\blah" & ".xyz") I want to convert the thing in parentheses to a string. I want to do something like this: Dim somePath somePath = WScript.Shell.CurrentDirectory & "\blah" & ".xyz" But this doesn't work. I've tried using CStr() but that doesn't work either. Is there a way to make the darned thing a string? -- Tom Baxter Tag: vbscript Tag: 217427
  - 3
    - Install Patches through vbscript I want to install the patches in folder "PatchRepository" through a vbscript. I would also like to get the error message of any patch which couldn't not be installed for any reason [ Not applicable or Base patch not installed or Incompatible Os Version etc.] If the exit code of the script is zero [assuming there are no errors in installation.] the same should be dumped onto a file. If any error, they should also be listed on the file along with the patch name that failed. Thank in advance for your help Tag: vbscript Tag: 217426
  - 4
    - Network Logon HTA Script <html> <head> <title>Central Login</title> </head> <body onload="resize()"> <center> Please enter your login credentials below: <form name="loginform"> Username: <input type="text" name="user"><br> Password: <input type="password" name="pass"><br><br> <input type="button" name="login" value="Login" onclick="auth()"> </center> </body> <script language="vbscript"> Sub resize window.resizeTo 400,197 End Sub Function auth() dim user user = document.forms.loginform.user.value dim pass pass = document.forms.loginform.pass.value dim server server = "Central" dim server_unc server_unc = ("\\" & server) dim user_drive user_drive = "U:" dim users_folder users_folder = "Users" dim users_unc users_unc = (server_unc & "\" & users_folder) dim user_unc user_unc = (users_unc & "\" & user) dim docs_drive docs_drive = "Z:" dim docs_folder docs_folder = "Docs" dim docs_unc docs_unc = (server_unc & "\" & docs_folder) dim auth_command auth_command = ("net use " & server_unc & " " & "/user:" & user & " " & chr(34) & pass & chr(34)) dim user_drive_command user_drive_command = ("net use " & user_drive & " " & user_unc & " /persistent:no") dim docs_drive_command docs_drive_command = ("net use " & docs_drive & " " & docs_unc & " /persistent:no") Set WshShell = CreateObject("WScript.Shell") WshShell.Run "cmd.exe /c " & auth_command WshShell.Run "cmd.exe /c " & user_drive_command WshShell.Run "cmd.exe /c " & docs_drive_command dim endmessage endmessage = ("Welcome, " & user & ". All login commands have been run.") msgbox endmessage window.close() End Function </script> </html> Tag: vbscript Tag: 217424
  - 5
    - Network Logon HTA Script <html> <head> <title>Central Login</title> </head> <body onload="resize()"> <center> Please enter your login credentials below: <form name="loginform"> Username: <input type="text" name="user"><br> Password: <input type="password" name="pass"><br><br> <input type="button" name="login" value="Login" onclick="auth()"> </center> </body> <script language="vbscript"> Sub resize() window.resizeTo 400,197 End Sub Function auth() dim user user = document.forms.loginform.user.value dim pass pass = document.forms.loginform.pass.value dim server server = "Central" dim server_unc server_unc = ("\\" & server) dim user_drive user_drive = "U:" dim users_folder users_folder = "Users" dim users_unc users_unc = (server_unc & "\" & users_folder) dim user_unc user_unc = (users_unc & "\" & user) dim docs_drive docs_drive = "Z:" dim docs_folder docs_folder = "Docs" dim docs_unc docs_unc = (server_unc & "\" & docs_folder) dim auth_command auth_command = ("net use " & server_unc & " " & "/user:" & user & " " & chr(34) & pass & chr(34)) dim user_drive_command user_drive_command = ("net use " & user_drive & " " & user_unc & " /persistent:no") dim docs_drive_command docs_drive_command = ("net use " & docs_drive & " " & docs_unc & " /persistent:no") Set WshShell = CreateObject("WScript.Shell") WshShell.Run "cmd.exe /c " & auth_command WshShell.Run "cmd.exe /c " & user_drive_command WshShell.Run "cmd.exe /c " & docs_drive_command dim endmessage endmessage = ("Welcome, " & user & ". All login commands have been run.") msgbox endmessage window.close() End Function </script> </html> Tag: vbscript Tag: 217423
  - 6
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217421
  - 7
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217420
  - 8
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217419
  - 9
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217418
  - 10
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217417
  - 11
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217416
  - 12
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217415
  - 13
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217414
  - 14
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217413
  - 15
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217412
  - 16
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217411
  - 17
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217410
  - 18
    - Vb Script Text Book http://www.365x24live.com/vbscript/index.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: vbscript Tag: 217409
  - 19
    - burning DVD failure Hi there, I just attempted to burn a DVD on my DELL GX-280 with 2Gb of RAM, 3.8Ghz CPU. I used a Wscript as such: Const adFileTypeBinary = 1 index = 1 strISOFile = "c:\users\Alex BB\dvd burn\en_sql_2005_dev_all_dvd.iso" Set objDiscMaster = CreateObject ( "IMAPI2.MsftDiscMaster2" ) Id = objDiscMaster.Item(index) Set objRecorder = CreateObject ( "IMAPI2.MsftDiscRecorder2" ) objRecorder.InitializeDiscRecorder(Id) Set objDataWriter = CreateObject ( "IMAPI2.MsftDiscFormat2Data" ) objDataWriter.Recorder = objRecorder objDatawriter.ClientName = "ISOTest1" Wscript.Echo "Writing to disc..." Set objStream = CreateObject ( "ADODB.Stream" ) objStream.Open objStream.Type = adFileTypeBinary objStream.LoadFromFile strISOFile If objDataWriter.NextWritableAddress = 0 Then objDataWriter.Write(objStream) Wscript.Echo "Done" Else Wscript.Echo "Cannot write to disc" End If I copied the script from this TechNet site (modifying the directory only): https://www.microsoft.com/technet/scriptcenter/topics/imapi/imapi2-2.mspx#EYH The burning began and while watching the process in the Task Manager I saw a huge increase in Memory (Working Set Memory, I think) up to 1.8Gb. Then after a few minutes an exception was thrown from WScript: Out of Memory. After I closed the msg window which was modal the memory consumption wound down slowly and the process was eventually shut down after about a minutes or so. My question is: why? I've burned DVDs before with Windows Media Player with no problem. I've burned some picture images on this machine and attempted to burn iso images but they all came out sort of hollow, although the eventual file size was close to what I expected the data did not seem to be there and I could not use the DVD to install the software. So, I've decided to use a script since I felt that it would give me a better handle on the process. Is it a known issue? Is it possible to improve the script? Are there other scripts out there that can do the same? Nore: the iso image I tried to burn is a MSSqlServer eveloper Edition. I am an MSDN Pro subscriber. Many thanks in advance. -- AlexB Tag: vbscript Tag: 217392
  - 20
    - Script to Email attachment hangs on the AddAttachment statement Here is the snippet of code that is doing the Add Attachment: If attachfile = 1 then strattachment = strScriptFolder & "\" & strFileattachment Wscript.echo "Attachment: " & strattachment If objFSO.FileExists(strattachment) Then Wscript.echo "Attachment exists" objEmail.AddAttachment(strAttachment) Wscript.echo "Attachment added" End If End If This worked within the last 3 weeks. Some patch or other software was loaded and now when the script gets to the add attachment statement, it hangs and uses 50% of the processor. I have tried uninstalling all the patches I can find that have been loaded in the last month, but it still hangs. There is no error and nothing in the event logs? Has anyone else seen this problem? Thanks in advance, Chris -- No matter where you go, there you are... Tag: vbscript Tag: 217380
  - 21
    - Display first 100 files of directory I am looking for a vbscript that will display the first 100 files in a directory that contains more than 100 files. Tag: vbscript Tag: 217372
  - 22
    - AD Computer Accounts Hi there, Can anybody help me with this script. I wanna read the Logondate - Create date - Modified date and the path in activedirectory for computer accounts . But i want also see the disabled computer accounts, i don`t no how to start in this script. Also i want to see only the date and not the time.. Thank you very much for help Rob Option Explicit Const FOR_WRITING = 2 Const strDomain = "dc=Connectie,dc=Local" Dim strAge, objConnection, ObjCommand, ObjRecordSet Dim objOU, objDomain, Tel Dim strExit, strDN, strLastPwSet, intLastPwSet, dtmLastLogon, dtmDateDiff, strName Dim objConnect, strLogoncount, strWhenChanged, strWhenCreated, bDebug, objAD, i, objApp strAge = 0 '* Aanmaak tekstbestand Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject") Dim sLogFile : sLogFile = "output.txt" Dim oLogFile : Set oLogFile = oFSO.OpenTextFile (sLogFile,FOR_WRITING,true) Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" Set ObjCommand = CreateObject("ADODB.Command") ObjCommand.ActiveConnection = objConnection 'ldap query ObjCommand.CommandText = _ "<LDAP://" & strDomain & ">;(&(objectClass=Computer)" & _ "(sAMAccountName=" & "*" & "));distinguishedName,name,logonCount,whenChanged,whenCreated,pwdlastset;subtree" Set ObjRecordSet = objCommand.Execute If ObjRecordSet.recordcount = 0 Then WScript.Echo "No Objects founds" WScript.Quit End If WScript.Echo " Computeraccounts in Domain " & strDomain & " Count : " & ObjRecordSet.recordcount Err.Clear Tel = 0 Do Until objRecordSet.EOF strExit = "" strDN = "" strLastPwSet = "" strLogoncount = "" strWhenChanged = "" strWhenCreated = "" strName = "" intLastPwSet = "" dtmLastLogon = "" dtmDateDiff = "" Do Until strExit = "Yes" strDN = ObjRecordSet.Fields("distinguishedName") strLastPwSet = ObjRecordSet.Fields("pwdlastset") strName = ObjRecordSet.Fields("Name") strLogoncount = ObjRecordSet.Fields("logonCount") strWhenChanged = ObjRecordSet.Fields("whenChanged") strWhenCreated = ObjRecordSet.Fields("whenCreated") dtmDateDiff = DateDiff("d", dtmlastlogon, Now) If dtmDateDiff >= cdbl(strAge) Then End If Dim strPt1, strPt2, strPt3 If Left (strDN, 3) = "CN=" Then strPt1 = instr(10, strDN, "=") strPt2 = instr(strPt1, strDN, ",") strPt3 = Mid(strDN, strPt1+1, strPt2+80) Else End If strExit = "Yes" Loop objRecordset.MoveNext SchrijfInLog strName & ";" & dtmLastLogon & ";" & strLogoncount & ";" & strWhenChanged & ";" & strWhenCreated & ";" & strPt3 Loop '//// Subs Sub SchrijfInLog(sText) oLogFile.WriteLine sText If bDebug Then WScript.echo sText End Sub objConnection.Close oLogFile.Close Set objConnection = Nothing Set ObjCommand = Nothing Set ObjRecordSet = Nothing Set objOU = Nothing Set oLogFile = Nothing Set oFSO = Nothing Tag: vbscript Tag: 217367
  - 23
    - Verifying if file exists on href link Hi, I am running straight ASP and not ASP.NET. I have a page which lists a bunch of project numbers each with an href link to an Excel file whose name is project number.xls on the server. I want to check if the file exists, if it does enable the link else disable the link. I have the following code. <% dim strProj function findFile(strProj) Dim objFSO, objFolder Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("../busops/prog") For Each strProj in objFolder.Files If strFile.Name = strNumber Then findFile = strProj.Name Else findFile = null End If Next Set objFolder = Nothing Set objFSO = Nothing end function %> <% strProj = trim(oRsMOIE("ProjectNum")) if findFile(strProj) = null then %> <td colspan="2" align=center><a href="#"><%=oRs("ProjectNum")%></a></td> <% else %> <td colspan="2" align=center><a href="<%="MIP/" & trim(oRsMOIE("ProjectNum")) & ".xls"%>"><%=oRsMOIE("ProjectNum")%></a></td> <% end if %> I get an path not found error on the GetFolder line. Any help would be greatly appreciated. Is the fileExists only available for .NET? If so, how else I would check for the file? Is it because browse directory listing permission is not granted in IIS? If so, how else I can check if the file exists? I am not allowed to grant browse directory listing permission. Thanks much. Tag: vbscript Tag: 217365
  - 24
    - Delete folders I am asking some help with a script. Delete the GTA folders olders then Yesterday, the folders begins with GTA. The folders GTA for today and Yesterday must not deleted. I have a beginning but this is not correct, can anybody help me. Sfolderdir = "c:\temp\GTA2345" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(sfolderdir) Wscript.Echo "Date created: " & objFolder.DateCreated If objFSO.FolderExists(Sfolderdir) Then objFSO.DeleteFolder(Sfolderdir & datupdatefolder) WScript.Echo Sfolderdir & " DELETED " Else WScript.Echo "Not DELETE." End If rob Tag: vbscript Tag: 217364
  - 25
    - CDO send: Lost Connection Hi, I'm using the following to send email. It works fine if I attach a text file. However, if I attach a zip file, as shown, I get the following error on the send: "The transport lost its connection to the server." If I send the same attachment via the same server using Outlook, all is well. It only fails when sent using this script. The issue is not related to file size, it works with huge text files, but fails on tiny zip files. Suggestions gratefully received! 'Code begins here Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Something" objMessage.To = "someone@somewhere.co.uk" objMessage.From = "someone@somewhereelse.co.uk" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailhost.myisp.co.uk" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update objMessage.AddAttachment "C:\attach.zip" objMessage.Send 'Code ends here Tag: vbscript Tag: 217363

Can anyone lead me to the right direction where I can find a script that
might be freeware as I have no experience programming. I am trying to take
.net 2.0 framework file from one location and install it as a script or .vbs
to different computers. Thanks to all that reply.

PS
Already searched google with no luck.

Top

Re: vbscript by Adam

Adam
Thu May 01 23:41:13 CDT 2008

On May 1, 2:31 pm, teddkilroy <teddkil...@discussions.microsoft.com>
wrote:
> Can anyone lead me to the right direction where I can find a script that
> might be freeware as I have no experience programming. I am trying to take
> .net 2.0 framework file from one location and install it as a script or .vbs
> to different computers. Thanks to all that reply.
>
> PS
> Already searched google with no luck.

What kind of 'file' are you trying to move or install? What does .NET
have to do with it? What does the script do?

Top

Re: vbscript by teddkilroy

teddkilroy
Fri May 02 08:37:03 CDT 2008

trying to install .net 2.0 to different computers to different locations for
a site.

"Adam Sandler" wrote:

> On May 1, 2:31 pm, teddkilroy <teddkil...@discussions.microsoft.com>
> wrote:
> > Can anyone lead me to the right direction where I can find a script that
> > might be freeware as I have no experience programming. I am trying to take
> > .net 2.0 framework file from one location and install it as a script or .vbs
> > to different computers. Thanks to all that reply.
> >
> > PS
> > Already searched google with no luck.
>
> What kind of 'file' are you trying to move or install? What does .NET
> have to do with it? What does the script do?
>

Top

Re: vbscript by Adam

Adam
Mon May 05 10:29:15 CDT 2008

On May 2, 7:37=A0am, teddkilroy <teddkil...@discussions.microsoft.com>
wrote:
> > > PS
> > > Already searched google with no luck.

What string did you use to search google with? I literally found this
link in about 30 seconds:

http://www.cruto.com/Resources/VBScript/VBScript-Examples/apps/user/Install-=
Software-on-a-Remote-Computer.asp

Top