RunOnce

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
    - I need to get content of webpage but this webpage has invalid structure I have new problem :) I use "InternetExplorer.Application" object for connection to website and analysis its HTML code. But "ie.Document.Body.innerHTML" cannot get correct value because this page has invalid structure: -------Start of HTML Page-------- . <head> <title> Title </title> </head> <body> <table> ..................... table codes......................... </table> Content-Type: text/html . -------End of HTML Page-------- You can see that '</body>' and '<html>' and '</html>' tags are missing! I need to get all HTML content of this page. What to do? Thanks, Uka Tag: RunOnce Tag: 178101
  - 2
    - Common log-file I launch several vbs, they write the information to one common log-file. That I should do to prevent possible conflicts? Thanks. Tag: RunOnce Tag: 178100
  - 3
    - can't rename Repository Dir remotely Hi, I have a script that stops the SMS service, then Stops the winmgmt service, then renames the %windir%\system32\Wbem\repository to repository.old. I then have the SMS service restart and the winmgmt service restarts automatically. I altered the script to work off of a computer machine name input. It goes to the computer stops both the SMS service agent, winmgmnt sucessfully....but when WMI is used to rename the folder of this remote machine, winmgmt starts up again and blocks renaming of the repository directory. I guess WMI directly uses the repository directory and can't rename a folder it is using. Strange how the script runs great on a local machine but can't complete the rename of the folder remotely. I guess I am using WMI to rename the Repository on a remote machine and Plain Wscript when renaming the repository when the script is run locally. Any ideas of how to run a script like this and have it rename the Repository from a remote machine. Here is some of the code that fails when it trys to rename the repository. BTW, it works fine if you rename another folder inside the Wbem directory...such as performance. It is obvious that invoking WMI from a remote machine to rename a folder that WMI needs, starts WMI and locks down the renaming of the Repository. I am looking at having to repair SMS on 500 machines and I hate to VNC to all of them. I am just about ready to give up on a script to kill the directory remotely. Having a script to do it all will VNCing to a machine will still save time. Thanks for any ideas. Jeff If someone wants to look at the code for local renaming and remote, the code is below. For the remote renameing, strComputer is taken from an Input sub...person inputs the machine name to connect to. Here is the script portion to rename the Repository remotely. 'Set objWMIService = GetObject("winmgmts:" _ ' & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") ' 'Set colFolders = objWMIService.ExecQuery _ ' ("Select * from Win32_Directory where name = 'c:\\Windows\\system32\\wbem\\Repository'") '' 'For Each objFolder In colFolders ' errResults = objFolder.Rename ("C:\Windows\system32\wbem\Repository."& Month(Now) &"-" & Day(Now) &"-" & Right(Year(Now),2)) '' errResults = objFolder.Rename("C:\Windows\system32\wbem\Repository.old") Here is a sub of the code I run when trying to rename the Repository dir locally. Sub SubMove_Repository() 'Rename Repository directory with MoveFolder command...can't force a move to overwrite, so we use the date as extension Set objFSO = CreateObject("Scripting.FileSystemObject") If objFso.FolderExists("c:\Windows\system32\wbem\Repository") Then objFSO.MoveFolder objNetworkSysEnv("SYSTEMROOT") & "\system32\wbem\Repository" , objNetworkSysEnv("SYSTEMROOT") & "\system32\wbem\Repository."& Month(Now) &"-" & Day(Now) &"-" & Right(Year(Now),2) End If End Sub Tag: RunOnce Tag: 178099
  - 4
    - call vbs from within vbs Hi, I would like to know how to call a vbs from another vbs, the calling vbs will pass the argument to the called vbs, the called vbs will then return a value back to the calling vbs. Can I see some samples? Thanks Frank Tag: RunOnce Tag: 178086
  - 5
    - Newbie needs help with asp Hi, Iâ??m looking for a Registration / Join In script in asp and MS Access. I want the registration form should work like this - users will fill the form (First Name, Last Name, Email, Company, Phone, etc) and after submitting the form, an email will be sent to user with an activation link. Once the user clicks on this link, his/her account will be active and user will be able to login to the website. If you donâ??t know of any such script; can you tell me in detail how I should do this? Iâ??m little stressed as I am new to asp and donâ??t know exactly how to do this. Thank you for your time and help, Joe Tag: RunOnce Tag: 178080
  - 6
    - =?Utf-8?Q?Question_about_cookies=E2=80=A6?= Hi, I want to use cookies instead of session variables for better performance on a website. But I would like to expire cookie as soon as the user closes the browser window. Just like session variable, cookie should expire after browser window is closed. Can someone tell me if this possible. If it is how should I do it. Thanks for your time. Joe Tag: RunOnce Tag: 178078
  - 7
    - Parse Text file This is what the input files looks like and it's comma delimited called Comments.txt The first field called Item then Type then Lang then Seq then finally Comment. Abc,,US,1,Commnt1 Abcd,,US,1,Commnt2 Abcde,,US,1,Commnt3 Abcdef,,US,1,Commnt4 Abcdef,,US,1,Commnt4a I need to produce a output file that reads each record in from the input file,but if the next record read from input has same Item then it needs to look like(example 2). There could be 4 or more comments for the same Item. For each Item that is the same the comment line needs to end with a (~) tilde. The @@BatchLoad and @@End signify the start and stop of a record and those always will be there. -- Example for 1st record-- @@BatchLoad pgm.a "abc" "" "US" "1" "Commnt1" @@End -- Example for record 4 & 5-- @@BatchLoad pgm.a -- This will never change "abc" "" "US" "1" "Commnt4" ~ "Commnt4a" @@End -- This won't change Thanks in advance for the help. Tag: RunOnce Tag: 178075
  - 8
    - Open Word Document Based On Date Hello, Can someone point me in the direction of sample code that will open a Word document based on date? We do daily logs and save them in this format: C:/Logs 05/Jul/Jul23.doc. So I would love a icon on the desktop called "Open Daily Log" that opens the log file based on the date. Thanks in advance. Brian Tag: RunOnce Tag: 178070
  - 9
    - gpedit Hi All, it is possible to manipulate "gpedit" saw script or with Visual Basic 6.0? Thank's Tag: RunOnce Tag: 178045
  - 10
    - Script Information PC script to obtain information of SO, name of the PC, memory, verision SO, version IE, etc... Tag: RunOnce Tag: 178029
  - 11
    - Open application and dialog box input Hi, I am new to vbscript. Before an application program can be open - there is a dialog box requesting the user for the password - how do I write the vbscript to indicate the password so that the application program can be automatically visible? Thanks in advance. Tag: RunOnce Tag: 178027
  - 12
    - Parsing html for data Hi, I need to download and pars data from an HTML page from the web. I have tried to use MSHTML but i cant create the HTMLDocument object. Any ideas on how to accomplish this in vbscript? Thanks, Bertrand Tag: RunOnce Tag: 178025
  - 13
    - multi page form submission I have used the following sample code to create a multi page asp form. The form works fine as far as holding the user response variables but I am having trouble submitting the content to a sendmail script. Anyone know how to do this? Is there a way of automating form submission in asp code? <FORM METHOD="post"> <% ' Always use a form post with this technique ' Store user-input in hidden fields Dim sNextStep ' Do preprocessing if necessary to determine next step sNextStep = "1" select case request.form("current") case "1": ' process step 1 ' Conditionally control the next step if request.form("s1_Shipping")<>"" then sNextStep = "2" else sNextStep = "3" end if case "2": sNextStep = "3" case "3": sNextStep = "4" ' Save user's input case "4": ' do nothing case default: sNextStep = "1" end select for each i in Request.Form if left(i,1)="s" then Response.write("<INPUT TYPE=hidden NAME='" & i & "' VALUE='" & Request.Form(i) & "'>") end if next Response.write("<INPUT TYPE=""hidden"" NAME=""current"" VALUE=""" & sNextStep & """>") ' Output form for next step select case sNextStep case "1": ' step 1 %> <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 BGCOLOR=#EEEEEE ALIGN=CENTER> <TR><TH COLSPAN=2 ALIGN=CENTER>Your address</TH></TR> <TR><TD>Name</TD><TD><INPUT TYPE="text" NAME="s1_Name"></TD></TR> <TR><TD>Address<BR>City, State</TD><TD><TEXTAREA NAME="s1_haddress"></TEXTAREA></TD></TR> <TR><TD COLSPAN=2><INPUT TYPE=checkbox NAME="s1_Shipping"> Different Shipping Address</TD></TR> <TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=submit VALUE="Next..."> </TABLE> <% case "2": ' Step 2 %> <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 BGCOLOR=#EEEEEE ALIGN=CENTER> <TR><TH COLSPAN=2 ALIGN=CENTER>Shipping Address</TH></TR> <TR><TD>Address<BR>City, State</TD><TD><TEXTAREA NAME="s2_saddress"></TEXTAREA></TD></TR> <TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=submit VALUE="Next..."> </TABLE> <% case "3": ' Step 3 %> <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 BGCOLOR=#EEEEEE ALIGN=CENTER> <TR><TH COLSPAN=2 ALIGN=CENTER>Payment Information</TH></TR> <TR><TD>Credit Card</TD><TD> <INPUT TYPE=radio NAME=s3_credit VALUE=visa checked>Visa <INPUT TYPE=radio NAME=s3_credit VALUE=Master>MasterCard <INPUT TYPE=radio NAME=s3_credit VALUE=Discover>Discover </TD></TR> <TR><TD>Card Expiration</TD><TD> <SELECT NAME=s3_expire> <% ' Generate expiration years for i=1999 to 2007 response.write("<OPTION VALUE=""" & i & """>" & i) next %> </SELECT> </TD></TR> <TR><TD ALIGN=CENTER COLSPAN=2><INPUT TYPE=submit VALUE="Next..."></TD></TR> </TABLE> <% case "4": ' Step 4%> <P>At this step, we would save all the user's input as shown below:<P> <TABLE ALIGN=CENTER BORDER><TR><TH COLSPAN=2>Information to be Saved</TH></TR> <% for each i in Request.Form if left(i,1)="s" then Response.write("<TR><TD>" & i & "</TD><TD>" & Request.Form(i) & "</TD></TR>") end if next response.write("</TABLE>") end select %> </FORM> Tag: RunOnce Tag: 178013
  - 14
    - Change fax # in AD I am looking for a script that will prompt me for a user name in AD and then allow me to change the Fax#. I have a script that will change all the fax numbers in an OU to one number, but I need to be able to do this on individual accounts. TIA Gavin... Tag: RunOnce Tag: 178011
  - 15
    - Querying AD with the LIKE operator I have a weird problem querying AD for computer accounts. I am trying to query AD for any computer in any OU that contains "server" in the name of the OU. EG: CN=cdecitrix9,OU=CAN,OU=!Citrix,OU=Servers,DC=MyDomain,DC=com CN=abccwrk1,OU=CAN,OU=Servers,DC=MyDomain,DC=com We have several nested OU's that I need to enumerate. Here code that searches the "name" attribute of AD computers: '<><><><><><><><><><><><><><><><><><><><><><> Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = "Select distinguishedName,Name from 'LDAP://DC=MyDomain,DC=com' where objectClass='computer' and name = '*MyComp*'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF Wscript.Echo objRecordSet.Fields("distinguishedName").Value objRecordSet.MoveNext Loop '<><><><><><><><><><><><><><><><><><><><><><> The above looks (starting at the root of the domain) for computers that have the string "MyComp" somewhere in their name. The above script works as expected. If I change the query command to: objCommand.CommandText = "Select distinguishedName,Name from 'LDAP://DC=MyDomain,DC=com' where objectClass='computer' and distinguishedName = '*MyComp*'" It doesn't work. You would think "distinguishedName" would return the same set of computers but it only returns and empty data set. Any ideas? Thanks, Dan Tag: RunOnce Tag: 178009
  - 16
    - Monitor Serial Cable (Wire Leads) I want to create a custom application that monitors if one or more of the cables (one end is plugged into the PC's serial port the other end is cut off exposing the bare wires) on a serial end are connected or disconnected. Is there a way to enumerate what is going on through the serial cable? Tag: RunOnce Tag: 178006
  - 17
    - UPS Rates Online Tools Hi everyone, I am trying to integrate UPS's Online Tools into my classic ASP project. Does anyone have some examples of this that I could look at? I am specifically looking for information on the "Rates and Service Selection" tool. Thanks, Ken. Tag: RunOnce Tag: 178005
  - 18
    - Shortcut to a shared folder Hi, Is there a way that a vbscript can create a desktop shortcut to a shared folder that exists on a server? Thanks in Advance, JeffH Tag: RunOnce Tag: 177999
  - 19
    - Membership... Please help. I would like to remove DOMAIN account from a LOCAL administrators group REMOTELY using vb script. Can anybody either point me the way for more reading material for the subject or present me with the vb script? The following script can remove the member of the Administrators group if the account is a LOCAL account to that computer. If the account is a DOMAIN account, I got the error with message: 'A member could not be added or removed from the local group because the member does not exist'. Dim oDomain,oGroup,sDomain,sGroup,sUser sDomain = "TheRemotePC" 'local host; member of the Active Directory domain sGroup = "Administrators" sUser = "JDow" 'a domain account; not an account to the local pc Set oDomain = GetObject("WinNT://" & sDomain) Set oGroup = oDomain.GetObject("Group", sGroup) oGroup.Remove("WinNT://" & sDomain & "/" & sUser) Tag: RunOnce Tag: 177992
  - 20
    - number formating into a string I'm looking for some equivalent code that will convert a number using a mask and store the result into a string. In VBA: stringvar = Format$(I,"000") returns a 3 digit string. I.E. when I = 1; "001" is the result. Its just like the Text(I,"000") function that excel uses. How is this done in VBScripting? I have tried the FormatNumber() function but the 2nd parm that deals with leading zeroes, is a boolean var parameter that doesn't do what I need. -- Regards, John Tag: RunOnce Tag: 177987
  - 21
    - Script to add additional static ip addresses to machine Does anyone know how to script the addition of static ip address (as in the advanced tcp/ip settings tab of the tcp/ip properties)? I can only find examples for adding a single static ip, netmask, gateway... Thanks, Rich Tag: RunOnce Tag: 177986
  - 22
    - Accessing local group by group SID Hello all, perhaps someone could give me a hint for a small problem I have here. I would like to access local groups based on their well-known SID. Then check the members for the existence of certain groups. Currently I only know how to check the group based on the name. However, there is the problem, that "Administrators" group is not the same name in all languages. Is there any possibility to identify a local group based on the SID. Here's the part of the script that is currently doing the membership check: Set colGroups = GetObject("WinNT://" & strComputer & "") colGroups.Filter = Array("group") For Each objGroup In colGroups ' If objGroup.Name = "Administrators" Then For Each objUser in objGroup.Members If objUser.Name = strCheckMemberName Then bIsMember =True Else ... End If Next End If Next Thanks in advance for the help. Markus Tag: RunOnce Tag: 177982
  - 23
    - Programmatically creating a USB printer port Is it possible to script the creation of a printer that's connected via a USB port? Using "prnadmin.dll" I've been able to add the drivers, and create the print object. However, I'm not able to create the port. After letting Windows XP detect the printer, the port description is "Virtual Printer port for USB." Any insight is appreciated. Thx, Curtis Tag: RunOnce Tag: 177980
  - 24
    - Help with vbs / wmi script Being a bit of a newbie, I'm having trouble getting the script below to work. I'm trying to create a piece of code that will allow me to supply 3 parameters (a computer name, a WMI class and a WMI class property) and get a value returned. For ease of reading I've hard-coded the variable in the example below to make things more obvious. strComputerName = "Myserver" strClass = "Win32_Processor" strProperty = "MaxClockSpeed" Set objWMIService = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2") Set objClass = objWMIService.Get(strClass) For Each objProperty in objClass.properties_ If objProperty.Name = strProperty Then strValue = objProperty.Value WScript.Echo objProperty.Name & " = " & strValue End If Next Any ideas why strValue never gets any value? Tag: RunOnce Tag: 177973
  - 25
    - Extract information from text file I am automating FTP tranfers, and need to read a log file and extract the name of the files transferred. An example line of text is: 150 Opening ASCII mode data connection for testfile.txt(0 bytes). All that I want to extract from the line is "testfile.txt". The following code works - (the wscript.echo is the relevant line): If Left (strline, 3) = "150" then TestString = strline TestArray = Split(TestString , " ",-1, 1) wscript.echo Left(TestArray(7),InStr(TestArray(7),"(")-1) Else 'script not included in example End If However, if the file name is more than one word long 150 Opening ASCII mode data connection for new testfile.txt(0 bytes). The script fails. Can anyone suggest a better way to extract the file name? Thanks Jo Tag: RunOnce Tag: 177972
- Next
  - 1
    - Validating dates with regular expressions in a German Windows PC Hi, I have an international vbs application and I am using regular expressions to validate the format of the dates entered by the user. It works fine when running on a English windows PC but it does not recognised valid dates if the PC has the German version of windows. This is the code I am using: Function FormatValRegExp(strValue, strRegExp) Dim re ' Regular Expression object Dim response ' response On error resume next response = "" Set re = new regexp ' Create the RegExp object re.Pattern = strRegExp ' set pattern re.IgnoreCase = true response = re.test(strValue) Set re = nothing FormatValRegExp = response End Function This function wiht the following parameters: strValue: 31.12.1996 strRegExp: \d{1,2}[.]\d{1,2}[.]\d{2,4}$ returns true in an English version of Windows and false in a German windows. Any ideas? Cheers Juan Tag: RunOnce Tag: 177971
  - 2
    - Win32_PerfRawData_RemoteAccess_RASPort I use ZyXEL OMNI ADSL USB modem on my home PC (Windows XP SP2). When I launch the following VBScript, I get nothing! colItems has not objItem. Why? I want to get Bytes Received during current connection with Internet. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_RemoteAccess_RASPort",,48) For Each objItem in colItems Wscript.Echo "BytesReceived: " & objItem.BytesReceived Next Tag: RunOnce Tag: 177968
  - 3
    - VBScript to create new users & their Exchange MailBox Hi, I'v been asked to create more than 200 new users account & their exchange mailboxes. I have all the information in Excell file First Name Last Name Initials I wonder if there is any way to write a VBScript whow read the user infromation from the Excell file and create the USER Account & MailBox in our AD. thanks for your help Windows platform is: windows server 2003 & Exchange Server2003 Tag: RunOnce Tag: 177965
  - 4
    - Re: IE automation - how to tell when document is complete? Sorry, I accidently hit send. Hi, I playing with IE automation. Many scripts in this newsgroup show code like the following to open a web page and wait for its completion: Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" End With Other scripts listen for the DocumentComplete event. If I count the occurences of the DocumentComplete event, I find that my 'done' message box appears after the DocumentComplete event has fired twice, and that the DocumentComplete event fires once more, perhaps right when msdn.microsoft.com is truely done loading. When just starting IE and navigating to one URL, waiting for a ReadyState of 4 is sufficient. Many of us are not satisfied with navigating to only one URL; we want to go more places. But the ReadyState remains 4 for a hundred or more millisecons after specifying a new URL, then changes to 3, and finally changes back to 4 when the page has loaded. So we need logic like this for the second URL: Option Explicit Dim oIEApp Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to aol.com" End With With this script, most of the time the AOL done message occurs when the page really is loaded. Occasionally, the AOL done message occurs long before the page really is loaded, especially when CPU usage is high. From this I have concluded that neither ReadyState nor the DocumentComplete event are reliable indicators of a web page's being complete. I've monitored how often various events occur by the time the MsgBoxes appear, and I'm currently using the following logic to determine completion. Option Explicit Dim oIEApp Dim iCount_BeforeNavigate2, iCount_NavigateComplete2 Set oIEApp = WScript.CreateObject("InternetExplorer.Application", "event_") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop Do Until iCount_BeforeNavigate2 = iCount_NavigateComplete2 WScript.Sleep 100 Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop Do Until iCount_BeforeNavigate2 = iCount_NavigateComplete2 WScript.Sleep 100 Loop MsgBox "Done navigating to aol.com" End With Sub event_BeforeNavigate2(objBrowser, strURL, Flags, _ TargetFrameName, PostData, Headers, bCancel) iCount_BeforeNavigate2 = iCount_BeforeNavigate2 + 1 End Sub sub event_NavigateComplete2(objBrowser, strURL) iCount_NavigateComplete2 = iCount_NavigateComplete2 + 1 End Sub This seems like overkill. Does anyone have a simpler way to reliably detect document complete? Thanks, -Paul Randall Tag: RunOnce Tag: 177952
  - 5
    - How to access files from CIM_DirectoryContainsFile I'm trying to process files that are placed in a mapped network folder. Once a file is copied into the folder, I would like to check the filename against a list of known files, move it, rename it and process it. I was trying to get this example to work for me: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\\\scripts""'") Do Set objLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo objLatestEvent.TargetInstance.PartComponent Loop But the objLatestEvent.TargetInstancePartComponent seems to be a string rather than an object. In other words, I can't do objLatestEvent.TargetInstance.PartComponent.Name , etc... Any ideas? TIA, Chester Tag: RunOnce Tag: 177947
  - 6
    - need to get AD attributes using vbscript. please help i need a simple(?) script that will take an AD user as an argument and create a list of ALL AD attributes that apply to users, and if the attribute is used also list the value of the attribute. if the attribute is empty i still have to list it, but there will just be no value. can anyone point me in the right direction? thank you Tag: RunOnce Tag: 177946
  - 7
    - ReadAll and RegExp Hello Everyone, I'm new to posting in this group and was hoping that I might be able to get some assistance with an issue that I'm having. Basically, what I'm doing is capturing AS/400 data with a software called PlanetPress Watch and when I get this data I need to run it through a VBScript to look for Index Values that will be grabbed and passed to a variable, then eventually using the variables to create delimited data file with path to a PDF, i.e. "field1"~"field2"~"field3"~@@path\pdf.pdf. My problem is that I've changed the script from using SkipLine and Skip, just in case an extra CRLF or something appears in the data, which would throw off the entire script in the fact that my Index values would be blank. I've recently discovered the power of RegExp and have been researching it over the past week to try and get a handle on it. I think I'm to the point of understanding it, but am having some issues with getting it to work in a VBScript. Part of my problem, other than being a self-taught programmer, is reading in the data file and passing it to a variable with the .ReadAll command. I think I may have the .ReadAll command now, but it's the RegExp pattern that isn't matching or something, even though it should match this: "CR\LF ACLU5801S2341380", that is CR LF Space String. Here's my code: '************************************************************** Option Explicit Const ForReading = 1, ForWriting = 2 Dim x Dim objFSO Dim objInputFile, objOutputFile, objIn Dim strTempName, strTempPath Dim strLine, strLineBack1, strLineBack2 Dim ContainerNo, insertValue Dim PhxRef, locationNumber, statementDate, counter, TypeBrokerage, TypeBreakbulk Dim DocNoP1, DocNoP2, DocNoP3, DocNoP4, DocNoP5, DocNoP6 Dim ShipperNo, ConsigneeNo, HAWBNo, AgentNo, AWBDate, MBillNo, HBillNo Dim DocNoP11, DocNoP22, DocNoP33, DocNoP44, DocNoP55, DocNoP66 Dim fcount, lncount, skipln, strData, objIntro, strLineIn, DataLine Set objFSO = CreateObject("Scripting.FileSystemObject") '***NOTE: PW_GetJobFilename is a special function for PPW, that gets the tempFileName of the datafile Set objInputFile = objFSO.OpenTextFile(PW_GetJobFilename, 1) strTempPath = objFSO.GetFile(PW_GetJobFilename).ParentFolder.Path strTempName = objFSO.GetTempName Set objOutputFile = objFSO.GetFolder(strTempPath).CreateTextFile(strTempName) Dim ss, re, rv, objMatch, ColMatches, StrReturnStr Set re = New RegExp re.Pattern = "(\r\n\x20)([A-Z\d]{12,18})" 're.Pattern = "c." re.Global = True re.IgnoreCase = True 'Set objInputFile = objFSO.OpenTextFile(PW_GetJobFilename, 1) Do While objInputFile.AtEndOfStream <> True strData = objInputFile.ReadLine '***NOTE: Watch.ShowMessage is a special function for PPW, like MsgBox 'Watch.ShowMessage(strData) Set ColMatches = re.Execute(strData) Loop For Each objMatch in ColMatches StrReturnStr = objMatch.value Watch.ShowMessage(StrReturnStr) Next 'Loop Watch.SetJobInfo 1, Chr(34) & "INV" & Chr(34) & Chr(126) & Chr(34) & DocNoP1 & DocNoP2 & DocNoP3 & DocNoP4 & DocNoP5 & DocNoP6 & Chr(34) & Chr(126) & Chr(34) & ShipperNo & Chr(34) & Chr(126) & Chr(34) & "ConsigneeNo" & Chr(34) & Chr(126) & Chr(34) & "BOLNo" & Chr(34) & Chr(126) & Chr(34) & "AgentNo" & Chr(34) & Chr(126) & Chr(34) & "Date" & Chr(34) & Chr(126) & Chr(34) & "DocNo2" & Chr(34) & Chr(126) & Chr(34) & "ContainerNo" & Chr(34) & Chr(126) & Chr(34) & HAWBNo & Chr(34) & Chr(126) & Chr(34) & HBillNo & Chr(34) & Chr(126) & Chr(34) & MBillNo & Chr(34) & Chr(126) & Chr(34) & "EntryNo" & Chr(34) & Chr(126) & Chr(34) & "CustAcctNo" & Chr(34) & Chr(126) & Chr(34) & "ImporterNo" & Chr(34) & Chr(126) & Chr(64) & Chr(64) & "D:\DocImport\INV\" & Watch.GetJobInfo (9) & ".pdf" objInputFile.Close objOutputFile.Close objFSO.DeleteFile PW_GetJobFilename, true objFSO.MoveFile strTempPath & "\" & strTempName, PW_GetJobFileName '************************************************************** Any suggestions that you could give would be greatly appreciated. Thanks in advance. --Ken Stulce Tag: RunOnce Tag: 177944
  - 8
    - scripting uninstalling device drivers Anyone know of a method for uninstalling a device driver via vbscript? Such as a NIC. Tag: RunOnce Tag: 177943
  - 9
    - RUNAS+.exe Does anyone know where I can get this. This is a scriptable runas that microsoft provides for free. Thanks Tag: RunOnce Tag: 177940
  - 10
    - IE automation - how to tell when document is complete? Hi, I playing with IE automation. Many scripts in this newsgroup show code like the following to open a web page and wait for its completion: Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" End With Other scripts listen for the DocumentComplete event. If I count the occurences of the DocumentComplete event, I find that my 'done' message box appears after the DocumentComplete event has fired twice, and that the DocumentComplete event fires once more, perhaps right when msdn.microsoft.com is truely done loading. When just starting IE and navigating to one URL, waiting for a ReadyState of 4 is sufficient. Many of us are not satisfied with navigating to only one URL; we want to go more places. But the ReadyState remains 4 for a hundred or more millisecons after specifying a new URL, then changes to 3, and finally changes back to 4 when the page has loaded. So we need logic like this for the second URL: Option Explicit Dim oIEApp Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to aol.com" End With With this script, most of the time the AOL done message occurs when the page really is loaded. Occasionally, the AOL done message occurs long before the page really is loaded, especially when CPU usage is high. From this I have concluded that neither ReadyState nor the DocumentComplete event are reliable indicators of a web page's being complete. I've monitored how often various events occur by the time the MsgBoxes appear, and I'm currently using the following logic to determine completion. Thanks, -Paul Randall Tag: RunOnce Tag: 177939
  - 11
    - How do I include/reference functions in another file? Simple question, as I build up my little library of some useful functions I want to keep all of these in a "myfuncs.vbs" script. Then when I write a quick new script I just want to be able to call funtions located in "myfuncs.vbs". How do I do this? Thanks for your help in advance! Regards, Craig. Tag: RunOnce Tag: 177933
  - 12
    - Listing user name and other values http://www.rlmueller.net/Programs/CreateUserList2.txt I'm new to AD and have done some work with VB Script. I've been trying to modify the above to give me back a list of all the users as well as some of the values, say phone #, that is listed in AD. So far I've had very little success on this. Someone willing to point me in the right direction? -- Thanks Wayne Sepega Jacksonville, Fl Enterprise Library Configuration Console Module Generator http://workspaces.gotdotnet.com/elccmg "When a man sits with a pretty girl for an hour, it seems like a minute. But let him sit on a hot stove for a minute and it's longer than any hour. That's relativity." - Albert Einstein Tag: RunOnce Tag: 177931
  - 13
    - Script Remote Access I am trying to find information on clients cpu and the script will only run on a few clients and not all. why is this? Tag: RunOnce Tag: 177930
  - 14
    - RUNAS+.exe Does anyone know where I can get this? It supposed to be free from Microsoft yet I can't find it anywhere. It a scriptable runas utility. Thanks Tag: RunOnce Tag: 177928
  - 15
    - Determining Win95 machines via login script I am needing to deploy some software to workstations that are Windows 95 (this is not a typo). What I have done so far is define a BAT file in AD for the User Login Script that uses the START \\myvbScript.vbs. The vbScript then tries to make a WINMGTS: connection and when it fails (Err.Number = 432, Class does not exist) it calls my 9xInstall.BAT file. For the most part this works since we do not have the WMI Core Environment out there but I'd rather be checking for the OS specifically, since that is what I really need to know. Unfortunately, I cannot find a way to do this without using WMI. Is there an object I can use to get the OS in vbScript or even a command in the BAT file that I can rely on? As always, thanks. Bart Perrier Tag: RunOnce Tag: 177927
  - 16
    - Adding a Security group to Workstations I need to add a new security group to several workstations at two different facilities. The group to be added is different for both locations. I thought I would be easy to just query AD for the machines in eat locations OU and then just use a script that would then loop through that list and add the group. Sadly my scripting skills are still in their infancy and I'm having troubles finding the info I need to query AD in a manner I can understand. What I need to know is how to pull something out of a subfolder in an OU that may be 3 levels deep. I have found several scripts but Iâ??m not sure exactly what Iâ??m looking at. Does anyone know of an idiotâ??s guide so to speak for pulling things from AD? Tag: RunOnce Tag: 177923
  - 17
    - Enable "Show Quick Launch" Is there any one that have a vbscript to enable ""Show Quick Launch" on Windows Xp clients. /Andreas Tag: RunOnce Tag: 177919
  - 18
    - VBS, WSH scripting authoring tools Hello: We are currently looking for some of the top tools to do VBS and/or WSH scripting. Basically we are looking for authoring tools that have pre-defined functions, that are gui-based, for easy ability to create logon scripts, etc. So far we only know of Microsoft's own free tools (Scriptomatic, Tweakomatic), and we are looking for something a little better (commercial products are fine). Can anybody suggest some of the top tools that are out there now? Thanks a lot for all feedback... -- Chris Tag: RunOnce Tag: 177915
  - 19
    - Converting CR to CR/LF Hi there I'm a very small newbee, and looking for an easy way to convert a text-file. Sinece the textfile came through ftp it has only lf at the end of the line, but I need an cr/lf. Thanks in advance for any help. Best regards Ralf Tag: RunOnce Tag: 177904
  - 20
    - USER NAME ACCESS Hi All I am using connection manager administration kit to create a Windows VPN connection for all home users. I've written a batch file to map the users home drive once connected to the VPN net use H: \\Server\%username% The problem with the above, the Variable %USERNAME% takes the name from the user who is logged onto the local computer not the user who is connecting to the VPN. Does anyone know how I can get the name of the user how is logged onto the VPN connection into the %username% rather than the user who is logged onto the local computer. wayne PS I am not a scripter I am just learning starting with basic batch files Tag: RunOnce Tag: 177903
  - 21
    - Microsoft.XMLHTTP I want to download file using "Microsoft.XMLHTTP" object. My URL is http://qqqqq.com/oo.php?52152 How to determine a real name of downloaded file? With CreateObject("Microsoft.XMLHTTP") .Open "Get", "http://qqqqq.com/oo.php?52152", False .Send Response = .ResponseBody With CreateObject("ADODB.Stream") .Type = 1 .Open .Write Response .SaveToFile RealFileName, 2 < - ???? End With Uka. Tag: RunOnce Tag: 177899
  - 22
    - Date confusion Hi, I am developing a webpage in conjunction with MS access. I use dates as a primary attribute to search for data. However, on somedays the program will work with the date format mm/dd/yyyy and other times it is dd/mm/yyyy and sometimes it will work with both. When it works with both this causes the most confusion. In some parts of the program the application will work with the mm/dd/yyyy format and some other parts with dd/mm/yyyy. However other parts of the program will crash because it is of the wrong format. My question is... Is there some way of making it conssitent throughout the application? My regional settings is set to Australia. Thanks in Advance Tag: RunOnce Tag: 177897
  - 23
    - Scriptomatic 2 fails @ line 452 I'm running Windows XP/SP2 and when I run Scriptomatic 2.0 and select an WMI_Class, I get a script error on line 452 where it's trying to create an "WScript.Network" object. This works fine if I issue the same commands from an VBS file. Do I need to do something special to make HTA's work on my PC? I disabled my antivirus software just in case (wasn't getting an error there), tried changing my security level for local intranets to LOW, nothing seems to work. The program works just fine under Win2k. Tag: RunOnce Tag: 177888
  - 24
    - Adding method to response object Is it possible to add or override any of the methods in the Response object? I'd like to change how Response.Write works a little bit... -- J.B.Moreno Tag: RunOnce Tag: 177887
  - 25
    - Domain information through vbs Good afternoon, Here is what I would like to achieve but do not know how! I would like to create a script that 1- run dos command "net group GROUPNAME /domain" and write it to a textfile 2- Using the textfile of users, run the dos command "net user USERNAME /domain" (using 1 by 1 the user from the textfile in 1) and write it to another textfile 3- Go through the textfile created in 2 and validate certain parameter such as "logon script". Can someone run me through this or point me to a web site that can provide me with the basics on how I can do this type of script. One of my main problem is how I can use the text file created in 1 in 2 since it is output in a tabular format (3 columns) and vbs will read it 1 line at a time. How can I transform the dos output into a valid format to use in 2? Thank you for any help! Daniel Tag: RunOnce Tag: 177886

Hi

How can I use the runonce key in the reg to prevent a script I've created
that is enabled in group policy to delete a printer from each machine on the
lan from running more than once?

Rhys

Top

Re: RunOnce by Torgeir

Torgeir
Mon Jul 25 06:10:18 CDT 2005

Bobba77 wrote:

> How can I use the runonce key in the reg to prevent a script
> I've created that is enabled in group policy to delete a printer
> from each machine on the lan from running more than once?
Hi,

I assume you have the script in a user logon script or computer
startup script.

I solve this type of issues by creating a registry marker (either in
HKCU or HKLM depending on this is a per user or per computer script).

Next time the script runs, if it finds the registry marker, it doesn't
do anything.

An example here:

http://groups.google.co.uk/group/microsoft.public.windowsupdate/msg/88c6e4e5317f24c9?dmode=source&hl=en

--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scriptcenter/default.mspx

Top