weekdayname after installation of XP Sp3

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
    - Format file writing Hi, I would like to write in test file "01","02", ....,"99" For this I wrote, Dim MyFile Const ForWriting = 2 Set objFichier = CreateObject("Scripting.FileSystemObject") Set MyFile = objFichier.OpenTextFile("test.txt",ForWriting,True) for i = 1 to 99 m=""""+CStr(i)+""""+"," MyFile.Writeline m next MyFile.Close Wscript.Quit 0 This doesn't work, as test.txt has, 1, 2, 3, ... 99, 1) How avoid to go to next line after each Myfile.Writeline ? 2) How to format 1 to 01 ? Tag: weekdayname after installation of XP Sp3 Tag: 217603
  - 2
    - Are vbscript classes fast? Hi there, Just found these forums and my first post, so hi all I'm doing some work with vbscript just now and had a quick question I hope somebody could help with... Say I have a few functions for accessing a database e.g. openDBConn, closeDBConn, openRs, closeRs, getRsAsArray, executeSql, getDbConnString etc I could put these functions in to an include file "incDbHelper.asp" and include the file in any page that needs database functionality... or I could create a class "clsDbhelper.asp" which again I would include in any page that needs it. Now once the files have been included, to access the functions I could do: executeSQL("select * form table") or (if my db class is called Database) set db = new Database db.executeSQL("select * form table") So my question is what is the best method? Using a class seems like extra overhead for nothing? I've had a search around google but couldn't find anything on performance issues when using classes. Does anybody have an experience they could help me out with? Thanks in advance for any help Tag: weekdayname after installation of XP Sp3 Tag: 217600
  - 3
    - Searching Network Share Permissions Hello, I need to search for 'Everyone' and 'Authenticated Users' permissions on every network shares from about 100 Windows Server 2003 servers we have and, then, list only the network shares that have such permissions. Do you know any effective tool or script to get this? I tried shareenum but it is not useful to scan a specified group of servers. Any input would be apreciated. Thank you! Tag: weekdayname after installation of XP Sp3 Tag: 217587
  - 4
    - Find pst files on c:\ and u:\ I copied the script from msdn Option Explicit Dim sFileName, sFilePath sFileName = "*.pst" sFilePath = "U:\" Dim oFS 'file system object Set oFS = WScript.CreateObject("Scripting.FileSystemObject") FindFile sFilePath, oFS Sub FindFile(path, fso) Dim oFC 'file collection object Dim oFolder 'folder object Dim eFile 'file element Dim eFolder 'folder element Set oFC = fso.GetFolder(path) For Each eFile In oFC.Files' If eFile.Name = sFileName Then 'echo file path WScript.Echo eFile.Path End If Next Set oFolder = oFC.SubFolders 'recursion starts here For Each eFolder In oFolder FindFile eFolder.Path, fso Next End Sub I would like to first search in the c:\ than in the u:\. When I did the search I got an error Access denied and The script stopped. I would like to skip the file and keep going. Tag: weekdayname after installation of XP Sp3 Tag: 217585
  - 5
    - How to delete specified files in a tree Can I be helped? How can I delete specific files from a computer directory and from the subdirectories? Thanks in advance for helping me. Cisco Tag: weekdayname after installation of XP Sp3 Tag: 217582
  - 6
    - Formatting Flash Drives via VBScript Is it possible to format a Flash drive via VBScript. My ultimate goal is to format several flash drives at the same time or syncronously through script. I do backups from several computers via USB Flash Drives on a 4 port hub.. After the backups are done, I would like to format these drives by VBScript and not through windows formatting program as it takes too long to select the drive and format for several drives. Any help would be greatly appreciated. I have search google, hotbot, and yahoo. But all examples and help are for fixed disks and my scripts error out. Thanx, Don Tag: weekdayname after installation of XP Sp3 Tag: 217577
  - 7
    - Enumerating System Drivers Can anyone tel me if there is a way to enumerate system drivers and their state against a list of remote computers? This would be the same information you see when running WINMSD on a server. I am looking for the existence of a particular driver and whether it is loaded and running. I believe I can utilize the driverquery command and then parse that but I was hoping for some method using only vbscript and/or WMI. Thank you. Tag: weekdayname after installation of XP Sp3 Tag: 217573
  - 8
    - Renaming a CSV file based on content Hi All, many people helped me in my previous post, so thanks to them all - and i now have a script that works for me...and save me a lot of time.(see bleow) however - i do have a new issue now - the script works fine until it see a column with a slash in it (/) - and therefore wont rename the file - is there an easy way to say that if it sees a / then name the file to something? help is much appreciated once again. Jason ====================================================================== Const csDir = "Path" Const csExt = "csv" Set oFS = CreateObject( "Scripting.FileSystemObject" ) For Each oFile In oFS.GetFolder( csDir ).Files If 0 = StrComp( csExt, oFS.GetExtensionName( oFile.Name ), vbTextCompare ) Then renCSVFile oFile, oFS End If Next Sub renCSVFile( oFile, oFS ) On Error Resume Next Const ForReading = 1 Dim sNewName : sNewName = Split( oFile.OpenAsTextStream( ForReading ).ReadLine, "," )( 3 ) oFile.Name = sNewName & "-" & RndFileName & ".csv" End Sub Function RndFileName() For x=1 To 8 Randomize vChar = Int(36*Rnd) If vChar < 10 Then 'append number RndFileName = RndFileName & vChar Else 'else append a letter RndFileName = RndFileName & Chr(97+(vChar-10)) End If Next End Function ========================================================================= Tag: weekdayname after installation of XP Sp3 Tag: 217563
  - 9
    - Problem with moving a file Hello, Using this script derived from a scriptcenter example, I'm trying to move a file: Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFolder "C:\Temp" , "C:\Logs" The above works but when I change the destination to a different drive: Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFolder "C:\Temp" , "D:\Logs" the script fails. I can move a folder from some source on C:\ to some other location on C:\. But if the same operation tries to move from C:\ -> D:\ then it fails with: Line 2 Char 1 Permission denied 800A0046 What is really confusing to me is I'm running the script as a member of domain administrators and that account has write access to D:\. How can I get this script to move folders across drives? Suggestions are greatly appreciated. Thanks! Tag: weekdayname after installation of XP Sp3 Tag: 217558
  - 10
    - Learn English!!!! Change ur language and you change ur thoughts. Learn English!!!! Change ur language and you change ur thoughts. Learn English and free download Grammar & dictionary. Just click the website and share ur thoughts=85. =93Give a man fish and he=92ll eat once! Teach a man to fish and he=92ll eat for a lifetime=94. http://Onlinespokenenglish.googlepages.com/home Tag: weekdayname after installation of XP Sp3 Tag: 217556
  - 11
    - Query for string INSIDE Windows Event Log Gentlemen, New to the list so please be gentle. Need to achieve the following and have been banging my head against the wall: - In the process of deploying a full-disk encryption product that requires checkdisk to run prior to installation. If any bad sectors are found, I need to run check disk again and try to fix them. Unfortunately, check disk has no logging mechanism other then Event Viewer: upon completion Event ID 1001 with source of Winlogon is logged in Application log. Inside, it will have a string that looks like this: 0 KB in bad sectors This is the string I need to search for INSIDE the Event ID 1001 and if it's not 0 KB, I need to stop installation and run another check disk on reboot. I have figured out a way how to do all of the above with the exception of searcing INSIDE events in Event Viewer. If anyone has an idea or a pointer, I'd be forever greatful. Thanks in advance! Tag: weekdayname after installation of XP Sp3 Tag: 217553
  - 12
    - install font function The function below seems to adequately install fonts from a .vbs on Win2K. I would appreciate advice on the following ... - The Fonts control panel flashes briefly. How could I make this less obtrusive or invisible? - The pause (wscript.sleep) allows the applet time to complete it's magical install steps. Can this be replaced with more robust steps that wait just until it's tasks complete? - We will be moving to WinXP in a few months. Is this approach likely to work under XP? If not, is there an alternative that would work under both OSs? - Am I all wet? Is there a more robust approach? Thanks, Bruce ----------- function installFonts(fontList) 'Install fonts from a list of font file fullpaths separated by vertical bars ' ' Returns True if at least 1 font was installed. installFonts = False dim FontsSpecialFolder FontsSpecialFolder = createobject("WScript.Shell").SpecialFolders("Fonts") 'Copy the fonts dim fso set fso = createobject("Scripting.FileSystemObject") for each fontFile in split(fontList,"|") if not fso.FileExists(FontsSpecialFolder & "\" & mid(fontFile,InStrRev(fontFile,"\")+1)) then fso.CopyFile fontFile,FontsSpecialFolder & "\" installFonts = True end if next 'Allow Windows to complete the install if at least one file was copied dim sa set sa = CreateObject("Shell.Application") if installFonts then 'Open the Fonts control panel dim item for each item in sa.NameSpace(3).Items if item.Name = "Fonts" then item.InvokeVerb Next 'Pause for control panel app to finish wscript.sleep 500 'Close the Fonts control panel dim windows set windows = sa.Windows for each window in windows if window.LocationURL = "file:///" & replace(FontsSpecialFolder,"\","/") then window.quit next end if end function Tag: weekdayname after installation of XP Sp3 Tag: 217546
  - 13
    - Rename printer connection? Hi all, i was wondering if there is a way to rename a printer connection i mean: if i mount a drive lettere to a unc path i get something like share on servername and i can rename it as i wish if i connect a printer in a network, i get share on servername like before, but how can i rename this? thanks! Tag: weekdayname after installation of XP Sp3 Tag: 217545
  - 14
    - vbscript 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. Tag: weekdayname after installation of XP Sp3 Tag: 217544
  - 15
    - 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: weekdayname after installation of XP Sp3 Tag: 217538
  - 16
    - 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: weekdayname after installation of XP Sp3 Tag: 217529
  - 17
    - 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: weekdayname after installation of XP Sp3 Tag: 217527
  - 18
    - 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: weekdayname after installation of XP Sp3 Tag: 217526
  - 19
    - 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: weekdayname after installation of XP Sp3 Tag: 217519
  - 20
    - 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: weekdayname after installation of XP Sp3 Tag: 217517
  - 21
    - 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: weekdayname after installation of XP Sp3 Tag: 217516
  - 22
    - 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: weekdayname after installation of XP Sp3 Tag: 217513
  - 23
    - 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: weekdayname after installation of XP Sp3 Tag: 217504
  - 24
    - 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: weekdayname after installation of XP Sp3 Tag: 217501
  - 25
    - 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: weekdayname after installation of XP Sp3 Tag: 217496
- Next
  - 1
    - 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: weekdayname after installation of XP Sp3 Tag: 217493
  - 2
    - 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: weekdayname after installation of XP Sp3 Tag: 217492
  - 3
    - 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: weekdayname after installation of XP Sp3 Tag: 217485
  - 4
    - 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: weekdayname after installation of XP Sp3 Tag: 217480
  - 5
    - 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: weekdayname after installation of XP Sp3 Tag: 217471
  - 6
    - 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: weekdayname after installation of XP Sp3 Tag: 217469
  - 7
    - 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: weekdayname after installation of XP Sp3 Tag: 217466
  - 8
    - 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: weekdayname after installation of XP Sp3 Tag: 217462
  - 9
    - 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: weekdayname after installation of XP Sp3 Tag: 217459
  - 10
    - 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: weekdayname after installation of XP Sp3 Tag: 217451
  - 11
    - 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: weekdayname after installation of XP Sp3 Tag: 217447
  - 12
    - 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: weekdayname after installation of XP Sp3 Tag: 217446
  - 13
    - 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: weekdayname after installation of XP Sp3 Tag: 217443
  - 14
    - 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: weekdayname after installation of XP Sp3 Tag: 217442
  - 15
    - 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: weekdayname after installation of XP Sp3 Tag: 217440
  - 16
    - ?? 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: weekdayname after installation of XP Sp3 Tag: 217427
  - 17
    - 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: weekdayname after installation of XP Sp3 Tag: 217426
  - 18
    - 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: weekdayname after installation of XP Sp3 Tag: 217424
  - 19
    - 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: weekdayname after installation of XP Sp3 Tag: 217423
  - 20
    - 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: weekdayname after installation of XP Sp3 Tag: 217421
  - 21
    - 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: weekdayname after installation of XP Sp3 Tag: 217420
  - 22
    - 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: weekdayname after installation of XP Sp3 Tag: 217419
  - 23
    - 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: weekdayname after installation of XP Sp3 Tag: 217418
  - 24
    - 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: weekdayname after installation of XP Sp3 Tag: 217417
  - 25
    - 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: weekdayname after installation of XP Sp3 Tag: 217416

i have a vbs to write day name (Monay, Tuesday....)

However, after installation of XP sp3, the weekdayname change to Chinese
format weekdayname, not english "Monday..."

how can i do? Thanks a lot.

tony

Top

Re: weekdayname after installation of XP Sp3 by ekkehard

ekkehard
Mon May 05 04:35:13 CDT 2008

Tony WONG schrieb:
> i have a vbs to write day name (Monay, Tuesday....)
>
> However, after installation of XP sp3, the weekdayname change to Chinese
> format weekdayname, not english "Monday..."
>
> how can i do? Thanks a lot.
>
> tony
>
>
You may force the output language/format by using SetLocale:

WScript.Echo WeekdayName( 1 )
SetLocale "en-us"
WScript.Echo WeekdayName( 1 )

output:

Sonntag <== german
Sunday

but in the long run, you'll have to get the update right.
(You did check your regional settings?)

Top

Re: weekdayname after installation of XP Sp3 by Tony

Tony
Mon May 05 05:14:06 CDT 2008

Thanks a lot for your prompt response.

Your solution works.

i did check the region setting in control panel.

there is no change before and after installation of XP sp3

my past and present setting are Hong Kong.

it does not work even i change format / region to US

"ekkehard.horner" <ekkehard.horner@arcor.de>
???????:481ed4d2$0$6514$9b4e6d93@newsspool4.arcor-online.net...
> Tony WONG schrieb:
>> i have a vbs to write day name (Monay, Tuesday....)
>>
>> However, after installation of XP sp3, the weekdayname change to Chinese
>> format weekdayname, not english "Monday..."
>>
>> how can i do? Thanks a lot.
>>
>> tony
> You may force the output language/format by using SetLocale:
>
> WScript.Echo WeekdayName( 1 )
> SetLocale "en-us"
> WScript.Echo WeekdayName( 1 )
>
> output:
>
> Sonntag <== german
> Sunday
>
> but in the long run, you'll have to get the update right.
> (You did check your regional settings?)
>

Top

Re: weekdayname after installation of XP Sp3 by Adam

Adam
Mon May 05 10:32:44 CDT 2008

On May 5, 3:19=A0am, "Tony WONG" <x...@netvigator.com> wrote:
> i have a vbs to write day name (Monay, Tuesday....)
>
> However, after installation of XP sp3, the weekdayname change to Chinese
> format weekdayname, not english "Monday..."
>
> how can i do? =A0Thanks a lot.
>
> tony

Other solutions would be creating a map class to map day of week in
english to day of week in chinese and return the proper value. A
scripting dictionary could be used too.

Top