Question about WQL statement
Hello All
I want to get some information about the AntiVirus program installed on the
machine, using WMI. By using wmic and the following command line options, I
can get what I expect:
wmic /NAMESPACE:\\root\SecutiyCenter PATH AntiVirusProduct GET ALL
In my WMI client application, I want to use the equivalent WQL statement.
What is the equivalent WQL statement?
Best Regards
Ali Majdzadeh Tag: English equivenent of VBS Factory Tag: 203061
Read value from some other webpage
I'd like to read a value, i.e.the value in a text field with the
name='TempInLondon' on the remote page: "www.bbc.com/
weather.htm" (example only, this page does not exist), and use this
value in my page, 'www.dot.com/allthewheater.asp'.
Is this possible in any way by using scripting or other tech.?
A Tag: English equivenent of VBS Factory Tag: 203060
Design Month "2" into "02"
Hi,
I have a problem with my VBS. I want to replace an old date with the
currently date in a special file. The Replace-Funktion works but the
replaced month is "2". I want to replace it with "02". Do you have any
Idea how this could work?
Heute = Date
contents=replace(contents, a, Year(Heute) & "-" & Month(Heute) & "-" &
Day(Heute)")
The result should be: 2007-02-23
Kind regards
Tina Tag: English equivenent of VBS Factory Tag: 203058
How to change Encoding and CSS in the running HTA?
Is it possible to change the Encoding and CSS in the running HTA?
For example, user presses the button to change current Encoding or CSS. Tag: English equivenent of VBS Factory Tag: 203051
Null Error in Script when Saving Distribution List for Outlook
I have a script that loads people into a users outlook contact list.
It also creates distribution lists by state and then adds everyone
into the appropriate distribution list by state.
This runs fine for a while but then fails after about 100 or so
people. Here is where it fails:
wscript.echo name(i)
wscript.echo state(i)
wscript.echo j
Set currentDistro = objContacts.Items(stateNames(j))
wscript.echo stateNames(j)
wscript.echo VbCrLf
Set myTempItem = objOutlook.CreateItem(0)
Set myRecipients = myTempItem.Recipients
myRecipients.Add (name(i) & "-" & state(i))
currentDistro.AddMembers(myRecipients)
currentDistro.Save <---- Error occurs on this line, line 141
The output when it fails looks like this:
Jane Smith
CA
4
CALIFORNIA
addCSVtoOutlookTAB.csv(141, 4) (null): Operation aborted <--- from
cscript at command line
Error Code 80004004
Source (Null)
from WSH.
It fails at this point EVERY TIME but there is nothing special about
this record. Many other people have been successfully added into the
CALIFORNIA distribution list, such as
Jane Doe
CA
4
CALIFORNIA
in the output just before Jane Smith.
I am confused at what this means.
Thanks for any guidance. Tag: English equivenent of VBS Factory Tag: 203034
List folder and subfolders on remote computers
I have this script that I execute from an asp page that lists a
computer's C:\Windows subfolders and gives thier size but only shows
the first level. I would like to have it list all subfolders past the
first level too. It is my understanding that FileObject doesn't work
on remote computers so I've been using WMI. Here is my current script
and hopefully someone can help. Thank you.
Server.ScriptTimeout = 420 '7 minutes
Const FOR_WRITING = 2
Const FOR_READING = 1
strComputerName = MyComputer
strFileName = "C:\Temp\FolderList.txt"
strLogName = "C:\Temp\FolderList.log"
'Connect to FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Only create FolderList.txt if it doesn't exist
If objFSO.FileExists(strFileName) Then
Response.Write strFileName & " already exists." & "<BR>"
Else
Set objCreateFile = objFSO.CreateTextFile(strFileName, False)
objCreateFile.Close
End If
'Open FolderList.txt in write mode and start adding all the local
folders to it
Set objTextFile = objFSO.OpenTextFile (strFileName, FOR_WRITING)
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputerName & "\root
\cimv2")
Set colDirectory = objWMIService.ExecQuery ("Associators of
{Win32_Directory.Name='C:\Windows'} WHERE AssocClass =
Win32_Subdirectory ResultRole = PartComponent")
For Each objFolder in colDirectory
objTextFile.WriteLine objFolder.Name
Next
objTextFile.Close
'Open FolderList.txt in read mode and getting ready to replace C:
prompt
Set objOldFile = objFSO.OpenTextFile(strFileName, FOR_READING)
'Create an instance of the regexp object
Set objRegExpr = New regexp
objRegExpr.Global = True
objRegExpr.IgnoreCase = True
objRegExpr.Pattern = "C:"
'With FolderList.txt still open, read it to a varialbe, close it and
then
'run the replace expression against the variable
strOldFile = objOldFile.ReadAll
objOldFile.Close
strNewFile = objRegExpr.Replace(strOldFile, "\\" & strComputerName &
"\c$")
'Open the same file and write mode overwrite the variable
Set objFile = objFSO.OpenTextFile(strFileName, FOR_WRITING)
objFile.WriteLine strNewFile
objFile.Close
'Open FolderList.txt in read mode
Set objOpenFile = objFSO.OpenTextFile(strFileName, FOR_READING)
%>
<TABLE border="1" Align="Center">
<TR>
<TD>Folder</TD>
<TD>Size</TD>
</TR>
<%
Do while Not objOpenFile.AtEndOfStream
strReadLine = objOpenFile.ReadLine
Set objFOL = objFSO.GetFolder(strReadLine)
On Error Resume Next
strWriteSize = FormatNumber(objFOL.Size,0)
strWriteSize = Space(15-Len(strWriteSize)) & strWriteSize & " "
Set objFOL = Nothing
%>
<TR>
<TD><% Response.Write strReadLine %></TD>
<TD><% Response.Write (strWriteSize) %></TD>
</TR>
<% Loop %>
</TABLE> Tag: English equivenent of VBS Factory Tag: 203024
Noob needs help. Why doesn't this work?
Here's the script:
-----------------------------------------------------------------------------------
strTempfile = "go_temp.txt"
set objShell = WScript.CreateObject("WScript.Shell")
Set UserEnv = objShell.Environment("USER")
Const WaitOnReturn = True
Const WindowStyle = 1
objShell.run "date /t >" & strTempfile & "", WindowStyle,
WaitonReturn
------------------------------------------------------------------------------------
and here's the error:
----------------------------------------------------------
Script: e:\try.vbs
Line: 8
Char: 1
Error: The system cannot find the file specified.
Code: 80070002
Source: (null)
----------------------------------------------------------
Why? The go_temp.txt is there. In fact, even if I just use the "date /
t" command, it gives the same error. Tag: English equivenent of VBS Factory Tag: 203020
script adding/changing network printers and drivers
We have many users that move between locations and need to print at each
location. The concept is to put a script on an intra-net page that will allow
users to choose their location and then be able to download and/or click a
link that will automatically install printers and drivers for the location. I
am new to scripting, have some understanding of vbscript, but need help with
how/if this might be done. Any help would be very appreciated. Tag: English equivenent of VBS Factory Tag: 203019
Do...Loop search execution problem
Hi-
I've patched some code together for a script that will (hopefully)
delete an icon when the script detects that the cd the icon is linked
to is no longer in the drive. This is part of an HTA file I've created
for software support/installation.
Problem is that when the script loops that it doesn't actually search
again. I've tried playing with the placement of the do...loop stuff
but all I've succeeded in doing is getting the "loop without do"
error. The rest of the script works great but halfway isn't complete.
Here's the offending code...
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_CDROMDrive")
For Each objItem in colItems
strDrive = objItem.Drive
Set colFiles = objWMIService.ExecQuery _
("Select * From CIM_DataFile Where FileName = 'autorun' " & _
"AND Extension = 'hta' AND Drive = '" & strDrive & "'")
Do
Do While colFiles.Count = 1
wScript.Sleep 10000
If colFiles.Count = 0 Then
Exit Do
End If
Loop
Loop Until colFiles.Count = 0
Set fso = CreateObject("Scripting.FileSystemObject")
ThisDrive = fso.GetDriveName(currdir)
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strDesktop & "\cdrom.lnk")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strScript = Wscript.ScriptFullName
objFSO.DeleteFile(strScript)
Next
WScript.quit
Thanks for the help in advance Tag: English equivenent of VBS Factory Tag: 203015
Environment Problem
Hi,
I have patched together a script that creates a share, enumerates the
network, adjusts the registry, runs a harddware/software inventory and send
the output back to the share.
This is primarily to be used in Server 2003 domain environments. In some it
works perfectly, but in others the audit runs but the output never gets back
to the share.
'************************Automated Win
Audit******************************************************************
On Error Resume Next
'************************Create Network
Repository************************************************************
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
("C:\Audit", "Audit", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Hardware/Software Inventories")
Wscript.Echo errReturn
'**************************Enumerate Computers in
Domain*******************************************************
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT CN FROM 'LDAP://dc=domain,dc=com' WHERE
objectCategory='computer'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strComputer = objRecordSet.Fields("Name").Value
' =====================================================================
'*************************Set remote Registry to allow script
execution****************************************
Const HKEY_LOCAL_MACHINE = &H80000002
Set objRegProv = GetObject("winmgmts:{impersonationLevel=Impersonate}" & _
"!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings"
objRegProv.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Remote","1"
objRecordSet.MoveNext
Loop
'*******************************Run
Inventory*******************************************************************
Set ObjShell = WScript.CreateObject("WScript.Shell")
ObjShell.Run "psexec \\* -c winauditu.exe cmd C:\winauditu.exe
/r=gsoPxNtnzDIbMpmidc /o=PDF /f=\\ComputerName\Audit\",1,True
'***************************************************************************************************************
Thanks for any insight on this. Tag: English equivenent of VBS Factory Tag: 203008
FSO Issues with Unicode
I am having a bit of trouble dealing with HTML files that I am manipulating via
VBS. There are hundreds of files that I need to parse for specific text in the
tables that may exist on the page. I am using IE to load the file, then
enumerating
the Tags collection to search for what I want, then deleting the table row where
the
text is found. Here is where the issue comes up.
I need to then save the file using FSO at this point. However, every once in a
while
there will be an issue with saving a file that causes this error :
"Invalid Procedure call or argument"
I found this page that explains the issue, an unexpected character in an FSO
writeline method.
http://classicasp.aspfaq.com/files/directories-fso/why-do-i-get-invalid-procedure-call-or-argument.html
If I set the Unicode save option, then all is well. However, the HTML files are
part of
a Microsoft HTML Workshop project that does not support Unicode, I need to save
in plain text, but FSO chokes on about 10 files in a thousand. So I thought I
would try
using an ADO stream and see where that gets me. But I am having a bit of trouble
getting the page from the Instance of IE available to the ADO object. Can
someone
please give me some pointers on how to get a page loaded in an instance of IE to
an ADO stream so I can save the beast ?
I have been here :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/4ead2a13-de31-487e-b826-53f132f25cbb.asp
But it is a bit of a challenge to figure out which information is relevant to
MSXML2.XMLHTTP and which is relevant to MSXML2.DomDocument.
I seem to be able to load the page using DomDocument with the loadXML method,
but the DomDomcument does not support the responseBody method so I can not
get the information to the ADO stream.
Any and all help is appreciated. TIA
TDM Tag: English equivenent of VBS Factory Tag: 203007
VBSCRIPT to get USERNAME / LOGIN
Hi!
I am new to VBSCRIPT and can't find a way to get the username of the
person looking at the webpage. I'm working inside the intranet, so
everyone is already logged in. From an ASP page I am sending a email
when the user clicks on submit... what I need to do is include the
username (login name) of the person sending the form. How can I do
this?
Thanks a lot for your help!!! Tag: English equivenent of VBS Factory Tag: 203006
vbscript excel problem
I'm able to open and rename an excel file with vbscript but it doesn't run
the auto_open macro. Is there a way to make it run?
----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =---- Tag: English equivenent of VBS Factory Tag: 203005
How to enable/disable field in an HTA
I'm looking for some help on an Hypertext application using vbscipt. We
have an HTA that has a check box. By default we want several dialog boxes
to be disabled (grayed out) so the user cannot imput data into the fields
but if the user selects the check box we want fields to become enabled. If
the user unchecks the check box after data has been imputed into the fields
we want the fields to be cleared and the dialog boxes to once again become
disable. I've got the clearing of the fields down (easy) but I cannot find
any reference telling me if it is possible to enable/disable fields and if
so, how to do so from within the imbedded VBScript.
If anyone can provide me with a code snippet on how to do this (if it is
possble in the first place), I would deeply appreciate the help. Tag: English equivenent of VBS Factory Tag: 202991
NOW to character string VBS
This should be easy...but it slowing me down!
I need to use the Now statement to create a series of numbers.
If I use Now, I get 2/21/2007 9:30:02 PM
What I want is 221200703002
I want ust the numbers so I can use them as a fairly unique filename.
Any ideas?
Thanks! Tag: English equivenent of VBS Factory Tag: 202989
Script Ends Unexpectedly
I have an odd behavior with a script that seems to end when it should
not. I had an original that worked 100% yet the new version posted
bellow, with a few changes, ends before completing a full loop of the
sheet (but always at one of two spots). The changes are marked in
comments, and the SubDistrict was added, before that code was not in a
Sub.
The script reads a couple of Excel cells to gather IP and computer
name info, then runs some WMI instructions on it. By all that I can
see, it should read the Excel sheet till the field with Site Name = 0
length, but it stops after 151 matches. I ran it 3 times, each time
it found 151 matches and stoped looping. The sheet has about 500
matches that should have been read, and about 2200 total rows. There
is no orphan EXCEL process so that tells me that the actual script
exits where it should, but before it reads the whole sheet. There
does not seem to be an issue with the If statements of the sub, as it
does work for a few
Thanks for any help
On Error Resume Next
Const FOR_READING = 1
Const ForAppending = 8
Dim IP, IPDialUP, Site, CompName
Dim strSerial, strRAM, strPrinterName, strDistrict
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'**** ADDITION STARTS HERE ****
strDistrict = InputBox("Enter your District number.")
If IsNumeric(strDistrict) = True And (Len(strDistrict) = 5 Or
Len(strDistrict) = 4) Then
Call subDistrict
Else
Reply = msgbox ("District number does not match proper length or is
not a number!" & vbCrLf & _
"Please run the script again and re-enter the
district number.", 48, "Script Error")
WScript.Quit
End If
'**** ADDITION ENDS HERE ****
'**** sub called if District is selected ****
Sub subDistrict
Set objExcel = WScript.CreateObject ("excel.application")
objExcel.DisplayAlerts = 0
Set PathExcel = objExcel.WorkBooks.Open _
("\\ServerName\Server\Scripts\Reports\Inventory.xls", False, True)
r = 2
Do until len(objExcel.cells(r, 4).value) = 0
'**** If the District value in the excel sheet = District variable in
the script run ping test
'**** Need to convert the values to a String to test against each
other ****
If CStr(objExcel.cells(r, 3).Value) = strDistrict Then
IP = objExcel.cells(r, 19).Value
Site = objExcel.cells(r, 4).Value
CompName = objExcel.cells(r, 6).Value
IPDialUP = (Mid(objExcel.cells(r, 19).Value, 1, 2))
'**** ping the IP listed for the server, run ping window minimized
****
Set objShell = CreateObject("WScript.Shell")
objExec = objShell.Run("ping -n 2 -w 2000 " & IP, 7, True)
'**** and do the remote mods *****
If objExec = 0 Then
Set objWMIService = GetObject("winmgmts:\\" & IP & "\root\CIMv2")
Set colItemsSerial = objWMIService.ExecQuery("Select * from
Win32_BIOS")
Set colItemsPrinter = objWMIService.ExecQuery("Select * from
Win32_PrinterDriver")
Set colItemsComputer = objWMIService.ExecQuery("Select * from
Win32_ComputerSystem")
For each objComputer In colItemsSerial
strSerial = objComputer.SerialNumber
Next
For each objComputer In colItemsComputer
strRAM = objComputer.TotalPhysicalMemory
Next
For each objPrinter In colItemsPrinter
strPrinterName = objPrinter.Name
Next
Call WriteResults
End If
End If
r=r+1
Loop
objExcel.Quit
End Sub
Sub WriteResults
Set RAMResults = objFSO.OpenTextFile _
("\\ServerName\server\Scripts\ScriptResults\" & strDistrict &
"_District_ComputerInfoResults.csv", ForAppending, True)
RAMResults.Write Site & "," & CompName & "," & IP & "," & strSerial
& "," & strRAM & "," & strPrinterName & "," & Now() & vbCrLf
RAMResults.Close
End Sub Tag: English equivenent of VBS Factory Tag: 202986
VBScript excel help
Hope this is the right group. I have done some VBScripts in the past,
but have a new need for one that's over my head. My understanding that
the difference between VBS and VBA is I can edit and run a VBS(just a
text file) without opening Excel. I want to automate the process of
opening 17 CSV files and place them in the same workbook in their own
worksheet. How can I do this with VBS?
Thanks for any help!
Brian Tag: English equivenent of VBS Factory Tag: 202985
Script to Select All in Word
Hello,
I have this script (see below) that opens a new document using a template
that I created. Once the doc is opened I Insert a text file into the document.
I now need to do a Select All and change the Font Type and Size.
Can someone tell me how that is done?
**************** Script begins below ***********************
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add("C:\MY SCRIPTS\MYTEMPLATE.DOT")
Set objSelection = objWord.Selection
objSelection.TypeParagraph()
objSelection.InsertFile("C:\My Scripts\test.txt") Tag: English equivenent of VBS Factory Tag: 202979
Help with remote Access Script
Here is what I am doing.
Scenario:
I have a Domain user logged into a domain computer. This computer is a
laptop and is off line of the domain. The user creates a VPN connection back.
Keeping in mind that while on DNS I do not have DNS resolution so I need to
us all IP addresses unless i make an entry in the local host file.
I want to create a script on the desktop to map the users home network
drive. I know how to script for other drives. I would like a script to look
and see that the user is a domain user logged into a domain account and then
map its home drive.
Domain= ifms.local
domain IP= 10.20.12.3
username=hsimpson
UNC to home Drive=10.20.12.3\users$\hsimpson
What would the script look like? Tag: English equivenent of VBS Factory Tag: 202978
Error 800a0401
In the statement below, being used in an asp application, I am trying to
define EndDate as the date 2 months prior to today's date; but obviously I
have a syntax error. Enclosing the "m" in double quotes doesn't help.
Thanks in advance for any help on this.
Rick
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/calendar/results_event_type_2005.asp, line 23
Recordset1.Source = "SELECT * FROM Events WHERE EventType = '" +
Replace(Recordset1__MMColParam, "'", "''") + "' AND EndDate >=
DateAdd("m",-2,Date()) ORDER BY StartDate ASC"
-----------------------------------------------------------------------------------------------------------------------------------------^ Tag: English equivenent of VBS Factory Tag: 202975
Print to a specific printer
Hi,
I'm trying to write a script that'll parse a database and print a
graphic header then text from the database to a printer also selected
from the database. I'm not sure if I can do this through DTS or VBS
or what, but I was wondering if anyone had a suggestion...
Thanks --
Alex Tag: English equivenent of VBS Factory Tag: 202974
Changing Target Path of SpecialFolders("My Documents")
I've been looking all over the net and can't seem to find any example of
changing the path (target) of the My Documents folder. There's plenty of
examples that show you how to display the current path of My Documents
or place a file or short into My Documents, but nothing about changing
the properties of this folder.
TIA,
Jim Tag: English equivenent of VBS Factory Tag: 202972
ProgId and TypeLib puzzlement...
I've been playing with the object browser from jsware.net and it's
raised a question
If I want to reference an object, I can pick its ProgID from the
registry, for example, itunes.application, and then create an object
reference based on that ProgID, ie
Set objITunes = CreateObject("ITunes.application")
The registry entry stores a ClassID that is associated with that
program, ie {DC0C2640-1415-4644-875C-6F4D769839BA}. If I feed this
into the object browser, it returns the Methods, events and properties
of ITunes.exe as one might expect.
However, if I browse to the ProgID for internetExplorer.Application
and get its classID {0002DF01-0000-0000-C000-000000000046}, this
retrieves the associated program, (Iexplore.exe) but no methods &etc.
I realise that the Internet Explorer COM entires are in shdocvw.dll,
so I'm puzzled why I can bind successfully with something like
Set objIE = CreateObject("InternetExplorer.application")
I think I'm confused, can anyone elaborate :-)
Cheers
Nick Tag: English equivenent of VBS Factory Tag: 202962
Modifying users with Excel
I have a script that exports all the users in Active Directory to an
Excel file using vbs. I would like to make changes to this Excel file
and import it back to AD. How can I do that? Tag: English equivenent of VBS Factory Tag: 202957
Edit comment propery?
Is it possible to modify/insert comments in file properties, i.e. on a
jpg file, by vbscript or vb 6?
I want to use this field to store comments for the picture, retrieve
and show this in a photo album.
Asle Tag: English equivenent of VBS Factory Tag: 202955
Initialize and Format Harddisk
Hi Newsgroup,
does anyone knows a way to script (with vbscript) the functionality of the
Diskmanagement mmc (i.e. initilize, convert, format,... harddrives)?
Thanks in advance
Gerhard Feige Tag: English equivenent of VBS Factory Tag: 202949
Embedding a VB script in DLL
Hello ALl:
I have one COM DLL and I need to execute a VB Script from a function
of this COM DLL.
How can I embed the VB Script within the DLL and execute it whenever
required?
Thanks,
Keerthana Tag: English equivenent of VBS Factory Tag: 202948
install font
I'm having trouble finding a solution for installing fonts (Type
1; .pfm) from a script on Windows 2000.
Any leads would be greatly appreciated. Tag: English equivenent of VBS Factory Tag: 202945
Best site to download scripts
Hi All,
What's the best site to download scripts, I am interested in
installing software using a vbs script.
Thanks,
Brian. Tag: English equivenent of VBS Factory Tag: 202944
Disconnecting network drive
Hi. I am trying to write a VBScript in order to disconnect a network
drive with the drive letter H and the path \\computer_name\C$
\Documents and Settings\User\My Documents for example. I have tried
this but can't get it to work. I don't want the script to ask the user
a question it just does automatically.
Can someone please help me.
Thanks Tag: English equivenent of VBS Factory Tag: 202942
Deleting All Files and Folders inside folder without deleting root folder
Hello.
I am trying to write a VBScript that deletes all contents including
files and folders without deleting the root folder. I am new to
scripting so have no idea how this can be done. Can someone please
help me.
Thanks very much. Tag: English equivenent of VBS Factory Tag: 202941
Input past end of file : error on line 31 : ReadAll
Hello can you help me with following problem.
I have a nice code that has been put togheter with the help of people
like you...
- Basicly it get information from the clipboard (a name)
- opens a file .log, from a USB memory stick, with that name:
name.log
- transforms that .log into name.txt with some modifications and store
in a folder.
All goes well exept when the name from the clipboard doesn't match a
existing name.log file on the USB.
The result is creating a name.txt file but with 0k.
Final result : "input past end file error" on line 31 =3D Read.All
Can you help me write some lines to exclude that error : like if
file .txt is 0k =3D stop script ?
Kind regards and much thanks in advance !!
CODE :
strComputer =3D "."
Set objWMIService =3D GetObject("winmgmts:" &
"{impersonationLevel=3Dimpersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks =3D objWMIService.ExecQuery ("Select * from
Win32_LogicalDisk Where DriveType=3D2 And VolumeName=3D'MERLIN'")
For each objDisk in colDisks
If objDisk.VolumeName =3D "MERLIN" then
Merlindr =3D objDisk.Name
Dim stFichierDest
Dim stLigne1
Dim stLigne2
Dim st
Dim tbLg
Dim tb
Dim i
Dim FSO, File1, ParentFolderPath, FileName
FileName =3D "FM_vbscript.vbs"
Set FSO =3D CreateObject("Scripting.FileSystemObject")
Set File1 =3D FSO.GetFile(FileName)
ParentFolderPath =3D File1.ParentFolder
Const ForReading =3D 1
Const ForWriting =3D 2
Const ForAppending =3D 8
stRep =3D Merlindr 'R=E9pertoire de travail
stRep2 =3D ParentFolderPath&"\MerlinImport\"
stFichierSource =3D
CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") &
"=2Elog"
stFichierDest =3D
CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") &
"=2Etxt"
Set oFichier =3D FSO.OpenTextFile(stRep & stFichierSource, ForReading,
True)
st =3D oFichier.ReadAll
oFichier.Close
tbLg =3D Split(st, Chr(10))
For i =3D 0 To UBound(tbLg) 'parcours les lignes
tb =3D Split(tbLg(i), Chr(&H1C))
If (UBound(tb) >=3D 2) Then
stLigne1 =3D stLigne1 & tb(0) & vbTab
stLigne2 =3D stLigne2 & tb(2) & vbTab
End If
Next
Set oFichier =3D FSO.OpenTextFile(stRep2 & stFichierDest, ForWriting,
True)
oFichier.WriteLine(stLigne1)
oFichier.WriteLine(stLigne2)
oFichier.Close
wscript.quit
else
wscript.quit
End If
next
wscript.quit
END CODE Tag: English equivenent of VBS Factory Tag: 202940
VBScript + ODBC (CSV) = ?
I found this code for making a odbc connection to a csv file. How well does this work? I was
thinking of using this to process my input files, and options.
Does anybody have an example of reading and writing? This code looks to like it reads the entire
csv, then writes to response (I guess this is a asp thing or something). Plus, how efficent is
this? It would certainly allow me to upgrade my code if it is easy to work with.
Any thoughts etc would be greatly appreciated. TIA
<%@LANGUAGE=VBSCRIPT%>
<%
Option Explicit
Dim strConnection, conn, rs, strSQL
strConnection = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & Server.MapPath(".\csv\") & ";"Extensions=asc,csv,tab,txt;Persist Security Info=False"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM myFile.csv"
rs.open strSQL, conn, 3,3
rs.MoveFirst
WHILE NOT rs.EOF
Response.Write(rs("myColumn") & "<br/>")
rs.MoveNext
WEND
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%> Tag: English equivenent of VBS Factory Tag: 202937
Moving files and logging results
Hi
I'm using the script below to monitor a folder for any new txt files
and move the new files to a different folder.
My question is how would I create a log of the files that I have moved
Or better again write an entry in an event log with the name of the
file that was moved.
Thanks
Dim oFso
Dim FSO
Set oFS = CreateObject("Scripting.FileSystemObject")
'Monitor folder
Set fldr = oFS.GetFolder("\\Server\Source\vb\")
Set fls = fldr.files
bDo=True
While bDo = True
if fls.count = 0 then 'While there's not any files in the
folder,
WScript.Sleep 30000 ' wait 30 second
else
' Move file to Destination
Set oFso = CreateObject("Scripting.FileSystemObject")
oFso.MoveFile "\\server\Source\vb\*.txt", "\\Server\Dest\vb\"
end if
Wend Tag: English equivenent of VBS Factory Tag: 202934
Web Page Login and Redirect
Ok i'm totally lost. I have to create a login process where once a
user logs in, they are directed to their "web space". I want to be
able to pull the username and password and the web site address from a
Microsoft Access database. can anyone point me to a tutorial or some
kind of help or where i can start? Thanks. Tag: English equivenent of VBS Factory Tag: 202932
Asp Upload fails when file dimension exeeds 3MB
Hello.
I'm experiecing a problem with file uploads from ASP pages.
On a Windows 2000 - IIS 5 server we're running an ASP Classic
application that features an upload form for files of great dimensions
(100+MB). Problem is, when we try to upload a file exceeding 3MB we
retive almost immediatly a message such as 'The page cannot be
displayed'.
We do not even reach the page that contains the code for file
managing; when we click on the submit button in the form with enctype
multipart form data the application ends and the error is visualized.
For files under 3MB there are no problems at all.
The FAQ of our upload third party component (ABCUpload by Websupergoo)
state that we could either have problems with our proxy or we could be
stopped by a wrong URLScan setting: we do not have any proxy nor
URLScan is installed on our server.
I may add that all the configuration of the script timeouts on IIS are
correctly set.
Is there anyone who can suggest us a solution ?
Thanks in advance for any help...
Newcomsas Tag: English equivenent of VBS Factory Tag: 202931
default printer
Hello,
I have the following script that sets a particular printer to be the
default printer. The script doesnâ??t work when I try to use it through group
policy computer startup also when I have the users run the script manually it
only sets the default printer per user profile. Is there a way i can have
this a script work in group policy computer startup and have it set the
printer as default per computer so all user get the same default printer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'HP LaserJet 4000 Series
PCL6'")
For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()
Next Tag: English equivenent of VBS Factory Tag: 202930
WScript.CreateObject("wshLWForm.ucLWF", "oLWF_") Help!!!
Hi,
My name is Andrew Berry, and I am working for a software developer. I
have inherited a system which uses a VBScript menu. This menu works
from Windows 98se through to XP. Now as Vista has come out, I managed
to convince work that I needed to "test" the existing software with
Vista, assuming it would work fine.
Sadly, now I have found out that the script is not working with
Vista(Basic).
It fails when trying to run the following command:
Set oLWF = WScript.CreateObject("wshLWForm.ucLWF", "oLWF_")
And I get the following error:
Error: Could not locate automation class named wshLWForm.ucLWF
Code: 80020009
Source: WScript.CreateObject
I have not dealt with VB before, I was wondering if anyone had any
ideas as to the problem.
Many thanks,
Andrew Berry Tag: English equivenent of VBS Factory Tag: 202923
ANN: Launch of www.platform2platform.com blog - scripting focus this month...
Announcing the Platform2Platform blog. A blog sponsored by Microsoft
and operated by Penton media publishers of Windows IT Pro magazine.
This blog provides a platform for independent experts (Open Source and
Windows) to discuss, debate, and share tips and tricks on Open Source
and Windows technologies of interest to IT Pro's.
www.platform2platform.com Tag: English equivenent of VBS Factory Tag: 202918
VBscript to click a coordinate on screen
Does VBscript have the capabilities to send a left mouse click to a
specific coordinate?
Background on the script that I'm creating:
I have to encrypt a text file using PGP which is installed. I found
that the PGP program has hotkeys (Ctrl + Shift + E) which will encrypt
an open text file. So far I am able to open the text file, then using
the SendKeys method, I send (Ctrl + Shift + E) which opens the PGP
application behind my text file. I have tried the AppActivate method
to take control of the PGP window and Send and Enter key, however
AppActivate is not seeing this window (the PGP window seems dependent
on the text file, not as a seperate window).
However if I could send a mouse click to a specific coordinate, I
could just click the "OK" button on the PGP window which is showing
behind the text file.
I very much appreciate any help. Thank you
Chris Tag: English equivenent of VBS Factory Tag: 202915
button disable and submit
I have login button. I want to disable it once the user click it (this is to
avoid multiple clicks for this button). But the problem is that when I
disable it (through javascript and before submit) its not
posted/submitted....and asp page does not work.
Whats the best way to work on such problem Tag: English equivenent of VBS Factory Tag: 202913
Stop multiple email attachments in DO Loop
Below is a part of my script. I am trying to attach a file that was
made earlier in the script. I can attach fine, but it will attach 2
files on the second time through the Do Loop, then 3 the third time.
I do not get why that is happening. I can post whole script if
neccessary. What it will do is get the Manager of the group, put the
members in a file, email the Manager with the file attached. Thank
you for any help.
objEmail.Subject = strGroupName
wscript.echo "EMAIL GROUP NAME: " & strgroupname
objEmail.Textbody = "You have been identified as the Manager of
the following group. If you believe that you should not be the
Manager " &_
"please reply to this message indicating who should be listed if
known. " & _
"The following attachment contains the users that are members of
the group " & strGroupName & _
". Please verify that the members belong in this group. If
members need to be added or deleted, reply to this email."
objEmail.AddAttachment "file://c:\temp\" & strGroupName & ".txt"
objEmail.Send
end if
objRecordSet.MoveNext
Loop Tag: English equivenent of VBS Factory Tag: 202911
Loading Outlook/Exchange personal addressbook to array to check for duplicates
Hi,
We have a number of customers and each are assigned a representative.
I wrote a VBScript that takes our tab delimited file of customers
generated from a report, checks the state, and then adds them to the
appopriate persons address book (run by the person with their outlook
open). This works great but it is time to update their list.
I need to be able to load the current contents of their address book
to a 2-D array with the name, street address, and zipcode, then check
each entry against the list to avoid duplicates into their address
book.
To explain further, it would work like this:
get row from file, load into variables, check to see if this is the
representatives customer --done
if yes, check to see if it already exists in their address book -- not
done, need help
if not in address book, load into address book --done.
Thanks for your help Tag: English equivenent of VBS Factory Tag: 202908
[ann] owc PivotTable Control Demo, with embedded xml data...
This is a multi-part message in MIME format.
--------------080706070606000207070509
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
About a week ago, I posted an owc pivottable control demo,
which was used to display a (trivial) mdb database -- the
"usual case".
This one is a bit different. It is displaying an xml data
base -- which is embedded in the html. The technique of
embedding xml data in html is also known as: "Data Island".
(Or, as I like to call it: "On-Board Data").
Regardless of what you call it, embedded xml does provide
a nifty way to include data in a web page, or an hta file.
And, you don't need to purchase msAccess, a simple xml editor
will do. Plus, xml is easy enough to deal with from script,
using the "MSXML2.DOMDocument" object.
Some people prefer to keep their xml data separate from their
html, apparently for esthetic reasons. Or maybe they were
trained at an early age to keep their code and their data
separated. If you are one of those people, all you need is
a few additional lines of code. You just read in the file,
and (again) make use the "MSXML2.DOMDocument" object.
There is one other feature of note: the "Field List". If
you ask for it (DisplayFieldList = True) then an extra little
window pops up, showing the data fields found in the data
base. I am not familiar with everything you can do with the
field list, but you can drag-and-drop specific fields into
the "filter area" of the control. This will then allow you
to exclude certain items from display (click on the down-arrow,
then un-check what you don't want to see). You may also use
the field list to add fields to the row, column, data, and
detail areas of your PivotTable.
cheers, jw
--- <office web components boilerplate> ---
As you probably know, the office web components come
with microsoft office installation. Or, you can
download them directly from msdn. As best I can tell
there are three versions (v9,v10,v11), corresponding
to the version of office you have installed. I have
ofc2k, which included v9. However, ms was generous
enough to allow me to download v10, which is the
version used in this demo. You may find it at the
link mentioned below. (owc10.exe is an installation
file, owc10.dll is the actX object, and finally while
owc10 is touted as the "winXP version" is seems to
work perfectly well on unsupported-and-abandoned
win98 also):
http://www.microsoft.com/downloads/details.aspx?FamilyID=
982B0359-0A86-4FB2-A7EE-5F3A499515DD&displaylang=EN
--- <end of owc boilerplate> ---
--------------080706070606000207070509
Content-Type: text/plain;
name="hta_owcPivotTable_wXMLData.hta.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="hta_owcPivotTable_wXMLData.hta.txt"
<HTML>
<HEAD>
<SCRIPT language="vbscript">
' (global code: to position/size the window, AHEAD of the hta:app stmt.
' This trick (courtesy of mikHar) is used to avoid the dreaded "hta bounce",
' which occurs when an hta is initially shown in some random "default"
' position/size, before being later adjusted via script code.)...
window.MoveTo 100,100
window.ResizeTo 600,300
</SCRIPT>
<HTA:APPLICATION ID="oHTA" APPLICATIONNAME="Show_msDTP"
WINDOWSTATE="normal" SCROLL = "no" BORDERSTYLE="normal" BORDER="thin"
CAPTION="yes" MAXIMIZEBUTTON="no" MINIMIZEBUTTON="no" ICON="mru.ico"
SHOWINTASKBAR="yes" SINGLEINSTANCE="yes" SYSMENU="yes" VERSION="1.0" >
<TITLE> demo owcPivotTable control (with embedded xml data) </TITLE>
<!-- --- description block -----------------------
'
' Title: an HTA to demo the Office Web Components Pivot Table control...
'
' Description: the owc Pivot Table control is a flexible means of
' displaying multi-dimensional data. Normally, the PivotTable
' is showing the contents of a database or spreadsheet.
' In this case, it will be showing xml data embedded in the page...
'
' Author: mr_unreliable
' Website: none at present, (but may be found lurking around wsh/vbs ng)...
'
' Usage: Use at you own risk, tested on win98se...
'
' Acknowledgment: this owc PivotTable demo code found on:
' news://microsoft.public.office.developer.web.components
' posted by: "Rob Aquanut" date/time: May 5 2005/7:45am
' Note: Rob claims this doesn't work with XP SP2,
' but it DOES WORK on win98 (how's them apples!)...
'
' --- revision history ---------------------------
' 18Feb07: initial attempt...
' --- end of description block -------------- -->
<SCRIPT language="vbscript">
Sub SetupPivotTable()
' MsgBox("onLoad Event Detected")
' Note: Rob included code here to creat an ADODB.RecordSet to hold
' the xml data, and then put THAT recordset into the pivottable.
' But Rob's ADODB.rs step does not appear to be absolutely necessary,
' (at least not in this case)...
' Bind the pivot table to the (xml) recordset
Set PivotTable1.DataSource = xmlsource.recordset ' was ADODB.RecordSet (oRS)
' "convenience objects" (save some typing)...
Set objPivot = document.all.PivotTable1
Set objView = objPivot.ActiveView
Set objFldSets = objPivot.ActiveView.FieldSets
Set ptConst = objPivot.Constants ' pt constant definitions
With objView
.TitleBar.Caption = "Test Embedded XML Data (i.e., ""Data Island"")"
' setup the rows/columns
.RowAxis.InsertFieldSet(objFldSets(1))
.ColumnAxis.InsertFieldSet(objFldSets(2))
.DataAxis.InsertFieldSet(objFldSets(0))
' add another column
Set totNewTotal = .AddTotal("Total Characters", .Fieldsets(0).Fields(0), ptConst.plFunctionCount)
.DataAxis.InsertTotal totNewTotal
End With
With objPivot
.ActiveData.HideDetails
' display the required control options
.DisplayFieldList = True
.AllowFiltering = True
.DisplayExpandIndicator = True
.DisplayToolbar = True
.AllowDetails = True
.AllowGrouping = True
End With
End Sub
</SCRIPT>
</HEAD>
<BODY bgcolor="silver" style="font:10pt verdana" onLoad="SetupPivotTable()" >
<OBJECT ID="PivotTable1" style="style=Z-INDEX:101; width: 450px; height: 250px; "
CLASSID="CLSID:0002E542-0000-0000-C000-000000000046" VIEWASTEXT>
<PARAM NAME="XMLData" VALUE="">
</OBJECT>
<!-- here is the xml database (a.k.a. a "Data Island" -->
<xml id="xmlsource">
<rootNode>
<oRowItem>
<empID>1108</empID>
<Fullname>Mouse, Mickey</Fullname>
<Location>Disney World</Location>
</oRowItem>
<oRowItem>
<empID>1693</empID>
<Fullname>Duck, Donald</Fullname>
<Location>Disney Land</Location>
</oRowItem>
<oRowItem>
<empID>3931</empID>
<Fullname>Mouse, Minnie</Fullname>
<Location>Disney World</Location>
</oRowItem>
</rootNode>
</xml>
</BODY>
</HTML>
--------------080706070606000207070509-- Tag: English equivenent of VBS Factory Tag: 202905
[ann] owc PivotTable Control Demo, with embedded xml data...
About a week ago, I posted an owc pivottable control demo,
which was used to display a (trivial) mdb database -- the
"usual case".
This one is a bit different. It is displaying an xml data
base -- which is embedded in the html. The technique of
embedding xml data in html is also known as: "Data Island".
(Or, as I like to call it: "On-Board Data").
Regardless of what you call it, embedded xml does provide
a nifty way to include data in a web page, or an hta file.
And, you don't need to purchase msAccess, a simple xml editor
will do. Plus, xml is easy enough to deal with from script,
using the "MSXML2.DOMDocument" object.
Some people prefer to keep their xml data separate from their
html, apparently for esthetic reasons. Or maybe they were
trained at an early age to keep their code and their data
separated. If you are one of those people, all you need is
a few additional lines of code. You just read in the file,
and (again) make use the "MSXML2.DOMDocument" object.
There is one other feature of note: the "Field List". If
you ask for it (DisplayFieldList = True) then an extra little
window pops up, showing the data fields found in the data
base. I am not familiar with everything you can do with the
field list, but you can drag-and-drop specific fields into
the "filter area" of the control. This will then allow you
to exclude certain items from display (click on the down-arrow,
then un-check what you don't want to see). You may also use
the field list to add fields to the row, column, data, and
detail areas of your PivotTable.
cheers, jw
--- <office web components boilerplate> ---
As you probably know, the office web components come
with microsoft office installation. Or, you can
download them directly from msdn. As best I can tell
there are three versions (v9,v10,v11), corresponding
to the version of office you have installed. I have
ofc2k, which included v9. However, ms was generous
enough to allow me to download v10, which is the
version used in this demo. You may find it at the
link mentioned below. (owc10.exe is an installation
file, owc10.dll is the actX object, and finally while
owc10 is touted as the "winXP version" is seems to
work perfectly well on unsupported-and-abandoned
win98 also):
http://www.microsoft.com/downloads/details.aspx?FamilyID=
982B0359-0A86-4FB2-A7EE-5F3A499515DD&displaylang=EN
--- <end of owc boilerplate> --- Tag: English equivenent of VBS Factory Tag: 202904
html form don't work
Hello I try to make a script for Auto Config IP adress with Netsh.
For that i use an HTML FORM and VBScript:
here my "form.html" code :
When I run It, IE says object required 'wscript'
Could you help me?
<html>
<head>
<title>Config</title>
</head>
<body>
<script language="VBScript">
<!--
Function ConfigIp(ipconf)
ParamIp = ipconf.menuip.value
If ParamIp = "meco" Then
Set Shell = Wscript.CreateObject("Wscript.WshShell")
Shell.run "netsh -f C:\Scripts\meco.txt"
End If
If ParamIp = "vinay" Then
Set Shell = Wscript.CreateObject("Wscript.WshShell")
Shell.run "netsh -f C:\Scripts\vinay.txt"
End If
If ParamIp = "apui" Then
Set Shell = Wscript.CreateObject("Wscript.WshShell")
Shell.run "netsh -f C:\Scripts\apui.txt"
End If
End Function
'-->
</script>
<form name="ipconf">
Choisissez votre configuration réseau :
<br/>
<br/>
<select name="menuip">
<option value="meco">MECO</option>
<option value="apui">APUI</option>
<option value="vinay">VINAY</option>
</select>
<br/>
<br/>
<input type="button" value="Valider" name="VALID"
onClick="ConfigIp(ipconf)" >
</form>
</body>
</html> Tag: English equivenent of VBS Factory Tag: 202902
installing MS06042 on an XP SP2 client machine causes slowdown
Problem: after installing MS06042 on an XP SP2 client machine some web pages
are running twice as slow.
Specifically, installing MS fix WindowsXP-KB918899-x86-ENU.exe causes the
slowdown
The web page contains a table that is generated dynamically from a search
results recordset. The table contains first name, last name information and a
drop down list.
The drop down list is created from text html and inserted into a table by
modifying a cells innerhtml property:
(vbscript )
Set oPriorityCell = oRow.InsertCell(3)
oPriorityCell.id = "xyz"
oPriorityCell.align = "center"
oPriorityCell.noWrap = True
strHTML = "<SELECT class=""EightPtText"" title = ""agent""
id=""PriSelectAll" & CStr(agentCount) & """ value=""" & CStr(LocalID) & """
onChange=""SkFieldChanged('" & CStr(strNumSks) & "')""
onMouseClick=""FillDropDown('PriSelectAll" & CStr(agentCount) & "')""
disabled>"
oPriorityCell.innerHTML = strHTML
On running a search that returns 500+ items the processor spikes to 100% for
3-4 minutes with the patch installed. This is approximately twice the time it
takes to load the page without the patch installed. The strange thing about
this problem is that you can see the table has been rendered yet the
processor spike continues, its almost as if the html rendering code has gone
into a loop as its still unresponsive until it finishes what ever activity is
causing the processor spike. Also in task manager under applications there
are two instances of internet explorer during the processor spike whilst
there is actually only one instance of the IE application running on the
machine.
When you run a trace on the machine you can see that ms dll mshtml.dll is
hogging the processor This dll is updated as part of the MS fix.
Can anyone explain why installing this patch is causing such an unacceptable
slowdown?
Are there any particular areas where we can look to optimise our code in
light of this patch to avoid this slowdown?
Can anyone suggest any workarounds? Tag: English equivenent of VBS Factory Tag: 202898
Assigning Network Service Account to Services on remote PCs
I have to update the account/password used by a service on a bunch of Servers.
The part I'm having a problem with is calling the remote servers from the
script.
I had a CMD script which did it wonderfully:
FOR /f "tokens=1,2,3 delims=," %%A IN (svc.csv) DO (c:\pstools\psexec \\%%A
sc config <Service_Name> obj= DOM\ACCOUNT password= %%B%%C)
But that's not good enough for my taskmasters.
Which command could I use in VB script to assign an account + password to a
remote service?
Alternatively, I'm tempted to read the list of servers and then run the
above command with the required username and password.
I have the part of the script which reads the password fine, it's just using
that information which is unclear...
This is turning into a saga for me...
I'm a bit new to scripting and just did Course M2433A last week :)
---
Cheerio,
Lars Petersson
MCSA: Messaging Tag: English equivenent of VBS Factory Tag: 202894
Run a script using System or another account
I have a logon script which is located on the server. This script
creates shortcuts in start menu, but in All Users->Start Menu on local
machine. User
which is logging on to the system doesn't have enough rights to save
shortcuts in that location. Is there any way to run this script using
System account or domain administrator account. Tag: English equivenent of VBS Factory Tag: 202889
How to make Global Change to MS Document?
Dear All,
I have 3000+ MS Word doucments in a folder and want to insert a header
(image file) and a footer (some text) to all of these documents. Is it
possible to write some script (VBA?) and have it insert the headers/footers
to all the documents automatically?
Thanks in advance!
--
Regards,
Muhammad Nasir Waqar Tag: English equivenent of VBS Factory Tag: 202888
Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows] http://www.microsoft.com/protect