if then statements

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
    - 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: if then statements Tag: 217442
  - 2
    - 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: if then statements Tag: 217440
  - 3
    - ?? 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: if then statements Tag: 217427
  - 4
    - 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: if then statements Tag: 217426
  - 5
    - Network Logon HTA Script <html> <head> <title>Central Login</title> </head> <body onload="resize()"> <center> Please enter your login credentials below: <form name="loginform"> Username: <input type="text" name="user"><br> Password: <input type="password" name="pass"><br><br> <input type="button" name="login" value="Login" onclick="auth()"> </center> </body> <script language="vbscript"> Sub resize window.resizeTo 400,197 End Sub Function auth() dim user user = document.forms.loginform.user.value dim pass pass = document.forms.loginform.pass.value dim server server = "Central" dim server_unc server_unc = ("\\" & server) dim user_drive user_drive = "U:" dim users_folder users_folder = "Users" dim users_unc users_unc = (server_unc & "\" & users_folder) dim user_unc user_unc = (users_unc & "\" & user) dim docs_drive docs_drive = "Z:" dim docs_folder docs_folder = "Docs" dim docs_unc docs_unc = (server_unc & "\" & docs_folder) dim auth_command auth_command = ("net use " & server_unc & " " & "/user:" & user & " " & chr(34) & pass & chr(34)) dim user_drive_command user_drive_command = ("net use " & user_drive & " " & user_unc & " /persistent:no") dim docs_drive_command docs_drive_command = ("net use " & docs_drive & " " & docs_unc & " /persistent:no") Set WshShell = CreateObject("WScript.Shell") WshShell.Run "cmd.exe /c " & auth_command WshShell.Run "cmd.exe /c " & user_drive_command WshShell.Run "cmd.exe /c " & docs_drive_command dim endmessage endmessage = ("Welcome, " & user & ". All login commands have been run.") msgbox endmessage window.close() End Function </script> </html> Tag: if then statements Tag: 217424
  - 6
    - 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: if then statements Tag: 217423
  - 7
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217421
  - 8
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217420
  - 9
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217419
  - 10
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217418
  - 11
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217417
  - 12
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217416
  - 13
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217415
  - 14
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217414
  - 15
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217413
  - 16
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217412
  - 17
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217411
  - 18
    - 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: if then statements Tag: 217410
  - 19
    - Vb Script Text Book http://www.365x24live.com/vbscript/index.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: if then statements Tag: 217409
  - 20
    - burning DVD failure Hi there, I just attempted to burn a DVD on my DELL GX-280 with 2Gb of RAM, 3.8Ghz CPU. I used a Wscript as such: Const adFileTypeBinary = 1 index = 1 strISOFile = "c:\users\Alex BB\dvd burn\en_sql_2005_dev_all_dvd.iso" Set objDiscMaster = CreateObject ( "IMAPI2.MsftDiscMaster2" ) Id = objDiscMaster.Item(index) Set objRecorder = CreateObject ( "IMAPI2.MsftDiscRecorder2" ) objRecorder.InitializeDiscRecorder(Id) Set objDataWriter = CreateObject ( "IMAPI2.MsftDiscFormat2Data" ) objDataWriter.Recorder = objRecorder objDatawriter.ClientName = "ISOTest1" Wscript.Echo "Writing to disc..." Set objStream = CreateObject ( "ADODB.Stream" ) objStream.Open objStream.Type = adFileTypeBinary objStream.LoadFromFile strISOFile If objDataWriter.NextWritableAddress = 0 Then objDataWriter.Write(objStream) Wscript.Echo "Done" Else Wscript.Echo "Cannot write to disc" End If I copied the script from this TechNet site (modifying the directory only): https://www.microsoft.com/technet/scriptcenter/topics/imapi/imapi2-2.mspx#EYH The burning began and while watching the process in the Task Manager I saw a huge increase in Memory (Working Set Memory, I think) up to 1.8Gb. Then after a few minutes an exception was thrown from WScript: Out of Memory. After I closed the msg window which was modal the memory consumption wound down slowly and the process was eventually shut down after about a minutes or so. My question is: why? I've burned DVDs before with Windows Media Player with no problem. I've burned some picture images on this machine and attempted to burn iso images but they all came out sort of hollow, although the eventual file size was close to what I expected the data did not seem to be there and I could not use the DVD to install the software. So, I've decided to use a script since I felt that it would give me a better handle on the process. Is it a known issue? Is it possible to improve the script? Are there other scripts out there that can do the same? Nore: the iso image I tried to burn is a MSSqlServer eveloper Edition. I am an MSDN Pro subscriber. Many thanks in advance. -- AlexB Tag: if then statements Tag: 217392
  - 21
    - Script to Email attachment hangs on the AddAttachment statement Here is the snippet of code that is doing the Add Attachment: If attachfile = 1 then strattachment = strScriptFolder & "\" & strFileattachment Wscript.echo "Attachment: " & strattachment If objFSO.FileExists(strattachment) Then Wscript.echo "Attachment exists" objEmail.AddAttachment(strAttachment) Wscript.echo "Attachment added" End If End If This worked within the last 3 weeks. Some patch or other software was loaded and now when the script gets to the add attachment statement, it hangs and uses 50% of the processor. I have tried uninstalling all the patches I can find that have been loaded in the last month, but it still hangs. There is no error and nothing in the event logs? Has anyone else seen this problem? Thanks in advance, Chris -- No matter where you go, there you are... Tag: if then statements Tag: 217380
  - 22
    - Display first 100 files of directory I am looking for a vbscript that will display the first 100 files in a directory that contains more than 100 files. Tag: if then statements Tag: 217372
  - 23
    - 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: if then statements Tag: 217367
  - 24
    - 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: if then statements Tag: 217365
  - 25
    - 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: if then statements Tag: 217364
- Next
  - 1
    - 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: if then statements Tag: 217363
  - 2
    - 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: if then statements Tag: 217355
  - 3
    - 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: if then statements Tag: 217352
  - 4
    - 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: if then statements Tag: 217346
  - 5
    - 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: if then statements Tag: 217344
  - 6
    - 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: if then statements Tag: 217341
  - 7
    - 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: if then statements Tag: 217333
  - 8
    - 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: if then statements Tag: 217326
  - 9
    - 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: if then statements Tag: 217319
  - 10
    - 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: if then statements Tag: 217316
  - 11
    - 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: if then statements Tag: 217313
  - 12
    - 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: if then statements Tag: 217297
  - 13
    - 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: if then statements Tag: 217296
  - 14
    - 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: if then statements Tag: 217293
  - 15
    - 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: if then statements Tag: 217291
  - 16
    - 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: if then statements Tag: 217285
  - 17
    - 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: if then statements Tag: 217284
  - 18
    - 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: if then statements Tag: 217280
  - 19
    - 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: if then statements Tag: 217279
  - 20
    - [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: if then statements Tag: 217278
  - 21
    - 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: if then statements Tag: 217267
  - 22
    - 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: if then statements Tag: 217266
  - 23
    - 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: if then statements Tag: 217265
  - 24
    - 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: if then statements Tag: 217264
  - 25
    - 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: if then statements Tag: 217255

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

Top

Re: if then statements by Pegasus

Pegasus
Mon Apr 28 11:33:20 CDT 2008

"freddy" <freddy@discussions.microsoft.com> wrote in message
news:1D484329-317B-4258-B5A3-2586E6DA5A9D@microsoft.com...
>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

The two lines of code
Path = ("\\"& strComputer & "\C$\Program Files\Network Associates\Common
Framework\FrameworkService.exe")
Path1 = ("\\"& strComputer & "\c$\program files\McAfee\Common
Framework\FrameworkService.exe")

will set Path and Path1 to something other than a null string,
regardless of the value of strComputer. The result you see
is entirely expected. Did you perhaps want to test for
strComputer?

Inserting some strategic statements like

wscript.echo "Path=" & Path

will reveal this type of oversight immediately.

Top