Stuck on a Script

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
    - Assigning Permissions for a home directory Hi, I wrote a VBScript logon script to check to see if the user has a home directory, if not create it, and then check the permissions on it. Here is a sample of my code: If objFSO.FolderExists(strFolder) Then ' Assign user permission to home folder. intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _ & strFolder & " /t /c /g " & strUserName & ":F Administrators:F ", 2, True) The permissions work fine but the directory is still inheriting permissions from the parent folder. This is not good... Is there a way to prevent that? Thanks. Tag: Stuck on a Script Tag: 197632
  - 2
    - Login Scripting <<Please correct me if I have posted this in the wrong place>> The following is part of a GPO Login script that to creates a new DSN connection for a SQL database, it goes to PCs in a WAN, that are either XP Pro SP2 or Win2000 SP?. It seems to error out on the 5th line, for some users, but when the HelpDesk remotes in with admin account they can run the VBS fle from explore and it works fine. The error says something about the driver location, which I have checked on some Failed PCs, and it's there, but hidden. Can someone tell me a better way to write that line, or the whole process?? and what might be the cause of an error like this, that only happens for some users, and then works for admin.. ALSO how can I create an IF THEN so that this wont attempt to run on PCs where the DSN already exists??? THANK YOU !!! Dim oWshShell Const cRegKey1 = "HKLM\Software\ODBC\ODBC.INI\NewSQL\" Const cRegKey2 = "HKLM\Software\ODBC\ODBC.INI\ODBC Data Sources\" Set oWshShell = CreateObject ("WScript.Shell") oWshShell.RegWrite cRegKey1 & "Driver","C:\%systemroot%\System32\sqlsrv32.dll" Tag: Stuck on a Script Tag: 197631
  - 3
    - Script to change IE options? Loading up some web pages takes forever due to the amount and size of graphics and other junk stuffed into a page. I thought about trying to write a script that would toggle some of the Advanced Multimedia options: play animations, play sounds, play videos, and show pictures. Two questions, then: can this be done by a very newbie? and if so, where do I go to find help and samples? (WinXP, SP2, IE6) Thank you. Ed Tag: Stuck on a Script Tag: 197629
  - 4
    - Accessing a folder using a "run as" type command They recently locked down our share that we use to install software for the normal user. Is there a way to access this folder using a "run as" type command where I can put in my credentials under the normal user's session? Tag: Stuck on a Script Tag: 197628
  - 5
    - printer object in vbscript how can i print to the default printer in vbscript example (in vb6): For i = 0 To 1000 Step 100 Printer.Line (i, 0)-(i, 1000) Next Tag: Stuck on a Script Tag: 197626
  - 6
    - multi-dimension array error I have a COM object with a method which accepts a variant param. This param should be a multi-dimension (string) array. Whenever I attempt to call this method I get a type mismatch error. My script code looks something like: Dim values(2,2) values(0,0) = "A" values(0,1) = "A.1" values(1,0) = "B" values(1,1) = "B.1" myObject.execute values Can anyone help??? Tag: Stuck on a Script Tag: 197625
  - 7
    - multi-dimension array error I have a COM object with a method which accepts a variant param. This param should be a multi-dimension (string) array. Whenever I attempt to call this method I get a type mismatch error. My script code looks something like: Dim values(2,2) values(0,0) = "A" values(0,1) = "A.1" values(1,0) = "B" values(1,1) = "B.1" myObject.execute values Can anyone help??? Tag: Stuck on a Script Tag: 197624
  - 8
    - multi-dimension array error I have a COM object with a method which accepts a variant param. This param should be a multi-dimension (string) array. Whenever I attempt to call this method I get a type mismatch error. My script code looks something like: Dim values(2,2) values(0,0) = "A" values(0,1) = "A.1" values(1,0) = "B" values(1,1) = "B.1" myObject.execute values Can anyone help??? Tag: Stuck on a Script Tag: 197623
  - 9
    - Need Help Converting VBA to VBS I have been trying to work on creating a script that will shut down a computer when ran. Only problem is i managed to code it in VBA. Take into account i have never learned VBS before and figured they would be similar, unfortunately running the script directly doesnt work...however if i copy the code into Excels macro section...the computer shuts down correctly. I would be appreciative if someone could help me recode this to run through VBS The coding is as follows: Sub Shutdown() Dim osObj, osColl Const nForcePowerDown = 12 Set osColl = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem") For Each osObj In osColl osObj.Win32Shutdown (nForcePowerDown) Next End Sub Tag: Stuck on a Script Tag: 197622
  - 10
    - Setting permissions on registry Hello, I need to know how to set persmissions via VBScript on the windows registry. I have to give a group Full Control and I have to stop the inheritance of permissions from the key above. I have read something about: "SetSecurityDescriptor Method of the StdRegProv Class" But I only found examples about setting permissions in filesystem and in active directory. Many thanks for a good link or an example! Juan Tag: Stuck on a Script Tag: 197621
  - 11
    - How to detect if Outlook is running from IE Hello, I've found some conflicts between Outlook, SVG Plugin and some JRE. I would like to be able to detect from a script if Outlook is currently running from IE so I could warn the user of possible crash. Is there a way to know if Outlook is currently running from IE? Thanks, Thomas. Tag: Stuck on a Script Tag: 197620
  - 12
    - WIRELESS CONNECTION Hello I am new to scripting and i think VBscript can help me do the following: 1. Would like to know how can i check whether my wireless connection is ON, if not on return a messagebox to force the user to turn on their wireless? 2. Users can connect by GPRS and wiresless. I will have to restrict them not to use GPRS. i thought of foing this by the connection speed.. Do you have any other ways of restrict users so that they use only wirreless connection? Thanks a lot in advance Nazeedah Tag: Stuck on a Script Tag: 197619
  - 13
    - Use .vbs file to find a string of numbers in the clipboard Haven't been able to find an answer for this online. I have copied to = Clipboard a string like this: http://www.website.com/archives/006514.html and I want to find and return just the numerical part of the string: 006514 Can I do that with a .vbs file? =20 Tag: Stuck on a Script Tag: 197617
  - 14
    - dupe remove from files where can i get a script that can remove line from file1 if same line is present in file2? Tag: Stuck on a Script Tag: 197616
  - 15
    - Capture logon info I'm looking for a simple vb script that I can place on our W2K domain controller that will capture the following from each end station during logon and write the output to a text file: <sample> Computer Name: 0D1C41673BB Type: X86-based PC Manufacturer: Dell Inc. Model: OptiPlex GX620 Serial Number: HLW1K91 User Name: domain\username </sample> Thanks in advance for any assistance! Tag: Stuck on a Script Tag: 197615
  - 16
    - mobile devices Hi, I am trying to find out how to detect if a mobile phone or similar device is connecting to my webpage. I want to redirect the device to a scaled down version of the webpage. Any help gratefully received. Mark.. Tag: Stuck on a Script Tag: 197611
  - 17
    - computed column alternative Is it even possible to perform a calculation on an integer-based column of data obtained from a MSI database, where the data is constructed at runtime into a table onto a web page (hta)? I wanted to use a computed column in my database for this function, and then found that a computed column is SQL proprietary, which I assume means it won't work in my MSI database. Given the constraints of the MSI database, I'm thinking I'm going to have to carry out the calculation outside of the database. I am hoping to take the cell values for the column and multiply each value by 3. Thanks in advance for your suggestions. Tag: Stuck on a Script Tag: 197608
  - 18
    - How to check for empty collection? I have the following simple script: --- begin ----- Set wmi=GetObject("winmgmts:{impersonationLevel=impersonate}!root/wmi") Set ws=wmi.ExecQuery("select * from MSNdis_80211_BSSIList") On Error Resume Next For each wa in ws WScript.Echo "Adapter name=", wa.InstanceName Next Wscript.Echo "after query:" & Err.Number ---- end --------- This works fine if there is at least one wireless adapter. If there are NO wireless adapters and I omit "On Error Resume Next", an error occurs: my.vbs(6, 1) (null): 0x8004100C The error is on the line of "For each wa in ws". With "On Error Resume Next", the script runs to the end and Err.Number is 424 (Object required). I don't understand what this error means and why it occurs. If the query returns an empty set, the For loop should not execute at all, correct? When there are one or more wireless adapters, the loop works fine, no error. So, instead of empty set, the query returned something bad to ws? I'd like to distinguish the empty set from error. I tried to test IsEmpty(ws) or IsNull(ws) before the For loop - both tests return false (that's, not empty and not null) Is this a WMI or vbscript problem, or a hole in my head? Tag: Stuck on a Script Tag: 197605
  - 19
    - IE error whenever TabStrip from mscomctl ActiveX is used Hello community, I use in a HTML file the mscomctl ActiveX control. From this control I get the ClassID (9ED94440-E5E8-101B-B9B5-444553540000) for TabStrip. All works well on my development system, but if I want to use it on another system, the IE tells me: Object Tabstrip1.Tabs are not supported. I register the mscomctl with REGSVR32 but it does not work. Is there a trick or any other solution to make work my HTML file on all computers with registered mscomctl? Thanks for tips. Stefan Tag: Stuck on a Script Tag: 197603
  - 20
    - IE Error whenever I use a registered ActiveX control Hello community, I use in a HTML file the mscomctl ActiveX control. From this control I get the ClassID (9ED94440-E5E8-101B-B9B5-444553540000) for TabStrip. All works well on my development system, but if I want to use it on another system, the IE tells me: Object Tabstrip1.Tabs are not supported. I register the mscomctl with REGSVR32 but it does not work. Is there a trick or any other solution to make work my HTML file on all computers with registered mscomctl? Thanks for tips. Stefan Tag: Stuck on a Script Tag: 197602
  - 21
    - Help! Stuck in .Net Framework SDK hell... Warning, this question applies to win98se, but I'm hoping that there is somebody out there that can shed some light. Up until recently (perhaps before installing some recent microsoft system updates), whenever I coded up an error (gasp!) in an html page or hta script, I was presented with a dialog asking me if I wanted to debug. If I clicked "yes", then I was taken to mse (microsoft script editor) for a debugging session. Now, I get presented with a dialog. Dialog Titlebar: "Microsoft .Net Framework SDK (English)" Dialog Text: "The feature you are trying to use is on a network resource that is unavailable." "Click OK to try again, or enter an alternate path to a folder containing the installation package 'netfxsdk.msi' in the box below." O.K. I do have a much older version of .net framework installed (v1.1 beta) but that apparently is not good enough. So, I went online and downloaded the current net framwork sdk (which takes several hours at dialup speed). When the above dialog popped up again, I gave it the correct path to the installer. What I got back was ANOTHER dialog, informing me: "This component cannot be installed on Microsoft Windows 95, Windows 98, Windows ME, or Windows NT 4.0. Upgrade your operating system to Windows 2000, or higher, and then rerun setup". So, there you have it. Microsoft is telling me that I can't debug my script code with mse anymore unless I upgrade to w2k or winXP. My question is: does anybody know how I can just get the debug capability (with mse) back again, _WITHOUT_ upgrading to winXP??? I'll be eternally grateful for any helpful solution, jw p.s. I am aware of "Lord Omlette's" page: "Using the .NET SDK on Windows 98", unsupported by microsoft though it may be. I may try to work my way through that. But still, there is no guarantee that even if I did get the latest net framework sdk installed, that script debugging would work again. I would just like to go back to using the unvarnished mse to debug my html and/or hta scripts. Tag: Stuck on a Script Tag: 197592
  - 22
    - ActiveX Controls. I am having truble with ActiveX in general. It's possible that my VBSCRIPT book is out of date. Can any point to some ActiveX documention. If I download and activeX from the in internet how can find the the class ID necessary for my vbscript tool? _________________________________________ Mitchell McNurlin ICQ#:235649936 Current ICQ status: SMS: (Send an SMS message to my ICQ): +2783142235649936 More ways to contact me: http://wwp.icq.com/235649936 _________________________________________ Tag: Stuck on a Script Tag: 197590
  - 23
    - how to redirect output in a vbs script I would like toe executer and command batch files and redirect the its output to vbs script directly instead of going through temp files that is not always reedy when the cmd batch file finish. How to I do that? Tag: Stuck on a Script Tag: 197587
  - 24
    - Get remote's pc info Hi, How can I get the Computername,Windows version, processor type,... of a remote pc? Thx Tag: Stuck on a Script Tag: 197582
  - 25
    - Script for scanning the structure of the AD I want a script which scans the structure of the AD and outputs the tree of the AD groups with the users and nested groups within him. Something like: HR Group - A Subgroup - user1, user2, user3 B Subgroup - user4, user5, user6 Tag: Stuck on a Script Tag: 197572
- Next
  - 1
    - open multiple text file hello everyone, i just want to know how to open multiple text file.. i have a textfile located at "C:\textlog\..." (the text file name is base on the date i.e. 10012006, 10022006, 10032006 so on)i have a lot of text file and it will take a lot of time to save it one by one, what i want to do is, i will use a datepicker component then whe i select a date, the text file in the "C:\textlog" the in the range of selected date will automatically read and save is auomaticaly to access...i'm using this code which can save only one text file only..somebody can modify this to save a multiple text file Dim InFile As Integer Dim InLine As String Dim Data() As String Dim Fields As Integer Dim i As Integer 'Database variables Dim db As Database InFile = FreeFile Open App.Path & "\Data.txt" For Input As #InFile 'If your data files do not have a header of two lines then modify these lines 'to relect the setup of your own data files If Not EOF(InFile) Then 'Skip the first two lines since they contain header information Line Input #InFile, InLine Line Input #InFile, InLine End If 'Open the database Set db = DBEngine.OpenDatabase(App.Path & "\db1.mdb") 'Start the real data processing While Not EOF(InFile) Line Input #InFile, InLine Data() = Split(InLine) Fields = UBound(Data()) 'Process your data as you see fit 'I am simply printing the data to the Immediate window ([CTRL]-G to see) ' For i = 0 To Fields ' Debug.Print Data(i) ' Next ' Debug.Print "--- End Of Record ---" 'Insert your data into the database db.Execute "INSERT INTO Table1 (DIR_No, Called_Number, [Date], [Time], Durtn, Units) " & _ "VALUES ('" & Data(0) & "', " & _ "'" & Data(1) & "', " & _ "DateValue('" & Format(ToDate(Left(Data(2), 10), "dd/mm/yyyy"), "dd mmm yyyy") & "'), " & _ "TimeValue('" & Data(3) & "'), " & _ "TimeValue('00:" & Data(4) & "'), " & _ Data(5) & ")" Wend Close #InFile *** Sent via Developersdex http://www.developersdex.com *** Tag: Stuck on a Script Tag: 197571
  - 2
    - copy results to a text file I have the following script that will give me all computer accounts that have not had a password changed in a number of days, how can i get it so the script can write this to a text file for editing... Thanks Gavin... On Error Resume Next DomainString=InputBox("Enter the domain name","Check Active Computers","DomainName") If DomainString="" Then WScript.echo "No domain specified or script cancelled." WScript.quit End If numDays=InputBox("What is the number of days to use as a cutoff for Active Computer Accounts?","Check Active Computers","XX") If numDays="" Then WScript.echo "No cutoff date specified or script cancelled." WScript.quit End If Set DomainObj = GetObject("WinNT://"&DomainString) If err.number<>0 Then WScript.echo "Error connecting to " & DomainString WScript.quit End If DomainObj.Filter = Array("computer") WScript.echo "Computer Accounts in " & DomainString & " older than " & numDays & " days." For Each Computer In DomainObj Set Account = GetObject("WinNT://" & DomainString & "/" & Computer.Name & "$") RefreshTime = FormatNumber((Account.get("PasswordAge"))/86400,0) If CInt(RefreshTime) >= CInt(numDays) Then WScript.echo "**DELETE** " & Computer.Name & " Password Age is " & RefreshTime & " days." End If Next Set DomainObj=Nothing Set Shell=Nothing WScript.quit Tag: Stuck on a Script Tag: 197561
  - 3
    - Add A User, Add User To Group Is it possible to add a local user then add that user to a group of my choosing. All the samples and tutorials I have found implies new user can only be added to the administrators group (objLocalAdmGroup) Thanks Tag: Stuck on a Script Tag: 197557
  - 4
    - Write to telnet screen background I use function SendKeys to write to telnet window, ho to use this or other function to write to backgrounded window (telnet or PuTTy) -- U¿ywam klienta poczty Opera Mail: http://www.opera.com/mail/ Tag: Stuck on a Script Tag: 197554
  - 5
    - Completed Script to Change Printers on Client Computers This is a script that I wrote to change the printers on client computers from an old server to a new one. It is somewhat messy, but I though someone might benefit from it. As you can see in the code, we had special circumstances for 2 of our printers. If you don't have problems like this, you could remove most of the middle sections and just move the printers to the new server. This does require that the printers are shared with the same name on the new server. There are some message box pop ups that are commented out, these just help with troubleshooting. Please let me know if you appreciate this, or if you want me to shut up. I have many more admin scripts like this that I could share. ******************************** moveprinters.vbs ******************************** 'Mark Fergason '10/13/06 - That's Right Friday the 13th 'This script puts all printers in an array, then it will 'rename them based on the printer name. 'Due to not having 2003 drivers for the sharp printer 'it must search for that and move it to a different server 'The xerox printer was setup on some pcs and is no longer 'available, therefore it is just deleted 'use find/replace for svr1, svr2, and svr3 '--------------------------------------------------------- '--------------------------------------------------------- 'all of this sets the array numprint with all the printers on a computer '------------------------------------------------------- On Error Resume Next Dim WshNetwork, objPrinters, i, Count Set WshNetwork = CreateObject("WScript.Network") Set objPrinters = WshNetwork.EnumPrinterConnections Count = objPrinters.Count Dim numprint() ReDim numprint(Count) For i = 0 to objPrinters.Count - 1 Step 2 numprint(i)=objPrinters.Item(i+1) Next 'this will determine if the printer is on svr1 'if the printer in numprint(2) is on svr1 isthere(2) will = 3 '-------------------------------------------------------- Dim isthere() ReDim isthere(Count) Dim issharp() ReDim issharp(Count) Dim isxerox() ReDim isxerox(Count) Dim ispcl() ReDim ispcl(Count) For i = 0 to objPrinters.Count - 1 Step 2 isthere(i)=InStr(1, numprint(i), "svr1", VBTextCompare) If isthere(i)=3 Then issharp(i)=InStr(1, numprint(i), "sharp", VBTextCompare) If issharp(i)>3 Then ispcl(i)=InStr(1, numprint(i), "pcl", VBTextCompare) If ispcl(i)>5 Then WshNetwork.RemovePrinterConnection numprint(i) WshNetwork.AddWindowsPrinterConnection "\\svr3\Sharp AR-651-PCL6" Else WshNetwork.RemovePrinterConnection numprint(i) WshNetwork.AddWindowsPrinterConnection "\\svr3\Sharp AR-651-PS3" End If Else isxerox(i)=InStr(1, numprint(i), "xerox", VBTextCompare) End If End If 'MsgBox i & " " & numprint(i) & " " & isthere (i) Next 'this will remove the printers that are connected to svr1 'unless sharp that has alredy been moved 'if it is the xerox, it will just delete it '-------------------------------------------------------- For i = 0 to objPrinters.Count - 1 Step 2 If isthere(i)=3 Then If isxerox(i)>2 Then WshNetwork.RemovePrinterConnection numprint(i) Else If issharp(i)<3 Then WshNetwork.RemovePrinterConnection numprint(i) 'MsgBox i & " " & numprint(i) & " " & isthere (i) End If End If End If Next 'this changes names from svr1 to svr2 to re-add the printers 'unless sharp because it would not install on svr2 '-------------------------------------------------------- Dim changeprint() ReDim changeprint(Count) For i = 0 to objPrinters.Count - 1 Step 2 If isthere(i)=3 Then If issharp(i)<3 Then tempprint=numprint(i) changeprint(i)=Replace(tempprint, "svr1", "svr2") WshNetwork.AddWindowsPrinterConnection changeprint(i) 'MsgBox i & " " & changeprint(i) & " " & isthere (i) End If End If Next Tag: Stuck on a Script Tag: 197551
  - 6
    - Removing paragraph marks from the clipboard contents Is it possible in a .vbs file to remove all paragraph marks and line = breaks from a string of characters that has been copied to the = Clipboard? =20 Larry Tag: Stuck on a Script Tag: 197549
  - 7
    - How can I list all enabled users logon name? I would like to create a vb script to out put all account enabled users logon name in Active Directory. Would you help me? Tag: Stuck on a Script Tag: 197548
  - 8
    - Identifying if login script is running on a server or workstation. Im working on migrating or script from a batch file to a vbs file. This script is going to map drives and log certain infomation about the PC as well as a few other things. What I need to do is have it map the drives and after that deturmin is its running on a server or workstation. If its running on a server, then I want it to exit the script. I though using the version numbers would work till I found out the workstation and server have the same numbers in 2k. In the batch file we have a app from a resource kit called gettype.exe which deturmins the OS and role of that machine and raises a error level that defines the machines role, but I am unsure how to tap into the errorlevels in vbs. Im not set on this method but that is the only option i have right now. Anyone know either how to get the errorlevel from the file or another way of getting the role? Thanks in advance Tag: Stuck on a Script Tag: 197545
  - 9
    - Active Directory Server Inventory Hi All, I have a script (Thanks to Richard Mueller) which I am running in Active Directory to ping computers, query the computers and write the results to an Excel file, however everytime I run it the script runs out of memory with the following error: Out of Memory. code 80041006 Source SWbemObjectSet The script is also not creating the file, I think it is failing to create the file because it is not completing. Here is a copy of the script. Many Thanks In Advance. ---------------------------------------------------------------------------= =AD-------------------------------------------------------------------- ' Inventory.vbs ' VBScript program to inventory computers in the domain. ' ---------------------------------------------------------------------- ' Copyright (c) 2004 Richard L. Mueller ' Hilltop Lab web site - http://www.rlmueller.net ' Version 1.0 - February 19, 2004 ' ' You have a royalty-free right to use, modify, reproduce, and ' distribute this script file in any way you find useful, provided that ' you agree that the copyright owner above has no warranty, obligations, ' or liability for such use. Option Explicit Dim strComputer, strDN Dim objShell, objFSO, strTemp, strTempFile Dim objRootDSE, strRootDomain, objConnection, objCommand, strQuery Dim objRecordSet, strAttributes Dim objRemote, intRow, strRole Dim strExcelPath, objExcel, objSheet, intCol Dim colSettings, objOS, objComputer Dim objFix Dim objIE, strIETitle, blnFlag, strPrevious, strStatus Const ADS_CHASE_REFERRALS_SUBORDINATE =3D &H20 ' Check for required argument. 'If Wscript.Arguments.Count <> 1 Then ' Wscript.Echo "Argument <FileName> required. For example" & vbCrLf _ ' & "cscript Inventory.vbs ""c:\MyFolder\Inventory.xls""" ' Wscript.Quit 'End If ' Spreadsheet file name to be created. 'strExcelPath =3D Wscript.Arguments(0) strExcelPath =3D "T:\SLA\Chris\Output.xls" ' Set IE display box title. Dashes ("-") are to move the Microsoft title ' appended to the title we specify out of view. ' blnFlag is set to False when the user closes the IE display box. strIETitle =3D "Active Directory Server Inventory" & String(60, "-") blnFlag =3D True Set objShell =3D CreateObject("Wscript.Shell") ' Initialize display box with initial message. InitIE "Program Initializing..." ' Determine DNS domain name from RootDSE object. On Error Resume Next Set objRootDSE =3D GetObject("LDAP://RootDSE") If Err.Number <> 0 Then On Error GoTo 0 MsgIE "IE_Quit" Set objShell =3D Nothing Set objIE =3D Nothing Wscript.Echo "Domain not found, program aborted." Wscript.Echo "You may not be logged into a domain." Wscript.Quit End If On Error GoTo 0 strRootDomain =3D objRootDSE.Get("rootDomainNamingContext") ' Bind to Excel. On Error Resume Next Set objExcel =3D CreateObject("Excel.Application") If Err.Number <> 0 Then On Error GoTo 0 MsgIE "IE_Quit" Set objShell =3D Nothing Set objIE =3D Nothing Wscript.Echo "Excel application not found." Wscript.Echo "Program aborted." Wscript.Quit End if On Error GoTo 0 ' Create new workbook. objExcel.Workbooks.Add ' Bind to worksheet. Set objSheet =3D objExcel.ActiveWorkbook.Worksheets(1) objSheet.Name =3D "Inventory" ' Write row headings. objSheet.Cells(1, 1).Value =3D "sAMAccountName" objSheet.Cells(2, 1).value =3D "distinguishedName" objSheet.Cells(3, 1).Value =3D "WMI" objSheet.Cells(4, 1).Value =3D "# of OS's" objSheet.Cells(5, 1).Value =3D "OS Caption" objSheet.Cells(6, 1).Value =3D "OS Version" objSheet.Cells(7, 1).Value =3D "OS Service Pack" objSheet.Cells(8, 1).Value =3D "# of Hot Fixes" objSheet.Cells(9, 1).Value =3D "Hot Fix ID" objSheet.Cells(10, 1).Value =3D "# of Computer Systems" objSheet.Cells(11, 1).Value =3D "Computer Role" ' Format spreadsheet. objSheet.Range("A1:A11").Font.Bold =3D True objSheet.Select objSheet.Range("B2").Select objExcel.ActiveWindow.FreezePanes =3D True objExcel.Columns(1).Columnwidth =3D 18 ' Use ADO to search Active Directory for all computers. Set objCommand =3D CreateObject("ADODB.Command") Set objConnection =3D CreateObject("ADODB.Connection") objConnection.Provider =3D "ADsDSOObject" objConnection.Open =3D "Active Directory Provider" objCommand.ActiveConnection =3D objConnection ' Retrieve attributes. strAttributes =3D "sAMAccountName,distinguishedName" strQuery =3D "<LDAP://" & strRootDomain _ & ">;(ObjectCategory=3Dcomputer);" & strAttributes & ";subtree" objCommand.CommandText =3D strQuery objCommand.Properties("Page Size") =3D 100 objCommand.Properties("Timeout") =3D 30 objCommand.Properties("Cache Results") =3D False objCommand.Properties("Chase Referrals") =3D _ ADS_CHASE_REFERRALS_SUBORDINATE Set objRecordSet =3D objCommand.Execute Set objFSO =3D CreateObject("Scripting.FileSystemObject") ' Specify temporary file to save ping results. strTemp =3D objShell.ExpandEnvironmentStrings("%TEMP%") strTempFile =3D strTemp & "\RunResult.tmp" ' Enumerate computer objects. intCol =3D 2 Do Until objRecordSet.EOF strComputer =3D objRecordSet.Fields("sAMAccountName") ' Remove trailing "$". strComputer =3D Left(strComputer, Len(strComputer) - 1) objSheet.Cells(1, intCol).Value =3D strComputer objSheet.Cells(1, intCol).Font.Bold =3D True strDN =3D objRecordSet.Fields("distinguishedName") objSheet.Cells(2, intCol).Value =3D strDN If intCol =3D 2 Then MsgIE "Documenting computer: " & strComputer _ & vbCrLf & "Previous: none" _ & vbCrLf & "Total documented: 0" _ & vbCrLf & "To abort, close this box" Else MsgIE "Documenting computer: " & strComputer _ & vbCrLf & "Previous: " & strPrevious & strStatus _ & vbCrLf & "Total documented: " & (intCol - 2) _ & vbCrLf & "To abort, close this box" End If strPrevious =3D strComputer If blnFlag =3D False Then ' Save spreadsheet and close the workbook. On Error Resume Next objExcel.ActiveWorkbook.SaveAs strExcelPath If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Spreadsheet could not be saved as " & strExcelPath Wscript.Echo "The path may be invalid." strExcelPath =3D "" End If On Error GoTo 0 objExcel.ActiveWorkbook.Close ' Quit Excel. objExcel.Application.Quit ' Clean up. objConnection.Close If objFSO.FileExists(strTempfile) Then objFSO.DeleteFile(strTempFile) End If Set objRootDSE =3D Nothing Set objCommand =3D Nothing Set objConnection =3D Nothing Set objRecordSet =3D Nothing Set objRemote =3D Nothing Set objSheet =3D Nothing Set objExcel =3D Nothing Set objFSO =3D Nothing Set objShell =3D Nothing Set objIE =3D Nothing Wscript.Echo "Program Aborted" Wscript.Echo "Computers documented: " & (intCol - 1) If strExcelPath <> "" Then Wscript.Echo "See spreadsheet " & strExcelPath End If Wscript.Quit End If ' Ping computer to see if online. If IsConnectible(strComputer, 1, 750) Then ' Connect to computer with WMI. On Error Resume Next Set objRemote =3D GetObject("winmgmts:" _ & "{impersonationLevel=3Dimpersonate}!\\" _ & strComputer & "\root\cimv2") If Err.Number <> 0 Then On Error GoTo 0 objSheet.Cells(3, intCol).Value =3D "WMI Not Installed" strStatus =3D " no WMI" Else On Error GoTo 0 objSheet.Cells(3, intCol).Value =3D "WMI Installed" On Error Resume Next Set colSettings =3D objRemote.ExecQuery _ ("SELECT * FROM Win32_OperatingSystem") If Err.Number <> 0 Then On Error GoTo 0 objSheet.Cells(4, intCol).Value =3D "Failed" Else On Error GoTo 0 objSheet.Cells(4, intCol).Value =3D colSettings.Count For Each objOS In colSettings objSheet.Cells(5, intCol).Value =3D objOS.Caption objSheet.Cells(6, intCol).Value =3D objOS.Version objSheet.Cells(7, intCol).Value =3D _ objOS.ServicePackMajorVersion & "." _ & objOS.ServicePackMinorVersion Next Set objOS =3D Nothing End If If blnFlag =3D False Then ' Save spreadsheet and close the workbook. On Error Resume Next objExcel.ActiveWorkbook.SaveAs strExcelPath If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Spreadsheet could not be saved as " _ & strExcelPath Wscript.Echo "The path may be invalid." strExcelPath =3D "" End If On Error GoTo 0 objExcel.ActiveWorkbook.Close ' Quit Excel. objExcel.Application.Quit ' Clean up. objConnection.Close If objFSO.FileExists(strTempfile) Then objFSO.DeleteFile(strTempFile) End If Set objRootDSE =3D Nothing Set objCommand =3D Nothing Set objConnection =3D Nothing Set objRecordSet =3D Nothing Set objRemote =3D Nothing Set objSheet =3D Nothing Set objExcel =3D Nothing Set objFSO =3D Nothing Set objShell =3D Nothing Set objIE =3D Nothing Wscript.Echo "Program Aborted" Wscript.Echo "Computers documented: " & (intCol - 1) If strExcelPath <> "" Then Wscript.Echo "See spreadsheet " & strExcelPath End If Wscript.Quit End If On Error Resume Next Set colSettings =3D objRemote.ExecQuery _ ("SELECT * FROM Win32_QuickFixEngineering") If Err.Number <> 0 Then On Error GoTo 0 objSheet.Cells(8, intCol).Value =3D "Failed" Else On Error GoTo 0 objSheet.Cells(8, intCol).Value =3D colSettings.Count For Each objFix In colSettings objSheet.Cells(9, intCol).Value =3D objFix.HotFixID Next Set objFix =3D Nothing End If On Error Resume Next Set colSettings =3D objRemote.ExecQuery _ ("SELECT * FROM Win32_ComputerSystem") If Err.Number <> 0 Then On Error GoTo 0 objSheet.Cells(10, intCol).Value =3D "Failed" Else On Error GoTo 0 objSheet.Cells(10, intCol).Value =3D colSettings.Count For Each objComputer In colSettings Select Case objComputer.DomainRole Case 0 strRole =3D "Standalone Workstation" Case 1 strRole =3D "Member Workstation" Case 2 strRole =3D "Standalone Server" Case 3 strRole =3D "Member Server" Case 4 strRole =3D "Backup Domain Controller" Case 5 strRole =3D "Primary Domain Controller" Case Else strRole =3D "Unknown" End Select objSheet.Cells(11, intCol).Value =3D strRole Next Set objComputer =3D Nothing End If Set colSettings =3D Nothing strStatus =3D " documented" End If Else objSheet.Cells(3, intCol).Value =3D "Computer Not Found" strStatus =3D " not on line" End If objExcel.Columns(intCol).ColumnWidth =3D 18 intCol =3D intCol + 1 objRecordSet.MoveNext Loop ' Save spreadsheet and close the workbook. On Error Resume Next objExcel.ActiveWorkbook.SaveAs strExcelPath If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Spreadsheet could not be saved as " & strExcelPath Wscript.Echo "The path may be invalid." strExcelPath =3D "" End If On Error GoTo 0 objExcel.ActiveWorkbook.Close ' Quit Excel. objExcel.Application.Quit ' Clean up. objConnection.Close If objFSO.FileExists(strTempfile) Then objFSO.DeleteFile(strTempFile) End If Set objRootDSE =3D Nothing Set objCommand =3D Nothing Set objConnection =3D Nothing Set objRecordSet =3D Nothing Set objRemote =3D Nothing Set objSheet =3D Nothing Set objExcel =3D Nothing Set objFSO =3D Nothing ' Close display box. MsgIE "IE_Quit" Set objShell =3D Nothing Set objIE =3D Nothing Wscript.Echo "Done" Wscript.Echo "Documented " & (intCol - 2) & " computers" If strExcelPath <> "" Then Wscript.Echo "See spreadsheet " & strExcelPath End If Function IsConnectible(strHost, intPings, intTO) ' Returns True if strHost can be pinged. ' Based on a program by Alex Angelopoulos and Torgeir Bakken. Dim objFile, strResults If intPings =3D "" Then intPings =3D 2 If intTO =3D "" Then intTO =3D 750 Const OpenAsDefault =3D -2 Const FailIfNotExist =3D 0 Const ForReading =3D 1 objShell.Run "%comspec% /c ping -n " & intPings & " -w " & intTO _ & " " & strHost & ">" & strTempFile, 0, True Set objFile =3D objFSO.OpenTextFile(strTempFile, ForReading, _ FailIfNotExist, OpenAsDefault) strResults =3D objFile.ReadAll objFile.Close Select Case InStr(strResults, "TTL=3D") Case 0 IsConnectible =3D False Case Else IsConnectible =3D True End Select End Function Sub MsgIE(strMsg) ' Subroutine to display message in IE box and detect when the ' box is closed by the program or the user. On Error Resume Next If strMsg =3D "IE_Quit" Then blnFlag =3D False objIE.Quit Else objIE.Document.Body.InnerText =3D strMsg If Err.Number <> 0 Then Err.Clear blnFlag =3D False Exit Sub End If objShell.AppActivate strIETitle End If End Sub Sub InitIE(strMsg) ' Subroutine to initialize the IE display box. Dim intWidth, intHeight, intWidthW, intHeightW Set objIE =3D CreateObject("InternetExplorer.Application") With objIE .ToolBar =3D False .StatusBar =3D False .Resizable =3D False .Navigate("about:blank") Do Until .readyState =3D 4 Wscript.Sleep 100 Loop With .document With .ParentWindow intWidth =3D .Screen.AvailWidth intHeight =3D .Screen.AvailHeight intWidthW =3D .Screen.AvailWidth * .60 intHeightW =3D .Screen.AvailHeight * .35 .resizeto intWidthW, intHeightW .moveto (intWidth - intWidthW)/2, (intHeight - intHeightW)/2 End With .Write "<body> " & strMsg & " </body></html>" With .ParentWindow.document.body .style.backgroundcolor =3D "LightBlue" .scroll=3D"no" .style.Font =3D "10pt 'Courier New'" .style.borderStyle =3D "outset" .style.borderWidth =3D "4px" End With .Title =3D strIETitle objIE.Visible =3D True Wscript.Sleep 100 objShell.AppActivate strIETitle End With End With End Sub ---------------------------------------------------------------------------= =AD-------------------------------------------------------------------- Tag: Stuck on a Script Tag: 197541
  - 10
    - Script for scanning the structure of AD I want a script which will scan the AD structure and output the groups, OU's, users like a tree. Tag: Stuck on a Script Tag: 197539
  - 11
    - Script for scanning the structure of the AD I want a script which scans the AD and outputs the structure of the Active directory groups and users. Does anyone know of any script. Tag: Stuck on a Script Tag: 197538
  - 12
    - Where can I ask for help with javascript ? Hi, Not sure if this is the correct forum, but this is my question. The following script (onblur) will validate a field for it to be (mm/dd/yyyy), if user enters the date in such format then user is allowed to go to the next field, otherwise displays an alert. The problem with the script is that if user just leaves field blank it still displays the alert, I need to tweak it so that when user leaves the field blank nothing happens. Perhaps some master in Javascript could help out ? This is the code -------- <script type="text/javascript">  </script> --------- Thanks in advance, Alejandro Tag: Stuck on a Script Tag: 197537
  - 13
    - bits query we use bits for our large downloads so i was pleased to find bitsjob.vbs in the technet mag august. But how do i use it? I'm scipting dumb. Please help. Tag: Stuck on a Script Tag: 197536
  - 14
    - edit text file Hello i have to edit a text file. the task is: i have a text file which is located at c:\windows.., i will have to replace the ip 172.18.52.10 to 175.45.52.63 .It is always a replace the IP and save it and the IP is always found at the end of text file. Can you please give me some tips of how i can do that in VBscipt Thx in advance Nazeedah Tag: Stuck on a Script Tag: 197532
  - 15
    - Excel scripting Hi, I have written a script that reads value from Excel & "should terminate" when blank cell is encountered. However, even the script that is posted on the site does not get terminated "immediately" when the blank cell or row is encountered. It terminates only after the blank row is passed for one time. How can i make the script terminate "immediately" when it encounters blank row. It should not read that row at all. Following is a sample script from the site : ========= Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open _ ("C:\Scripts\New_users.xls") intRow = 2 Do Until objExcel.Cells(intRow,1).Value = "" Wscript.Echo "CN: " & objExcel.Cells(intRow, 1).Value Wscript.Echo "sAMAccountName: " & objExcel.Cells(intRow, 2).Value Wscript.Echo "GivenName: " & objExcel.Cells(intRow, 3).Value Wscript.Echo "LastName: " & objExcel.Cells(intRow, 4).Value intRow = intRow + 1 Loop objExcel.Quit ============= Any help on terminating immediately after it encounters blank row would be much appreciated. thanks in advance ... Tag: Stuck on a Script Tag: 197529
  - 16
    - Multilingual support in Len method Hi, I am writing a website that should support Hebrew & English (as well as other languages). I need to know the simple character count (not byte count!) of a string. When I am using the Len(str) method (with string variable as input), I receive the following: - English strings return the exact number of characters. - Hebrew strings return the UTF-8 byte count. I would like to know the number of characters in the string in both cases, in order to cut long strings, but actually Hebrew strings are cut differently than English strings. I am aware of the fact that all strings are UNICODE, but I am not interested in their byte count - only character count. Thanks, Gabi Tag: Stuck on a Script Tag: 197528
  - 17
    - logon script for an examination account In Alberta, high schools have what are called diploma exams. Some of these exams are written on computer. The basic setup is that students log on to a generic account. That account then loads a Word file called dipoma.doc. Diploma.doc has a footer. The students replace the line XXXXXX in the footer with their six digit student id. Then, they are told to use Save-As to give the file a uniqe name. The word doc also automatically saves every five minutes and is formatted with a specific font and size and double line spacing. We used to have the students save to a directory called diploma on the local drive. But then I had to make another script to delete the diploma directory on each computer after each exam. Also, we have now put Deep Freeze on the computers and some of the computers don't have a 'thaw space'. So, what I'd like to do is create a server share like \\server\diploma$. I know how to set up the share and ntfs settings so students can save to that directory and only see their doc. But I'm wondeering if it would be easy, as the students logon with the generic account of 'diploma', to create a vbscript that: 1. asks the students to input their student id 2. then creates a directory in \\server\diploma$ named by their student id. 3. copies the diploma.doc to the student's sub directory and renames it XXXXXX.doc (their student id obviously) 4. then opens the doc for the students to start witting the exam Thanks, Jeremy Tag: Stuck on a Script Tag: 197522
  - 18
    - Help with script Hello, the following script produces this error window, and i cant figure it out: Line 17, Char 1 Genereal Failure Code: 80041001 Source: SubemObjectex ....................Code................. strPrinter = "HP Laserjet 4" strPrinterDriverPath = "c:\printer.inf" strDefault = True strComputer = "." strDriver = strPrinter strIPAddress = "10.20.59.4" strPrinterName = "FreePrinter" '**Create TCPIP Port** Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set objNewPort = objWMIService.Get ("Win32_TCPIPPrinterPort").SpawnInstance_ objNewPort.Name = "IP_" & strIPAddress objNewPort.Protocol = 1 objNewPort.HostAddress = strIPAddress objNewPort.PortNumber = "9100" objNewPort.SNMPEnabled = False objNewPort.Put_ '**Install Driver strRemote = "" Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.Run "cmd /c rundll32 printui.dll,PrintUIEntry" & strRemote & "/ia /f """ & _ strPrinter3DriverPath & """ /m """ & strPrinter3 & """", 0, True '**Create Printer Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ objPrinter.DriverName = strPrintDriver objPrinter.PortName = "IP_" & strIPAddress objPrinter.DeviceID = strPrinterName objPrinter.Location = "" objPrinter.Network = True objPrinter.Shared = False 'objPrinter.ShareName = "Share Name" objPrinter.Put_ '**Set as Default Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = """ & strPrinterName & """") For Each objPrinter in colInstalledPrinters objPrinter.SetDefaultPrinter() Next -- .-""""-. /_ _\ // \ / \\ |\__\ /__/| \ || / \ _ / ''''.___.'''' Tag: Stuck on a Script Tag: 197517
  - 19
    - Running a script against an OU In the following script, what do I have to put in place of "atl-ws-01" to run the script against an OU called lab1? Can I use the distinguished name? Or would it be easier to run it with a GPO? strComputer = "atl-ws-01" Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user") objUser.SetPassword "09iuy%4e" objUser.SetInfo Tag: Stuck on a Script Tag: 197516
  - 20
    - Find user group membership I am using this script to check to see if a user exists in AD. Since there is already a connection to AD would it be possible to check for group membership at the same time??...and if so..how? Thanks input = inputbox("Enter UserID") if UserExists(Input,sDisplayName) then wscript.echo "Found " & sDisplayName else wscript.echo "Not account found for 'Dave'" end if Function UserExists(sUser,sDisplayName) Dim oConnection, oCommand, oRoot, sDNSDomain, sQuery, sFilter, oResults UserExists = False sDisplayName = sUser On Error Resume Next ' Use ADO to search the domain for all users. Set oConnection = CreateObject("ADODB.Connection") Set oCommand = CreateObject("ADODB.Command") oConnection.Provider = "ADsDSOOBject" oConnection.Open "Active Directory Provider" Set oCommand.ActiveConnection = oConnection ' Determine the DNS domain from the RootDSE object. Set oRoot = GetObject("LDAP://RootDSE") sDNSDomain = oRoot.Get("DefaultNamingContext") sFilter = "(&(ObjectClass=user)(ObjectCategory=person)(samAccountName=" & sUser & "))" sQuery = "<LDAP://" & sDNSDomain & ">;" & sFilter & ";displayName;subtree" oCommand.CommandText = sQuery oCommand.Properties("Page Size") = 100 oCommand.Properties("Timeout") = 30 oCommand.Properties("Cache Results") = False Set oResults = oCommand.Execute Do Until oResults.EOF if oResults.Fields("displayName") <> "" then sDisplayName = oResults.Fields("displayName") UserExists = True End if oResults.MoveNext Loop On Error Goto 0 End Function Tag: Stuck on a Script Tag: 197509
  - 21
    - Find User Group Membership I am currently using this script to verify that a user exists in AD and was wondering if since there is already a connction to AD if I could also verify group membership for that user at the same time. input = inputbox("Enter ID") if UserExists(Input,sDisplayName) then wscript.echo "Found " & sDisplayName else wscript.echo "No account found for" & Input end if Function UserExists(sUser,sDisplayName) Dim oConnection, oCommand, oRoot, sDNSDomain, sQuery, sFilter, oResults UserExists = False sDisplayName = sUser On Error Resume Next ' Use ADO to search the domain for all users. Set oConnection = CreateObject("ADODB.Connection") Set oCommand = CreateObject("ADODB.Command") oConnection.Provider = "ADsDSOOBject" oConnection.Open "Active Directory Provider" Set oCommand.ActiveConnection = oConnection ' Determine the DNS domain from the RootDSE object. Set oRoot = GetObject("LDAP://RootDSE") sDNSDomain = oRoot.Get("DefaultNamingContext") sFilter = "(&(ObjectClass=user)(ObjectCategory=person)(samAccountName=" & sUser & "))" sQuery = "<LDAP://" & sDNSDomain & ">;" & sFilter & ";displayName;subtree" oCommand.CommandText = sQuery oCommand.Properties("Page Size") = 100 oCommand.Properties("Timeout") = 30 oCommand.Properties("Cache Results") = False Set oResults = oCommand.Execute Do Until oResults.EOF if oResults.Fields("displayName") <> "" then sDisplayName = oResults.Fields("displayName") UserExists = True End if oResults.MoveNext Loop On Error Goto 0 End Function Thanks Tag: Stuck on a Script Tag: 197508
  - 22
    - Monitoring Server Availability Script Ok, let me start off by saying that I am not a pro by any means at making these scripts, I combined 2 together to get the functions I wanted. My only problem with this script is that I get the email every time, even when I know the server is up and running. Is there something wrong in there that is causing this? Any help is greatly appreciated. Thanks. url="http://www.contoso.com" on error resume next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", url, FALSE) stat=objHTTP.status if not stat="200" then Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "www.contoso.com is DOWN" objMessage.Sender = "mrussell@contoso.com" objMessage.To = "mrussell@contoso.com" objMessage.TextBody = "WEBSITE IS DOWN" '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.lifeclinic.com" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update objMessage.Send end if Tag: Stuck on a Script Tag: 197503
  - 23
    - Monitoring Server Availability Script This is the script that I made, and I will freely admit that I'm not a pro by any means at making them. The domain names have been changed obviously. My only problem is that every time the monitor runs I get an email even though I know the site is still up. Is there something wrong there that is telling it to send the message no matter what? Any help is greatly appreciated. Thanks. url="http://www.contoso.com" on error resume next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", url, FALSE) stat=objHTTP.status if not stat="200" then Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "www.contoso.com is DOWN" objMessage.Sender = "mrussell@contoso.com" objMessage.To = "mrussell@contoso.com" objMessage.TextBody = "WEBSITE IS DOWN" '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.lifeclinic.com" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update objMessage.Send end if Tag: Stuck on a Script Tag: 197501
  - 24
    - Run a command from VB Script I am trying to run the following command WsShell.Run ("WinSCP3.exe secureSFTP /console /script=fsftp.txt") WsShell is an instance of WScript of course. I need a way for the vbs to wait for the command to finish before it gets back the control and the next line is executed, but vbs is taking back control too early and my command is not running. How can I accomplish such thing? Sleep is not working. Thanks, -- Leo Selmani Tag: Stuck on a Script Tag: 197500
  - 25
    - Encryption with vbs and capicom Hi I'm looking for a solution to encrypt data with vbs and capicom and decrypt with java. Encrypt the data with capicom is quite easy but the encyption on the java site seems not to be easy. For the encyption we used the AES 256bit Alogrithm. Does someone have an idea how we could solve the problem encrypting in vbs - decrypting in java? Thanks michel Tag: Stuck on a Script Tag: 197498

I fairly new to scripiting and I 'm trying to make the script work.

I would like the script to monitor the system event log on my server
and send an e-mail when there are logged warning and error events.

I have the e-mail portion done, but I need help with my SELECT
statement.

CODE BELOW

strComputer = "%%%%%%%" 'Hard coded computer name
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate,(Security)}!\\" & strComputer &
"\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("Select * from __InstanceCreationEvent within 5 where " _
& "TargetInstance isa 'Win32_NTLogEvent Where Logfile = 'System'' " _
& "TargetInstance.EventType = '0' ") ' Event type 1 Error,2 Warning,
3 Information
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "%%%%%%%" ' E-mail Seciton
objMessage.From = "%%%%%%%"
objMessage.To = "%%%%%%%"
objMessage.TextBody = " Record No.: " & vbtab &
objLatestEvent.TargetInstance.RecordNumber & vbcrlf & _
" Event ID: " & vbtab & vbtab &
objLatestEvent.TargetInstance.EventCode & vbcrlf & _
" Time: " & vbtab & vbtab &
objLatestEvent.TargetInstance.TimeWritten & vbcrlf & _
" Source: " & vbtab & vbtab &
objLatestEvent.TargetInstance.SourceName & vbcrlf & _
" Category: " & vbtab &
objLatestEvent.TargetInstance.CategoryString & vbcrlf & _
" Event Type: " & vbtab & objLatestEvent.TargetInstance.Type &
vbcrlf & _
" User: " & vbtab & vbtab & objLatestEvent.TargetInstance.User
& vbcrlf & _
" Text: " & vbtab & vbtab &
objLatestEvent.TargetInstance.Message
objMessage.Send

Loop

CODE END

Thanks in advance,
Kyle

Top