Using wshshell.run I can't launch a PDF file

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
    - Copy Active directory Users to a SQL DB table - Daily Hello, I am trying to write a script using VBScript that gets a lise of all active users in Active Directory incl specified attributes 1,2,3..etc (if possible also specify which users to leave out eg.users in OU x) and then adds them to a table in a MS SQL database. Table will have corresponding columns..name, email,samAccountName,Attrib1,Attrib2 etc And then daily scheduled runs of the script updates the SQL table from data in AD with any modifications made to the accounts and adds any new users that were not there before. Is this possible using VBScript? sorry am restricted to only using vbscript. If so, any help or hints or ideas would be greatly appreciated. Thanks in advance :-) Yas Tag: Using wshshell.run I can't launch a PDF file Tag: 207259
  - 2
    - Date/Time conversion for accountExpire passwrdExpire etc... The actual (server date/time) ? Not local time. Here is the script I'm working with. A working dump all AD users including (name, AMAccountName ,displayname, accountExpires & description) Works perfect. One little thing I would like to change is - Instead of converting the dates to my local timezone, would it be possible to use the actual date on the in AD/ on the server? Is there any way to filter the description field? I would like to only output accounts that which their description field begin with a specific set of characters. So only description fields that start with say - "PPC A, followed but random text etc..." I tried to add in the "Is account disabled" record set but was unsuccessful. Any suggestions? :) Option explicit Dim Con Dim ocommand Dim message, strText Dim sADSPath Dim fso,ofolders dim wshShell, RS Set wshShell = WScript.CreateObject("WScript.Shell") dim quote,title quote=chr(34) dim objDate dim lngDate dim objUser dim objShell, lngBias, lngBiasKey Set objShell = CreateObject("Wscript.Shell") ' Obtain local Time Zone bias from machine registry. lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet \Control\" _ & "TimeZoneInformation\ActiveTimeBias") If (UCase(TypeName(lngBiasKey)) = "LONG") Then lngBias = lngBiasKey ElseIf (UCase(TypeName(lngBiasKey)) = "VARIANT()") Then lngBias = 0 For k = 0 To UBound(lngBiasKey) lngBias = lngBias + (lngBiasKey(k) * 256^k) Next End If Set objShell = Nothing If (Not IsCScript()) Then 'If not CScript, re-run with cscript... WshShell.Run "CScript.exe " & quote & WScript.ScriptFullName & quote, 0, true WScript.Quit '...and stop running as WScript End If ' Create FileSystemObject object to access file system. Set fso = WScript.CreateObject("Scripting.FileSystemObject") 'get path name, ending in Dim desktoppath, logfile, appendout desktoppath = wshShell.ExpandEnvironmentStrings("%USERPROFILE%")& "\Desktop\" dim root 'Get the default ADsPath for the domain to search. Set root = GetObject("LDAP://rootDSE") sADSPath = root.Get("defaultNamingContext") Call ADOConnect logfile = desktoppath & left(WScript.ScriptName,Len(WScript.ScriptName)-3)& "csv" 'If fso.FileExists(logfile) Then fso.DeleteFile logfile,True 'setup log Const ForAppend = 8 set AppendOut = fso.OpenTextFile(logfile, ForAppend, True) appendout.WriteLine "name,sAMAccountName,displayname,description,mail,accountExpires"' LastLogoff,AccountDisabled,IsAccountLocked,mail,accountExpires" Call ADOQuery 'Show done appendout.Close wshshell.Popup "The logfile, " & fso.GetFileName(quote & logfile) & ", is on your desktop.",15,"Done" Wscript.Quit 'Script ends ' Functions and Subroutines 'This is the tedious MS way that I no longer use Sub BailOnFailure(ErrNum, ErrText) strText = "Error 0x" & Hex(ErrNum) & " " & ErrText MsgBox strText, vbInformation, "ADSI Error" WScript.Quit End Sub Sub ADOConnect 'Create ADO connection object for Active Directory Set Con = CreateObject("ADODB.Connection") If (Err.Number <> 0) Then BailOnFailure Err.Number, "on CreateObject" End If Con.Provider = "ADsDSOObject" If (Err.Number <> 0) Then BailOnFailure Err.Number, "on Provider" End If Con.Open "Active Directory Provider" If (Err.Number <> 0) Then BailOnFailure Err.Number, "on Open" End If 'Create ADO command object for the connection. Set ocommand = CreateObject("ADODB.Command") If (Err.Number <> 0) Then BailOnFailure Err.Number, "on CreateObject" End If ocommand.ActiveConnection = Con If (Err.Number <> 0) Then BailOnFailure Err.Number, "on Active Connection" End If End Sub Sub ADOQuery dim i Dim domain,sfilter, sAttribsToReturn, sDepth 'Build the ADsPath element of the commandtext sADsPath = "<LDAP://" & sADSPath & ">" 'set filter for users only sFilter = "(&(objectClass=user)(objectCategory=person))" 'Build the returned attributes element of the commandtext. sAttribsToReturn = "name,adsPath,sAMAccountName,displayname,description,mail,accountExpires" ',lastlogoff,accountdisabled,isaccountlocked" 'Build the depth element of the commandtext. sDepth = "subTree" 'Assemble the commandtext. ocommand.CommandText = sADsPath & ";" & sFilter & ";" & sAttribsToReturn & ";" & sDepth 'WScript.Echo "CommandText: " & ocommand.CommandText ocommand.Properties("Page Size") = 1000 'Get 1000 then continue. Without it, stops at 1000 'Execute the query. Set rs = ocommand.Execute If (Err.Number <> 0) Then BailOnFailure Err.Number, "on Execute" End If ' Navigate the record Set rs.MoveFirst While Not rs.EOF GetInfo rs.MoveNext Wend End Sub Set objDate = objUser.accountExpires lngDate = (objDate.HighPart * (2^32)) * objDate.LowPart Sub GetInfo() Dim strDescription, tArray, strUName, objUser, strExp 'Description is sometimes and array. Annoying If IsArray (RS.Fields("Description").Value) Then tArray = RS.Fields("Description").Value strDescription = tArray(0) Else strDescription = RS.Fields("Description").Value End If strUName = quote & rs.Fields("Name").Value & quote message = strUName & "," & rs.Fields("sAMAccountName").Value & "," & _ quote & rs.Fields("displayname").Value & quote & "," & _ quote & strDescription & quote & "," & _ rs.Fields("mail").Value & "," On Error Resume next 'connect to user object Set objUser = GetObject(RS.Fields("AdsPath").Value) If objUser.AccountExpirationDate = "1/1/1970" Or Err.Number = -2147467259 Then strExp = "Never Expires" Else strExp = objUser.AccountExpirationDate End If message = message & strExp EchoAndLog message Err.Clear On Error goto 0 End Sub Sub EchoAndLog(message) WScript.Echo message appendout.WriteLine message End Sub Function IsCScript() If (InStr(UCase(WScript.FullName), "CSCRIPT") <> 0) Then IsCScript = True Else IsCScript = False End If End Function Tag: Using wshshell.run I can't launch a PDF file Tag: 207254
  - 3
    - Auditing using WinAudit Hello: I'm using WinAudit to audit 4000 machines in my district. I'm trying to audit it using an SQL db. I don't want to have to use a File DSN, but if I have to I will. I've tried the command line winaudit /r=g /o=ODBC /f=DRIVER=SQL Server;SERVER=<servername>;uid=inv ;DATABASE=<database>; /l=log.txt But checking the log, I error out with an application error. Anyone else having this problem that might be using WinAudit? Tag: Using wshshell.run I can't launch a PDF file Tag: 207252
  - 4
    - How do I execute a javascript function in an InternetExplorer.Application from vbscript? I have a javascript function that I'd like to call after writing to about:blank (.Navigate2 "about:blank") but I don't know how to kick the javascript function off from vbscript -- any ideas here? (see code below - watch for extra line breaks...). I tried a couple of things but was unable to get the script to execute... CODE FOLLOWS: Option Explicit Dim objIE, objFSO, objFile, objTargetFile, objWin, strFileName, strTargetFileName, strArrFiles(), bCopyNeeded, tBegin, tEnd, tDiff, strMsg Const STR_TARGET =3D "myTargetPath" Redim Preserve strArrFiles(0) strArrFiles(UBound(strArrFiles)) =3D "File1" Redim Preserve strArrFiles(UBound(strArrFiles) + 1) strArrFiles(UBound(strArrFiles)) =3D "File2" Redim Preserve strArrFiles(UBound(strArrFiles) + 1) strArrFiles(UBound(strArrFiles)) =3D "FileN" Set objFSO =3D CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(STR_TARGET) Then 'Do nothing Else objFSO.CreateFolder(STR_TARGET) End if Set objIE =3D CreateObject("InternetExplorer.Application") With objIE .Navigate2 "about:blank" .TheaterMode =3D True 'Being browser to the top... .Toolbar =3D False .Menubar =3D False .Statusbar =3D False .AddressBar =3D False .Resizable =3D False Do While (.Busy) Wscript.Sleep 50 Loop .Document.Body.style.cursor =3D "wait" .Document.Body.InnerHTML=3D"<div style=3D'text- align:center'><div id=3Dtext style=3D'position:relative;top:35%;z-index:100;font- family:Tahoma;font-size:14pt;font-weight:bold;text- align:center;'>Please wait...<br/><br/><br/><span id=3D'meter'></ span></ div></div><script type=3D'text/javascript'>var arrTumble =3D new Array('|','|','|','|','|','|','|','|','|','|','|','|','|','|','|','|','|','= =AD|','|','|','|','|','|','|','|','|','|','|','|');var objTimeout;var counter=3D0;function startProgress() {objTimeout =3D setTimeout('changeProgress()', 0);}function changeProgress() {var objSpan =3D document.getElementById('meter');if (objSpan) {arrTumble[counter]=3D' ';objSpan.innerHTML =3D arrTumble.join('');arrTumble[counter]=3D'|';counter=3D(counter +1)%30;objTimeout =3D setTimeout('changeProgress()', 100 );}}startProgress();</script>" .Visible =3D True ' .Document.execScript("startProgress();") '******HERES MY QUESTION****** - how do I kick off the startProgress() or changeProgress() javascript functions written to Document.Body.InnerHTML above? tBegin =3D Time For Each strFileName in strArrFiles strTargetFileName =3D Right(strFileName, Len(strFileName)- (InstrRev(strFileName, "\"))) Set objFile =3D objFSO.getFile(strFileName) 'wscript.echo "strFileName=3D" & strFileName & vbTab & "(" & Cstr(objFile.Size) & " bytes)" If objFSO.FileExists(STR_TARGET & strTargetFileName) Then Set objTargetFile =3D objFSO.getFile(STR_TARGET & strTargetFileName) 'wscript.echo "strTargetFileName=3D" & strTargetFileName & vbTab & "(" & Cstr(objTargetFile(" & STR_TARGET & strTargetFileName & ").Size) & " bytes)" if objFile.Size =3D objTargetFile.Size Then 'Do Nothing 'wscript.echo "objFile(" & strFileName & ").Size=3D" & objFile.Size & vbnewline & "objTargetFile=3D" & objTargetFile.Size Else 'wscript.echo "delete file + " & vbnewline & objFSO.CopyFile " & strFileName & ", " & STR_TARGET & strTargetFileName objFSO.DeleteFile STR_TARGET & strTargetFileName, true objFSO.CopyFile strFileName, STR_TARGET & strTargetFileName End If Else 'wscript.echo "objFSO.CopyFile " & strFileName & ", " & STR_TARGET & strTargetFileName objFSO.CopyFile strFileName, STR_TARGET & strTargetFileName End If Next tEnd =3D Time tDiff =3D DateDiff("s", tBegin, tEnd) If tDiff >=3D 60 Then strMsg =3D (tDiff \ 60) & " minute" if (tDiff \ 60) <> 1 Then strMsg =3D strMsg & "s" End If tDiff =3D tDiff Mod 60 strMsg =3D strMsg & " and " & tDiff & " second" If tDiff <> 1 Then strMsg =3D strMsg & "s" End If Else strMsg =3D tDiff & " second" if tDiff <> 1 Then strMsg =3D strMsg & "s" End If End If .Document.Body.style.cursor =3D "default" .Document.Body.InnerHTML =3D"<script type=3D'text/ javascript'>function btnOK_Click() {Window.close();}</script><div style=3D'position:relative;top:42%;text-align:center;'><span style=3D'font- family:Tahoma;font-size:14pt;font-weight:bold;'>Install Complete! (" & strMsg & ")<br/><br/></span><br/><br/><br/><br/><br/><span style=3D'font- family:Tahoma;font-size:12pt;font-weight:bold;'>Click OK to continue</ span><br/><input id=3D'btnOK' type=3D'button' value=3D' OK '></div>" .Document.All.btnOk.onclick =3D getRef("btnOK_Click") End With While Not (objIE Is Nothing) WScript.sleep 100 WEnd Sub btnOK_Click objIE.Quit Set objIE =3D Nothing End Sub WScript.Quit(1) Tag: Using wshshell.run I can't launch a PDF file Tag: 207242
  - 5
    - quick question I need some help with a simple code that can read a text file and save the contents as a string under a variable name. And have the contents of the text file appear on one line of string... what i tried was: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\temp1\test.txt", ForReading) strContent = Replace (objFile.ReadAll,vbCrLf," ") but strContent is not a string, therefore im unable to manipulate it ur help is greatly appreciated Tag: Using wshshell.run I can't launch a PDF file Tag: 207241
  - 6
    - Countdown Hello, Do you know how to write a little code for a simple second countdown ? Example : show a msgbox that countsdown 30 seconds and then closes that msgbox. Kind regards Tag: Using wshshell.run I can't launch a PDF file Tag: 207240
  - 7
    - Permission on terminalserver I try to set the permissions for access to a terminalserver (w2k3) with a script I found: set RDPObj = GetObject("winmgmts:{impersonationLevel=impersonate}!Win32_TSPermissionsSetting.TerminalName='RDP-Tcp'") RDPobj.AddAccount "everyone", 1 This adds everyone to the users in the GUI und RDP-TCP, but I cannot login with a standard user. At least this happens on a virtual terminalserver (VirtualServer R1). I think I saw it working on a pysical machine. Tag: Using wshshell.run I can't launch a PDF file Tag: 207238
  - 8
    - Script for outlook autoconfigure at logon I am new to scripting, I would like to know if there is any script for MS outlook getting configured automatically at logon by user in domain. I have tried some of the documents suggested by different forums but I am clear with them. Can any one help me with the script which will automatically configure outlook at logon. At the same time let me know if there is an option to delete the profile from local computer at logoff(either through group policy or script). Profile is not a romaming profile. MS office: 2003 Exchange : Exchange 2003 Operating system: Windows XP & Windows 2000 Tag: Using wshshell.run I can't launch a PDF file Tag: 207234
  - 9
    - Class definition VBSCRIPT.REGEXP is not found I have one workstation that gets the following error when running my application but the other workstations are fine. This is the line causing the problem: RegEx = CREATEOBJECT("VBSCRIPT.RegExp") Any idea what could be causing this? Cheers David Tag: Using wshshell.run I can't launch a PDF file Tag: 207232
  - 10
    - IE Dialogs with vbs Hi all, I use Internet Explorer to create a few dialog boxes in my vb scripts. Since moving to IE7 I no longer seem to have control of the size of these IE dialog windows, ie. they are all appearing full screen. Does anyone know a fix or a way around this ? TIA Bill. Tag: Using wshshell.run I can't launch a PDF file Tag: 207231
  - 11
    - New China Sex Hotline! free to listen live.. +86 13925265554 Tag: Using wshshell.run I can't launch a PDF file Tag: 207228
  - 12
    - New China Sex Hotline! free to listen live.. +86 13925265554 Tag: Using wshshell.run I can't launch a PDF file Tag: 207227
  - 13
    - Change Default web page Is there a script to change the default web page? Please assist... Thanks, Lee Tag: Using wshshell.run I can't launch a PDF file Tag: 207217
  - 14
    - output results to .txt or .xls file hey all, i have finally gotten together a script that will list all users in an OU. well, the next thing i want to accomplish is writing the results to a file. well, once again i have been humbled by the complex beast that is scripting and i reach to my only life support (you fine folks here) for assitance. here is a copy of the script. it will echo each name but i want the end result to be a txt file or spreadsheet that has the list of all of my users. please help... On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\Documents and Settings \&username&\desktop\list_users.txt") objConnction.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 Name FROM 'LDAP://ou=company ou,ou=company ou,dc=domain,dc=local' WHERE objectCategory='user'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF Wscript.Echo objRecordSet.Fields("Name").Value objRecordSet.MoveNext Loop Tag: Using wshshell.run I can't launch a PDF file Tag: 207210
  - 15
    - Excel conditional formatting - how to make exceptions? Hello all. I've got a VBScript that creates an XLS file. In it I want to implement conditional formatting; where if a cell value in Column C is greater than 50000, then that cell font will be changed to bold and red. Recording a macro gave me this: Sub Bold_Red() Columns("C:C").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="50000" With Selection.FormatConditions(1).Font .Bold = True .ColorIndex = 3 .Italic = False End With End Sub Then, after adding these Constants: Const xlCellValue = 1 Const xlGreater = 5 I transposed the above macro into the following code: '~~ Insert Bold and Red Font for any value '~~ greater than 50000 in Column C objExcel.Range("C:C").Select objExcel.Selection.FormatConditions.Delete objExcel.Selection.FormatConditions.Add xlCellValue, xlGreater, "50000" With objExcel.Selection.FormatConditions(1).Font .Bold = True .ColorIndex = 3 'Red .Italic = False End With The code works fine except for one problem. Some of the cells in Column C contain text, not a number, and the text is getting changed to the Bold and Red font. I want the font to change only for cells that contain a number, not text. How do I exclude the text cells from the conditional formatting? Any suggestions would be greatly appreciated. Thanks! - Dave Tag: Using wshshell.run I can't launch a PDF file Tag: 207207
  - 16
    - Event Problems This is a test script that I am trying to get to work before I incorporate it into the real thing. I am trying to get the __InstanceModificationEvent to cooperate. Creation & Deletion events work great. I can't figure out what triggers the Modification event. I just want it to tell me if a file has been modified. By that I mean if there is a file in the C:\X directory and a newer version of the file is copied on top of the existing one, I would think that the Modification Event would be triggered. Am I wrong. Someone please help. NoSeconds = "2" MonitoredFolder = "C:\X" CorrectMonitoredFolder = Replace( MonitoredFolder, "\", "\\\\" ) strComputer = "." Set objFSO = CreateObject( "Scripting.FileSystemObject" ) Set objWMIService = GetObject( "winmgmts:" &_ "{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\cimv2" ) Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceOperationEvent WITHIN " & NoSeconds & " WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""" & CorrectMonitoredFolder & """'" ) Do While True Set objEventObject = colMonitoredEvents.NextEvent() Select Case objEventObject.Path_.Class Case "__InstanceCreationEvent" WScript.Echo "Created" Case "__InstanceModificationEvent" WScript.Echo "Modified" Case "__InstanceDeletionEvent" WScript.Echo "Deleted" End Select Loop Tag: Using wshshell.run I can't launch a PDF file Tag: 207204
  - 17
    - How do I check for group membership? I can ping a server to check its alive. I can add the proper group. What I can't do is check to see if the group is already there! I have looked at Hilltop Lab but can't seem to figure it out :( 'Define Variables Dim objFSO Dim objFile Dim strLine Dim arrFields Dim strName Dim Mydomain Dim GlobalGroup Dim oDomainGroup Dim oLocalAdmGroup Dim oNet Dim sComputer 'CONSTANTS DECLARATION Const LOGFILE = "C:\Documents and Settings\xxx\My Documents\yyy\zzz\Logs\Results.Log" Const ForReading = 1 'Open a file for reading only. You can't write to this file. Const ForWriting = 2 'Open a file for writing. Const ForAppending = 8 'Open a file and write to the end of the file. Set ofso = CreateObject("Scripting.FileSystemObject") ' initialisation of log file InitLogFile() ' Open csv file for reading Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Documents and Settings\xxx\My Documents\yyy\zzz\Logs\Test.csv", 1) ' Read the file one line at the time and loop through it Do Until objFile.AtEndOfStream strLine = objFile.ReadLine If strLine <> "" Then arrFields = Split(strLine, ",") For i=0 To UBound (arrFields) strName = arrFields(i) 'Pinger serveren først, hvis den ikke er i live, skrives en log besked If Ping(strName) = True Then ' Add the <servername>_local_admin group to the locale Administrators group Mydomain = "xxx" GlobalGroup = strName & "_local_admin" Set oNet = WScript.CreateObject("WScript.Network") Set oDomainGroup = GetObject("WinNT://" & MyDomain & "/" & GlobalGroup & ",group") Set oLocalAdmGroup = GetObject("WinNT://" & strName & "/Administrators,group") oLocalAdmGroup.Add(oDomainGroup.AdsPath) On Error Resume Next If Err.Number = 0 Then WriteLogFile 0, GlobalGroup & " has been added to the Administrators group on " Else WriteLogFile 1, "Got Error " & Err.Number & " - " & Err.Description & _ ". When trying to add group " & oDomainGroup & " to " & oLocalAdmGroup End If On Error Goto 0 Else WriteLogFile 0, "The server is unreachable: " End If Next End If Loop ' The functions for logging Function InitLogFile() oFso.CreateTextFile LOGFILE,True End Function Function WriteLogFile(iResult, sLogInfo) Dim sLog,fFile If iResult = 0 Then sLog = Date & " - " & Time & " - " & sLogInfo & strName Elseif iResult = 1 Then sLog = Date & " - " & Time & " - ERROR - " & sLogInfo & strName End If Set fFile = oFso.OpenTextFile(LOGFILE,ForAppending,True) fFile.WriteLine sLog fFile.Close End Function Function WriteEventLog(iResult, sLogInfo) Dim oshell, Retval, sLog Set oShell = createobject("wscript.shell") sLog = "*** " & ucase(wscript.ScriptName) & " ***" & vbcrlf &_ VbCrLf &_ Chr(9) & "RESULT : " & sLogInfo & vbcrlf &_ VbCrLf &_ Chr(9) & "SCRIPTLOCATION : " & wscript.ScriptFullName & VbCrLf Retval = oShell.LogEvent(iResult, sLog) End Function ' Funktionen der pinger serverne Function Ping(strName) Dim objPing Dim objRetStatus set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select * from Win32_PingStatus where address = '" & strName & "'") For each objRetStatus in objPing if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then Ping = False Else Ping = True End If Next End Function ' Confirms the script has completed and opens the file Set objShell = CreateObject("WScript.Shell") objShell.run ("Explorer" & " " & LogFile) WScript.Quit Tag: Using wshshell.run I can't launch a PDF file Tag: 207201
  - 18
    - Script to find a string in a text file on a remote computer Could anybody help with me a script that is able to open a text file on a remote computer, search it for a specified string, and then return to me that string AND the line below it (or the next 30 characters). I'm hoping to query a number of machine's drwtsn32.log files to find similer errors. The string I want to search for is "App: C:\Program Files\Internet Explorer\iexplore.exe." and the line below it would be something like "When: 10/05/2006 @ 11:01:24.511." So basically I'm trying to find out when these errors are occurring. Tag: Using wshshell.run I can't launch a PDF file Tag: 207200
  - 19
    - Certificate Services Hello, I need to connect to certificate services, read all certificates and their properties like user, deadline etc. Does anyone know how to do that? We have CA outside of AD. What do I have to do is to read certificate properties, then connect to AD to find user specific info and do a task based on conditions. I already have an application in .NET framework 2.0 to communicate with AD, but how to communicate with Certification Authority(service). The script/application schould be running on CA. Thank you for help Tag: Using wshshell.run I can't launch a PDF file Tag: 207199
  - 20
    - Detecting domain/user/computer through VPN tunnel/connection Hi The logon script we use at work works great when users are at the office. But when at home and connected to our network through a VPN tunnel (Netscreen Remote tunnel), the script is unable to detect the domain name, the current user and the current computer. Currently we detect those using the following VBScript code (cleaned up to save space): -------------------------------------- Dim strDomain Dim objADSystemInfo: Set objADSystemInfo = CreateObject("ADSystemInfo") ' AD info strDomain = objADSystemInfo.DomainDNSName ' User account Set objUser = GetObject("LDAP://" & strDomain & "/" & objADSystemInfo.UserName) ' Computer account Set objComputer = GetObject("LDAP://" & strDomain & "/" & objADSystemInfo.ComputerName) -------------------------------------- Is there another way to detect these things? Best regards, Egil. Tag: Using wshshell.run I can't launch a PDF file Tag: 207198
  - 21
    - Count down timer How do i create a msgbox popup in the middle of my screen that displays an active count down for example "this pc will shutdown in 10 9 8 7 etc" I have figured out the shutdown portion of this script, just can seem to figure out the timer. Thanks Tag: Using wshshell.run I can't launch a PDF file Tag: 207179
  - 22
    - string functions KILLING me, help! :o) have the following: strPath = "\\server\folder\folder" strPath = Mid(strPath, 3) strPath = Mid(strPath, 1, InStr(strPath, "\") - 1) Wscript.Echo strPath obviously what im doing is plucking out only the server name from the unc path. is there no way i could do this with one statement instead of 2? Tag: Using wshshell.run I can't launch a PDF file Tag: 207168
  - 23
    - New to scripting, need a lil help Im an intern at a software company, and I think I'm way over my head. I need a script that can read and parse a text file (easy part, that I know) but I need my script to extract text between two delimiters that i can specify. is it possible to do this with regular expressions? thanks in advance Tag: Using wshshell.run I can't launch a PDF file Tag: 207167
  - 24
    - New to Scripting - Certificate revocation Hello everyone, I have been thrown into VBScripting, of which I have no experience. I need to come up with a script that will revoke a certificate. Specifically I need to revoke certificates from my CA that belong to certain servers. I am pretty sure I can figure out how to write a script that will call the CertUtil utility and revoke the cert by serial number (based on the following). To revoke the certificate by serial number Syntax certutil-revoke [-gmt] [-seconds] [-v] [-config CAMachineName\CAName] SerialNumber [Reason] What I am stuck on is how to either scan through my CA and obtain the serial numbers in question, or query the servers directly for the SN of their Cert. Then use that list of serial numbers to revoke each. The good news is that all of the servers I will have to do this for have a common naming convention. Let's just say for example they all begin with AServer. . Aserver1, AServer2, etc. Here is some more information specific to what I am trying to accomplish: I can easily do it through the GUI, but not sure how to script it. We have member servers in a Windows 2003 domain with Microsoft Certificate Authorities, Root, Intermediate, Issuing all set up with Group Policy set up to manage. We are going through and changing the names of certain servers. Then we are running an executable that forces the renamed client machine to request a new certificate. That leaves the old certificate sitting on the CA with the old machine name. I need to be able to script out finding that cert on the CA under "Issued Certificates" and revoke it. It is easy enough if you are in the GUI, just look and find the old server name and look at the issued date and right click and revoke. So I need a way to either go through all certs on the CA and parse for the old hostname and retrieve the SN so it can be revoked. Or maybe there is a way to query the member server for the previous cert. I have looked at the Certutil switches and cannot find a way to pull the serial numbers at all, much less pull a specific one based on member server name. I shouldn't be a complete novice for long, as I am sitting at my desk going through my courseware for both 2433A and 2439A. I have a deadline on the above however and would really appreciate any help at all. Thank you very much -- Brad Tag: Using wshshell.run I can't launch a PDF file Tag: 207164
  - 25
    - Creating Page Borders in Word Hi all! I an new to this group but not to vbscript. However, I can't seem to find out how to create Page Borders in a Word Document??? Thanks for any help, Joe Tag: Using wshshell.run I can't launch a PDF file Tag: 207163
- Next
  - 1
    - Scripting Help!! Please!!! Hi I have created this script to remove a home directory from searching the AD Const ForReading = 1 Const ADS_NAME_INITTYPE_GC = 3 Const ADS_NAME_TYPE_NT4 = 3 Const ADS_NAME_TYPE_1779 = 1 strUser = InputBox("Enter User Name") strDomain = "Globalinfra" Set objTrans = CreateObject("NameTranslate") objTrans.Init ADS_NAME_INITTYPE_GC, "" objTrans.Set ADS_NAME_TYPE_NT4, strDomain & "\" & strUser strUserDN = objTrans.Get(ADS_NAME_TYPE_1779) Set objUser = GetObject("LDAP://" & strUserDN) HomeShare = objUser.homeDirectory DeleteFolder HomeShare But for some reason I cannot get this to work. I have Admin rights to all file servers. Any help appreciated Cheers G Tag: Using wshshell.run I can't launch a PDF file Tag: 207160
  - 2
    - Cancel Button Problems This is my script. While running, a window is opened, and refreshed every so many seconds. Works great, but I want a button that I can use to cancel the script and close the window. I know I can use these two commands objExplorer.Quit 'close window Wscript.Quit 'quit proccess but I can't get a html button to call them. Can someone please help me and show me how, or give me a better way of doing what I want. Thanks On Error Resume Next LocalDirectory = "C:\X" RemoteDirectory = "D:\X\" Seconds = 5 Minutes = ( Seconds / 60 ) strComputer = "." Set objExplorer = CreateObject ( "InternetExplorer.Application" ) objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width = 550 objExplorer.Height = 200 objExplorer.Visible = 1 objExplorer.Document.Title = "Script in progress" Do LastRanTime = Now If Seconds > 59 Then objExplorer.Document.Body.InnerHTML = "This script will run every " & Minutes & " minutes. <BR> " &_ "Your script is now being processed and may take several minutes to complete. <BR>" &_ "This script last ran at " & LastRanTime Else objExplorer.Document.Body.InnerHTML = "This script will run every " & Seconds & " seconds. <BR> " &_ "Your script is now being processed and may take several minutes to complete. <BR>" &_ "This script last ran at " & LastRanTime End If objExplorer.Reload( True ) Set objFSO = CreateObject( "Scripting.FileSystemObject" ) Set objWMIService = GetObject( "winmgmts:\\" & strComputer & "\root \cimv2" ) Set colFileList = objWMIService.ExecQuery _ ( "ASSOCIATORS OF {Win32_Directory.Name='" & LocalDirectory & "'} Where " & "ResultClass = CIM_DataFile" ) For Each objFile In colFileList If ucase( objFile.Extension ) = "DXF" Then RemoteFile = RemoteDirectory & objFile.FileName & "." & objFile.Extension If objFSO.FileExists( RemoteFile ) Then Set objLocalFile = objFSO.GetFile( objFile.Name ) LocalDate = objLocalFile.DateLastModified Set objRemoteFile = objFSO.GetFile( RemoteFile ) RemoteDate = objRemoteFile.DateLastModified If LocalDate > RemoteDate Then objFSO.CopyFile objLocalFile.Path, objRemoteFile.Path, True End If Else objFSO.CopyFile objFile.Name, RemoteDirectory, True End If End If Next Wscript.Sleep( Seconds * 1000 ) Loop Tag: Using wshshell.run I can't launch a PDF file Tag: 207159
  - 3
    - KIX Scripts & installing hotfix's Greetings one and all, You might be able to help me out of a real jam. Our network here needs hotfix kb935843 (to fix a SQL reporting services problem) There are 2 versions of this hotfix, one for XP and one for 2000. I need to roll this out as a logon script as there are over 1000 PC's needing this update. Now my query is this. How, using KIX script, do i roll out the right update to the right version of the OS, but only run it once. Something like. IF already installed then exit Else IF OS = XP then run XP install Else IF OS = 2000 then run 2000 install. Help. I'm new to using KIX, I seem to remember it is possible but exactly how to do it i'm not sure. Any help would be welcome. Peter Phillips Network Analyst Redcats UK PLC Tag: Using wshshell.run I can't launch a PDF file Tag: 207155
  - 4
    - mspview Hello, i need to convert several hundres .tif images to OCR. what i am looking for is an automated process that will convert every single file in a specific directory without any user input. any help and or suggestions are greatly appreciated. thanks Surge Tag: Using wshshell.run I can't launch a PDF file Tag: 207154
  - 5
    - need a tiny backup monitor script i can execute with task scheduler? i would think this is like...the wheel. but i can't find anything, and i'm not a coder. i just need a tiny script i can run with task scheduler that will check to make sure that: 1. a file was written in the last 24 hours 2. it's not locked for writing 3. it's larger than zero email to a specified address if any of the above fail with the message 'Backup service is hung, and the bloody bugger won't email of it's own volition when it does that.' Or something of that ilk anyway. :P can anyone point me in the right direction, or help a girl out? Thanks! peace, pen --- Life is short. Break the rules. Run towards your fears. Forgive quickly. Love truly. Laugh uncontrollably. Kiss slowly. Above all, never regret anything that made you smile. Tag: Using wshshell.run I can't launch a PDF file Tag: 207152
  - 6
    - send binary to IP printer i have these printers that have formatter boxes attached. to reconfigure these formatter boxes, i send a binary file to the device by ... 1 create a print queue to the ip address 2 share that print queue 3 redirect LPT2 to that print queue 4 copy /b <format_file> LPT2 i would like to automate this function and am considering using MSWinSck.ocx (stream to TCP 9100) but, can it handle ~1MB stream? Does anyone have another idea how to do this efficiently and reliably? Tag: Using wshshell.run I can't launch a PDF file Tag: 207151
  - 7
    - list printer address details of printers in AD I need to be able to obtain a list of the printer name, host server, IP address and MAC Address of all the Canon printers in an AD domain. I can find the printer name and servername via dsquery as per below but then some how I need to obtain the IP address and MAC address. Any ideas? dsquery * domainroot -filter "(&(objectClass=PrintQueue))" -attr printername drivername servername -limit 10000 |find "Canon" Tag: Using wshshell.run I can't launch a PDF file Tag: 207146
  - 8
    - labelling a mapped network drive hi how can i change label of a mapped network drive by commands (for example in a batch file or logon script) Tag: Using wshshell.run I can't launch a PDF file Tag: 207134
  - 9
    - WMI Query Question OK.. Take this simple WMI query statement: Set objBIOS = objWMIService.ExecQuery("SELECT * From Win32_Bios",,48) Can anyone give me a good reference to what the "48" argument represents? Better still, could anyone give me a good reference to an advanced scripting textbook or online resource? Many Thanks! Tag: Using wshshell.run I can't launch a PDF file Tag: 207132
  - 10
    - Time after Time Hi, I have found lots of interesting stuff about time here, but one thing is eluding me. I need to be able to find the elapsed time between when a call was taken and the time that the case was resolved. Easy enough you say and it is. Then I need to compare the elapsed time with a constant value, ie. 2 Hours, 4 hours, 48 hours and 120 hours. I have tried doing this in an excel spreadsheet but no luck. so here it is in psudo code; WorkTime = Start Time - Finish Time If Worktime > 2 and SLA = 1 then objworksheet.value = "Over Sla" End if And so on and so on. OldDog Tag: Using wshshell.run I can't launch a PDF file Tag: 207131
  - 11
    - Yet More Time Hi, I have found lots of interesting stuff about time here, but one thing is eluding me. I need to be able to find the elapsed time between when a call was taken and the time that the case was resolved. Easy enough you say and it is. Then I need to compare the elapsed time with a constant value, ie. 2 Hours, 4 hours, 48 hours and 120 hours. I have tried doing this in an excel spreadsheet but no luck. so here it is in psudo code; WorkTime = Start Time - Finish Time If Worktime > 2 then Tag: Using wshshell.run I can't launch a PDF file Tag: 207130
  - 12
    - printer driver hi am trying to delete a printer driver from windows 2003 server and saying it cannot do it because it is in use Any ideas on h ow to delete it? Have tried stopping and starting spooler but does not work, also tried prndrvr.vbs and still says it is in use is there a way i can export all queues and import them back, i just need to remove a printer driver without having to recreate 600 quueues help don Tag: Using wshshell.run I can't launch a PDF file Tag: 207127
  - 13
    - Script to Allow Access (Remote access permission) in dial in tab i Guys, Are there any script that I can use to set "Allow Access" in the Dial In tab? Thanks, tnt Tag: Using wshshell.run I can't launch a PDF file Tag: 207124
  - 14
    - Adding TCP/IP Printer Ports and Drivers using a login script I've written a script to automatically add tcp/ip printer ports and drivers based on the user's subnet. The script works fine as administrator or power user however it will NOT work properly if the user has standard user rights. I need some assistance working around this. I realize that I could use WMI to do impersonation and add these ports and drivers. However, due to the large size of the script and the fact that changing methodologies to WMI would add probably 20+ lines of code per printer per function, there are 100+ functions with anywhere from 2-15 printers per branch function, I can't realistically change. I'm using the prnport.vbs and rundll32 printui.dll methodoligies to accomplish what I need. I've tried to build runas into the script even passing credentials automatically and it still doesn't work right. My inclination is that the rundll32 must run under an explorer session that has admin or power user rights otherwise it fails with not enough rights. Below is a sample of the code. Any help you can provide would be great! Dim oIP, r On Error Resume Next oIP = DefaultGateway Select Case oIP Case "10.207.127.1" Set oShell = WScript.CreateObject("WScript.Shell") r = oShell.RegRead("HKLM\SOFTWARE\Printers\judesk\Installed") If r <> 1 Then AddPrintersjudesk End If End Select Function DefaultGateway() Dim oDG, oDGs, WMI Set WMI = GetObject("winmgmts:\\.\root\cimv2") Set oDGs = WMI.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each oDG in oDGs If Not IsNull(oDG.DefaultIPGateway) Then If Not oDG.DefaultIPGateway(0) = "0.0.0.0" Then DefaultGateway = oDG.DefaultIPGateway(0) Exit For End If End If Next End Function Function AddPrintersJUDesk() 'prndriver1 = """QMS ColorScript Laser 1000""" 'prndriver2 = """Kyocera Mita FS-3700""" prndriver3 = """IBM InfoPrint 20""" 'prndriver4 = """HP LaserJet 4""" 'prndriver5 = """SHARP AR-M277 PCL5e""" prndriver6 = """Kyocera FS-5900C (KPDL-2)""" 'prndriver7 = """HP LaserJet 5Si""" 'prndriver8 = """HP LaserJet 4100 PCL 5e""" oShell.Run "cmd /c cscript c:\windows\system32\prnport.vbs -a -r IP_172.18.102.10 -h 172.18.102.10 -o raw -n 9100" oShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry /if /b P6154001 /f %windir%\inf\ntprint.inf /r IP_172.18.102.10 /m " & prndriver1 oShell.Run "cmd /c cscript c:\windows\system32\prnport.vbs -a -r IP_172.18.102.11 -h 172.18.102.11 -o raw -n 9100" oShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry /if /b P6154002 /f %windir%\inf\ntprint.inf /r IP_172.18.102.11 /m " & prndriver1 oShell.Run "cmd /c cscript c:\windows\system32\prnport.vbs -a -r IP_172.18.102.14 -h 172.18.102.14 -o raw -n 9100" oShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry /if /b P6154003 /f %windir%\inf\ntprint.inf /r IP_172.18.102.14 /m " & prndriver1 const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Printers" strKeyPath2 = "SOFTWARE\Printers\judesk" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath2 strValueName = "Installed" dwValue = 1 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeypath2,strValueName,dwValue End Function Tag: Using wshshell.run I can't launch a PDF file Tag: 207121
  - 15
    - enumerate install windows components Hey all, I am trying to enumerate the components that you add/remove via the "Add/Remove Windows Components" option in add/remove prorgams. Just to be clear, I need to list 'windows components' and not simply installed software...for instance I need a script to determine if IIS is installed on a machine, or 'fax services' and I am not looking for whether or not general apps are installed (stuff like Adobe, Office, etc...). Please help! Tag: Using wshshell.run I can't launch a PDF file Tag: 207120
  - 16
    - printer driver and prndrvr.vbs hi am trying to delete a printer driver from windows 2003 server and saying it cannot do it because it is in use Any ideas on h ow to delete it? Have tried stopping and starting spooler but does not work, also tried prndrvr.vbs and still says it is in use help don Tag: Using wshshell.run I can't launch a PDF file Tag: 207105
  - 17
    - Full name of remote logged on user I have this that gives me the domain\username of the remote logged on user: strComputer = InputBox("Enter the PC-name you want to know who's logged on at", "Who is logged on?") if strComputer = "" then WScript.Echo "Don't you want to know?" end if Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem") For Each objItem in colItems Name = objItem.UserName wscript.echo name Next But i want to output the fullname of the user. I have tried everything i can think of but only get my own fullname. I have this that gives me the fullname of the localy logged on user, but can not get it to work with the other script. Set WshNetwork = WScript.CreateObject("WScript.Network") objUserName = WshNetwork.UserName Set objUser = GetObject("WinNT://" & Name) wscript.echo objUser.FullName Any help to get me in the right direction would be much appreciated. Tag: Using wshshell.run I can't launch a PDF file Tag: 207104
  - 18
    - Assigning variable output of %comspec% Hello, Is there a way to allow a variable to hold the output of the comspec statement (the statement running commands on command prompt)? The command I am running produces result of only a single word on screen, so can I: VAR = objShell.run 'The comspec statement Is this possible? I get an error when I do this but I really want the variable to hold the value, is there any other way? Tag: Using wshshell.run I can't launch a PDF file Tag: 207100
  - 19
    - write to eventlog or filesystem on remote machine in system context hi, i have a rather complex problem. we have to run a script that updates a software via Microsoft SMS and I want to log the success/failure of the script on a remote machine. i tried to write it into the remot machines event log as well as filesystem but the main problem is: everything that SMS executes on the client runs in system context. even when i give permissions for "Everyone" on the remote machine that is ment to collect the logs, the system on the client is not allowed to connect to the share on the remote machine. logfile = "c:\scripts\log\bla.log" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile (logfile, ForAppending, True) Sub WriteTime objTextFile.WriteLine("[" & Day(Now) & "." & Month(Now) & "." & Year(Now) & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & "]") End Sub using a UNC name as logfile works well, if the script runs with a real user. can i tell vbs to establish the connection with a specific useraccount? this way i could create a stripped down user on the remote machine which the vbs on the client then uses to connect to the share with a real username. Tag: Using wshshell.run I can't launch a PDF file Tag: 207098
  - 20
    - How to find a DFS root in a domain Hi all, Does any one know how to find the DFS root in a Domain using VBscript. Please let me know Thanks in advance... Tag: Using wshshell.run I can't launch a PDF file Tag: 207097
  - 21
    - Using VBScript to refresh group policy, restart, and log in. I am writing a script that needs to apply the domain's group policy, restart, and automatically log the administrator back in without needing any user interaction. The problem is that I cannot get rid of the legal message. This is the popup that appears after you press CTL- ALT-DEL on a Win2k or WinXP machine which has a message set in the group policy. In my case, the message is set in a domain GPO. My first solution was to delete the legalnoticetext and legalnoticecaption registry values in HKLM. This is a very common example on the internet. However, (like many of these examples) this doesn't work because the group policy will just be applied again when the computer is restarting. My second solution was to make use of the NoMachinePolicy DWORD value located in: HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\GPExtensions \{827D319E-6EAC-11D2-A4EA-00C04F79F83A} When NoMachinePolicy is set to 1, it prevents the security policy from being applied. I had the script set the value to 1 just before rebooting, and then change the value back after logging in. This solution also has problems, and I can't use it. In Windows XP, it appears to reverse the changes made by the gpupdate /force command. I am executing gpupdate /force, setting the auto logon registry entries, setting NoMachinePolicy to 1, clearing the legal message text and caption, and then restarting. But here's the problem: when the group policy is applied, the administrator account is renamed to something else. However, after I restart the account's name goes back to administrator. My auto login fails because I have the wrong account name for DefaultUserName. And I have verified that after the gpupdate command is run, the account name does change just before the gpupdate finishes. I have no idea why this is happening. The second reason I don't like using this is because I cannot leave NoMachinePolicy set to 1 the whole time the script is working. The script installs several packages after restarting which need to be able to apply group policy. And if I do not have it set the whole time, the computer will not be able to automatically boot up and login if one of the package installations forces a restart. So I'm looking for a working solution that will let me bypass the legal message for an automated logon. This is the only problem stopping me from being able to use this script, and I would really appreciate some help here. Tag: Using wshshell.run I can't launch a PDF file Tag: 207096
  - 22
    - Shutdown computer using VBScript Hi. I am trying to shutdown a group of computers that are on the domain using a VBScript. When the user launches the VBScript it will ask for the time in seconds before the computer shutdowns. It is being done based on the way the command prompt does i.e. shutdown -m \ \computerName -s -t 00. I know the script will work if I make the computer shutdown ignoring the user input but need to know how to do it so the user can select how long it will be before it shutdown. Thanks very much for anyone who can help me in this matter. Tag: Using wshshell.run I can't launch a PDF file Tag: 207084
  - 23
    - registry keys to treeview control Hi, I have been struggling with the following I am using vbscript in an application that will display registry keys (and their values) as part of a treeview control. I know the 'parent key', under which there can be a varying number of subkeys, and their subkeys, and so on. I know how to enumerate subkeys under a single key, using WMI and EnumKey What I am srtuggling with is, that I need some mechanism to process each of the found subkeys to find about their subkeys, and so on. Some kind of recursive algorhythm. I have seen and tried examples of recursive algorhythms, for instance for files and folders. But somehow, I cannot get my brain to figure out how to translate those to my needs. I was hoping someone could help me out, either with some sample code or a website perhaps? I have so far searched pscode.com and some others, but havent quite found what I am looking for. kind regards, arno Tag: Using wshshell.run I can't launch a PDF file Tag: 207083
  - 24
    - Read from one Text file and Write to another. I have to make an edit to a file and what I was planning to do is open the file to read, then compare each line read to see if it equals my search value, which is a substring of what is probably there. If it does not, simply write it to another file. If it does = my search, simply replace the value with my edit and write to the other file. I would do this until the original file is at end. I would then like to move my new file over the original, which should now include my edit. Or Open File for Read Open Other File for Right 'read through first file While file not at end If line contains my search substring replace line to include new substring write it to other file else write line to other file End if End While Close new file Close original file Move new file to original Done! Any guidance from a vbscript wiz would be greatly appreciated! Thanks!!! Tag: Using wshshell.run I can't launch a PDF file Tag: 207075
  - 25
    - How to insert the Thousands Separator (comma) in Excel? Hello all. I've got a VBScript that takes a CSV file, makes some formatting changes, and saves it to an XLS file. What I'd like to add to this script is the command to insert the Thousands Separator in column B for the entire column. Column B contains numbers in every cell except for the top cell which has a word. In searching I did find the Constant "Const xlThousandsSeparator = 4" but I can't quite figure out how to write the line to implement it. Any suggestions would be greatly appreciated. Thanks! My script: Const xlDescending = 2 Const xlNormal = 1 Const xlCenter = -4108 Set objFSO = CreateObject("Scripting.FileSystemObject") Dim CurDir CurDir = objFSO.GetFolder(".").Path Set Folder = objFSO.GetFolder(CurDir) Set Folder = nothing Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open(CurDir & "\Results.csv") Set objWorksheet = objWorkbook.Worksheets(1) '~~ Sort by Column B, Descending Set objRange = objWorksheet.UsedRange Set objRange2 = objExcel.Range("B1") objRange.Sort objRange2,2 '~~ Insert blank row at Row 1 sRow = "1" objExcel.Worksheets(1).Rows(sRow).Insert xlDown '~~ Insert Header text objExcel.Worksheets(1).Cells(1,1).Value = "Server" objExcel.Worksheets(1).Cells(1,2).Value = "Error Amount" '~~ Bold the Header row Set objRange3 = objExcel.Range("A1:B1") objRange3.Font.Bold = True '~~ Auto Fit and Center both Columns objExcel.Cells.EntireColumn.AutoFit objExcel.Cells.EntireColumn.HorizontalAlignment = xlCenter '~~ Insert blank row at Row 2 sRow = "2" objExcel.Worksheets(1).Rows(sRow).Insert xlDown objWorkbook.SaveAs CurDir & "\Results.xls",1 objWorkbook.Close objExcel.Quit Set objFSO = nothing Set objExcel = nothing Set objWorkbook = nothing Set objWorksheet = nothing Set objRange = nothing Set objRange2 = nothing Set objRange3 = nothing Tag: Using wshshell.run I can't launch a PDF file Tag: 207066

HEllo

I've a simple PDF file that I'd like to launch with a VB script, but I'm not
having much luck.

I'm using the run command and it works, as I can see an Acrobat process in
the task manager but I never see the PDF.

x = WSHShell.run ("C:\ComponentTemp\CondorMAC\Condor717Setup.pdf",0,True)

Any ideas?
Thanks
Jason

Top

Re: Using wshshell.run I can't launch a PDF file by itsmillertime4u

itsmillertime4u
Wed Jun 20 16:41:44 CDT 2007

I found the best way to do this is launch Acrobat, passing the pdf
file path

IE

x = WSHShell.run (Chr(34) & "C:\Program Files\Adobe Acrobat
\acrobat.exe" & Chr(34) & " c:\ComponentTemp\CondorMAC
\Condor717Setup.pdf",0,True)

Top

Re: Using wshshell.run I can't launch a PDF file by TDM

TDM
Thu Jun 21 09:29:13 CDT 2007

"Jason" <sdfdsf@ertre.com> wrote in message
news:OjcTUG4sHHA.400@TK2MSFTNGP02.phx.gbl...
> HEllo
>
> I've a simple PDF file that I'd like to launch with a VB script, but I'm
> not
> having much luck.
>
> I'm using the run command and it works, as I can see an Acrobat process in
> the task manager but I never see the PDF.
>
>
> x = WSHShell.run ("C:\ComponentTemp\CondorMAC\Condor717Setup.pdf",0,True)
>
> Any ideas?
> Thanks
> Jason
>
>

You might try checking your file association for PDF. I was able to launch a
PDF
just fine via the .Run method, and I also tried the .Exec method which also
worked fine.

FYI

TDM

Top