Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
End of Line pattern match
Have you tried? (\d*\.\d*\.\d*\.\d*:\d+)$ -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
WMI Registry problem
This worked just fine for me Option Explicit Main() Sub Main() Const HKLM = &H80000002 Const HKCU = &H80000001 Const HKUS = &H80000003 Dim strComputer : strComputer = "xxxx" Dim objReg : Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") Dim... -
Refreshing system tray
The only thing I could find close to this was an AutoIT script that basically moved the mouse to the sys tray location to get rid of any orphaned icons. -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
Stale systray icons
When you hover over these stale icons...do they disappear? If so, I've seen a AutoIt script that moves the mouse automatically through the tray area making the icons "disappear" -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S -... -
How to set Compatibility mode of an EXE file???
You might have to do something similar to what is discussed here: http://technet.microsoft.com/en-us/library/bb456991.aspx create a compatibility db and send that out to your client machines and register it --------------------------------------------------------------------------------... -
Type Mismatch Validate data on Input box
Dim RegEx : Set RegEx = New RegExp RegEx.Pattern = "^\d+$" Dim strInput : strInput = InputBox("Enter a number", "Enter Number", "0") If RegEx.Test(strInput) Then WScript.Echo "you entered a number" Else WScript.Echo "you didn't enter a number" End If... -
Type Mismatch Validate data on Input box
How about a regular expression then... pattern if you only expect whole numbers: ^\d+$ -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
Type Mismatch Validate data on Input box
Use the IsNumeric function to only proceed if a number is entered. -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
vbs file - using adodb rs to read a csv file
That is interesting...if I do a TypeName for the value it shows as currency so I think guitarzan assumptions may be correct. Create a Schema.ini file in the same place as your CSV file and put this as the content: [bad.csv] Format=CSVDelimited Col1=FILELOCATION TEXT Col2=FILENAME TEXT... -
Terminate duplicate process (in logged owner)
Use the creation date property of Win32_Process to help you close the newest processes. -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
Another Uninstall Script Question - PLEASE HELP!!!
WMI will only show you those applications installed via an MSI so if you need something to perform an uninstall of applications installed with a different installer you will need to have you script/app look in the registry and pull out the pertinent information... -
checking connected net printers before mapping
The dictionary defines what printers you want to be present after your script has executed...you still need to enumerate your currently mapped printers to see what is already there...by using the dictionaries Remove method we modify the content of the dictionary to only contain those printers... -
Delimited text file using the filenames of files within a folder
This pattern may be better suited for paths with sub folders: "([A-Z]+:.+?\\(\w+)\s(\w+)\s(\w+)\s(\w+)\.\w+)" -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
Delimited text file using the filenames of files within a folder
Just a thought...an the regular expression can probably be simplified (not an expert with it) Option Explicit Main() Sub Main() Dim RegEx : Set RegEx = New RegExp RegEx.Pattern = "([A-Z]+:\\(\w+)\s(\w+)\s(\w+)\s(\w+)\.\w+)" RegEx.IgnoreCase = True Dim strTemp : strTemp = "E:\F2MA... -
checking connected net printers before mapping
Look at the example I posted about half way down in this thread: http://www.tek-tips.com/viewthread.cfm?qid=1383515&page=1 -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
Grab Dell Service Tags Off of entire network
I think the Win32_Bios WMI class might hold the service tag info. -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
Finding active hosts
http://www.tek-tips.com/viewthread.cfm?qid=1564552&page=1 -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
Finding active hosts
What if instead you simply just ping, pause a sec, ping again and if both returned false...then assume it is offline. I remember seeing post an example of using the async method of WMI to query multiple machines at the same time which may be another alternative...I'll post the link if I... -
clean a txt or html code with vbs
For example RegEx patterns: http://regexlib.com/DisplayPatterns.aspx?cattabindex=0&categoryId=1 -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid -
Removing Mapped Drive based off of Group Membership
If you are already mapping of group membership, what are you having problems with in deleting and mapping a new drive(s)? -------------------------------------------------------------------------------- dm4ever My philosophy: K.I.S.S - Keep It Simple Stupid
