When vb script finishes, still have to wait several seconds before

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
    - Monitor File creation on Mapped Z: drive I have following script which popups the message every time file is created in C:\Scripts folder. I want same thing for mapped drive(Z:\) that i mapped and shared from another PC. When i change Drive from C: to Z: in script runs but it popups message even when file is not created ================================================= strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""C:\\\\Scripts""'") Set objLatestEvent = colMonitoredEvents.NextEvent msgbox ("File Created") ============================================ Plz help And if file created then only perform next steps Tag: When vb script finishes, still have to wait several seconds before Tag: 212782
  - 2
    - Passing value to/from VBScript to Windows form application I have tried to create a simple windows form program in c# (assembly:comvisible=true). What i want to do, is to start this windows program from a vbscript, pass some arguments and show them in the windows program. Then i want to change the values in the windows form, and click "yes/no", and send the values from the windows form and back to the vbscript, right beneath the location where the vbscript called the windows program in the first place. Anyonoe that has done this before, is it possible? Tag: When vb script finishes, still have to wait several seconds before Tag: 212780
  - 3
    - VB DFS script MOM DFS MP problem MOM Script that fails because we have DFS namnespace folders containing Ã¥ Ã¤ Ã¶ '------------------------------------------------------------------- ' <company>Microsoft Corporation</company> ' <copyright>Copyright (c) Microsoft Corporation. All rights reserved.</copyright> ' <name> ' Microsoft Windows 2003 DFS Service Discovery ' </name> ' <summary> ' ' </summary> '------------------------------------------------------------------- Option Explicit Function IsValidObject(ByVal oObject) IsValidObject = False If IsObject(oObject) Then If Not oObject Is Nothing Then IsValidObject = True End If End If End Function Sub RunCommand (ByVal sCommand, ByRef iErrCode, ByRef sOutput, ByRef sError) Dim oShell, oFSO, oOut Set oShell = MomCreateObject("WScript.Shell") Set oFSO = MomCreateObject("Scripting.FileSystemObject") sError = "" sOutput = "" Dim sOutputFileName sOutputFileName = GenerateGUID() & ".out" Dim sErrorFileName sErrorFileName = GenerateGUID() & ".err" Dim sFullCommand sFullCommand = "cmd /c " & sCommand & " > " & sOutputFileName & " 2> " & sErrorFileName iErrCode = oShell.run(sFullCommand, 2, true) On Error Resume Next Set oOut = oFSO.OpenTextFile(sOutputFileName) On Error Goto 0 If IsValidObject(oOut) Then On Error Resume Next sOutput = oOut.ReadAll() On Error Goto 0 oOut.Close Else ThrowScriptError "Could not write to the folder [" & oFSO.GetAbsolutePathName(".") & "]. Make sure the action account has " & _ "write access to this folder.", _ Err End If On Error Resume Next oFSO.DeleteFile sOutputFileName On Error Goto 0 If iErrCode <> 0 Then Dim oErrorFile On Error Resume Next Set oErrorFile = oFSO.OpenTextFile(sErrorFileName) On Error Goto 0 If IsValidObject(oErrorFile) Then On Error Resume Next sError = oErrorFile.ReadAll() On Error Goto 0 oErrorFile.Close End If If sError = "" Then sError = sOutput End If On Error Resume Next oFSO.DeleteFile sErrorFileName On Error Goto 0 End Sub Sub ParseForRoots (ByVal sDFSUtilOutput, ByRef oRootNames) ' Gets a string of the output from a successful run (error code = 0) ' of the DFS Util, parse out the list of roots and return the roots. Dim rExp, sSearch, oMatches Set rExp = new regexp rExp.Global = True rExp.IgnoreCase = True ' Match anything that starts with a tab and anything that's ' not a new line character. (till the end of the line) rExp.Pattern = "\t[^(\n)]+" ' Parse for the roots... Set oRootNames = rExp.Execute(sDFSUtilOutput) End Sub Function GenerateGUID() Dim oTypeLib Set oTypeLib = MomCreateObject("Scriptlet.TypeLib") Dim sNewGUID sNewGUID = oTypeLib.Guid GenerateGUID = Left(sNewGUID, Len(sNewGUID)-2) End Function Const EVENT_TYPE_SUCCESS = 0 Const EVENT_TYPE_ERROR = 1 Const EVENT_TYPE_WARNING = 2 Const EVENT_TYPE_INFORMATION = 4 Const EVENT_TYPE_AUDITSUCCESS = 8 Const EVENT_TYPE_AUDITFAILURE = 16 Function ThrowScriptErrorNoAbort(ByVal sMessage, ByVal oErr) ' ' ThrowScriptError :: Creates an event and sends it back to the mom server ' ' Dim sErrDescription, sErrNumber sErrDescription = oErr.Description sErrNumber = oErr.Number On Error Resume Next Dim oScriptErrorEvent Set oScriptErrorEvent = ScriptContext.CreateEvent() With oScriptErrorEvent .EventNumber = 40000 .EventType = EVENT_TYPE_ERROR .Message = sMessage .SetEventParameter """Microsoft Windows Distributed File Systems""" .SetEventParameter sMessage .SetEventParameter sErrDescription .SetEventParameter sErrNumber End With ScriptContext.Submit oScriptErrorEvent ScriptContext.Echo "ThrowScriptError('" & sMessage & "')" End Function Function ThrowScriptError(Byval sMessage, ByVal oErr) ' ' ThrowScriptError :: Creates an event and sends it back to the mom server ' ' On Error Resume Next ThrowScriptErrorNoAbort sMessage, oErr ScriptContext.Quit() End Function Function MomCreateObject(ByVal sProgramId) Dim oError Set oError = New Error On Error Resume Next Set MomCreateObject = CreateObject(sProgramId) oError.Save On Error Goto 0 If oError.Number <> 0 Then ThrowScriptError "Unable to create automation object '" & sProgramId & "'", oError End Function Class Error Private m_lNumber Private m_sSource Private m_sDescription Private m_sHelpContext Private m_sHelpFile Public Sub Save() m_lNumber = Err.number m_sSource = Err.Source m_sDescription = Err.Description m_sHelpContext = Err.HelpContext m_sHelpFile = Err.helpfile End Sub Public Sub Raise() Err.Raise m_lNumber, m_sSource, m_sDescription, m_sHelpFile, m_sHelpContext End Sub Public Sub Clear() m_lNumber = 0 m_sSource = "" m_sDescription = "" m_sHelpContext = "" m_sHelpFile = "" End Sub Public Default Property Get Number() Number = m_lNumber End Property Public Property Get Source() Source = m_sSource End Property Public Property Get Description() Description = m_sDescription End Property Public Property Get HelpContext() HelpContext = m_sHelpContext End Property Public Property Get HelpFile() HelpFile = m_sHelpFile End Property End Class Function PingFileShare(ByVal sUNCPath) Dim oFSO Set oFSO = MomCreateObject("Scripting.FileSystemObject") Dim e Set e = New Error Dim oFolder On Error Resume Next Set oFolder = oFSO.GetFolder(sUNCPath) e.Save On Error Goto 0 PingFileShare = (e.Number = 0) End Function Class DFS Private m_sDFSUtilPath Public Property Get DFSUtilPath DFSUtilPath = m_sDFSUtilPath End Property Public Property Let DFSUtilPath(ByVal sPath) Dim oShell Set oShell = MomCreateObject("WScript.Shell") m_sDFSUtilPath = oShell.ExpandEnvironmentStrings(sPath) End Property Public Property Get Roots Dim sDFSCommand sDFSCommand = """""" & m_sDFSUtilPath & """ /Server:" & ScriptContext.TargetNetbiosComputer & " /view""" Dim iErrorCode Dim sOutput Dim sError RunCommand sDFSCommand, iErrorCode, sOutput, sError Dim aRoots() If iErrorCode <> 0 Then If iErrorCode = 259 Then Roots = aRoots Exit Property ElseIf iErrorCode = 1 Then ThrowScriptError "The tool DFSUTIL.EXE could not be found on the managed node. To resolve this " & _ "issue please install the Windows 2003 Support Tools and then verify the script " & _ "parameter ""DFSUtilLocation"" has the correct directory location listed for " & _ "DFSUTIL.EXE." & vbCrLf & _ "Details:" & vbCrLf & _ sError, _ Err ElseIf iErrorCode = 87 Then ThrowScriptError "You may have the wrong version of DFSUTIL.EXE installed. Version 4.0 is required." & vbCrLf & _ "Details:" & vbCrLf & _ sError, _ Err Else ThrowScriptError "Error occurred while obtaining all DFS Roots on " & ScriptContext.TargetNetbiosComputer & "." & vbCrLf & _ "Error Details:" & vbCrLf & _ sError, _ Err End If End If Dim oRootNames ParseForRoots sOutput, oRootNames Dim sRootName Dim sRootType ReDim aRoots(oRootNames.Count - 1) Dim i For i = 0 To oRootNames.Count - 1 sRootName = "\" & Replace(oRootNames(i), vbTab, "") ' If the RootName starts with the domain name If Instr(sRootName, "\\" & ScriptContext.TargetNetbiosDomain) = 1 Then sRootType = "Domain" Else sRootType = "Stand Alone" End If Set aRoots(i) = New DFSRoot aRoots(i).Initialize sRootName, sRootType, m_sDFSUtilPath Next Roots = aRoots End Property End Class Class DFSRoot Private m_oXMLElement Private m_sName Private m_sType Private m_sXMLFileLocation Private Sub Class_Terminate() DeleteXMLFile End Sub Private Sub DeleteXMLFile() SetXMLElement Nothing If m_sXMLFileLocation <> "" Then Dim oFSO Set oFSO = MomCreateObject("Scripting.FileSystemObject") oFSO.DeleteFile m_sXMLFileLocation End If End Sub Public Sub Initialize(ByVal sName, ByVal sType, ByVal sDFSUtilPath) m_sName = sName m_sType = sType DeleteXMLFile m_sXMLFileLocation = GenerateGUID() & ".xml" Dim sDFSCommand sDFSCommand = """""" & sDFSUtilPath & """ /root:""" & sName & """ /export:" & m_sXMLFileLocation & """" Dim iErrorCode Dim sOutput Dim sError RunCommand sDFSCommand, iErrorCode, sOutput, sError If iErrorCode <> 0 Then ' Error occurred while running the dfsutil command ThrowScriptError "Error occurred while exporting details for DFS Root [" & sName & "] to XML file. DFS Root not processed." & vbCrLf & _ "Error Details:" & vbCrLf & _ sError, _ Err End If Dim oXDFSResults Set oXDFSResults = MomCreateObject("MSXML2.DOMDocument") oXDFSResults.validateOnParse = True ' Load the dfsutil result xml file oXDFSResults.load(m_sXMLFileLocation) If oXDFSResults.ParseError.ErrorCode <> 0 Then ThrowScriptError "Unable to open oXDFSResults file. DFS Root [" & sName & "] not processed." & vbCrLf & _ oXDFSResults.ParseError.Reason, _ Err End If SetXMLElement oXDFSResults.SelectSingleNode("/Root") End Sub Public Property Get IsAccessible IsAccessible = PingFileShare(Name) End Property Public Property Get Name Name = m_sName End Property Public Property Get RootType RootType = m_sType End Property Public Property Get State State = CInt(m_oXMLElement.SelectSingleNode("@State").Value) End Property Public Property Get Timeout Timeout = m_oXMLElement.SelectSingleNode("@Timeout").Value End Property Public Property Get Comment Dim oCommentAttribute Set oCommentAttribute = m_oXMLElement.SelectSingleNode("@Comment") If oCommentAttribute Is Nothing Then Comment = "" Else Comment = oCommentAttribute.Value End If End Property Public Property Get Targets Dim oTargetXMLElements Set oTargetXMLElements = m_oXMLElement.SelectNodes("Target") ReDim aTargets(oTargetXMLElements.length - 1) Dim i For i = 0 To oTargetXMLElements.length - 1 Set aTargets(i) = New DFSRootTarget aTargets(i).SetXMLElement oTargetXMLElements.item(i) Next Targets = aTargets End Property Public Property Get Links Dim oLinkXMLElements Set oLinkXMLElements = m_oXMLElement.SelectNodes("Link") ReDim aLinks(oLinkXMLElements.length - 1) Dim i For i = 0 To oLinkXMLElements.length - 1 Set aLinks(i) = New DFSLink aLinks(i).Initialize oLinkXMLElements.item(i), Name Next Links = aLinks End Property Public Sub SetXMLElement(ByVal oXMLElement) Set m_oXMLElement = oXMLElement End Sub End Class Class DFSRootTarget Private m_oXMLElement Public Property Get IsAccessible IsAccessible = PingFileShare(Name) End Property Public Property Get Name Name = "\\" & Server & "\" & Folder End Property Public Property Get State State = CInt(m_oXMLElement.SelectSingleNode("@State").Value) End Property Public Property Get Server Server = m_oXMLElement.SelectSingleNode("@Server").Value End Property Public Property Get Folder Folder = m_oXMLElement.SelectSingleNode("@Folder").Value End Property Public Sub SetXMLElement(ByVal oXMLElement) Set m_oXMLElement = oXMLElement End Sub End Class Class DFSLink Private m_oXMLElement Private m_sRootName Public Property Get IsAccessible IsAccessible = PingFileShare(m_sRootName & "\" & Name) End Property Public Property Get Name Name = m_oXMLElement.SelectSingleNode("@Name").Value End Property Public Property Get State State = CInt(m_oXMLElement.SelectSingleNode("@State").Value) End Property Public Property Get Timeout Timeout = m_oXMLElement.SelectSingleNode("@Timeout").Value End Property Public Property Get Comment Dim oCommentAttribute Set oCommentAttribute = m_oXMLElement.SelectSingleNode("@Comment") If oCommentAttribute Is Nothing Then Comment = "" Else Comment = oCommentAttribute.Value End If End Property Public Property Get Targets Dim oTargetXMLElements Set oTargetXMLElements = m_oXMLElement.SelectNodes("Target") ReDim aTargets(oTargetXMLElements.length - 1) Dim i For i = 0 To oTargetXMLElements.length - 1 Set aTargets(i) = New DFSLinkTarget aTargets(i).SetXMLElement oTargetXMLElements.item(i) Next Targets = aTargets End Property Public Sub Initialize(ByVal oXMLElement, ByVal sRootName) Set m_oXMLElement = oXMLElement m_sRootName = sRootName End Sub End Class Class DFSLinkTarget Private m_oXMLElement Public Property Get IsAccessible IsAccessible = PingFileShare(Name) End Property Public Property Get Name Name = "\\" & Server & "\" & Folder End Property Public Property Get State State = CInt(m_oXMLElement.SelectSingleNode("@State").Value) End Property Public Property Get Server Server = m_oXMLElement.SelectSingleNode("@Server").Value End Property Public Property Get Folder Folder = m_oXMLElement.SelectSingleNode("@Folder").Value End Property Public Sub SetXMLElement(ByVal oXMLElement) Set m_oXMLElement = oXMLElement End Sub End Class Const DFS_CLASS_ID = "DFS" Const DFS_NAME_ATTRIBUTE_ID = "Name" Const DFS_SERVICE_COMPONENT_ID = "Service" Const DFS_LINKS_COMPONENT_ID = "Links" Const DFS_ROOTS_COMPONENT_ID = "Roots" Const DFS_LINK_CLASS_ID = "DFS Link" Const DFS_LINK_LINK_NAME_ATTRIBUTE_ID = "LinkName" Const DFS_LINK_LINK_COMMENT_ATTRIBUTE_ID = "LinkComment" Const DFS_LINK_LINK_TIMEOUT_ATTRIBUTE_ID = "LinkTimeout" Const DFS_LINK_TARGET_CLASS_ID = "DFS Link Target" Const DFS_LINK_TARGET_LINK_TARGET_NAME_ATTRIBUTE_ID = "LinkTargetName" Const DFS_LINK_TARGET_LINK_TARGET_FOLDER_ATTRIBUTE_ID = "LinkTargetFolder" Const DFS_LINK_TARGET_LINK_TARGET_SERVER_ATTRIBUTE_ID = "LinkTargetServer" Const DFS_ROOT_CLASS_ID = "DFS Root" Const DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID = "RootName" Const DFS_ROOT_ROOT_COMMENT_ATTRIBUTE_ID = "RootComment" Const DFS_ROOT_ROOT_TIMEOUT_ATTRIBUTE_ID = "RootTimeout" Const DFS_ROOT_ROOT_TYPE_ATTRIBUTE_ID = "RootType" Const DFS_ROOT_TARGET_CLASS_ID = "DFS Root Target" Const DFS_ROOT_TARGET_ROOT_TARGET_NAME_ATTRIBUTE_ID = "RootTargetName" Const DFS_ROOT_TARGET_ROOT_TARGET_FOLDER_ATTRIBUTE_ID = "RootTargetFolder" Const DFS_ROOT_TARGET_ROOT_TARGET_SERVER_ATTRIBUTE_ID = "RootTargetServer" Const COMPUTER_CLASS_ID = "Computer" Const COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID = "ComputerName" Const COMPUTER_TIME_ZONE_BIAS_ATTRIBUTE_ID = "Time Zone Bias" Const COMPUTER_OPERATING_SYSTEM_VERSION_ATTRIBUTE_ID = "Operating System Version" Const COMPUTER_IP_ADDRESS_ATTRIBUTE_ID = "IPAddress" Const COMPUTER_FQDN_ATTRIBUTE_ID = "FQDN" Const COMPUTER_VIRTUAL_SERVER_TYPE_ATTRIBUTE_ID = "Virtual Server Type" Class DFSRootCollection Private m_oCollection Public Property Get InnerCollection() Set InnerCollection = m_oCollection End Property Public Sub Initialize(ByVal oDisc) Set m_oCollection = oDisc.CreateCollection() With m_oCollection .ClassID = DFS_ROOT_CLASS_ID .AddScopeFilter COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID, ScriptContext.TargetComputerIdentity .AddScopeFilter DFS_NAME_ATTRIBUTE_ID, ScriptContext.TargetNetbiosComputer .AddScopeProperty DFS_ROOT_ROOT_TIMEOUT_ATTRIBUTE_ID .AddScopeProperty DFS_ROOT_ROOT_TYPE_ATTRIBUTE_ID .AddScopeProperty DFS_ROOT_ROOT_COMMENT_ATTRIBUTE_ID End With End Sub Public Sub Add(ByVal oRoot) Dim oInstance Set oInstance = m_oCollection.CreateInstance() With oInstance .AddKeyProperty DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID, oRoot.Name .AddProperty DFS_ROOT_ROOT_TIMEOUT_ATTRIBUTE_ID, oRoot.Timeout .AddProperty DFS_ROOT_ROOT_COMMENT_ATTRIBUTE_ID, oRoot.Comment .AddProperty DFS_ROOT_ROOT_TYPE_ATTRIBUTE_ID, oRoot.RootType End With m_oCollection.AddInstance oInstance End Sub End Class Class DFSRootTargetCollection Private m_oCollection Public Property Get InnerCollection() Set InnerCollection = m_oCollection End Property Public Sub Initialize(ByVal oDisc, ByVal oRoot) Set m_oCollection = oDisc.CreateCollection() With m_oCollection .ClassID = DFS_ROOT_TARGET_CLASS_ID .AddScopeFilter COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID, ScriptContext.TargetComputerIdentity .AddScopeFilter DFS_NAME_ATTRIBUTE_ID, ScriptContext.TargetNetbiosComputer .AddScopeFilter DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID, oRoot.Name .AddScopeProperty DFS_ROOT_TARGET_ROOT_TARGET_SERVER_ATTRIBUTE_ID .AddScopeProperty DFS_ROOT_TARGET_ROOT_TARGET_FOLDER_ATTRIBUTE_ID End With End Sub Public Sub Add(ByVal oRootTarget) Dim oInstance Set oInstance = m_oCollection.CreateInstance() With oInstance .AddKeyProperty DFS_ROOT_TARGET_ROOT_TARGET_NAME_ATTRIBUTE_ID, oRootTarget.Name .AddProperty DFS_ROOT_TARGET_ROOT_TARGET_SERVER_ATTRIBUTE_ID, oRootTarget.Server .AddProperty DFS_ROOT_TARGET_ROOT_TARGET_FOLDER_ATTRIBUTE_ID, oRootTarget.Folder End With m_oCollection.AddInstance oInstance End Sub End Class Class DFSLinkCollection Private m_oCollection Public Property Get InnerCollection() Set InnerCollection = m_oCollection End Property Public Sub Initialize(ByVal oDisc, ByVal oRoot) Set m_oCollection = oDisc.CreateCollection() With m_oCollection .ClassID = DFS_LINK_CLASS_ID .AddScopeFilter COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID, ScriptContext.TargetComputerIdentity .AddScopeFilter DFS_NAME_ATTRIBUTE_ID, ScriptContext.TargetNetbiosComputer .AddScopeFilter DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID, oRoot.Name .AddScopeProperty DFS_LINK_LINK_TIMEOUT_ATTRIBUTE_ID .AddScopeProperty DFS_LINK_LINK_COMMENT_ATTRIBUTE_ID End With End Sub Public Sub Add(ByVal oLink) Dim oInstance Set oInstance = m_oCollection.CreateInstance() With oInstance .AddKeyProperty DFS_LINK_LINK_NAME_ATTRIBUTE_ID, oLink.Name .AddProperty DFS_LINK_LINK_TIMEOUT_ATTRIBUTE_ID, oLink.Timeout .AddProperty DFS_LINK_LINK_COMMENT_ATTRIBUTE_ID, oLink.Comment End With m_oCollection.AddInstance oInstance End Sub End Class Class DFSLinkTargetCollection Private m_oCollection Public Property Get InnerCollection() Set InnerCollection = m_oCollection End Property Public Sub Initialize(ByVal oDisc, ByVal oRoot, ByVal oLink) Set m_oCollection = oDisc.CreateCollection() With m_oCollection .ClassID = DFS_LINK_TARGET_CLASS_ID .AddScopeFilter COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID, ScriptContext.TargetComputerIdentity .AddScopeFilter DFS_NAME_ATTRIBUTE_ID, ScriptContext.TargetNetbiosComputer .AddScopeFilter DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID, oRoot.Name .AddScopeFilter DFS_LINK_LINK_NAME_ATTRIBUTE_ID, oLink.Name .AddScopeProperty DFS_LINK_TARGET_LINK_TARGET_SERVER_ATTRIBUTE_ID .AddScopeProperty DFS_LINK_TARGET_LINK_TARGET_FOLDER_ATTRIBUTE_ID End With End Sub Public Sub Add(ByVal oLinkTarget) Dim oInstance Set oInstance = m_oCollection.CreateInstance() With oInstance .AddKeyProperty DFS_LINK_TARGET_LINK_TARGET_NAME_ATTRIBUTE_ID, oLinkTarget.Name .AddProperty DFS_LINK_TARGET_LINK_TARGET_SERVER_ATTRIBUTE_ID, oLinkTarget.Server .AddProperty DFS_LINK_TARGET_LINK_TARGET_FOLDER_ATTRIBUTE_ID, oLinkTarget.Folder End With m_oCollection.AddInstance oInstance End Sub End Class Sub Main() Dim oDiscData Dim oRootColl, oRootInst, oRootTgtColl, oRootTgtInst Dim oLinkColl, oLinkInst, oLinkTgtColl, oLinkTgtInst Dim sDFSUtilPath sDFSUtilPath = CStr(ScriptContext.Parameters.Get("DFSUtilLocation")) Set oDiscData = ScriptContext.CreateDiscoveryData() oDiscData.ScopeID = "{0A89FFE0-69A5-4587-97D0-FC341A903423}" Set oRootColl = New DFSRootCollection oRootColl.Initialize oDiscData Dim oDFS Set oDFS = New DFS oDFS.DFSUtilPath = sDFSUtilPath Dim oRoot For Each oRoot In oDFS.Roots oRootColl.Add oRoot ScriptContext.Echo "Root: " & oRoot.Name Set oRootTgtColl = New DFSRootTargetCollection oRootTgtColl.Initialize oDiscData, oRoot Dim oRootTarget For Each oRootTarget In oRoot.Targets oRootTgtColl.Add oRootTarget ScriptContext.Echo "Root Target: " & oRootTarget.Name Next oDiscData.AddCollection oRootTgtColl.InnerCollection Set oLinkColl = New DFSLinkCollection oLinkColl.Initialize oDiscData, oRoot Dim oLink For Each oLink In oRoot.Links oLinkColl.Add oLink ScriptContext.Echo "Link: " & oLink.Name Set oLinkTgtColl = New DFSLinkTargetCollection oLinkTgtColl.Initialize oDiscData, oRoot, oLink Dim oLinkTarget For Each oLinkTarget In oLink.Targets oLinkTgtColl.Add oLinkTarget ScriptContext.Echo "Link Target: " & oLinkTarget.Name Next oDiscData.AddCollection oLinkTgtColl.InnerCollection Next oDiscData.AddCollection oLinkColl.InnerCollection Next oDiscData.AddCollection oRootColl.InnerCollection ScriptContext.Submit oDiscData End Sub """"""The Error Message in MOM""""""" A management pack script was unable to complete successfully Description: (Error in MOM) The "Microsoft Windows Distributed File Systems" management pack failed to execute the Microsoft Windows 2003 DFS Service Discovery script successfully. The following error event was returned "Error occurred while exporting details for DFS Root [\\domain.test1.com\Sâ??l] to XML file. DFS Root not processed. Error Details: Microsoft(R) Windows(TM) Dfs Utility Version 4.2 Copyright (C) Microsoft Corporation 1991-2005. All Rights Reserved. System error 2 has occurred. The system cannot find the file specified. Done processing this command. ". The following additional error details were returned "". Please refer to the events associated with this alert to view the computers that have experienced this problem. And i have the same problem for 2 other folders (3 folders totally) [\\domain.test1.com\Fâ??n] [\\domain.test1.com\Bâ? t] Questions 1. Can i use the "Replace" in the VBS script? 2. Where in the script should i put it Im not a scripting guru so as easy explained as possible would be great =) Something like this but use only either of the 6 lines. Dim Mystring MyString = Replace("& sName &", "Ã¥", "â? ") MyString = Replace("& sName &", "Ã¤", "â??") MyString = Replace("& sName &", "Ã¶", "â??") MyString = Replace("& sName &", "Ã?", "Â?") MyString = Replace("& sName &", "Ã?", "Å½") MyString = Replace("& sName &", "Ã?", "â?¢") or MyString = Replace("& sName &", "â? ", "Ã¥") MyString = Replace("& sName &", "â??", "Ã¤") MyString = Replace("& sName &", "â??", "Ã¶") MyString = Replace("& sName &", "Â?", "Ã?") MyString = Replace("& sName &", "Å½", "Ã?") MyString = Replace("& sName &", "â?¢", "Ã?") Br/ Peter Tag: When vb script finishes, still have to wait several seconds before Tag: 212778
  - 4
    - VB script Hai, I am new to VB script, now i am developing a Installer(MSI) in .net3.0 and using some VBscript for installing my application, right now i have HARD code my installation path but i need to insatll my application in any path say( c:\XXX\YYY.exe {OR} D:\XXX\YYY.exe ) so, how shall i do it,Thanks a lot in advance! Tag: When vb script finishes, still have to wait several seconds before Tag: 212777
  - 5
    - Apply multiple attributes to in-line onmouseover/out I've been looking around and I can't find an example of the following anywhere. Just a syntax question really; in an HTA the following changes the font style and size on mouse over/out: <div onmouseover="me.style.font='16pt Arial'" onmouseout="me.style.font='10pt ''Times New Roman'''">Example text.</div> If I wanted to use IN-LINE arguments in the above example to also change the font color and background color onmouseover and onmouseout, how would this be done? Could someone please add these attributes to my example DIV above so that it works? Thanks much in advance. Tag: When vb script finishes, still have to wait several seconds before Tag: 212770
  - 6
    - I want an argument, but "Scheduled Tasks" just ignores me Hi, I'm trying to automate some tasks using VBS WSH scripts. Although they seem to see/handle any arguments passed when run via the command prompt, the arguments are apparently not making it through when the same script is run as a scheduled task. Here's a very simple script showing the problem:- If WScript.Arguments.Count > 0 Then WScript.Echo WScript.Arguments(0) Else WScript.Echo "No" End If When I run this via the command line:- M:\>test.vbs argument I get the expected response "argument". When I create a scheduled task that contains this line in the "Run:" box:- M:\test.vbs argument I get the response "no". Putting quotes around "M:\test.vbs" or around "argument" makes no difference. If I try running a non-WSH script via scheduled tasks (e.g. invoking GVIM with the name of a file as the first argument), it sees the argument works fine. So what's happening? Any help appreciated, thanks! - Triffid Tag: When vb script finishes, still have to wait several seconds before Tag: 212768
  - 7
    - File Copy with ouput to log I want to say thank you to first to anyone who can help this novice! ;O) ...very novice at scripting I need a script that can perform a file copy, and output info to a log. I have approximately 4000 CD's I need to copy to a local hard drive. In the process I need to keep track of how much time it takes to copy each CD which consist of one file to multiple files and folders. I also need to verify the Checksums against each other with MD5sum.exe. Optimaly I would like to create a log file that is appended each time with all that information. Here are the steps of what I am envisioning: Create folder: d:\location\new_folder_name (from user input) copy file(s): copy e:\* d:\location\new_folder_name Checksum: md5sum d:\location\new_folder_name\* Output to logfile: ******************************************** new_folder_name Original file MD5 (or even if possible something like Copy MD5 MD5 = verified as an output from Total time for the process = hh:mm:ss checking them both) ******************************************** This doesn't seem like it would be a particularly tough script but I have so little experience I can't figure it out. If anyone has something like this I would be very grateful. If not and it is a simple thing to do I would love it it you could put something together for me with notes (a little lesson if you will). Thank you very much for any help. Rob Hepp Tag: When vb script finishes, still have to wait several seconds before Tag: 212766
  - 8
    - Select Case? I have a script that adds a group to the local admins group on a list of servers. I have it working where it adds the group if it doesn't exist and writes success to a spreadsheet, if the server is not pingable it writes "server unreachable" and moves on. The problem is if the group already exists, it will fail stating the group already exists. I have tried if then elseif statements and tried to use select case a bit but can not get it to work - i woant it to check if the group already exists and output "Exists" in the spreadsheet and move on. I have included the script below. I appreciate any help. Thank you. *********************************************************** Const ForReading = 1 Const serversFilename = "Servers.txt" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & ".\root\cimv2") Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(serversFilename, ForReading) Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add x = 2 objExcel.Cells(1, 1) = "Server Name" objExcel.Cells(1, 2) = "Success?" Do Until objTextFile.AtEndOfStream strComputer = objTextFile.ReadLine strCommand ="%comspec% /c ping -n 3 -w 1000 " & strComputer & "" Set objExecObject = objShell.Exec(strCommand) strText = objExecObject.StdOut.ReadAll() If Instr(strText, "Reply") > 0 Then Set objAdmins = GetObject("WinNT://" & strComputer & "/Administrators") Set objGroup = GetObject("WinNT://ABC/ADM_ABC_Network_Servers_Admin") objAdmins.Add(objGroup.ADsPath) objExcel.Cells(x, 1) = strComputer objExcel.Cells(x, 2) = "Success" x = x + 1 Else objExcel.Cells(x, 1) = strComputer objExcel.Cells(x, 2) = "Server Not reachable" x = x + 1 End if loop objTextFile.Close Tag: When vb script finishes, still have to wait several seconds before Tag: 212761
  - 9
    - Script for Notification Mail on password expiry This is a multi-part message in MIME format. ------=_NextPart_000_00F7_01C83089.FC722150 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Dear All, We have a very large user base who are not into the Office Network. = These users access Company's Email through OWA. For all these users, we = need to send an automated email alert, which will give the details of = the date or no. of days the user's password will expire. Let us say, = the notification should be send everyday, once the password expiry time = is equal to or below 7 days. 1. Required is for all users in the forest. 2. Required for a Single User. --=20 Regards, Phani Kumar IT Analyst, TCS India Email: phani@kompellas.com ------=_NextPart_000_00F7_01C83089.FC722150 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type = content=3Dtext/html;charset=3Diso-8859-1> <META content=3D"MSHTML 6.00.6000.16546" name=3DGENERATOR></HEAD> <BODY id=3DMailContainerBody=20 style=3D"PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-TOP: 15px"=20 bgColor=3D#ffffff leftMargin=3D0 topMargin=3D0 CanvasTabStop=3D"true"=20 name=3D"Compose message area"> <DIV> <DIV><FONT face=3DCalibri size=3D2>Dear All,</FONT></DIV> <DIV><FONT face=3DCalibri size=3D2></FONT> </DIV> <DIV><FONT face=3DCalibri size=3D2>We have a very large user base who = are not into=20 the Office Network.  These users access Company's Email through = OWA. =20 For all these users, we need to send an automated email alert, which = will give=20 the details of the date or no. of days the user's password will = expire. =20 Let us say, the notification should be send everyday, once the password = expiry=20 time is equal to or below 7 days.</FONT></DIV> <DIV><FONT face=3DCalibri size=3D2></FONT> </DIV> <DIV><FONT face=3DCalibri size=3D2>1. Required is for all users in = the=20 forest.</FONT></DIV> <DIV><FONT face=3DCalibri size=3D2>2. Required for a Single = User.</FONT></DIV><FONT=20 face=3DCalibri size=3D2> <DIV><BR>-- <BR>Regards,</DIV> <DIV> </DIV> <DIV>Phani Kumar<BR>IT Analyst, TCS<BR>India</DIV> <DIV> </DIV> <DIV>Email: <A=20 title=3D"wlmailhtml:{B4AEE801-8AB9-44CB-B5D1-A62480F72595}mid://00000237/= !x-usc:mailto:phani@kompellas.com
      CTRL + Click to follow link"=20 href=3D"wlmailhtml:{B4AEE801-8AB9-44CB-B5D1-A62480F72595}mid://00000237/!= x-usc:mailto:phani@kompellas.com">phani@kompellas.com</A></FONT></DIV></D= IV><FONT=20 face=3DCalibri size=3D2> <DIV><A title=3D"mailto:phani@kompellas.com
      CTRL + Click to follow = link"=20 href=3D"mailto:phani@kompellas.com"></A></FONT> </DIV></BODY></HTML>= ------=_NextPart_000_00F7_01C83089.FC722150-- Tag: When vb script finishes, still have to wait several seconds before Tag: 212759
  - 10
    - Logon script works if member of the admins group but does not work from users Hi , can anyone spot why this logon script works if I put a member of the admins group into the group I am trying to map a drive to but not non admins. Any help would be appreciated. Option Explicit 'on error resume next DIM objNetwork, objUser, objsysinfo, objapp DIM strgroup, strlist DIM DriveLetter1, DriveLetter2 DIM RemotePath1, Remotepath2 Dim Currentuser, wshell const gpmof = "cn=GG_Mofa,ou=rain,dc=meadows,dc=hjem" set objnetwork = Createobject("WScript.Network") set objuser = CreateObject("ADSystemInfo") set CurrentUser = GetObject("LDAP://"&objuser.username) set objsysinfo = Createobject("ADSysteminfo") set objapp = Createobject("WScript.shell") set wshell = Createobject("WScript.shell") strlist = objSysinfo.Computername If isarray(CurrentUser.Memberof) then strgroup = LCase(Join(CurrentUser.memberof)) Else strgroup = LCase(CurrentUser.Memberof) End If DriveLetter1 = "F:" Driveletter2 = "g:" RemotePath1 = "\\server1\caspar" If instr(strGroup, gpmof ) then objNetwork.mapnetworkDrive Driveletter1, Remotepath1 End If WScript.Quit Tag: When vb script finishes, still have to wait several seconds before Tag: 212749
  - 11
    - ODBC Database empty with XP Hi, I Have an .hta application which opens a Dbase database via ODBC. On Vista everything works fine. All entries of the database are visible. On XP SP2 the same database gives back that the DB is empty. any ideas? Florian Tag: When vb script finishes, still have to wait several seconds before Tag: 212747
  - 12
    - window.resizeto with IE7? Hi, I have a .hta application written which works fine on my Vista, but not on XP with IE7: --------------------------------------- <head> <title>Title</title> <HTA:APPLICATION APPLICATIONNAME="Title" SCROLL="yes" SINGLEINSTANCE="yes" WINDOWSTATE="normal" > </head> <script language="VBScript"> Sub Window_onLoad Window.resizeto 800,600 ------------------------------------------------- At the window.reszieto command I get an access denied error on XP. Does anyone know how to avoid this? Thanks Florian Tag: When vb script finishes, still have to wait several seconds before Tag: 212746
  - 13
    - Executing a command line from VBScript In poking around the various scripting sites like http://www.microsoft.com/technet/scriptcenter/hubs/start.mspx I've found Execute(), but it's not clear to me what kind of statements it's supposed to execute. TIA Ed Tag: When vb script finishes, still have to wait several seconds before Tag: 212735
  - 14
    - Sort CSV File with two fields on it Hello, I have around 300 records on a csv file. and the format is like the following: "R","995" "B","9928" "M","99" "D","96694" "M","9539" "K","95329" "M","95201" "X","94269" "S","93995" "F","9387" I am using the following code that I got from the web do not recall who but the output only shows me only the first colum sorted and I want them both. I want them to be able to sorted by either column but the output must have the columns. Thanks for your help. ******************CODE BELOW************************ Option Explicit 'On Error Resume Next Dim InputFile,fso,rs,txtInStream,LineItem,arrLineItem,i,j Dim myFilterArray Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const Visible = 1, Invisible = 0 Const adVarChar = 200 'String variable Const MaxCharacters = 255 ' Specify your own CSV file here. InputFile = "C:\DOCUME~1\German\MYDOCU~1\VB_SCR~1\EMAILS~3.CSV" Set fso = Wscript.CreateObject("Scripting.FileSystemObject") Set rs = Wscript.CreateObject("ADODB.recordset") ' you need to define each column of the CSV here rs.Fields.Append "Field1", adVarChar, MaxCharacters rs.Fields.Append "Field2", adVarChar, MaxCharacters rs.Fields.Append "Field3", adVarChar, MaxCharacters rs.Open 'process each line item and add them as a new record in the recordset set txtInStream = fso.OpenTextFile(InputFile) do while not txtInStream.AtEndOfStream ' Convert delimiters to "~" so that its more unique when I run split() LineItem = Replace(txtInStream.Readline, """,""", "~") LineItem = Mid(LineItem, 2, len(LineItem) -2) wscript.echo "LineItem: " & LineItem arrLineItem = Split(LineItem, "~") rs.AddNew wscript.echo"Upper Bound: " & UBound(arrLineItem) for i = 0 to UBound(arrLineItem) - 1 wscript.echo "arrLineItem(i)" & arrLineItem(i) rs.fields.item(i) = arrLineItem(i) next rs.Update j = j+1 loop 'Now that all your records have been import to the recordset you can do what you want with it like a normal database rs.Sort = "Field1" rs.MoveFirst do until rs.EOF 'WScript.echo rs.Fields.Item("Field1") & chr(9) & rs.Fields.Item("Field2") & chr(9) & rs.Fields.Item("Field3") WScript.echo rs.Fields.Item("Field1") & chr(9) & rs.Fields.Item("Field2") rs.MoveNext loop ' **** end ***** *********************END CODE************** Tag: When vb script finishes, still have to wait several seconds before Tag: 212734
  - 15
    - conditionally Unchecking a check box Hello, I'm reviewing some existing code and need help confirming what I see. The code I'm looking at is similar to the following: if chk_01.checked = true then chk_01.click() 'clear the checkbox and hide text area end if This does not seem to be working. I substituted the code with the following: chk_01.checked = false At the point that this code runs, I already have the controls bound to existing data and based on a condition, I want to force the check box to an unchecked state. Any insight on whether the .click() is appropriate and some security settings are probably to blame or if this should never have worked would be very helpful. Thanks Tag: When vb script finishes, still have to wait several seconds before Tag: 212727
  - 16
    - groups drives are not being mapped I have a issue where the group memberships are not being read and only the first group is actually mapped the rest is then ignored. Here is the vbs script ########################################### Option Explicit 'on error resume next Dim objNetwork Dim strDriveLetter, strRemotePath, strUserName, strGroup Const passwd_Group = "cn=passworddatabase" Const qb_Group = "cn=quickbookaccountants" Const peach_Group = "cn=peachtreeaccountants" strDriveLetter = "H:" ' Map Home Folder ' ################## strRemotePath = "\\dsfs1\Users" Set objNetwork = WScript.CreateObject("WScript.Network") strUserName = objNetwork.UserName objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _ & "\" & strUserName ' ########################## ' ##### Group Mappings ##### ' ########################## ' Users that can view the password database ' ############################################# If InStr(strGroup, passwd_Group) Then 'WScript.Echo "Passwords " objNetwork.MapNetworkDrive "R:", "\\dsfs1\Password Database" ' & objNetwork.UserName ' Users that can use QuickBooks ' ################################# ElseIf InStr(strGroup, qb_Group)Then 'WScript.Echo "Passwords " objNetwork.MapNetworkDrive "Q:", "\\dsfs1\Quickbooks" ' & objNetwork.UserName ' Users that can use PeachTree ' ################################# ElseIf InStr(strGroup, peach_Group) Then 'WScript.Echo "Passwords " objNetwork.MapNetworkDrive "P:", "\\dsfs1\PeachTree" ' & objNetwork.UserName End If Wscript.Echo "Drives Mapped " WScript.Quit ########################################################## Tag: When vb script finishes, still have to wait several seconds before Tag: 212724
  - 17
    - VBS Scripting Hi I'm new to scripting and have this script that I'm trying to deploy via sms. The script is suppose to remove an old software version, and install the new one, then apply a few registry keys. The software removal works, but the installation of the new version will not work. I'm stuck, can anyone help me out? Thanks. Here's a sample of the script that I have created. 'Removing Application Xtender 5.2 Dim strComputer, ObjWmiService, Colsoftware, objsoftware, WshShell On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set Colsoftware = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Product WHERE Name = 'ApplicationXtender 5.2'") For Each objSoftware in Colsoftware objSoftware.Uninstall() Next Wscript.sleep 2000 'Install New Application Extender 5.3 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=delegate}!\\" & strComputer & "\root\cimv2") Set objSoftware = objWMIService.Get("Win32_Product") errReturn = objSoftware.Install("\\tmevolution\data\apps\SMSSource\1.STANDARDIMAGEBUILD\ApplicationXtender5.3\AppXtenderDesktop\setup.exe" "MsiExec.exe /I "\\tmevolution\data\apps\SMSSource\1.STANDARDIMAGEBUILD\ApplicationXtender5.3\AppXtenderDesktop\ApplicationXtender.msi" /qb INSTALLLEVEL=1) Set WshShell = WScript.CreateObject("WScript.Shell") Wshshell.run ("regedit.exe /s \\tmevolution\data\apps\SMSSource\1.STANDARDIMAGEBUILD\ApplicationXtender5.3\AppXtenderDesktop\AX30minute.reg") Wshshell.run ("regedit.exe /s \\tmevolution\data\apps\SMSSource\1.STANDARDIMAGEBUILD\ApplicationXtender5.3\AppXtenderDesktop\Coldtab.reg") Wshshell.run ("regedit.exe /s \\tmevolution\data\apps\SMSSource\1.STANDARDIMAGEBUILD\ApplicationXtender5.3\AppXtenderDesktop\defaultdsn.reg") Set objwmiservice = Nothing Set Colsoftware = Nothing Set objsoftware = Nothing Tag: When vb script finishes, still have to wait several seconds before Tag: 212714
  - 18
    - creating "runas" shortcut through vb script Good afternoon. Currently I have to give all my users admin rights on their machines for the sake of a few programs, so I've started playing around with runas. Specifically I want a script that will create a shortcut for a given program that runs it with different credentials. I've been piecing bits of code together, and so far I've arrived at the below script which creates the shortcut on my desktop, but for whatever reason I can not get the application path correct. It insists on putting a leading quote in the path name no matter what I do. Should be: runas /user:<my domain>\<the user> "<some program file path>" Getting instead: "runas /user:<my domain>\<the user> "<some program file path>"" I've tried many iterations of the strAppPath line, but no luck. Anyone have any ideas? Option Explicit Dim objShell, objDesktop, objLink Dim strAppPath, strWorkDir, strIconPath strWorkDir ="%SystemRoot%\system32" strAppPath ="runas /user:<my domain>\<the user> ""<some program file path>""" strIconPath = "%SystemRoot%\system32\SHELL32.dll,5" Set objShell = CreateObject("WScript.Shell") objDesktop = objShell.SpecialFolders("Desktop") Set objLink = objShell.CreateShortcut(objDesktop & "\ShortcutTest.lnk") ' --------------------------------------------------- ' Section which adds the shortcut's key properties objLink.IconLocation = strIconPath objLink.TargetPath = strAppPath objLink.WindowStyle = 3 objLink.WorkingDirectory = strWorkDir objLink.Save WScript.Quit -Josh Tag: When vb script finishes, still have to wait several seconds before Tag: 212694
  - 19
    - Set User Authentication in IE7 for Trusted Site Hello, I would like to know if there is a way to script setting the User Authentication settings in IE7 for a trusted site to "automatic logon with current user name and password"? Thanks in advance! Tim Tag: When vb script finishes, still have to wait several seconds before Tag: 212693
  - 20
    - How to get the computer name for the local machine Hello there, How do I get the computer name from within a script or a visual Basic program! May thanks Sebastian Tag: When vb script finishes, still have to wait several seconds before Tag: 212690
  - 21
    - Viws.Net Very Important Web Sites on the Net Add your Url now.. Only 1 $ www.viws.net Tag: When vb script finishes, still have to wait several seconds before Tag: 212687
  - 22
    - =?ISO-8859-15?Q?=FCbergrosse_Dateil=E4nge?= Hallo Gruppe, kennt jemand ein Tool, einen Befehl oder Script mit dem man alle überlange Dateinamen mit 256 Zeichen finden kann? Pfad + Dateinamen sollen nicht länger als 256 Zeichen sein, da ich sonst ein Problem habe mit wsh darauf zuzugreifen um z.B mit wsh die Datei - oder Verzeichniseigenschaften auszulesen. Danke Tag: When vb script finishes, still have to wait several seconds before Tag: 212685
  - 23
    - Profile Rebuild Script Hi, I've seen some impressive scripts for profiles and assigning permissions etc. I am after something a little more simple (hopefully!). Just a scfipt to copy user settings from an old profile to a new profile. Prior to launching the script, the userprofile folder is manually renamed from "Username.Domain" to "_oldUsername.Domain", and a new profile manually created. A script when launched, will ask for the username, and once inputed will copy over user settings from their old profile to their new, for example:- _oldUsername.Domain\Favourites copied to Username.Domain\Favourites and so on. I'm no good with vb scripting, but would like to be able to easily modify what settings to copy over (Desktop shortcuts, Templates etc etc.). Many Thanks as always for any responses! :o) Tag: When vb script finishes, still have to wait several seconds before Tag: 212683
  - 24
    - Bizarre AT scheduling behaviour Here is some Thanksgiving weirdness. Maybe someone has some comments: If you schedule a task in a simple way with AT (e.g. AT 16:42 cmd "/K dir"), after it runs, it will delete itself. Now it might be the case that I want to schedule a task (with AT) and have it run right away. I could schedule the task for the next minute (e.g. it is 10:03:23 so I would schedule the task for 10:04. AT and SchTasks granularity is to the minute, at least on Win XP). But suppose that I am an impatient type of individual, begrudging those wasted seconds. In that case, I would do the following: AT 16:42 cmd "/C" dir => I get back a task id, say 29. And then, Schtasks /run /tn 29 => task runs immediately. Nifty. Now here's the bizzaro behaviour. If the task has been scheduled for less than about 60 seconds from now, it will be automatically deleted after the second line! Otherwise, the task sticks around and will be run (again) at the indicated time. If you right click on the tasks scheduled with AT in the above fashion, it says, "Delete the task if it is not scheduled to run again." So I would really like to understand the exact circumstances under which this mysterious deletion is occurring. Ie. comments are welcome. Interesting, but not bizarro behaviour: In keeping with the "Impatient Script" theme... What I actually wanted was for the task to be deleted after I had forced a run on it with Schtasks. So, after that Schtasks line, I did: AT 29 /delete Of course I did so programmatically with two invocations of WScript.Shell's Run command. The task never executed! Further investigation revealed that the first command executed just fine and SchTasks reported success for the immediate run. Trouble is, by the time the responsible agency actually got around to running the task, that following AT command had deleted it. By a sufficient delay (of half a second!) I was able to execute and then delete the task. But I don't like arbitrary delays, so what I wound up doing was scheduling another task to delete the first one, a fitting if not the most elegant of ends (not elegant because the subsequent task might have to wait up to a minute to dispatch its victim). Gobble gobble, Csaba Gabor from Vienna Tag: When vb script finishes, still have to wait several seconds before Tag: 212673
  - 25
    - Error Code: 800A01AD strCommand="Notepad.exe" set objController = WScript.CreateObject("WSHController") set objRemoteScript = objController.CreateScript(strCommand) Error: ActiveX component can't create object. Please advise me how to handle it. Thanks, -Andrew Tag: When vb script finishes, still have to wait several seconds before Tag: 212660
- Next
  - 1
    - GetFolder size on disk (uncompressed)? Hi! I'm looking for a way to get home folder size on disk (compressed), but the GetFolder method doesn't give me that information, does it exist a function or method that give us that? Else, we will have to script a getfolder function that will do that (calculating every files recusively)? I was trying avoid scripting something big just to get that information... Thanks. Claude Lachapelle Systems Administrator, MCSE Tag: When vb script finishes, still have to wait several seconds before Tag: 212655
  - 2
    - DFS Active Referral Path from vbscript / command line? I am looking for a method of detecting the active referral path for a DFS directory from the command-line or vbscript. Is there a command line way to get the same data that you get when you right click on a directory on a DFS share, select Properties and click the DFS tab? If so, can it be done from command-line or script utilizing built-in utilities or a method from a DLL that can be called from a command line or vbscript? If not, is a lightweight utility or object available? Specifically, I am looking for a way to provide input like "X:\Apps\SomeApp" (with a UNC like \\company.com\dfsroot\apps\someapp) and get back output like "\\server123\utils$"? Tag: When vb script finishes, still have to wait several seconds before Tag: 212652
  - 3
    - Hi all, I need a script to schedule the defrag.exe(built in defragmentor) on the remote computer in a office network.... The script should also throw a defragmented report in a text file once it is completed to a remote server.... I hardly need the complete script...Can anyone help me in this regard?. Tag: When vb script finishes, still have to wait several seconds before Tag: 212651
  - 4
    - Impatient script problem All, I am just starting to work with VBScript. When I run a script, neither the MsgBox nor the InputBox wait for my input via the OK button. Is there a local setting that I need to set to cause the script to wait on me? Thank you, Byron Coulter Tag: When vb script finishes, still have to wait several seconds before Tag: 212649
  - 5
    - Script to append to bookmarks Hello. Can i append to the register of windows a key with a URL for the bookmarks of internet explorer? Thanks, and excuse my english. Tag: When vb script finishes, still have to wait several seconds before Tag: 212646
  - 6
    - Desktop/Servver Inventory Script. Hi All, I am looking for script or tool which should scan following or should collect max info seating on one computer. Hostname IP address Subnet mask Default GW RAID Hardware model Hardware model details Server serial number Bios Version Operating system version Service Pack Prosessor count Prosessor speed Memory Disk cotroller Network card Many Thansk in advance Regards Muneer Khan Tag: When vb script finishes, still have to wait several seconds before Tag: 212644
  - 7
    - Printer Preference Dear All, Is there any way to change the pinter preference using vbs? Thanks! Zero Warrior Tag: When vb script finishes, still have to wait several seconds before Tag: 212636
  - 8
    - Renaming & Moving Files with Date and Time stamp I need some help moving files from one folder to another (some files are mp3 and wav files). Here are the conditions which I need: 1. Move files only that have not been accessed for 14 days 2. When move append date file created to existing name, cannot change file extension. Date part in name should come first seperated by dots so users can easily read file names ex. 11.19.07.file name.wav 3. Would be nice to remove spaces in name if possible, not a big deal. These are jocks creating these files and I know names have spacing. 4. On Average there are 35-45 files created daily. 5. Script can run everyday, but to start there are currently about 6,000 files already existing. -- Any help is appreciated James Tag: When vb script finishes, still have to wait several seconds before Tag: 212625
  - 9
    - Run VBScript from HTML I need to create a Desktop shortcut to visitors' My Documents from a webpage. The visitor would come to the webpage click a button and on thier Desktop a shortcut to thier My Documents folder (with particular attributes) will be created. This page would be for someone who has low vision. Here is the code to create to shortcut: set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") strMyDocs=WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Personal") set oShellLink = WshShell.CreateShortcut(strDesktop & "\My Documents.lnk") 'shortcut properties oShellLink.TargetPath = strMyDocs oShellLink.WindowStyle = 1 oShellLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 4" oShellLink.Description = "Shortcut to My Documents" oShellLink.Hotkey = "Alt+Ctrl+D" oShellLink.Save Now this works on the local computer, but I would like to use a webpage to deliver this. Any help would be appreciated! Tag: When vb script finishes, still have to wait several seconds before Tag: 212624
  - 10
    - Can not create script for controller In the code bellow: Set objController = CreateObject("WshController") Set objRemoteScript = objController.CreateScript("C:\MyScript.vbs", "Server") objRemoteScript.Execute objController.CreateScript("C:\MyScript.vbs", "Server") doesn't work My question: how to run a VBScript on remote server? Thanks, -Andrew Tag: When vb script finishes, still have to wait several seconds before Tag: 212621
  - 11
    - How to get Windows Directory for remote server? That is, C:\WINNT or C:\WINDOWS WshShell.ExpandEnvironmentStrings("%windir%") can get Windows Dir on local. How about remote server? Thanks, -Andrew Tag: When vb script finishes, still have to wait several seconds before Tag: 212614
  - 12
    - how to invoke a VBScript to run after Remote Desktop login (ideally I am new to Windows environment and I have a question that probably is quite simple so appreciate help and pointers to solution. I have a VBScript script that I would like to 1) be run whenever the user logs in (remotely) to a Win XP PC. I would like to know: a- where should I place that script (startup folder was mentioned somewhere but I am not sure it is an actual folder or some generic name). b- What else do I need to do to make sure the script runs everytime that Winodws XP machine is logged into remotely. Any script or changes that need to be done on the PC? c- Can I introduce some delay for the script to run, for instance, 5 minutes after login (any code sampes, references)? Thanks David Tag: When vb script finishes, still have to wait several seconds before Tag: 212605
  - 13
    - how to invoke a VBScript to run after Remote Desktop login (ideally I am new to Windows environment and I have a question that probably is quite simple so appreciate help and pointers to solution. I have a VBScript script that I would like to 1) be run whenever the user logs in (remotely) to a Win XP PC. I would like to know: a- where should I place that script (startup folder was mentioned somewhere but I am not sure it is an actual folder or some generic name). b- What else do I need to do to make sure the script runs everytime that Winodws XP machine is logged into remotely. Any script or changes that need to be done on the PC? c- Can I introduce some delay for the script to run, for instance, 5 minutes after login (any code sampes, references)? Thanks David Tag: When vb script finishes, still have to wait several seconds before Tag: 212604
  - 14
    - How to get the remote server's system information just like: windows dir ip address Thanks, -Andrew Tag: When vb script finishes, still have to wait several seconds before Tag: 212601
  - 15
    - checking for a running process hay all, looking to figure out how to do this i have a couple scripts that run on my users wks.. and i need to make sure that a process is started before the script goes to the next section of the script i know i need some type of : do loop until the process running . i just need to know how to create that secion and added it into my script . i have a command to start the process to and start the service just need something to verify that the service is running on the wks the processes is named Rtvscan.exe 'On Error Resume Next ' strService = " 'Symantec Antivirus' " Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colListOfServices = objWMIService.ExecQuery _ ("Select * from Win32_Service Where Name ="_ & strService & " ") For Each objService In colListOfServices WSCript.Sleep intSleep objService.StartService() Next thanks any help would be greatly appreciated thanks ryan Tag: When vb script finishes, still have to wait several seconds before Tag: 212598
  - 16
    - Default Script Host Hello All, I have a strange problem, not sure what to make of it. My default Script Host magically changed from CScript to WScript. My scripts started erroring out as I check the script engine in all my scripts and exit if WScript. I use exstensive use of WScript.Echo and I dont want the OK box. So, naturally, the first thing I did was execute "WScript //H:CScript //S" and it tells me my default script host is now CScript. But not dice, my script still error out. Here is my check ... If InStr(1, LCase(WScript.Fullname), "cscript", 1) = 0 Then I then copied CScript.exe over WScript.exe after saving a copy, and my script still error out, but WScript.Echo is to StdOut, not an OK box telling me it is really using CScript.Exe but WScript.Fullname returns WScript. Wierd. So, I do some googlin, not much there except to execute 'WScript //H:CScript //S",which of course I have done. No dice, engine is still WScript. The only thing I can think of that may have caused this issue was the install of WScript 5.7, I am running XP Pro. So, I install 5.6, same thing. Re-install 5.7, same thing. Even though the //H tells me it has set my default to CScript, it is still WScript. So, I dive in to the registry to : HKCR\VBSFile\Open\Command It is set to CScript. I then look at : HKCR\VBSFile\Open2\Command It is set to WScript. I change it to CScript and my problem is solved. I am not happy with this solution. It is a hack. Why didn't the //H //S option take care of setting my default back to CScript ? Anyone seen this, and more importantly, anyone have the "real" solution ? TIA TDM Tag: When vb script finishes, still have to wait several seconds before Tag: 212595
  - 17
    - Detect mouse click in DIV In an HTA you can detect a mouse click in the window using: window.event.offsetX window.event.offsetY How do you return this information - i.e. the window coordinates of the mouse click if you are clicking in a div? You can't just use the code above or it will return the location within the DIV not the window... Thanks much in advance. Tag: When vb script finishes, still have to wait several seconds before Tag: 212592
  - 18
    - How to create an object on remote server? Hi, all, Please give me some advice for the following code: Firstly, I got a component from remote and then I want to create an object for it on remote server. But it doesn't work. Set objCatlog = CreateObject("COMAdmin.COMAdminCatalog") objCatlog.Connect(strServerName) Set objApplications = objCatlog.GetCollection("Applications") objApplication.Populate For each objApplication in objApplications Set objComponents = objApplications.GetCollection("Components", objApplication.Key) objComponents.Populate For each objComponentItem in objComponents Set objComponent = CreateObject(objComponentItem.Value("ProgID")) 'it doesn't work Next Next My question: how to create an object for remote server? objComponentItem.Value("ProgID") is from server, but cannot create a object for the server, why? It seems that it would create the object on local. Thanks, -Andrew Tag: When vb script finishes, still have to wait several seconds before Tag: 212589
  - 19
    - Check String as Numbers Only I would like to add some code to insure the Len(UnitNumber) <> 10 code contains only numeric values. I thought that parsing the Variable "UnitNumber" using the CHR(value) would be the way to do this but I don't know how to perform this operation. All suggestionsa are appreciated. Hal Sub GetInput() UnitNumber = InputBox(ErrMsg & "Enter an Engine Serial Number " & _ "to be searched for:", title) If UnitNumber = "" Then WScript.Quit Else If Len(UnitNumber) <> 10 Then InputError() End If End If Message() End Sub Tag: When vb script finishes, still have to wait several seconds before Tag: 212580
  - 20
    - WSUS Script HELP!! - [WP] Got thtis script from WSUS Website at Microsof http://www.microsoft.com/technet/scriptcenter/scripts/sus/server/default.mspx?mfr=true its called Approved Updates Status Report Its been over a week havign a hard time to get this script running. Not even sure whether its a VBScript or Powershell? Advise Please - Thank you [reflection.assembly]::LoadWithPartialName("Microsoft.UpdateServices.Administration") |out-null if (!$wsus) { $wsus = [Microsoft.UpdateServices.Administration.AdminProxy]::GetUpdateServer(); } "Server name: " +$wsus.Name; "Using secure connection: " + $wsus.IsConnectionSecureForRemoting; "Port number: " + $wsus.PortNumber; $updateScope = new-object Microsoft.UpdateServices.Administration.UpdateScope; $updateScope.UpdateApprovalActions = [Microsoft.UpdateServices.Administration.UpdateApprovalActions]::Install ` -bor [Microsoft.UpdateServices.Administration.UpdateApprovalActions]::Uninstall $wsus.GetUpdates($updateScope) | foreach { $update = $_ #$_ is a shorthand variable for the current item in a loop "--------------------------------------------------" "Update: " + $update.Title "Update Id: " + $update.Id.UpdateId "--------------------------------------------------" $wsus.GetComputerTargetGroups() | foreach { $group = $_ if ($update.GetUpdateApprovals($group).Count -ne 0) { #`t is equivalent to \t in C#/C++ "`t Computer Group: " + $group.Name "`t ComputerTargetGroupId: " + $group.Id "`t Approval action: " + $update.GetUpdateApprovals($group)[0].Action $summary = $update.GetSummaryForComputerTargetGroup($group) "`t Installed:" + ($Summary.InstalledCount + $summary.NotApplicableCount) $neededCount = ($summary.InstalledPendingRebootCount + $summary.NotInstalledCount) if ($neededCount -gt 0) { Write-Host ("`t Needed: $neededCount") -foregroundColor Yellow -backgroundColor black } else { "`t Needed: $neededCount" } if ($summary.FailedCount -gt 0) { Write-Host ("`t Failed: " + $summary.FailedCount) -foregroundColor Red -backgroundColor black } else { "`t Failed: " + $summary.FailedCount } "`t Unknown: " + $summary.UnknownCount "`t ------------------------------------------" } } "--------------------------------------------------" } Tag: When vb script finishes, still have to wait several seconds before Tag: 212578
  - 21
    - Login Script Problems Im having a few problems with login scripts, from our login script i am trying to get it to silently run a .reg file at logon im doing the following : Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "regedit /s tif.reg" The "tif.reg" file is in the same location as the logon.vbs is, if i add this to a script manually just the above 2 lines and run on a users PC, it works fine, so i know permissions are ok and it will silently add the registry key in with no problems. No matter where i put this in the logon.vbs it wont work, can i not do what i am trying to do at logon ? For example my login script is at ( sorry about wrapping its a bit long ) \\ourdomain.uk\SysVol\ourdomain.uk\Policies\{00C895C5-FC4E-4180-B46D- A208E6216D9E}\User\Scripts\Logon Any ideas ? Tag: When vb script finishes, still have to wait several seconds before Tag: 212575
  - 22
    - Help with Remtoe Desktop access from WinXP 1 to WinXP2 PC I am trying to create a .RDP file and use it to remotely accss a 2nd Windows XP host from the first Windows XP machine. Any pointers to sample scripts is appreciated. Thanks. Tag: When vb script finishes, still have to wait several seconds before Tag: 212574
  - 23
    - get PC Info What I am trying to do is audit a PC and get the some info and was wondering how to do that with vbscript. The type of info that I am looking for can be found in the Dos command. Dos command c:\> set > c:\temp\audit.txt I also need to include any and all user created files and search for those files on a pc using vbscript and write the output to a file. In a dos window, I can type the following command and pipe it to a file and was wondering if there was a way to do it in vbscript Dos command c:\>dir /s *.mdb *.ppt *.xls *.doc *.pdf *.txt *.rpt >> c:\temp\audit.txt any and all help in this matter is greatly appreciated. Tag: When vb script finishes, still have to wait several seconds before Tag: 212565
  - 24
    - Get class to work in a innerHTML string In an HTA, I'm accessing the innerHTML to custom write a context menu. The code below works great using in-line formats, but for simplicity and modularity I'm trying to assign a class to the div, but I can't get it to take. The class looks like this: .mnu { display: block; position: absolute; font-family: "Tahoma"; font-size: 10pt; cursor: hand; color: #000000; width: 120px; padding: 2px; border: 1px solid black; } The string that makes up the first menu choice is as follows. The variable sMenu will eventually be assigned to the innerHTML (this is based off a MS example - however, they didn't use a class either): sMenu = "<div class=" & """" & "mnu" & """" & " style=" & """" & "filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='yellowgreen', EndColorStr='#FFFFFF')" & """" & " onclick=" & """" & "parent.Item_1()" & """" & ">Item1</div>" As I previously stated, the above code works with in-line formatting, but just not with a class. I've tried "me.class" and "parent.class" and "me.classname" nothing seems to work. Can anyone please correct my code so this will work? Thanks much in advance. Tag: When vb script finishes, still have to wait several seconds before Tag: 212557
  - 25
    - Can' get LDAP to work in WorkGrp Hi, I tried running the script appended below which runs fine on a machine joined to a domain. How can i get this script to run from a machine which is not joined to the domain(xyz.mc.uk)? I get the following error on the client which is not joined to the domain? Windows Script Host --------------------------- Script: C:\Documents and Settings\Administrator\Desktop\Search.vbs Line: 21 Char: 1 Error: Table does not exist. Code: 80040E37 Source: Provider Is there a way out to run this script from a machine which is not in the domain? Script strUserName = "1234567" strLDAP = "<LDAP://dc=xyz,dc=mc,dc=ck>" dtStart = TimeValue(Now()) Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Properties("User ID") = "xyz.mc.ck\user" objConnection.Properties("Password") = "Pwd0334" objConnection.Properties("Encrypt Password") = TRUE objConnection.Properties("ADSI FLAG") = 1 objConnection.Open "Active Directory Provider" set objCommand.ActiveConnection = objConnection objCommand.CommandText = _ strLDAP & ";(&(objectCategory=User)" & _ "(mobile=" & strUserName & "));distinguishedName,mobile,sAmAccountName,cn;subtree" Set objRecordSet = objCommand.Execute If objRecordset.RecordCount = 0 Then WScript.Echo "sAMAccountName: " & strUserName & " does not exist." Else WScript.Echo objRecordSet.fields("distinguishedName").value &" exists." DNAME = objRecordSet.fields("distinguishedName").value set objUser = GetObject("LDAP://" & DNAME ) wscript.echo "itworked" objUser.Put "userPrincipalName", "mtself@xyz.mc.ck" objuser.setInfo End If objConnection.Close Tag: When vb script finishes, still have to wait several seconds before Tag: 212555

All,

I have a VB program that executes several scripts in sequence... so it
has to wait for each script to finish before the next one runs. The
scripts themselve take only a few seconds to run, however it takes
several seconds before the command prompt is returned and the window
is closed (and the vb program can continue).

Why is it that when a script finished, it still takes several seconds
before the command prompt is returned?
Is there a way to solve this.

Running my vb program takes a lot of time now... mostly waiting for
scripts to close.

Any help would be appriciated.

Regards,
Jan-Willem

Top

Re: When vb script finishes, still have to wait several seconds before by mr_unreliable

mr_unreliable
Tue Nov 27 09:13:48 PST 2007

hi Jawiko,

It would help if you explained the mechanism you use in vb
to START the script, and what you are doing to WAIT FOR
the script to close.

It might also help if you could characterize your scripts.
For example, when run as stand-alone, your "window" (cscript?)
might close, but the script may still be busy "cleaning-up",
i.e., releasing resources -- until the process terminates
completely.

cheers, jw

Jawiko wrote:
> All,
>
> I have a VB program that executes several scripts in sequence... so it
> has to wait for each script to finish before the next one runs. The
> scripts themselve take only a few seconds to run, however it takes
> several seconds before the command prompt is returned and the window
> is closed (and the vb program can continue).
>
> Why is it that when a script finished, it still takes several seconds
> before the command prompt is returned?
> Is there a way to solve this.
>
> Running my vb program takes a lot of time now... mostly waiting for
> scripts to close.
>
> Any help would be appriciated.
>
> Regards,
> Jan-Willem

Top

Re: When vb script finishes, still have to wait several seconds by Jawiko

Jawiko
Tue Nov 27 09:22:05 PST 2007

Hey thanks for your answer...
Basically it comes down to this:

My VB program creates a folder with several subfolders in it.
Each subfolder must have its own set of permissions. I am using XCACLS
to set these permissions.
So, my VB program writes a batch files that runs the XCACLS script
(with parameters) for each folder.
An example of a batch file looks like this (please do not be bothered
about the paramaters they have nothing to do with it):

cscript XCACLS.VBS "j:\client data\02 Customers\Foldername1" /G
"inl.local\domain users":L "INL.local\CDM_Admins":F >181731-5334.0

cscript XCACLS.VBS "j:\client data\02 Customers\Foldername1\Finance" /
G "INL.local\CDM_Admins":F "INL.LOCAL\CDM_Finance_R":L "INL.LOCAL
\CDM_Finance_C":M >181731-5334.1

cscript XCACLS.VBS "j:\client data\02 Customers\Foldername1\Enhanced
Services" /G "INL.local\CDM_Admins":F "INL.local\CDM_Enhanced
Services_R":L "INL.local\CDM_Enhanced Services_C":M >181731-5334.2

cscript XCACLS.VBS "j:\client data\02 Customers\Foldername1\Service
Delivery" /G "INL.local\CDM_Admins":F "inl.local\CDM_Service
Delivery_R":L "inl.local\CDM_Service Delivery_C":M >181731-5334.3

It just takes each line like 10 seconds to return the command prompt
(and the script is finished in a few secs)

Top