Display first 100 files of directory

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
    - 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: Display first 100 files of directory Tag: 217367
  - 2
    - 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: Display first 100 files of directory Tag: 217365
  - 3
    - 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: Display first 100 files of directory Tag: 217364
  - 4
    - 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: Display first 100 files of directory Tag: 217363
  - 5
    - Display SQL XML Column How do I display an SQL XML data type (column) within classic ASP? Thank you in advance for your assistance. Tag: Display first 100 files of directory Tag: 217355
  - 6
    - WScript.Shell.run and string with new lines? Sorry for the repost. I'm trying to run a string that has linefeeds. The below code works if what comes back from the webservice is a single line, but if it's more than one line it chokes and does not perform any of the lines. Option Explicit Dim runwhat Dim oShell Dim soapClient set soapclient = CreateObject("MSSOAP.SoapClient") SoapClient.ClientProperty("ServerHTTPRequest") = True On Error Resume Next Call soapclient.mssoapinit("http://mycomputer/LoginScriptsWebService/ Service.asmx?wsdl") if err <> 0 then wscript.echo err.description end if runwhat=soapclient.LoginScript wscript.echo (runwhat) Set oShell = CreateObject("WScript.Shell") oShell.Run "%comspec% /c (" & runwhat & ")" My very simple webservice (vb.net) looks like this: Public Function LoginScript() As String Dim out As String out = "net use y: \\mycomputer\c$\jcp" out = out + vbNewLine + "net use x: \\mycomputer\c$\jcp" Return out End Function If I clip and paste the output from the vbscript and paste it back into DOS it takes the two commands with no problem. A hex review of the output show the line feeds %0A%0D as expected. Thanks for any help or information. Tag: Display first 100 files of directory Tag: 217352
  - 7
    - Why Can't You Set the PageFile on Server 2008 using VBScript and W Ok, so this is a bit of a wierd one. During our automated build of Windows Server 2008, one of the options we would like to set is the size of the Page File. Because we have servers with lots of RAM and often not large system drives we like to set them manually, this also helps avoid page file fragmentation. In Server 2008, before you can set the page file manually, you need to disable the automatic management of the page file using the win32_ComputerSystem.AutomaticManagedPagefile property. When I set this property to false using either a PowerShell window or WMIC from the command-line it works nicely. However, when I try to set this property using VBScript it fails to save the property. I have used the following script: ***START SCRIPT*** Set objWMIService = GetObject("winmgmts:{impersonationlevel=impersonate, (CreatePageFile)}!root\cimv2") For Each objCompSys In objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem") objCompSys.AutomaticManagedPagefile = False WScript.Echo objCompSys.AutomaticManagedPagefile Next ***END SCRIPT*** The script runs without errors AND outputs '0' to show that the setting has been changed. However, when I then re-run the script without setting the property, it outputs '-1' to show the setting is 'True'. I'm not aware of normally needing to make any kind of 'update' to WMI, it normally updates as you change a property, is there something that I'm doing wrong here? I've ruled out (I think) any kind of permissions issues by including the .Rename method in the script which successfully renamed the machine so I know the interface works. Any help would be appreciated Regards Brendan Tag: Display first 100 files of directory Tag: 217346
  - 8
    - How to get the enumerator object for the ISA log content collection. set root = createobject("FPC.ROOT") Set isaArray = root.getcontainingarray Set isaLog = isaArray.logviewer.LogContentOnline Set isaEnums =isaLog._NewEnum Why this script says that "_NewEnum" includes invalid charactor? How can I get the enumerator object for the collection. Tag: Display first 100 files of directory Tag: 217344
  - 9
    - File copy Hi, I hope someone can help me with this task. I need a script that can find a latest created subfolder within a certain folder and copy a file into it from another folder. Basically I need to copy a file into a folder but the folder name periodically gets changed by third party application. Thanks, Alex *** Sent via Developersdex http://www.developersdex.com *** Tag: Display first 100 files of directory Tag: 217341
  - 10
    - Writing a Boolean Statement Parser/Engine - Need help I need to write a boolean search string parser/engine for a scripting project. In a perfect world: - A user could enter a properly formatted boolean search string that I could pass to the parser. For example, they could enter "((wallace OR walters) AND (fire AND truck)) ANDNOT (water OR wet OR foam)". - When I passed it to the parser, the parser would return some type of collection (array, collection, etc.). - I would iterate through the collection checking each term to see if it was in the search string and return a similar collection w/ a series of True/False values. - The engine would look at the values I returned against the initial search boolean, and return a collective True or False. Has anyone written or encountered any or all of the functionality? Would this be a good regular expression project? If so, does anyone have some samples they could share? Tag: Display first 100 files of directory Tag: 217333
  - 11
    - Problem w/If Statement All, I'm writing a script that gets all installed software via the Registry (I need all installed software, not just apps installed via msi), but want to exclude certain items. Theonly thing I can't ssem to filter out is any Registry entry that has a ReleaseType. Here's my code: ... objRegEntry = objReg.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath & strSubKey, "ReleaseType", strReleaseType) 'MsgBox("objRegEntry: " & CStr(objRegEntry) & vbCrLf & _ ' "strReleaseType: " & strReleaseType & vbCrLf & _ ' "IsNull(strReleaseType): " & IsNull(strReleaseType) & vbCrLf & _ ' "TypeName(strReleaseType): " & TypeName(strReleaseType) & vbCrLf) If strDisplayName <> "" Then If IsNull(strReleaseType) And objRegEntry <> 0 Then If InStr(strDisplayName, "Hotfix") = 0 Then 'don't get service packs If InStr(strDisplayName, "Security Update") = 0 Then 'don't get hotfixes If InStr(strDisplayName, "Service Pack") = 0 Then 'don't get security updates If InStr(strDisplayName, "Update for ") = 0 Then 'don't get updates .Worksheets(objWorkstation).Range("A" & i).Value = strDisplayName objRegEntry = objReg.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath & strSubKey, "Publisher", strPublisher) If IsNull(strPublisher) Or strPublisher = "" Then .Worksheets(objWorkstation).Range("B" & i).Value = "N/A" Else .Worksheets(objWorkstation).Range("B" & i).Value = strPublisher End If ... It doesn't seem to acknowledge the line "If IsNull(strReleaseType) And objRegEntry <> 0 Then". I have the MsgBox code and have verified the values. When I run the script I get results like Microsoft Visual Studio 2005 Standard Edition - ENU Microsoft Corporation 8.0.50728 12/21/2007 Microsoft Visual Studio 2005 Standard Edition - ENU Microsoft Corporation N/A N/A After checking the Registry, I know that the 2nd entry is a service pack ("ReleaseType" = "Service Pack" or "Hotfix", etc.). I want to leave these out of my report. I can post/send all the code if someone would like more info. Thanks in advance! Tag: Display first 100 files of directory Tag: 217326
  - 12
    - Need to fill up a web form by VB code. I am asking some help for a very precise reason. I have developed an application for my family that can establish a web call from our web account. My application is running under visual Basic 6.I need to fill up a web form by VB code on the internet telephony provider. The provider is www.mobivox.com and the link I am surfing to is http://www.mobivox.com/callme/?k=36e459afb9700c2b70d4ea09707c3181c011f192 The form needs to get three parameters: Country / Name / Telephone number. I believe I need a VBscript piece of code to do it within from my Visual Basic 6 application. A sub procedure that open the above link and post the needed parameters. I hope someone can solve it to me. Thanks so much Roobi Tag: Display first 100 files of directory Tag: 217319
  - 13
    - Using delprof.exe from normal user's logon script Hi, Say I need \\myserver\netlogon\delprof.exe to be run at any login for computers in mydomain.net's OU=myworkshop What would a simple vbs logon script for the above situation look like? Will a normal domain user have enough priviledges to run delprof.exe in the above logon script or do domain logon scripts run under the system account? I any case I look for solutions to have delprof successfully do its work for OU=myworkshop computers. Thanks for any help on this regards jake Tag: Display first 100 files of directory Tag: 217316
  - 14
    - Designer Gucci Belt Bag - Black 145851black Handbags, Replica, Fake Designer Gucci Belt Bag - Black 145851black Handbags, Replica, Fake Our Gucci Belt Bag - Black 145851black is a vibrant mix of style and pleasure, offering you exact copies of the original handbags. If you need a cool and most welcomed change to your style, a change you certainly deserve, choose one of the many bags ReplicasHandbag.com offers at a great price. Gucci Belt Bag - Black Link : http://www.replicashandbag.com/Gucci-145851black.html Brand : Gucci ( http://www.replicashandbag.com/Gucci-Handbags.html ) Model : 145851black Sale Price : $ 185.00 Gucci Belt Bag - Black Details : Pure black color Gucci belt bagFlap closure on front with silver buckleAdjustable black color strapZipper closure pocket insideComes with serial numbers, authenticity card, dust bag, and care booklet SIZE : 11.4" x 7.1" x 0.8" You may find the most affordable Designer Gucci Handbags on our website replicashandbag.com while high quality can be guaranteed. Our Replica Gucci Bags is made with special care to reach the level of an original one. Here you will find luxury items are no longer something you ever hesitate going for. To meet your expectation, we only provide Gucci Fake Handbags that is perfectly imitated, featuring the slight details of originals. All of our replica handbags are shipped via EMS to worldwide. Normally it takes 3days to prepare the fake bags you ordered and 5-10days to transmit depending on the different destination.We pay for the free shipping cost for total quantity over 20 pcs. The EMS tracking NO. will be sent by email when an order is shipped from our warehouse. No more other charges from replicashandbag.com such as the tax. If you have any other questions please check our other pages or feel free to email us by sales@replicashandbag.com. The Same Replica Gucci Handbags Series : Gucci Belt Bag - Black 92543black : http://www.replicashandbag.com/Gucci-92543black.html Gucci Belt Bag - Black 28566black : http://www.replicashandbag.com/Gucci-28566black.html Gucci Belt Bag - Blue 28566blue : http://www.replicashandbag.com/Gucci-28566blue.html Gucci Belt Bag - Coffee 28566coffee : http://www.replicashandbag.com/Gucci-28566coffee.html Gucci Belt Bag - Coffee 92543coffee : http://www.replicashandbag.com/Gucci-92543coffee.html Gucci Belt Bag - Khaki 28566khaki : http://www.replicashandbag.com/Gucci-28566khaki.html Gucci Belt Bag - Light Blue 28566light b : http://www.replicashandbag.com/Gucci-28566light-b.html Gucci Belt Bag - Pink 28566pink : http://www.replicashandbag.com/Gucci-28566pink.html Gucci Belt Bag - White 145851white : http://www.replicashandbag.com/Gucci-145851white.html Gucci Belt Bag -Monogram Red 28566red : http://www.replicashandbag.com/Gucci-28566red.html Designer Gucci Belt Bag - Black 145851black Handbags, Replica, Fake Tag: Display first 100 files of directory Tag: 217313
  - 15
    - Need help in ending the madness Two things, 1. I need help in coming up with a script that can verify enforcement of smart cards by determining if the "Interactive logon: Require smart card" security option is enabled for each administrative account in the Enterprise. This would include schema admins, domain admins, users in the administrators group, etc. 2. I am looking for recommendations on how to learn VBscripting. Thank you in advance for your help! Tag: Display first 100 files of directory Tag: 217297
  - 16
    - DNS and WINS update I am writing a script to update WINS and DNS entries on all servers in a file. I also want to output to an Excel file the success or failure. If a server is not pingable i want to output that to the spreadsheet and move on to the next server in the text file. This script works when i don't test to see if the server is pingable first. It will hang though if a server is not online. When i add the ping test it fails with an "Object required: 'objShell' " error in this line "Set objExecObject = objShell.Exec(strCommand)" see script below. Would appreciate any help in fixing the error in this script. Thank you. 'On Error Resume Next Const ForReading = 1 Const serversFilename = "Servers.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(serversFilename, ForReading) Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add Set objWb = objExcel.ActiveWorkbook x = 2 objExcel.Cells(1, 1) = "Server Name" objExcel.Cells(1, 2) = "DNS UPDATED" Do Until objTextFile.AtEndOfStream strComputer = objTextFile.ReadLine Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") If (strComputer <> "") Then strCommand ="%comspec% /c ping -n 3 -w 1000 " & strComputer Set objExecObject = objShell.Exec(strCommand) strText = objExecObject.StdOut.ReadAll() If Instr(strText, "Reply") > 0 Then For Each objNetCard in colNetCards strPrimaryServer = "192.168.2.100" strSecondaryServer = "192.168.2.200" objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer arrDNSServers = Array("192.168.1.100", "192.168.1.200") objNetCard.SetDNSServerSearchOrder(arrDNSServers) objExcel.Cells(x, 1) = strComputer objExcel.Cells(x, 2) = "Complete" x = x + 1 Next Else objExcel.Cells(x, 1) = strComputer objExcel.Cells(x, 2) = "Server Not reachable" x = x + 1 End if End if loop objTextFile.Close objWb.SaveAs "DNS.xls" Tag: Display first 100 files of directory Tag: 217296
  - 17
    - Changing Computer and AD Description to logged in user? As subject really. Let's assume I have various OU's full of workstations, and at present all the Active Directory description fields are empty. Can anyone help me out with how I could update both the Active Directory Computer Description and the computer description in the properties of "My Computer" to something like "Joe Bloggs, Department X" where the username and department are those of the user who has logged on (assuming the users department is populated on his AD account). I'm looking on Google but as always there seem to be a million suggestions on the best way to do this. Thanks in advance. Tag: Display first 100 files of directory Tag: 217293
  - 18
    - Help with SQL query in script I am getting an eror on my SQL query string as shown below and I'm not sure why the syntax is wrong.... ERROR: Microsoft OLE DB Provider for SQL Server: Line 12: Incorrect syntax near 'item' CODE: Str_Connect = "Provider=SQLOLEDB;Data Source=SQLSERVER;Trusted_Connection=Yes;Initial Catalog=assystDev2" Set CnnSQL=CreateObject("ADODB.Connection") CnnSQL.Open Str_Connect If CnnSQL.State=1 Then Wscript.Echo "Connected" else Wscript.Echo "Not Connected" End If Set Rs=CreateObject("ADODB.Recordset") ' ********** This is the line that produces the ERROR *********** Set Rs=CnnSQL.Execute("SELECT item.item_n, item.expiry_date, usr.email_add" & _ " FROM assyst.dbo.item item INNER JOIN assyst.dbo.usr usr" & _ "ON item.usr_id=usr.usr_id" & _ " WHERE (item.expiry_date>=(ts '2008-01-01 00:00:00') AND item.expiry_date<(ts '2008-03-01 00:00:01'))") Do while not Rs.EOF Wscript.Echo (Rs(0) & space(3) & Rs(1) & space(3) & Rs(2) & space(3) & Rs(3)) Rs.MoveNext Loop OVERVIEW: I need to run a daily report of contract expirations for the next month and email the contract holder with that information. This is being done manually using the following query: SELECT "item"."item_n", "item"."expiry_date", "usr"."email_add" FROM "assyst"."dbo"."item" "item" INNER JOIN "assyst"."dbo"."usr" "usr" ON "item"."usr_id"="usr"."usr_id" WHERE ("item"."expiry_date">={ts '2008-01-01 00:00:00'} AND "item"."expiry_date"<{ts '2008-03-01 00:00:01'}) It returns the following: Item_n expiry_date email_add I have noticed that some of the records returned have some blank (null?) data . I also want to replace the hard coded dates with today and (today +30) dates. Thanks for your help! Tag: Display first 100 files of directory Tag: 217291
  - 19
    - Hide ping in this script Hi All, i am using the following script which was posted on this forum and it works great, one slight problem i have not been able to get around is how to make it do the ping silently, as it stands now it keeps flashing a dos box up every few seconds when it does the pings, i cant seem to get it to run silent, can anyone advise ? On Error Resume Next Dim target, cnt, iCnt Dim iMsg Dim iConf Dim Flds Dim strHTML Dim objFSO, objCfgFile, arrIp(256), arrName(256), arrStatus(256) Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objCfgFile = objFSO.OpenTextFile("mon.cfg", ForReading) WScript.Echo "Started at: " & Now WScript.Echo "Monitoring Device:" & vbCrLf 'read the config file iCnt = 0 Do While objCfgFile.AtEndOfStream <> True strLine = objCfgFile.ReadLine arrCfgRecord = split(strLine, ",") ' arrCfgRecord = Array(strLine) ' should this work too? investigate some other time...! arrIp(iCnt) = Trim(arrCfgRecord(0)) arrName(iCnt) = Trim(arrCfgRecord(1)) arrStatus(iCnt) = TRUE ' For now we assume all systems are responsive Wscript.Echo "Device :" & Trim(arrCfgRecord(0)) & vbTab & "Name:" & vbTab & Trim(arrCfgRecord(1)) if (Len(strLine)>1) then ' Skip empty lines in the config file iCnt = iCnt + 1 End If Loop Set objShell = CreateObject("WScript.Shell") 'The real meat: where we poll the systems every 10 seconds do wscript.sleep(1000) 'milliseconds for cnt = 0 To iCnt -1 'do this as often as you found devices in the config file strPing = "ping -l 1 -n 3 -w 500 " Set objExec = objShell.Run (strPing & arrIp(cnt)) 'we try 3 pings with a 5 second wait. strPingResults = LCase(objExec.StdOut.ReadAll) strTestagainst = "reply from " & arrIp(cnt) ' WScript.Echo arrName(cnt) & " " & arrStatus(cnt) 'debug If InStr(strPingResults, strTestagainst) Then ' If we can ping the system if (arrStatus(cnt)=FALSE) then ' if the old status was that the system was down WScript.Echo Now & vbTab & " " & "System Is Up: " & arrName(cnt) ' inform user system is back again end if 'WScript.Echo arrName(cnt) & " responded to ping." 'debug 'Wscript.Echo "--" & strPingResults 'Wscript.Echo "--" & strTestagainst arrStatus(cnt)=TRUE ' system respons, so status is up Else if (arrStatus(cnt)=TRUE) then ' if status was up WScript.Echo Now & vbTab & " " & "System Is Down: " & arrName(cnt) ' inform user the system is down. end if arrStatus(cnt)=FALSE ' system does not respond, so status is down End If Next loop ' Clean up variables. Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Tag: Display first 100 files of directory Tag: 217285
  - 20
    - regex Hi, I am hoping someone can help me with a regex. I think it is pretty simple. I could probably cobble something together using string manipulations, but I thought regex might be a more elegant solution, but I dont have much experience with reg ex and I need to do this ASAP. Any help would be much appreciated. I need to replace any instances of height="x" & width="x", with height="100" & width="100", from a string. Basically, I need to dynamically change the height and width that a youtube video renders at within a browser.eg. <object width="425" height="355"><param name="movie" value="http://www.youtube.com/v/t9_TPM1lKV8&hl=en"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/t9_TPM1lKV8&hl=en" type="application/x-shockwave-flash" wmode="transparent" width="425" height="355"></embed></object> regex, to replace the height and width within this string to force a 100px square. I will never know the size of the video a user wants to display, so I can't use a standard replace. I am using ASP & vbscript. Any help would be much appreciated. -- Regards Chris Tag: Display first 100 files of directory Tag: 217284
  - 21
    - rename computer I have looked at 2 options, netdom and wmi rename but what is the best way to rename a computer and account from a script ? Also looked at rename and then adding computer to a doamin which depends on the circumstance may not be appropriate. I need to connect to a global catolgue while doing this so changes are seen immediately. The rename occurs most time from the workstation that is already a member of the domain. Administrator rights may need to be provided. I've been having issues with passing the variable computername into the wmi rename option. Any ideas or thoughts on better ways or the best way to do this ? Cheers, Tag: Display first 100 files of directory Tag: 217280
  - 22
    - File Attributes I have the following code which works just fine until I hit a directory. How can I test to see if an entry in a directory is another directory? TargetFolder = "C:\Software\Docs" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(TargetFolder) Set colItems = objFolder.Items Set objfso = CreateObject("Scripting.FileSystemObject") For i = 0 to colItems.Count - 1 Wscript.StdOut.WriteLine "Processing " & colItems.Item(i) Set objFile = objFso.GetFile(TargetFolder & "\" & colItems.Item(i)) Wscript.StdOut.WriteLine colItems.Item(i) & " Attributes " & objFile.attributes dateFile = objFile.DateLastModified dateToday = Now() daysOld = dateToday - dateFile Wscript.StdOut.WriteLine colItems.Item(i) & " is " & daysOld & " days old." Set objFile = Nothing Next Thanks! Tony Tag: Display first 100 files of directory Tag: 217279
  - 23
    - [WP] - Find&Move Disabled Mailboxes to a SG in Exchange Want to move disabled users with mailboxes to a certain SG using a VBScript? Looking for a script ..users are all over the AD in Sub OUs. Anybody assist please? ThanQ Tag: Display first 100 files of directory Tag: 217278
  - 24
    - How to use if condition I have this script that is looking at the registry then displaying the version of SQL and other stuff. I need help addind a condition that if this specific key doesnt exist to set a variable to a message to be displayed later. Here's the piece of code I need help with. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion" strValueName = "CurrentVersion" oReg.GetStringValue (HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue) This piece of code is inside a Do Until loop that checks a few servers so, if "strKeyPath" doesnt exist I want to set a variable to "Application Not installed" then continue on the loop process with the next server Any ideas on how to do this? Tag: Display first 100 files of directory Tag: 217267
  - 25
    - Wholesale Nike Press Black and Silver Digital Unisex Watch WC0038-001 Wholesale Nike Press Black and Silver Digital Unisex Watch WC0038-001 Replica Nike Press Black and Silver Digital Unisex Watch WC0038-001 Wholesale Link : http://www.wholesale-watches.org/wristwatch-7977.html Wholesale Replica Watches : http://www.wholesale-watches.org/ Buy the cheapest Nike Press Black and Silver Digital Unisex Watch WC0038-001 in toppest Replica . www.wholesale-watches.org helps you to save money! Nike-WC0038-001 , Nike Press Black and Silver Digital Unisex Watch WC0038-001 , Replia , Cheap , Fake , imitation , Nike Watches Nike Press Black and Silver Digital Unisex Watch WC0038-001 Information : Brand : Nike Watches (http://www.wholesale-watches.org/nike- watches.html ) Gender : Model : Nike-WC0038-001 Case Material : Case Diameter : Dial Color : Bezel : Movement : Clasp : Water Resistant : Crystal : Our Price : http://www.wholesale-watches.org/wristwatch-7977.html Availability: In StockNike Press Black and Silver Digital Unisex Watch WC0038-001Digital watch in black and silver. Chronograph. Cross-cut metal buttons. One-touch backlighting. Pre-curved polyurethane strap. Stainless-steel buckle and back plate. Strap-keeper post. Water resistant at 100 meters (330 feet). Nike Press Black and Silver Digital Unisex Watch WC0038-001Nike Press Black and Silver Digital Unisex Watch WC0038-001 is brand new, join thousands of satisfied customers and buy your Nike Press Black and Silver Digital Unisex Watch WC0038-001 with total satisfaction . A Weholesale-watches.org 30 Day Money Back Guarantee is included with every Nike Press Black and Silver Digital Unisex Watch WC0038-001 for secure, risk-free online shopping. Weholesale-watches.org does not charge sales tax for the Nike Press Black and Silver Digital Unisex Watch WC0038-001, unless shipped within New York State. Weholesale-watches.org is rated 5 stars on the Yahoo! network. Nike Press Black and Silver Digital Unisex Watch WC0038-001 in Nike Watches series won't be wholesale in China Replica Watches Wholesale, If you want to order, please contact with us at wholesalewatch@hotmail.com Thank you for choosing www.wholesale-watches.org as your reliable dealer of quality waches including Nike Press Black and Silver Digital Unisex Watch WC0038-001 . we guarantee every watch you receive will be exact watch you ordered. Each watch sold enjoy one year Warranty for free repair. Every order from aaa-replica-watches is shipped via EMS, the customer is responsible for the shipping fee on the first order, but since the second watch you buy from our site, the shipping cost is free. Please note that If the total amount of payment is over $600(USD), the customer is required to contact our customer service before sending the money in case failed payment. If you have any other questions please check our other pages or feel free to email us by wholesalewatch@hotmail.com. Cheapest Nike-WC0038-001 The Same Nike Watches Series : Nike Press Black and Team Red Digital Unisex Watch WC0038-067 : http://www.wholesale-watches.org/wristwatch-7978.html Nike Press Iron and Blue Fox Digital Unisex Watch WC0038-040 : http://www.wholesale-watches.org/wristwatch-7979.html Nike Mia Ladies Watch WR0104-501 : http://www.wholesale-watches.org/wristwatch-7980.html Nike Mia Ladies Watch WR0104-061 : http://www.wholesale-watches.org/wristwatch-7981.html Nike Mia Ladies Watch WR0104-001 : http://www.wholesale-watches.org/wristwatch-7982.html Nike Mia Ladies Watch WR0104-497 : http://www.wholesale-watches.org/wristwatch-7983.html Nike Imara Keeva Aluminum Ladies Watch WR0105-021 : http://www.wholesale-watches.org/wristwatch-7984.html Nike Imara Keeva Ladies Watch WR0105-021 : http://www.wholesale-watches.org/wristwatch-7985.html Nike Keeva Ladies Watch WR0105-502 : http://www.wholesale-watches.org/wristwatch-7986.html Nike Keeva Ladies Watch WR0105-033 : http://www.wholesale-watches.org/wristwatch-7987.html Nike Keeva Ladies Watch WR0105-031 : http://www.wholesale-watches.org/wristwatch-7988.html Nike Gorge Kids Watch WK0010-023 : http://www.wholesale-watches.org/wristwatch-7989.html cheap ,lowest price , Wholesale Best Nike Press Black and Silver Digital Unisex Watch WC0038-001 Tag: Display first 100 files of directory Tag: 217266
- Next
  - 1
    - Wholesale 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Wholesale 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 Replica 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 Wholesale Link : http://www.wholesale-watches.org/wristwatch-3069.html Wholesale Replica Watches : http://www.wholesale-watches.org/ Buy the cheapest 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 in toppest Replica . www.wholesale-watches.org helps you to save money! Jaeger- LeCoultre-303.24.20 , 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 , Replia , Cheap , Fake , imitation , Jaeger LeCoultre Watches 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 Information : Brand : Jaeger LeCoultre Watches (http://www.wholesale- watches.org/jaeger-lecoultre-watches.html ) Gender : Mens Model : Jaeger-LeCoultre-303.24.20 Case Material : Stainless Steel Case Diameter : 303.24.20, Q303.24.20, 303-24-20, 3032420, Jaeger- LeCoultre-303.24.20 Dial Color : Silver Guilloche Bezel : Fixed Movement : Automatic Clasp : Brown Leather Water Resistant : 30m/100ft Crystal : Scratch Resistant Sapphire Our Price : http://www.wholesale-watches.org/wristwatch-3069.html Availability: Contact Us For Availability Need Assistance? Call us at 866-581-JOMA18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 18k rose gold case. Brown leather strap. Silver guilloche dial. Double date window displays at 11 o'clock position. Small seconds subdial at 6 o'clock position. Additional hand indicates second time zone. Case reverses to solid steel plate which can be personalized or engraved. Scratch resistant sapphire crystal. Deployant clasp. Case size 29mm x 46.5mm. Case thickness 12mm. Automatic movement. Water resistant at 30 meters (100 feet). Alternate model number Q3032420. 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 Brand Jaeger LeCoultreSeries Jaeger LeCoultreGender MensCase Material Stainless SteelCase Thickness 12mmCase Diameter 29mm x 46.5mmDial Color Silver GuillocheBezel FixedMovement AutomaticClasp DeploymentBracelet Brown LeatherWater Resistant 30m/100ftCrystal Scratch Resistant SapphireWarranty 5 Year Original Manufacturer WarrantyItem Variations 303.24.20, Q303.24.20, 303-24-20, 3032420, Jaeger-LeCoultre-303.24.20Additional Information Date Display at 11 O'clock Position; Small Seconds Subdial at 6 O'clock Position; 2nd Time Zone; Case Reverses to Solid Steel PlateThe early Jaeger-LeCoultre watch movements were constructed by hand, and required approximately 1000 steps of manual dexterity. The Jaeger- LeCoultre watchmakers of today still adjust their watches by hand, as this traditional, labor-intensive method has proven to enhance timekeeping accuracy. In the 1930s, the Art deco movement greatly affected the Jaeger-LeCoultre watch product line; as the company believed that the beauty of the watch appearance should be a representation of the sophistication of the watch movement embedded within. Today, the Jaeger-LeCoultre watches are constructed with these same design principals, making the Jaeger-LeCoultre watches wearable, functional works of modern art. Weholesale-watches.org is proud to offer discounted Jaeger-LeCoultre watches, featuring Master Compressor, Amvox, Grande Complication, Ideale, Reverso, Master Control, and more Jaeger-LeCoultre watch series.18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 is brand new, join thousands of satisfied customers and buy your 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 with total satisfaction . A Weholesale-watches.org 30 Day Money Back Guarantee is included with every 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 for secure, risk-free online shopping. Weholesale-watches.org does not charge sales tax for the 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20, unless shipped within New York State. Weholesale-watches.org is rated 5 stars on the Yahoo! network. 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 in Jaeger LeCoultre Watches series won't be wholesale in China Replica Watches Wholesale, If you want to order, please contact with us at wholesalewatch@hotmail.com Thank you for choosing www.wholesale-watches.org as your reliable dealer of quality waches including 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 . we guarantee every watch you receive will be exact watch you ordered. Each watch sold enjoy one year Warranty for free repair. Every order from aaa- replica-watches is shipped via EMS, the customer is responsible for the shipping fee on the first order, but since the second watch you buy from our site, the shipping cost is free. Please note that If the total amount of payment is over $600(USD), the customer is required to contact our customer service before sending the money in case failed payment. If you have any other questions please check our other pages or feel free to email us by wholesalewatch@hotmail.com. Cheapest Jaeger-LeCoultre-303.24.20 The Same Jaeger LeCoultre Watches Series : Jaeger LeCoultre Reverso Grande Automatique 18kt Rose Gold Mens Watch 303.21.20 : http://www.wholesale-watches.org/wristwatch-3070.html Jaeger LeCoultre Reverso Grande Automatique Steel Mens Watch 303.81.20 : http://www.wholesale-watches.org/wristwatch-3071.html Jaeger LeCoultre Reverso Grande Reserve Stainless Steel Mens Watch 301.84.20 : http://www.wholesale-watches.org/wristwatch-3072.html Jaeger LeCoultre Reverso Grande Reserve Stainless Steel Mens Watch 301.81.20 : http://www.wholesale-watches.org/wristwatch-3073.html Jaeger LeCoultre Reverso Grande Reserve 18kt Rose Gold Mens Watch 301.24.20 : http://www.wholesale-watches.org/wristwatch-3074.html Jaeger LeCoultre Reverso Grande Reverse 18kt Rose Gold Mens Watch 801.21.20 : http://www.wholesale-watches.org/wristwatch-3075.html Jaeger LeCoultre Reverso Gran Sport Chronograph Mens Watch 295.86.50 : http://www.wholesale-watches.org/wristwatch-3076.html Jaeger LeCoultre Reverso Gran Sport Chronograph 18kt Yellow Gold Mens Watch 295.11.01 : http://www.wholesale-watches.org/wristwatch-3077.html Jaeger LeCoultre Reverso Gran Sport 18kt Yellow Gold Mens Watch 290.16.20 : http://www.wholesale-watches.org/wristwatch-3078.html Jaeger LeCoultre Reverso Gran Sport Duo Mens Watch 294.81.02 : http://www.wholesale-watches.org/wristwatch-3079.html Jaeger LeCoultre Reverso Gran Sport Duo 18kt Yellow Gold Mens Watch 294.16.01 : http://www.wholesale-watches.org/wristwatch-3080.html Jaeger LeCoultre Reverso Gran Sport Duo Mens Watch 294.86.01 : http://www.wholesale-watches.org/wristwatch-3081.html cheap ,lowest price , Wholesale Best 18k Rose Gold Jaeger LeCoultre Reverso Grand Automatique Steel Mens Watch 303.84.20 Tag: Display first 100 files of directory Tag: 217265
  - 2
    - Wholesale Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Wholesale Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Steel Black Mens Watch B1335853-A5-485 Replica Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Steel Black Mens Watch B1335853-A5-485 Wholesale Link : http://www.wholesale-watches.org/wristwatch-1727.html Wholesale Replica Watches : http://www.wholesale-watches.org/ Buy the cheapest Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Steel Black Mens Watch B1335853-A5-485 in toppest Replica . www.wholesale-watches.org helps you to save money! breitling- windrider-B1335853-A5-485 , Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Steel Black Mens Watch B1335853-A5-485 , Replia , Cheap , Fake , imitation , Breitling Watches Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Steel Black Mens Watch B1335853-A5-485 Information : Brand : Breitling Watches (http://www.wholesale-watches.org/ breitling-watches.html ) Gender : Mens Model : breitling-windrider-B1335853-A5-485 Case Material : 18kt Yellow Gold And Stainless Steel Case Diameter : B1335853-A5-485, B1335853/A5/485, B1335853.A5.485, B1335853 Dial Color : White Mother-of-pearl Bezel : Unidirectional Rotating Movement : Automatic Clasp : Black Leather Water Resistant : 100m/330ft Crystal : Scratch Resistant Sapphire Our Price : http://www.wholesale-watches.org/wristwatch-1727.html Stainless steel case with 18kt yellow gold accents. Black leather strap. Mother-of-pearl dial with gold subdials and 8 diamond hour markers. Unidirectional ratcheted bezel. Chronograph measures 1/4th second, 30 minutes, and 12 hours. Dial aperture calendar displays date at 3 o'clock position. Minimum 42 hour power reserve. Screw-locked crown with two gaskets. Screwed-in case back. Cambered sapphire crystal, glareproofed both sides. Deployment clasp. Case diameter 39mm. Case thickness 16.10mm. Automatic movement. Water resistant at 100 meters (330 feet). Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Steel Black Mens Watch B1335853-A5-485 in Breitling Watches series won't be wholesale in China Replica Watches Wholesale, If you want to order, please contact with us at wholesalewatch@hotmail.com Thank you for choosing www.wholesale-watches.org as your reliable dealer of quality waches including Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Steel Black Mens Watch B1335853-A5-485 . we guarantee every watch you receive will be exact watch you ordered. Each watch sold enjoy one year Warranty for free repair. Every order from aaa-replica-watches is shipped via EMS, the customer is responsible for the shipping fee on the first order, but since the second watch you buy from our site, the shipping cost is free. Please note that If the total amount of payment is over $600(USD), the customer is required to contact our customer service before sending the money in case failed payment. If you have any other questions please check our other pages or feel free to email us by wholesalewatch@hotmail.com. Cheapest breitling-windrider-B1335853- A5-485 The Same Breitling Watches Series : Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Steel Mens Watch B1335853-A5 : http://www.wholesale-watches.org/wristwatch-1728.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold Steel Mens Watch B1335812-H5-486 : http://www.wholesale-watches.org/wristwatch-1729.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold Steel Turquoise Mens Watch B1335812-C6-489 : http://www.wholesale-watches.org/wristwatch-1730.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold Steel Brown Mens Watch B1335812-B7-491 : http://www.wholesale-watches.org/wristwatch-1731.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold Steel Black Mens Watch B1335812-B7-361A : http://www.wholesale-watches.org/wristwatch-1732.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold Steel Black Mens Watch B1335812-B7-170 : http://www.wholesale-watches.org/wristwatch-1733.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold Steel Mother-of- pearl Black Mens Watch B1335812-A5-171 : http://www.wholesale-watches.org/wristwatch-1734.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold Steel Mother-of- pearl Mens Watch B1335712-A579-358 : http://www.wholesale-watches.org/wristwatch-1735.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold and Steel Turquoise Mens Watch B1335712-L5-358 : http://www.wholesale-watches.org/wristwatch-1736.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold Gold Steel Mens Watch B1335712-H5-361 : http://www.wholesale-watches.org/wristwatch-1737.html Breitling Windrider Chrono Cockpit 18kt Yellow Gold Steel Mens Watch B1335712-A5-358 : http://www.wholesale-watches.org/wristwatch-1738.html Breitling Windrider Chrono Cockpit Steel Brown Mens Watch A1335812- G5-165 : http://www.wholesale-watches.org/wristwatch-1739.html cheap ,lowest price , Wholesale Best Breitling Windrider Chrono Cockpit Diamond 18kt Yellow Gold Steel Black Mens Watch B1335853- A5-485 Tag: Display first 100 files of directory Tag: 217264
  - 3
    - Delete Files based on File Attributes Hi All, bit of a novice to vbscript, not suer where i'm going wrong here. i want to be able to delete all files from a directory that have the hidden attribute checked. i have the below script, but can't seem to get it to work, i have put wscript.echo rather than a delete command for testing purposes. any help is greatly appreciated. Regards Jason ============================================================================ strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2") Set objShell = CreateObject ("Shell.Application") Set objFolder = objShell.Namespace ("C:\Test\HiddenTest") For Each objFile In objFolder.Items Set colFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile where Hidden = 'True'") Wscript.Echo objFile.Name Next ============================================================================= Tag: Display first 100 files of directory Tag: 217255
  - 4
    - Help with file functions I've gotten some of this done. Not being anywhere close to being a 'guru', I hope some of you can help. Here's what I want to do. I have a folder (strFolderName) and its subdirectories that I want all the files checked (the criteria is in the next paragraph). Certain directories (including the root) need to be excluded. This part I have working. All the file names are written to a .txt file (strOutputFile). The part I need help with is parsing the file name which should contain a date such as YYYYMMDD. The file name should be in a *,*YYYYMMDD.doc format (or could be a .dot). If the file a .dot, it needs to rename it to a .doc also. The current date needs to be checked to see if the file is older than two business days (don't need to worry about holidays). A final list needs to contain folder name (not complete directory name), file name, and the age of the file (based on filename YYYYMMDD-now()). Can anyone help? Here's my script so far. =========Script below======== Dim ObjFso, objOutputFile Dim StrFolderName, strOuputFile On Error Resume Next StrFolderName = "S:\ITARF" strOutputFile = "C:\dirlist.txt" 'Creating a file system object Set ObjFso = CreateObject("Scripting.FileSystemObject") set objOutputFile = objFSO.CreateTextFile(strOUtputFile, TRUE) 'Calling this function to list all files and sub folders Call ListSubFoldersAndFiles(StrFolderName) 'This function will recursively call itself to display 'all files and subfolders Function ListSubFoldersAndFiles(StrSubFolderPath) Dim ObjFolder Dim ObjFileCollection Dim ObjSubFolderCollection Dim ObjSubFolder Dim ObjFile 'Getting the folder Set ObjFolder=ObjFso.GetFolder(StrSubFolderPath) 'Getting the list of files Set ObjFileCollection=ObjFolder.Files 'Printing each file For Each ObjFile In ObjFileCollection If strSubFolderPath <> "S:\ITARF" Then If ObjFile.DateLastAccessed objOutputFile.WriteLine(ObjFile.Path) End If Next 'Getting the list of sub folders Set ObjSubFolderCollection=ObjFolder.SubFolders For Each ObjSubFolder In ObjSubFolderCollection If Left(ObjSubFolder.Name,1) <> "-" Then If UCase(Left(ObjSubFolder.Name,4)) <> "COMP" Then 'Printing each sub folder 'WScript.Echo(ObjSubFolder.Path) & " - ObjSubFolder.Path" 'WScript.Echo(ObjFolder.SubFolders) & " - ObjFolder.SubFolders" 'objOutputFile.WriteLine((ObjSubFolder.Name) & " - ObjSubFolder.Name") 'Calling this function recursively to list files and 'sub folders from this sub folder Call ListSubFoldersAndFiles(ObjSubFolder.Path) End If End If Next End Function objOutputFile.Close set objFSO = Nothing Tag: Display first 100 files of directory Tag: 217253
  - 5
    - =?ISO-8859-1?Q?Focus_bouton_pointill=E9_sur_boite_de_dialogue?= Bonjour, si je lance mon script vbs directement depuis la machine qui h=E9berge le script, les commande sendkeys focntionne parfaitement. le focus sur bouton est OK (encadr=E9 pointill=E9) et mon script se d=E9roule parfaitement. Si je lance le script depuis une machine distante vers le pc h=E9bergeant le script; le focus n'est plus pr=E9sent (aucun encadr=E9 pointill=E9 sur les boutons) donc mes sendkeys ne sont plus valides!! comment faire pour r=E9cup=E9rer le focus et l'encadr=E9 pointill=E9? Tag: Display first 100 files of directory Tag: 217237
  - 6
    - script error I have try to run the script on a remote computer, but it return the error... any idea what's wrong? I can confirm that the remote computer is up and running and the IP address is correct. Error: c:\scripts\remote.vbs(10,5) (null): 0x80041003 My script like such: ' On Error Resume Next intStartingAddress = 220 intEndingAddress = 220 strSubnet = "192.168.1." For i = intStartingAddress to intEndingAddress strComputer = strSubnet & i Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_OperatingSystem") For Each objItem in ColItems Wscript.Echo strComputer & ": " & objItem.Caption Next Next Tag: Display first 100 files of directory Tag: 217235
  - 7
    - Get information about GPO policies Hello! How to get information from domain about policies and their properties? Something, like report from Group Policy Management Console? Result in XML/HTML from that not satisfy me. I need to have my own access... Thanks for an answer Leszek Tag: Display first 100 files of directory Tag: 217234
  - 8
    - Replace function ins VBS Hi, with the following script, i want to read out a file, in which some printers ar written in, one printer in one line. Then, i want to put these strings and replace the CR and LF with Two ;; oder something else. But, when i run my script, nothing is displayed. ------------ <script language="vbscript"> On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48) For Each objItem in colItems Set objFso = CreateObject("Scripting.FileSystemObject") Set objLog = objFso.CreateTextFile("c:\temp\printerlog.txt",True) objLog.WriteLine objItem.Name Next ' Define Variables Dim objFileSystem Dim objFile Dim objTextStream Dim szConfigFile Dim szPrinter Dim szMessage Dim szPrinterReplace Dim szCRLFDef ' Setting path for logfile szConfigFile = "c:\temp\printerlog.txt" ' which Object? Set objFileSystem = CreateObject("Scripting.FileSystemObject") ' which methode to the object? Set objFile = objFileSystem.OpenTextFile(szConfigFile) ' Read the complete file to the end of it.... If not objFile.atEndOfStream THEN strArray = objFile.readAll ' define CR & LF szCRLFDef = CHR(13) & CHR(10) ' replace CR&LF with ;; szPrinterReplace = StrArray.replace(szCRLFDef,";;") ' print out the string with the replaced chars document.writeln "Installierte Drucker: " , szPrinterReplace ' close file objFile.close End If </script> ------------------- When i replace the szPrinterReplace with strArray , the complete content of the file is displayed. So, can anyone help me to debug my script or help me with i tip? Thanks, André Tag: Display first 100 files of directory Tag: 217231
  - 9
    - Detect/Set printer online state I've been working on this for a while. I have a KONICA MINOLTA PagePro 1400W printer that needs trained to be user friendly. When toner is running low (or I print 50 or more consecutive pages) the pages come out with blank patches. Pulling the cartridge and giving it a shake usually clears it up. The problem is, the cartridge has a chip on it and just taking it out of the printer makes it think it was refilled. This sets a flag in the printer driver which is designed to annoy the user to purchase an OEM replacement cartridge. I call it booby trapping. Anyway, what happens is, this flag causes the print driver to set itself to an offline state every time the computer (Windows 98) boots. No problem, I can set it to online manually, but it is annoying. It also displays a nag screen to replace the cartridge every time I print something. I have been looking for a patched driver that ignores the cartridge chip (the ideal solution). Having found nothing like that available (replacement chips are a non solution), I decided to write a script to handle it for me. I managed to eliminate the nag screen with an AppActivate/SendKey script running in a continuous loop on a 5 second delay between loops. But I can not seem to find code that shows me how to detect if the printer status is offline, or how to change it to online. How can I set printer state to online using VBScript? -- Todd Vargo (Post questions to group only. Remove "z" to email personal messages) Tag: Display first 100 files of directory Tag: 217224
  - 10
    - What to code in now that VS2008 has depreciated VBScript? What does microsoft consider to be the new scripting language to use when scripting since VS2k8 no longer "supports" VBScript? JScript? Tag: Display first 100 files of directory Tag: 217214
  - 11
    - vbscript problem removing and mapping network drive I'm hoping someone can help. I'm trying to move our logon scripts over from a mix of batch files and kixtart to vbscript. So far so good, except I have an issue with getting the script to map network drives reliably. In our environment let's say everyone has to have "r" drive mapped to \\server\share. Then depending which department a user is in they need a set of drives mapping for that department. So I have the following (not the whole script, modified to post the relevant bits): Dim objADSysInfo, WshShell, WshNetwork Set objADSysInfo = CreateObject("ADSystemInfo") Set WshShell = WScript.CreateObject("WScript.Shell") Set WshNetwork = WScript.CreateObject("WScript.Network") On Error Resume Next FirstSub SecondSub ThirdSub Mappings Sub Mappings WshNetwork.RemoveNetworkDrive "r:" WshNetwork.MapNetworkDrive "r:", "\\server\share" strUserPath = "LDAP://" & objADSysInfo.UserName Set objUser = GetObject(strUserPath) For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN Select Case Left(strGroupName, 4) Case "0001" WshNetwork.RemoveNetworkDrive "x:" WshNetwork.RemoveNetworkDrive "y:" WshNetwork.RemoveNetworkDrive "z:" WshNetwork.MapNetworkDrive "x:", "\\server\share" WshNetwork.MapNetworkDrive "y:", "\\server\share" WshNetwork.MapNetworkDrive "z:", "\\server\share" Case "0002", "0003", "0004", "0005" WshNetwork.RemoveNetworkDrive "x:" WshNetwork.MapNetworkDrive "x:", "\\server\share" End Select Next End Sub AIUI this should remove each drive (in case it's already in use for something else) and then map each drive. The "On Error Resume Next" is there so that the script doesn't tank if an attempt is made to remove a non-existent mapping, or if a server or share is down at the time someone logs on etc. so AIUI I need it in there. The problem I'm seeing is that let's say I don't have an "r" drive, the script above doesn't seem to map it *if* the line is there to unmap it first. Same for the other drives. If I remove the line to unmap the drives, and manually disconnect them before running the script they map. If I remove the "On Error Resume Next" line the script tanks the first time a drive doesn't exist to be removed etc. I'm slightly confused and would appreciate someone casting an eye and telling me if I've done something really stupid or could do it differently/better to be more robust etc. Thanks in advance. Tag: Display first 100 files of directory Tag: 217207
  - 12
    - Why won't this work!! Hi, Please disregard the extra variables and end sub that deals with errors. I've cut down the script to get my point across. I don't understand why I can't get the office location to show up here. If I substitute the description field it works like a champ... what am I missing? Thanks, DK --------------- ' Explicitly define all variables used in the program Option Explicit Dim Filesys, Contents, Outfile, OutfileName, OutfileHeading Dim OutfileDelim, Domain, DomainItem, LastLogin, LastLogoff Dim AccountExpirationDate, BadLoginCount, UserFlags, ITExistsInDepartment Dim PasswordExpired, PasswordNeverExpires, PasswordCannotChange, department, st Dim HomeDirRequired, physicalDeliveryOfficeName ' Handle error conditions instead of aborting script On Error Resume Next ' =============================================================== ' USER DEFINED VARIABLES ' =============================================================== ' Domain - Domain from which to dump user information ' OutfileName - Fully qualified file name for the extract file ' OutfileHeading - Print field titles on the 1st line of the ' extract file? ' OutfileDelim - Field delimiter for extract file ' =============================================================== Domain = "domain" OutfileName = "c:\userdump.txt" OutfileHeading = "y" OutfileDelim = vbTab ' File Constants Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 ' Open the extract file Set Filesys = CreateObject("Scripting.FileSystemObject") Set Outfile = Filesys.OpenTextFile(OutfileName, ForWriting, True) ' Print field titles if desired If OutfileHeading = "y" then Outfile.Writeline "Domain" & OutfileDelim & _ "Office" End If ' Bind to the domain Set Domain = GetObject("WinNT://" & Domain) ' Build an extract record for the user Contents = Domain.Name & OutfileDelim & _ DomainItem.physicalDeliveryOfficeName ' Write the user's extract record Outfile.Writeline Contents End If Next ' Close the extract file Outfile.Close Wscript.Echo "The user extract process has completed." ' Subroutine to process errors Public Sub ErrorCheck() ' Error numbers -2147463155 and 424 are acceptable, all other ' error codes should be investigated If Err.Number <> 0 then If (Err.Number = -2147463155) or (Err.Number = 424) then Err.Clear Else Wscript.Echo Err.Number & " - " & Err.Description Outfile.Writeline Err.Number & " - " & Err.Description Wscript.Quit End If End If End Sub Tag: Display first 100 files of directory Tag: 217204
  - 13
    - modify variable value I have a script that reads a version value of off the registry then assigns that value to a variable. I want to truncate the value assigned to the variable to only the first 3 characters. Instead of 9.00.165 I want the variable to be equal to 9.0 Instead of 6.10.235 I want the variable to be equal to 6.1 Any help doing this would be appreciated Tag: Display first 100 files of directory Tag: 217198
  - 14
    - Group vs User Object class question I am looking for a way to determine if an object is a group or a user in active directory. Here is a sample script that will sort out local users, but for the non local users how can I determin strComputer = "atl-fs-01" strTestString = "/" & strComputer & "/" Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators") For Each objUser In colGroups.Members If InStr(objUser.AdsPath, strTestString) Then Wscript.Echo "Local user: " & objUser.Name ElseIf objuser.name and objuser.class = User Then Wscript.echo â??I am a userâ?? Else Wscript.Echo "I am a group " & objUser.Name End If End If Next Tag: Display first 100 files of directory Tag: 217194
  - 15
    - Microsoft VBScript compilation error: 'loop' without 'do' Can anyone tell me why I get an error message "Microsoft VBScript compilation error: 'loop' without 'do'"? The snippet tajen from the full script works fine without the If / Else statments and just do the writeline... As always, thanks for any help! Sean ---------------------------------------------- k = 2 Set objRecordSet = objCommand.Execute Do Until objRecordSet.EOF strFN = objRecordSet.Fields("givenName") strMI = objRecordSet.Fields("initials") strLN = objRecordSet.Fields("sn") strSMNN = objRecordSet.Fields("mailnickname") If strMI = "" Then wrtlog.WriteLine "MSEXCH:MB/" & strFN & " " & strLN Else If strFN = "" Then wrtlog.WriteLine "MSEXCH:MB/" & strLN Else wrtlog.WriteLine "MSEXCH:MB/" & strFN & " " & strMI & " " & strLN End If k = k + 1 objRecordSet.MoveNext Set strFN = Nothing Set strMI = Nothing Set strLN = Nothing Set strSMNN = Nothing Set strLGTO = Nothing Loop ----------------------------------------------- Tag: Display first 100 files of directory Tag: 217193
  - 16
    - NTFS Stuff v.1.0 Hi everybody! We would like to share with you our own project ... NTFS Stuff is an useful WSH script, written to be used on a fileserver, that generates an HTML report which displays the NTFS access permissions structure. Two different "verbosity" levels make possible to display only the details of "significant" folders or those of the entire folders tree. In addition to the DACL of each single folder the resultant report shows other informations, such as: creation date, last modified date, owner, NTFS inheritance. We have paid particular attention to the graphical representation of informations, colours and symbols make easier to note changes in the normal application of NTFS permissions, precisely based, as we said before, on the "inheritance" principle. you can download it at: http://www.notageek.it/wp-includes/files/ntfsStuff_v1.zip for more informations you can visit the project page at: http://www.notageek.it/wsh-vbs-ntfs-stuff-eng.html Give us a feedback ! Thanks Luca Alberti & Mirko Iodice Tag: Display first 100 files of directory Tag: 217188
  - 17
    - Sending e-mail via SMTP and logging on to the server I need to create a script to create and send a mail message thru a SMTP server that requires authentication (username and password). How can I pass username and password to the SMTP server from VBscript? Regards Mario Tag: Display first 100 files of directory Tag: 217185
  - 18
    - Quick and Easy VB Help Hello, We are changing our logon script to do vb from bat. I just need help with getting this line. What I am trying to accomplish is if this user is a member of group "A" then disconnect this network drive. I tried this with no luck... Function IsAMemberOf(strDomain,strUser,strGroup) On Error Resume Next Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser & ",user") Set objGrp=GetObject("WinNT://" & strDomain & "/" & strGroup & ",group") If objGrp.IsMember(objUser.ADsPath) Then IsAMemberOf=True Else IsAMemberOf=False End If End Function If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"A") Then WshNetwork.RemoveNetworkDrive "N:","True","True Any help greatly appreciated....... Tag: Display first 100 files of directory Tag: 217184
  - 19
    - How to call WritePrivateProfileString? Hi all, Is it possible to call WritePrivateProfileString from vbscript? Can I use rundll32.exe tool? I=92ve tried: rundll32 kerner32.dll, WritePrivateProfileString =93MySection1=94,=94MyKey1=94,=94MyValue1=94,=94c:\MyIniFile.ini=94 but it doesn=92t work =96 I got an error: An exception occurred while trying to run "kernel32.dll,WritePrivateProfileStringA " MySection1"," MyKey1"," MyValue1"," c:\MyIniFile.ini "" Thanks Tag: Display first 100 files of directory Tag: 217176
  - 20
    - HELP - Listing members of group in deep OU Is there some limit or trick to getting a list of group members in a deep OU? I need to copy the members of a group to another group, but I can't even list the members of the group. I get an empty set returned. The code works fine if I test a group that is 2 OU's higher in the tree, but then returns nothing if I go below 3 levels. Here's the code I'm using to test this. On Error Resume Next ' This line WORKS Set objGroup = GetObject _ ("LDAP:// cn=groupname1,ou=level3,ou=IT,ou=Departments,dc=company,dc=com") ' This line does NOT work '("LDAP:// cn=groupname2,ou=level5,ou=level4,ou=level3,ou=IT,ou=Departments,dc=company,dc=com") objGroup.GetInfo arrMemberOf = objGroup.GetEx("member") WScript.Echo "Members:" For Each strMember in arrMemberOf WScript.echo strMember Next TIA, Seymour Tag: Display first 100 files of directory Tag: 217175
  - 21
    - pskill on a remote computer hello i did'nt found a forum for powershell so i put my question here ... i made a script to kill a process, it can't be kill normaly, so i use pskill ,thanks for this graet utility it works when i am connected locally on my server, but now i want to start it from my computer, and it does'nt work, permission refused ! here is the code : batch_pskill_2.ps1 cmd /c "F:\0TP\PSKILL.exe \\ocasrv5 -u administrator notepad" ocasrv5 is the name of my server, it's a dc i try whith different user: administrator or ocap\administrator (where ocap is my domain) thanks -- nt Tag: Display first 100 files of directory Tag: 217173
  - 22
    - if user in OU=Managers then... Hi, How do I test for membership in a specific OU, say 'Managers' and run an exe file 'MyProg.exe' if the current user is member of this OU? And, do I need to specify the full OU path like /Quebec/Production/Managers or is it ok with the the OU node name? Thanks a lot for an example of this rgds jake Tag: Display first 100 files of directory Tag: 217171
  - 23
    - bathc file and scripting to look for account numbers I need some helps to get a batch file or a script to search one of drives on a server particularly looking for account number in mutiple folders and deep layers of the folder. Anyone can help to send me a sample bathc or script file? Thanks! Tag: Display first 100 files of directory Tag: 217164
  - 24
    - Parse text file I need to parse a text file using VB. The text file is in the following format Server [Server01] Address [192.168.0.10] Ds location: cn=192.168.0.10 I need to get the server name out of this. The server name is Server01. I was able to create a script to parse the IP but can not figure out the server name. Thanks Tag: Display first 100 files of directory Tag: 217159
  - 25
    - SQL Version I need a script to collect the MS SQL version installed on several servers Output could look like this: Server1 SQL2000 Server2 SQL2000, SQL2005 Server3 SQL2005 Server4 SQL2000 etc etc Tag: Display first 100 files of directory Tag: 217155

I am looking for a vbscript that will display the first 100 files in a
directory that contains more than 100 files.

Re: Display first 100 files of directory by Pegasus

Pegasus
Fri Apr 25 00:41:03 CDT 2008

"Rob Pettigrew" <Rob Pettigrew@discussions.microsoft.com> wrote in message
news:F347130C-1A03-4653-B66D-F6DFDD98D193@microsoft.com...
>I am looking for a vbscript that will display the first 100 files in a
> directory that contains more than 100 files.

This wouldn't be the homework after Lesson #1 in a VB Script
course? If yes then you need to consider:
- What is "first 100 names"? Sorted by date, size or name?
- How will you look at these lines? Most will scroll off the
screen.

Top

Re: Display first 100 files of directory by Alex

Alex
Fri Apr 25 07:35:50 CDT 2008

More context would definitely be helpful for this question: OS version, why
VBScript, etc. Otherwise, I would just download a head.exe tool and use the
cmd shell's DIR command...

"Pegasus (MVP)" <I.can@fly.com.oz> wrote in message
news:#xz40bppIHA.3860@TK2MSFTNGP02.phx.gbl...
>
> "Rob Pettigrew" <Rob Pettigrew@discussions.microsoft.com> wrote in message
> news:F347130C-1A03-4653-B66D-F6DFDD98D193@microsoft.com...
>>I am looking for a vbscript that will display the first 100 files in a
>> directory that contains more than 100 files.
>
> This wouldn't be the homework after Lesson #1 in a VB Script
> course? If yes then you need to consider:
> - What is "first 100 names"? Sorted by date, size or name?
> - How will you look at these lines? Most will scroll off the
> screen.
>

Top

Re: Display first 100 files of directory by Alexander

Alexander
Fri Apr 25 16:43:23 CDT 2008

Rob Pettigrew schrieb:
> I am looking for a vbscript that will display the first 100 files in a
> directory that contains more than 100 files.

@echo off
pushd %SYSTEMROOT%\SYSTEM32
setlocal enabledelayedexpansion
set C=1

for /F "delims=" %%A in ('dir /on /a-d /b') do (
if !C! gtr 100 goto exit
set /A C += 1
echo %%~nxA %%~tA %%~zA
)
:exit
popd

MfG,
Alex

Top

Re: Display first 100 files of directory by defragster

defragster
Sun Jun 01 14:16:01 CDT 2008

Cool routine - but the Pushd and PopD fail for me on Vista x64 unless I
re-order the pushD as follows:

setlocal enabledelayedexpansion
set C=1
pushd %SYSTEMROOT%\SYSTEM32

"Alexander Mueller" wrote:

> @echo off
> pushd %SYSTEMROOT%\SYSTEM32
> setlocal enabledelayedexpansion
> set C=1

Top