Using VBscript on Exchange 2003 server

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
    - use text file for strComputer in VBS script I am trying to scan my network using this script listed below to scan a list of servers from a text file. I can scan a single computer just fine but unable to get this to pull from a list of servers from a text file. Any help would be greatly appreciated. 'On Error Resume Next directive is specified so that users 'are not bothered by potential operational errors with the script. 'On Error Resume Next 'Using both of these flags of the WbemFlagEnum enumeration 'makes a semisynchronous WMI call. See "Making a Semisynchronous Call" 'in the WMI SDK for more information. Const wbemFlagReturnImmediately = 16 Const wbemFlagForwardOnly = 32 'WbemCimtypeEnum Enumerations used in the script Const wbemCimtypeUint32 = 19 Const wbemCimtypeSint64 = 20 Const wbemCimtypeUint64 = 21 'Formatting and number conversion constants Const HR = "----" Const KB = 1024 Const MB = 1048576 Const GB = 1073741824 'Change this to the UNC path where inventory files should be created 'Anyone running this script must have read and write access to the 'path. strInvFilePath = "E:\hw\" 'If each user will run this inventory file locally, do not change the value 'of strComputer. strComputer = "." 'Connect to WMI Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 'Determine the OS because not all classes listed here are supported 'on all versions of the Windows operating systems strProperties = "CreationClassName,Version,CSName,Caption" Set objOS = objWMIService.ExecQuery _ ("SELECT " & strProperties & " FROM Win32_OperatingSystem",_ ,wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each Setting in objOS strCreationClass = Setting.CreationClassName intVersion = Setting.Version strCSName = Setting.CSName strCaption = Setting.Caption Next 'Check for a file named after the computer. If it doesn't 'exist, then create a file that contains the computer's 'hardware inventory. Set objFSO = CreateObject("Scripting.FileSystemObject") strFileName = "HrdWrInv_" & strCSName & ".txt" strFullName = objFSO.BuildPath(strInvFilePath, strFileName) If (objFSO.FileExists(strFullName)) Then WScript.Quit Set objFile = objFSO.CreateTextFile(strFullName) 'Write the Operating System name and version but nothing more. 'The goal is to collect hardware inventory, not software inventory 'and configuration information. objFile.WriteLine("OSInformation:") objFile.WriteLine("CreationClassName: " & strCreationClass) objFile.WriteLine("ComputerName: " & strCSName) objFile.WriteLine("Caption: " & strCaption) objFile.WriteLine("Version: " & intVersion) 'The name property is automatically returned (because it's a key value), so 'it's not absolutely necessary to specify it in strProperties strProperties = _ "CreationClassName,Manufacturer,Model,Name,NumberofProcessors," & _ "SystemType,TotalPhysicalMemory" QueryInstances "Win32_ComputerSystem",strProperties,"None" 'Page file information. strProperties = _ "Name,MaximumSize" QueryInstances "Win32_PageFileSetting",strProperties,"None" 'Physical memory information. 'Note, total memory is aggregated and listed with win32_computersystem so there's 'no need to query the memory classes, such as Win32_PhysicalMemoryArray or 'Win32_PhysicalMemory. However, if you need to find out how much memory 'a computer will hold, it's useful to query Win32_PhysicalMemoryArray as 'shown strProperties = _ "MaxCapacity,CreationClassName" QueryInstances "Win32_PhysicalMemoryArray",strProperties,"None" 'SCSI Disk controller information strProperties = _ "Name,Manufacturer,Description,CreationClassName" QueryInstances "Win32_SCSIController",strProperties,"None" 'IDE Disk controller information strProperties = _ "Name,Manufacturer,Description,CreationClassName" QueryInstances "Win32_IDEController",strProperties,"None" 'Phyiscal Media information 'Note, this class is only in XP (ver5) and the Windows 'Server 2003 family (ver5). 'Win98SE reports a version number of 4 (4.10.2222) If Mid(intVersion,1,3) >= 5.1 Then strProperties = _ "SerialNumber,CreationClassName" QueryInstances "Win32_PhysicalMedia",strProperties,"None" End If 'Logical Disk information strProperties = _ "DriveType,Description,DeviceID,CreationClassName" QueryInstances "Win32_LogicalDisk",strProperties,_ "DriveType!=3 AND DriveType !=4" 'Disk drive information strProperties = _ "Caption,Description,DeviceID,InterfaceType," & _ "Manufacturer,MediaType,Model,Partitions,Size,CreationClassName" QueryInstances "Win32_DiskDrive",strProperties,"None" 'Processor information strProperties = _ "Manufacturer,MaxClockSpeed,ExtClock,ProcessorType," & _ "Revision,Version,CreationClassName" QueryInstances "Win32_Processor",strProperties,"None" 'NIC information strProperties = _ "Manufacturer,MACAddress,ProductName,AdapterType,CreationClassName" QueryInstances "Win32_NetworkAdapter",strProperties,_ "AdapterType='Ethernet 802.3' AND ProductName !='Packet Scheduler Miniport'" 'Monitor information strProperties = _ "Description,MonitorType,CreationClassName" QueryInstances "Win32_DesktopMonitor",strProperties,"None" 'Video adapter information strProperties = _ "Name,MaxRefreshRate,AdapterRAM,CreationClassName" QueryInstances "Win32_VideoController",strProperties,"None" 'Motherboard information strProperties = _ "Description,Manufacturer,Product,CreationClassName" QueryInstances "Win32_BaseBoard",strProperties,"None" 'BIOS information strProperties = _ "Manufacturer, Name,SoftwareElementID,SMBIOSBIOSVersion," & _ "SMBIOSMajorVersion,SMBIOSMinorVersion,Version" QueryInstances "Win32_BIOS",strProperties,"None" objFile.Close '*****Subroutines and Functions********* Sub QueryInstances(objClass,Properties,Conditions) If Conditions = "None" Then strSelect = "Select " & Properties & " From " & objClass Else strSelect = "Select " & Properties & " From " & objClass & _ " Where " & Conditions End If Set objClassName = _ objWMIService.ExecQuery _ (strSelect,,wbemFlagReturnImmediately + wbemFlagForwardOnly) intCounter = 0 ' Can use the following to determine the # of items in the sWbemObjectSet but ' it's processor intensive and it means that you can't use a semi-synchronous ' call because the count property doesn't work with wbemFlagForwardOnly. ' WScript.Echo "# of items in collection: " & objClassName.Count For Each objComponent in objClassName If intCounter = 0 Then objFile.WriteLine(HR) objFile.WriteLine(Mid(objClass,7) & ":") End If For Each objProperty in objComponent.Properties_ 'Start by verifying that there's a value in the property. 'If not, it isn't necessary to perform the evaluation in this loop. If ISNull(objProperty.Value) Then objFile.WriteLine(objProperty.Name & ": Not available") Else If objProperty.CIMType <> wbemCimtypeUint32 And _ objProperty.CIMType <> wbemCimtypeUint64 And _ objProperty.CIMType <> wbemCimtypeSint64 Then objFile.WriteLine(objProperty.Name & ": " & _ objProperty.Value & " " & _ GetUnits(objClass,objProperty.Name)) Else strUnits = GetUnits(objClass,objProperty.Name) intValue = _ SizeFormat(objProperty.Name,objProperty.Value,strUnits) objFile.WriteLine(objProperty.Name & ": " & intValue) End If End If intCounter = intCounter + 1 Next If intCounter > 1 Then objFile.WriteLine(HR) Next objFile.WriteLine(HR) objFile.WriteLine() End Sub Function GetUnits(ClassName,ClassProperty) Set objSchemaClass = objWMIService.Get(ClassName) For Each objClassProperty in objSchemaClass.Properties_ If objClassProperty.Name = ClassProperty Then For Each objQualifier in objClassProperty.Qualifiers_ If LCase(objQualifier.Name) = "units" Then GetUnits = LCase(objQualifier.Value) End If Next End If Next End Function Function SizeFormat(PropertyName,RawValue,Units) Select Case LCase(Units) Case "bytes" If int(RawValue/GB) >= 1 Then SizeFormat = Round((RawValue/GB),1) & " gigabyte(s)" ElseIf int(RawValue/MB) >= 1 Then SizeFormat = int(RawValue/MB) & " megabyte(s)" Else SizeFormat = RawValue & " byte(s)" End If Case "kilobytes" If int(RawValue/MB) >= 1 Then SizeFormat = Round((RawValue/MB),1) & " gigabyte(s)" ElseIf int(RawValue/KB) >= 1 Then SizeFormat = int(RawValue/1024) & " megabyte(s)" Else SizeFormat = RawValue & " kilobyte(s)" End If Case Else SizeFormat = RawValue & " " & Units End Select End Function Tag: Using VBscript on Exchange 2003 server Tag: 163996
  - 2
    - Could not complete cursor operation because the table schema changed after the cursor was declared Hi, My stored procedure was working fine but when i made added 2 fields to my table and then made subsequent changes to my sp it give me the following error: "Could not complete cursor operation because the table schema changed after the cursor was declared" it works fine from back end (query analyser) but when i execute from my dot net code it give the above error. does anyone help please ? Tag: Using VBscript on Exchange 2003 server Tag: 163993
  - 3
    - Change file's modification date? Can someone suggest how I might be able to update the modification date of a file to the current date & time without losing the content of the (binary) file? Thanks. --Philip Tag: Using VBscript on Exchange 2003 server Tag: 163992
  - 4
    - vbs to rename files in the directory This is a multi-part message in MIME format. ------=_NextPart_000_000E_01C4AA6D.E3ECA330 Content-Type: text/plain; charset="gb2312" Content-Transfer-Encoding: quoted-printable Hi, The following script is supposed to rename all files start with sg and = with extension .dat, it will remove the prefix sg from the file name. eg = : sgtestfile.dat --> testfile.dat. However, it is not working as expected, it returns error: "G:\Script\Test\rename.vbs(1, 19) Microsoft VBScript compilation error: = Expected end of statement Exit code: 1 , 0001h" Dim strPrefix As String, strExtension As String, strPath As String=20 Dim strFilePattern As String, strstrOldName As String, strNewName As = String=20 =20 strPrefix =3D "SG"=20 strExtension =3D "DAT"=20 strPath =3D "G:\Script\Test\"=20 =20 strFilePattern =3D strPath & strPrefix & "*." & strExtension=20 =20 Dim strFileFinder As String=20 strFileFinder =3D Dir(strFilePattern)=20 =20 Do Until strFileFinder =3D ""=20 strOldName =3D strPath & strFileFinder=20 strNewName =3D strPath & Right(strFileFinder, Len(strFileFinder) = - Len(strPrefix))=20 Name strOldName As strNewName=20 strFileFinder =3D Dir=20 Loop=20 Can anyone help, I feel that the line "strFileFinder =3D = Dir(strFilePattern)" is having problem. Thanks Frank ------=_NextPart_000_000E_01C4AA6D.E3ECA330 Content-Type: text/html; charset="gb2312" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; charset=3Dgb2312"> <META content=3D"MSHTML 6.00.2800.1458" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>The following script is supposed = to rename all=20 files start with sg and with extension .dat, it will remove the prefix = sg from=20 the file name. eg :  sgtestfile.dat --> = testfile.dat.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2> However, it is not working as = expected, it=20 returns error:</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"G:\Script\Test\rename.vbs(1, 19) = Microsoft=20 VBScript compilation error: Expected end of statement </FONT><FONT = face=3DArial=20 size=3D2>Exit code: 1 , 0001h"</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>    Dim strPrefix As = String,=20 strExtension As String, strPath As String <BR>    Dim=20 strFilePattern As String, strstrOldName As String, strNewName As String=20 <BR>     <BR>    strPrefix =3D "SG"=20 <BR>    strExtension =3D "DAT" <BR>    = strPath =3D=20 "G:\Script\Test\" <BR>     <BR>   =20 strFilePattern =3D strPath & strPrefix & "*." & strExtension = <BR>     <BR>    Dim strFileFinder As = String=20 <BR>    strFileFinder =3D Dir(strFilePattern)=20 <BR>    <BR>    Do Until strFileFinder =3D = ""=20 <BR>        strOldName =3D strPath = &=20 strFileFinder <BR>        strNewName = =3D=20 strPath & Right(strFileFinder, Len(strFileFinder) - Len(strPrefix))=20 <BR>        Name strOldName As = strNewName=20 <BR>        strFileFinder =3D Dir=20 <BR>    Loop <BR></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Can anyone help, I feel that the=20 line "strFileFinder =3D Dir(strFilePattern)" is having = problem.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Frank</DIV> <DIV><BR></DIV></FONT></BODY></HTML> ------=_NextPart_000_000E_01C4AA6D.E3ECA330-- Tag: Using VBscript on Exchange 2003 server Tag: 163990
  - 5
    - Host to get list of Unconfigured Components Does anyone know of a script that will display a list of unconfigured components on a 2003 Server? Thanks Tag: Using VBscript on Exchange 2003 server Tag: 163988
  - 6
    - Create local account in XP I am looking for a way to check to see if an account exists in XP, and if not, create it, and keep running the VBS code until it is created and has Admin privileges(just in case the user add or group add fails). The only script I have now is the following to create the user. The questions I have are: 1) Am I creating the user correctly using VBS? (The code does work, but is there an easier way?) 2) How can I accomplish the goal as stated above using some type of VBS code? Thank you, Matthew CODE ---- WshShell.Run "NET USER AUTOCAD XXXXXXX /ADD /ACTIVE:YES /COMMENT:AUTOCAD /EXPIRES:12/31/2004 /FULLNAME:AUTOCAD /PASSWORDCHG:NO" WshShell.Run "NET LOCALGROUP ADMINISTRATORS AUTOCAD /ADD" Tag: Using VBscript on Exchange 2003 server Tag: 163987
  - 7
    - Checking Domain Membership IsMember not working correctly I'm using IsMember to check for Domain Admins. I must be doing something wrong because it comes back positive for all users. Here's the code strGroup = "Domain Admins" If IsMember(strGroup) Then MsgBox "Hello" End If Function IsMember(strGroup) ' Function to test for group membership. ' strGroup is the NT name (sAMAccountName) of the group to test. ' objGroupList is a dictionary object, with global scope. ' Returns True if the user is a member of the group. If IsEmpty(objGroupList) Then Call LoadGroups End If IsMember = objGroupList.Exists(strGroup) End Function Sub LoadGroups ' Subroutine to populate dictionary object with group memberships. ' objADObject is the user object, with global scope. ' objGroupList is a dictionary object, with global scope. Dim objGroup Set objGroupList = CreateObject("Scripting.Dictionary") objGroupList.CompareMode = vbTextCompare For Each objGroup In objADObject.Groups objGroupList(objGroup.name) = True Next Set objGroup = Nothing End Sub Tag: Using VBscript on Exchange 2003 server Tag: 163986
  - 8
    - Accsessing a .pst file via code for publishing to extranet Hi, Is there any way I can access the details from a Personal email folder storage file (.pst) without having to have it in a mail box. Jeni Tag: Using VBscript on Exchange 2003 server Tag: 163977
  - 9
    - Adding to Path environment variable I've been looking for a way to add a directory to Path for an installer. I need to set Path permanently, not just while the command prompt is open, so I can't use the set command. I figured I should write somewhere in the registry, so I searched the registry for a directory currently in the Path system variable, but I couldn't find it. I think I found where PATH data is stored for the owner, but I'd rather set the Path for all users. I could call the command line program PathTool ( http://www.digievo.co.uk/software.asp?category=1 ) from my script to add to Path, but PathTool is a 72K exe with features that I don't need. The VBScript at http://www.winguides.com/scripting/reference.php?id=138 seems more practical for my needs, but I need some help to customize it. I only have access to Windows XP. With a little help from a VBScript reference (since I don't know VBScript), I was able to customize the VBScript to add to Path on XP and other NT based systems. I came up with the following script: Set WshShell = WScript.CreateObject("WScript.Shell") Set WshEnv = WshShell.Environment("SYSTEM") WshEnv("Path") = WshEnv("Path") & ";directory/to/add/goes/here" All I need is a way to sniff out Windows 95, 98 and Me and change the code as needed when one of those systems is detected. My best guess is to learn how to read the registry from the command prompt and see if "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\PathName" contains "C:\WINNT" and if not, assume it's Windows 95, 98, or Me and (somehow) add to the Path in autoexec.bat, but I don't think users of my product would appreciate me playing a guessing game with their registry. Any help would be appreciated. Barry Tag: Using VBscript on Exchange 2003 server Tag: 163976
  - 10
    - overwrite some files Hi, I'm Nicola a sysadmin who really needs to start studying some kind of scripting language........ I need to overwrite some files from a server to a lot of clients in our network, not to all and the conditions are: 1)to find a folder called "c:\sigla" 2)the files on the server are newer then the clients' one. All the computers are in a windows 2003 domain (active directory is up and running) and use a Microsoft OS, from NT workstation to XP. Tag: Using VBscript on Exchange 2003 server Tag: 163974
  - 11
    - Determine user idle time in script Is there a way to determine (through WMI, or some other way) time user has been idle (no mouse or keyboard events)? Drazen! Tag: Using VBscript on Exchange 2003 server Tag: 163973
  - 12
    - ASP, Link Variables and Forms I am having a brain freeze and need help with an easy question. I have a page called RemoveClass.asp with a form that has a button to remove a class. There is one form for each class. They all have the same name. Here is what my code looks like: 'start looping <form name="form1" action="RemoveClass.asp?RemoveClass=<%=ObjRS("ClassID")%>" method="post"><INPUT type="submit" value="Remove" name=RemoveClass></form> 'move to next class 'next loop The problem is that when the Remove submit button is clicked the browser goes to RemoveClass.asp not RemoveClass.asp?RemoveClass=?ID12345. I viewed the source and there don't seem to be any errors. The class ID is being inserted properly and when I enter the link manually with the RemoveClass variable name it works. How do I put this variable in the link? I know I did this before and I think it was with the action property. Any ideas? Thanks for the help. Tag: Using VBscript on Exchange 2003 server Tag: 163962
  - 13
    - How can i use "LIKE" ? I want to compare two string and want to use "LIKE" (user define a string format), how can I do ? Tag: Using VBscript on Exchange 2003 server Tag: 163961
  - 14
    - Get all users from AD I have a Vbs script which changes dis[play name to "surname, forename". What code do I need to connect to AD and apply this to each user? Any help appreciated Gordon Tag: Using VBscript on Exchange 2003 server Tag: 163959
  - 15
    - Sending Email From DOS Prompt.. Hi, I found this on web in this it's using local smtp server.if i want to use remote smtp server what changes should i make. '-------------------------------------------------- ' ' Sends email from the local SMTP service using CDONTS objects ' ' Usage: ' sendmail -t <to> -f <from> -s "<subject>" -b "<message>" ' sendmail [-help|-?] ' '-------------------------------------------------- Option Explicit On Error Resume Next Dim objSendMail, oArgs, ArgNum Dim strTo, strFrom, strSubject, strBody Set oArgs = WScript.Arguments ArgNum = 0 While ArgNum < oArgs.Count Select Case LCase(oArgs(ArgNum)) Case "-to","-t": ArgNum = ArgNum + 1 strTo = oArgs(ArgNum) Case "-from","-f": ArgNum = ArgNum + 1 strFrom = oArgs(ArgNum) Case "-subject","-s": ArgNum = ArgNum + 1 strSubject = oArgs(ArgNum) Case "-body","-b": ArgNum = ArgNum + 1 strBody = oArgs(ArgNum) Case "-help","-?": Call DisplayUsage Case Else: Call DisplayUsage End Select ArgNum = ArgNum + 1 Wend If oArgs.Count=0 Or strTo="" Or strFrom="" Or _ strSubject="" Or strBody="" Then Call DisplayUsage Else Set objSendMail = CreateObject("CDONTS.NewMail") objSendMail.From = strFrom objSendMail.To = strTo objSendMail.Subject = strSubject objSendMail.Body = strBody objSendMail.Send Set objSendMail = Nothing End If ' Display the usage for this script Sub DisplayUsage WScript.Echo "Usage:" WScript.Echo " sendmail -t <to address> -f <from address> -s " & _ Chr(34) & "<subject>" & Chr(34) & " -b " & Chr(34) & _ "<message body>" & Chr(34) WScript.Echo " sendmail [-help|-?]" WScript.Echo "" WSCript.Quit End Sub Tag: Using VBscript on Exchange 2003 server Tag: 163955
  - 16
    - Need Script Please !! unlock local Adminstrator accounts on 140 machines We had a virus which I got under control. It tried to hack every administrator account on the local machines and therefore locked about every one of them. I am just learning scripting, and not a pro by any means yet. I have about 140 machines and the names of the machines. I can put the names in a txt or csv file. I have tried a few things but just can't get it working. Any help would be appreciated. A script template where I could fil in the blanks IE: csv file or text file or domain info etc would be greatly appreciated. stoneyw@triad.rr.com Tag: Using VBscript on Exchange 2003 server Tag: 163954
  - 17
    - Taskbar toolbars Is it possible to add a custom toolbar to the taskbar using VBScript? This would be the same as right-clicking on the taskbar, choosing Toolbars, then "New toolbar". Are these toolbars stored in the registry somewhere? Tag: Using VBscript on Exchange 2003 server Tag: 163951
  - 18
    - VBscript to send mail Dear all how do i write a script, to send mail to myself if the anti-virus is not installed.we use exchange 2000. Eashwar Tag: Using VBscript on Exchange 2003 server Tag: 163948
  - 19
    - How to start a excelfunction Hello, How can I start an Excel Sub or Function? set xlApp = CreateObject("Excel.Application") xlApp.Visible = True set WB = xlApp.workbooks.open _ ("F:\XY.xls") name of function = test1 what is the right code? run WB? Thank you Wolfgang Tag: Using VBscript on Exchange 2003 server Tag: 163946
  - 20
    - Running vbscript when PC starts I want to run a vbscript each time my PC starts and before any user has login. The vbscript changes user passwords. Where should I place or install the script? Thanks Tag: Using VBscript on Exchange 2003 server Tag: 163934
  - 21
    - XCACLS not reading file path with space When I run the function below, all works well until there is a space in a folder name. Then XCACLS only reads to the space and then errors out because of bad path... Any ideas... Function Subfolder(Folder) For Each objFolder in Folder.Subfolders ReDim Preserve arrSubfolders(intSize) ReDim Preserve arrPermissions(intSize) arrSubfolders(intSize) = objFolder.Path 'arrPermissions(intSize) = objFolder.Permissions Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objShell = WScript.CreateObject("Wscript.Shell") objName = arrSubfolders(intSize) objFileName = objFolder.Name & ".txt" Set objTextFile = objFSO.CreateTextFile(objFileName) objTextFile.Close Set objTextFile = objFSO.OpenTextFile(objFileName, 1) objShell.Run "cmd /c cscript xcacls.vbs " & objName & "> " & objFileName, intWindow, True objTextFile.Close intWindow = 0 Set objTextFile = objFSO.OpenTextFile(objFileName, 1) Do While objTextFile.AtEndOfStream <> True strText = objTextFile.ReadLine 'Put info into spreadsheet here If Mid(strText, 12, Len(objRecordSet.Fields("Name").Value)) = objRecordSet.Fields("Name").Value Then objSheet.Cells(row,6).Value = objFolder End If ReDim Preserve arrPermissions(intSize) arrPermissions(intSize) = arrPermissions(intSize) & vbLfCr & strText WScript.Echo strText Loop objTextFile.Close intSize = intSize + 1 Subfolder objFolder Next End Function Thanks.... Tag: Using VBscript on Exchange 2003 server Tag: 163932
  - 22
    - Sub fails syntax check, but only within function I have a blob of code that I run as part of a custom action within a Windows Installer session. This code runs flawlessly every time it has run. I decided to get cute and use error-handling, so I wrapped the code in a function declaration. Now it bombs instantly with a syntax error. I don't understand why. code .. .. code works fine, but Function SomeFunction() code .. .. code End Function dies. Does this make sense? There is a subroutine in the code blob that calls itself recursively (it's a registry delete code blob). Can you not run subs within functions? Any help would be appreciated. Tag: Using VBscript on Exchange 2003 server Tag: 163926
  - 23
    - Help with debugging Can someone please tell me why the following code does not behave correctly? When processing the "IF THEN" statement it chooses the correct "exe" from the INPUTBOX and the MSGBOX I create runs correctly but then the script continues to process the next statement after the "ELSE" and displays the second msg box as well, even though it correctly does not run the 2nd executable. What am I doing wrong? How do I isolate the MSGBOX to only the first statement? Option Explicit On Error Resume Next Dim objShell Dim objScriptExec Dim strmsg1 Dim strmsg2 method = InputBox ("Run test 1 or test 2?", "TEST", "1") strmsg1 = MsgBox ("You are test1", 64, "1") strmsg2 = MsgBox ("You are test2", 64, "2") Set objShell= CreateObject("Wscript.Shell") If method = "1" Then Set objScriptExec = objShell.Exec ("1.exe") strmsg1 Else If method = "2" Then Set objScriptExec = objShell.Exec ("2.exe") strmsg2 End If Any help would be appreciated, thanks! I'm trying ;) Derek Tag: Using VBscript on Exchange 2003 server Tag: 163925
  - 24
    - Select Case problem I am trying to write a script that will perform some commands on all folders in a directory that start with a list of characters. For now I am just echoing the folder names. In this case I need all folders that start with a, b, or c. In the code below I am creating a virable named oCaseString that = "a","b","c". When the line [Case oCaseString] is read it does not find any matches even though there are a number of directories that start with a, b, or c. If I change th line to [Case "a","b","c"] it works. I cannot figure out why the variable is not working. Any help will be greatly appreciated. ============================= Set oFile = CreateObject("SCripting.FileSystemObject") homePaths = Array("serverName|shareName|a.b.c") For Each Item In homePaths tmp1 = Split(Item, "|") tmp2 = Split(tmp1(2), ".") For i=LBound(tmp2) To UBound(tmp2) tmp3 = tmp3 & chr(34) & tmp2(i) & Chr(34) & "," Next tmp4 = (Len(tmp3) -1) oCaseString = Left(tmp3, tmp4) oString = Chr(34) & "a" & Chr(34) & "," & Chr(34) & "b" & Chr(34) Set oFolder = oFile.GetFolder("\\" & tmp1(0) & "\" & tmp1(1)) Set oSubFolderList = oFolder.SubFolders For Each Folder In oSubFolderList Select Case LCase(Left(Folder.Name, 1)) Case oCaseString ' Case "a","b","c" WScript.Echo folder.name Case Else WScript.Echo "x" End Select Next Next Tag: Using VBscript on Exchange 2003 server Tag: 163920
  - 25
    - Identifying and copying new files in a directory 1. I'm a vbscript newbie, so please forgive the clumsiness. 2. Background: My fax server creates pdf's and text files (containing info about the pdf's) bearing the same names, except for having different extensions (.pdf or .txt). I want to (A) identify new files (i.e., from within the last hour) in the source directory, and (B) copy those files to a target directory, and (C) assign new names to the new pdf files, based on info in the text files. This Posting is to elicit opinions about whether my plan for doing the above is the right way to go. I have not yet learned how to use two-dimensional arrays (which I presume would be a better way to go), so I'm planning to do the following: 1. Use a batch file and a cscript file (both shown at the bottom of this message) to write the directory to a text file (DirFileList.txt), showing on each line one filename and the date/time of the file. The date/time will be at the left margin of DirFileList.txt. 2. Use a loop to go down each line of DirFileList.txt to compare the date/time to Now. 3. If the comparison returns a number that is smaller than 4 hours, find the filename string to the right, and use that string to find the filename "root" for the related files to be copied (i.e., the filename except for the .txt or .pdf extension), e.g., Alpha.txt and Alpha.pdf. 4. Use the filename "root" to open the Alpha.txt file and harvest the info to use in generating the filename to assign to the new copies of Alpha.txt and Alpha.pdf 5. Make the new copies of Alpha.txt and Alpha.pdf 6. Continue the loop until done. I bet there's an easier way. Well, here's the batch file I'm using to create the text file : cscript //nologo "List.FaxDir's.Files.To.A.TextFile.vbs" > k:\BlahBlah\Fax\NewFaxes.txt Here's the vbscript file: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("k:\BlahBlah\Fax") Set colFiles = objFolder.Files Const ForWriting = 2 For Each objFile in colFiles strNoww = objFile.DateLastModified Wscript.Echo "strNoww =" & strNoww Wscript.Echo objFile.DateLastModified, objFile.Name '* objFile.Write objFile.DateLastModified, objFile.Name Next Any ideas/comments/suggestions would be much appreciated. Thanks, Marc B. Hankin Tag: Using VBscript on Exchange 2003 server Tag: 163918
- Next
  - 1
    - Editing Group Policy Registry Entries with VB Script I am writing a VBScript that will all us to apply a "new computer" template to a computer just built, as well as audit these settings on the computer, as well as other computers on the network later. The idea is to set registry and group policy settings, for multiple Windows platforms, (2003/XP/2000/NT, etc). Anyway, looking the the following article, Microsoft cautions "to change the group policy registry values, use Group Policy. Do not edit the registry." The problem is, we have many machines that must run as stand alone, and we want to run the script on these machines too to set/audit their settings. So, my question is, other than the obvious dangers of directly modifying the registry, is there a specific reason why one should not modify group policy through direct registry modifications? Thanks Group Policy Registry Table http://www.microsoft.com/windows2000/techinfo/reskit/en-us/default.asp?url=/windows2000/techinfo/reskit/en-us/gp/gpref.asp Jack Tag: Using VBscript on Exchange 2003 server Tag: 163917
  - 2
    - how to Configure IAS in unattended mode? Hi, Help needed in creating 1. Radius client 2. New Remote Access Policy 3. New Connection Policy Any pointers or solutions to this query would be very helpful. Thanks in advance, Karthick Tag: Using VBscript on Exchange 2003 server Tag: 163914
  - 3
    - Declaring variable using WshShell.Exec Hello, I am trying to run a command line utility via WshShell.Exec using an input box as a variable. For some reason I cannot get the command to see the defined variable. Can someone please tell me what I'm doing wrong? Thanks Option Explicit Dim objShell Dim objScriptExec Dim IMAGE Set objShell= CreateObject("Wscript.Shell") IMAGE = InputBox ("What file would you like to burn?","ISO Location","C:\") Set objScriptExec = objShell.Exec ("cdburn.exe IMAGE -speed max") Derek Tag: Using VBscript on Exchange 2003 server Tag: 163910
  - 4
    - My account How retrieve "Who i am" (account name)? Few person will be logged to the server locally or by terminal and run my aplication. My aplication will create file whitch name will be "accountname".xml. I must know who is running it. How can i retrieve account name? Tag: Using VBscript on Exchange 2003 server Tag: 163898
  - 5
    - VBScript, accessing modems... Hi, Please, if someone knows how to do access installed modems, using VBS. More precisely, I have laptop with bluetooth connection. To connect to Internet, I use GPRS bluetooth mobile phone. This way, in order to establish GPRS connection, I need to specify proper connection string in my bluetooth dialup modem. (This way: Phone And Modem Options --> Modems --> double click some modem to access --> Properties --> Advanced tab --> Extra initialization commands) So, since I frequently need to change that field for that specific modem on my laptop, I would like to access that field by VBScript. Does somebody have some idea how to change that field using script? Thank you, Denis -- /Denis Tag: Using VBscript on Exchange 2003 server Tag: 163892
  - 6
    - Help my "Create desktop shortcut" actually display.. Hi There, I have been having problems with creating a desktop icon - that will actually be able to run by every user (regardless of user power) on there desktops - I have been using a simple script - and it is VERY messy, as Im extremely new to this stuff.. Please can someone view my script and tell me excatly what is wrong - and how to fixit.. '-------------------- 'Create a ShortCut to IT Helpdesk 'Create a WshShell Object Set WshShell = Wscript.CreateObject("Wscript.Shell") sAllUsersProfile = WshShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%") Set oShellLink = WshShell.CreateShortcut _ (sAllUsersProfile & "\Desktop\IT Helpdesk.lnk") set oShell = CreateObject("WScript.Shell") sDesktop = oShell.SpecialFolders("AllUsersDesktop") 'Create a WshShortcut Object strDesktop = WshShell.SpecialFolders("AllUsersDesktop") Set oShellLink = WshShell.CreateShortcut(sAllusersdesktop & "\IT Helpdesk.lnk") 'Set the Target Path for the shortcut oShellLink.TargetPath = "Explorer" 'Set the HotKey to activate this link oShellLink.HotKey = "ALT+CTRL+M" 'Set the icon ( path to your favorite icon) oShellLink.IconLocation = "C:\IT.ico" 'Set the additional parameters for the shortcut oShellLink.Arguments = "T:\InterRoute\Helpdesk Support.oft" 'Save the shortcut oShellLink.Save 'Clean up the WshShortcut Object Set oShellLink = Nothing '------------------------------------- Please help - as the icon displays in the C:\ of the computer - rather than the Desktop itself.. Any ideas would be greatfully recieved. Thank you! James Tag: Using VBscript on Exchange 2003 server Tag: 163888
  - 7
    - Login Scripts I am moving towards a total MS environment. Getting riud of my Novell servers. Currently I have login scripts in Novell that map drives to different network resources and based on group membership they also get access to other programs and applications. I'd like to replace the Novell login scripts wiht vbscript but am unsure about creating scripts based on OU's and group memebrship. any help is greatly appreciated. Thanks dpmjr Tag: Using VBscript on Exchange 2003 server Tag: 163882
  - 8
    - Retrive information from DHCP server. Hi. I have looked around for information for how to retrive information from a DHCP server. Information like Scope configurations, Scope options, current leached, and so on, but I can't seem to find what I'm looking for. There is a ton of DHCP related scripts, but only for clients. Any idea's? Mady it chould be done via WMI, I haven't checked that out. /Johan Christensson Tag: Using VBscript on Exchange 2003 server Tag: 163876
  - 9
    - GetOpenFile using VBS In VBA I can use the following code to open a file for input. Dim strSourceFile As String, lngInputFile as Long strSourceFile = Application.GetOpenFilename("Text File (*.txt),*.txt") lngInputFile = FreeFile Open strSourceFile For Input As lngInputFile This is handy because the source file will change from day to day, and it enables the user to choose the file to be edited. Since I do not require excel spreadsheets for my project I would like to do this with a VB script. Any suggestions? Tag: Using VBscript on Exchange 2003 server Tag: 163873
  - 10
    - script to do very basic windows 2000 server health check Anyone have a good, simple script that takes some basic metrics for server health? I guess stuff like CPU activity, memory use, disk IO, etc...what else should I be asking? Something I could schedule to run every x minutes maybe. Just getting started doing stuff like this, so sorry for being a noob. Tag: Using VBscript on Exchange 2003 server Tag: 163871
  - 11
    - create array from text file I need help displaying just the text in the section [ProductCatalogsToInstall] from my file in a single message box. The number of lines of text under that section will not remain static. I have a feeling an array will do it but I'm lost on how to code that. Here is my code that pops up a individual message box until data = "". Thanks in advance for your help. ***START OF CODE*** Const ForReading = 1 Const TristateFalse = 0 Dim aFile, data, fs, f aFile = "\\Serv1\windist\I386\svcpack.inf" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(aFile, ForReading, True) For a = 1 To 7 f.SkipLine Next Do data = f.ReadLine WScript.Echo data If data = "" Then Exit Do End If Loop ***END OF CODE*** The file I'm reading from: ***START OF FILE*** [Version] Signature="$Windows NT$ [SetupData] CatalogSubDir="\windist\i386\svcpack" [ProductCatalogsToInstall] KB837009.cat KB832894.cat KB867801.cat KB823353.cat KB840315.cat KB839643.cat KB839645.cat KB833987.cat [SetupHotfixesToRun] KB837009.exe KB832894.exe KB867801.exe KB823353.exe KB840315.exe KB839643.exe KB839645.exe KB833987.exe ***END OF FILE*** Tag: Using VBscript on Exchange 2003 server Tag: 163870
  - 12
    - BUG in WScript.Network Here is a snippet of code that demonstrates a huge bug in WSH If I use the WScript.Network object o map a drive, and that mapping is successful. Then I run the script but it dies before saying RemoveNetworkDrive the drive I mapped is then Ghosted. Running the script again and having the FileSystemObject say DriveExists() it will say true, if you try to Unmap RemoveNetworkDrive fails, EnumNetworkDrives doesn't see that mapping and the asking to MapNetworkDrive says that the local name is in use. Logging in as the user the scheduled task runs as and asking for output of 'net use' says "There are no entries in the list" but then saying 'net use L: \\SERVER\Share' says: "The local device name is already in use". Ultra Lame! Demo Snippit below is my code..copied and pasted minus the meat. But if you run it you'll see. ' BUG: DriveExists says True event though n.RemoveNetworkDrive says its not there and the MapNetworkDrive says it's in use, what the FUCK? ' I had to simply ignore errors and hope for the best on this one...suck! Dim fso: Set fso=WScript.CreateObject("Scripting.FileSystemObject") Dim n: Set n=WScript.CreateObject("WScript.Network") WScript.Echo fso.DriveExists("Z") If (fso.DriveExists("Z")) Then n.RemoveNetworkDrive "Z:" 'On Error Resume Next n.MapNetworkDrive "Z:", "\\SERVER\Share",False 'On Error GoTo 0 ' Do script Here ' Throw an Error before this line, like: Dim x: x = 1 / 0 n.RemoveNetworkDrive "Z:" Tag: Using VBscript on Exchange 2003 server Tag: 163868
  - 13
    - Netsh Hello, I am new to scripting and I am trying to write a script using netsh that allows you to change from a static to dynamic IP address. I would like to present the end user with the option of choosing either static or dhcp as the options. What is the easiest way to do this? Any help would be appreciated. Thanks! Derek Tag: Using VBscript on Exchange 2003 server Tag: 163867
  - 14
    - BUG in WScript.Network Here is a snippet of code that demonstrates a huge bug in WSH If I use the WScript.Network object o map a drive, and that mapping is successful. Then I run the script but it dies before saying RemoveNetworkDrive the drive I mapped is then Ghosted. Running the script again and having the FileSystemObject say DriveExists() it will say true, if you try to Unmap RemoveNetworkDrive fails, EnumNetworkDrives doesn't see that mapping and the asking to MapNetworkDrive says that the local name is in use. Logging in as the user the scheduled task runs as and asking for output of 'net use' says "There are no entries in the list" but then saying 'net use L: \\SERVER\Share' says: "The local device name is already in use". Ultra Lame! Demo Snippit below is my code..copied and pasted minus the meat. But if you run it you'll see. ' BUG: DriveExists says True event though n.RemoveNetworkDrive says its not there and the MapNetworkDrive says it's in use, what the FUCK? ' I had to simply ignore errors and hope for the best on this one...suck! Dim fso: Set fso=WScript.CreateObject("Scripting.FileSystemObject") Dim n: Set n=WScript.CreateObject("WScript.Network") WScript.Echo fso.DriveExists("Z") If (fso.DriveExists("Z")) Then n.RemoveNetworkDrive "Z:" 'On Error Resume Next n.MapNetworkDrive "Z:", "\\SERVER\Share",False 'On Error GoTo 0 ' Do script Here ' Throw an Error before this line, like: Dim x: x = 1 / 0 n.RemoveNetworkDrive "Z:" Tag: Using VBscript on Exchange 2003 server Tag: 163866
  - 15
    - vbScript and .net How can you preserve the state of items that were added through vbscript on the client? Whenever I add items on the client, the server does not recognize the changes. Tag: Using VBscript on Exchange 2003 server Tag: 163865
  - 16
    - Variables I'm trying to write a login script that uses the output or variable from a batch file as the input variable in vbscript. Alternatively I could use vbscript to pull the variables from a tex file. Anyhelp greatly appreciate - nogoo ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Using VBscript on Exchange 2003 server Tag: 163854
  - 17
    - Registry permission with script Dear all, Anybody has idea with how to change access right for specific registry key? Please advise. Thanks, B.S. Tag: Using VBscript on Exchange 2003 server Tag: 163849
  - 18
    - Function vs Sub Hi, Both scripts below work the same way and give the same result. Why should I use Function, or why should I use Sub, or doesn't it matter at all ? Regards, Xander ===================================================== Option Explicit Dim oFso, i Set oFso = CreateObject("Scripting.FileSystemObject") i = 0 Do Until i = 10 i = i + 1 Call Log(i) Loop Wscript.Echo "Done !" Sub Log(sLog) Dim sText Set sText = oFso.OpenTextFile("c:\log.txt", 8, True) sText.WriteLine(sLog) sText.Close End Sub ===================================================== Option Explicit Dim oFso, i Set oFso = CreateObject("Scripting.FileSystemObject") i = 0 Do Until i = 10 i = i + 1 Call Log(i) Loop Wscript.Echo "Done !" Function Log(sLog) Dim sText Set sText = oFso.OpenTextFile("c:\log.txt", 8, True) sText.WriteLine(sLog) sText.Close End Function ===================================================== Tag: Using VBscript on Exchange 2003 server Tag: 163846
  - 19
    - Changing user password I have 3 user accounts on my PC. I am looking for a vbscript that will change the account passwords without going to control panel etc etc. My PC is not on a network. Any help is greatly appreciated. Tag: Using VBscript on Exchange 2003 server Tag: 163845
  - 20
    - VBScript to check PXE enabled or disabled Hi Admins, I am looking for a script to verify PXE (Pre-boot eXecution Environment) is enable or disable. Please let me know,if you find a script. Thanks, Ballu Tag: Using VBscript on Exchange 2003 server Tag: 163844
  - 21
    - Copy log results to DB, then clear log? In technet, I see there are scripts to do: 1. Backup log, clear log. 2. Copy log results to db I want to copy the log results to a DB, then clear the log. Any examples of how to do this? -- Cheers, James Goodman Tag: Using VBscript on Exchange 2003 server Tag: 163840
  - 22
    - Writing a scipt to see if a program is active and quit if not Can anyone tell me how to write a script that could check if a program is running and quit it if it is? And for extra credit, is it possible to check, if the program is running, when's the last time it was used, and only quit it if it hasn't been used for 15 minutes? The application is I want to run a schedule job that runs after business hours and quits Quickbooks if anyone left it open. However, occassionally people are working from home, and if they are actually working after business hours, I don't want it to quit on them. I'd then check again an hour later. - Sterling Tag: Using VBscript on Exchange 2003 server Tag: 163837
  - 23
    - Folder redirect script on win98 Hi, I'm trying to redirct "My Document" folder on a win98 client to the user's home directory on a win2003 sbs server. Is it possibile with a script or a command? Pls help! Thank you DiAbLo Tag: Using VBscript on Exchange 2003 server Tag: 163835
  - 24
    - Server 2000 scripts I have created VB logon scripts within my Domain forrest under OU's for departments, I recently rebooted my 2000 Server and the logon scripts ran during the server start. All the scripts are set to Block policy inheritence, how are they leaking out to run on server start (I do not want the scripts to run on the servers) Tag: Using VBscript on Exchange 2003 server Tag: 163834
  - 25
    - Survey free space on mounted Volume Bonjour, Hello, I'm searching to get available space on a directory mounted volume (mounting point), using vbs. I 've found the WMI function "WIN32_Volume", but it works only under 2003 and I wand to do it under 2000. Any idea?? Thanks, Laurent Tag: Using VBscript on Exchange 2003 server Tag: 163831

Hello,

My goal is to run VBscripts on specific public folders on an exchange
2003 server.

For example, when a message is inserted into a public folder named
'DivArchive' a vbscript would execute. That script would change
certain things and resend the message.

How do you assign a VBscript to run on a Exhange server following
different events?

Thanks,

Nick

Top