Backup up system state with NTbackup through a VB script (I need error checking)

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
    - Connect to E-Mail Address in Database Field I have E-Mail addresses in a field in a table. I can get them to display is ASP, But I cannot go to the address it displays. I tried to re-write it in HTML but it would not connect to the server to display the names and corresponding E-Mail addresses This is the current code I have at this minute <%Do Until rsSchools.EOF%><TR><TD NoWrap><%Response.Write rsSchools("Educator")%></TD><TD NoWrap><%Response.Write rsSchools("PriPos")%></TD><TD NoWrap><%Response.Write rsSchools("SecPos")%></TD><TD NoWrap><%Response.Write rsSchools("PhoneNo")%></TD><TD><%Response.Write rsSchools("EMailAddrH")%><a href="mailto:<%=rsSchools("EMailAddrH")%>"></a></TD></TR><%rsSchools.MoveNext%><%Loop% Does Anyone know what I need to change to make it work I am not a Web Page developer, I do everything in Assembler so object oriented programming is strange to mei Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158339
  - 2
    - logon with another account i have logoned on a remote computer \\ybserver (win200) using username 8604 now i want to logon on the same computer with username charney i wouldn't like to logoff win200 how can i make it Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158337
  - 3
    - Backup up system state with NTbackup through a VB script (I need error checking) I am currently backing the system state on various machines with ntbackup that is launched through a VB script. The script also sends e-mails when its completed. What I need to do is add code that does error checking for when ntbackup fails.Instead of sending an e-mail when it completes I need to change it to send one when it fails. Does anyone have any code out there that does that? Any help would be appreciated. Thanks Robert Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158335
  - 4
    - apostrophe in file name How can I open a file that has an apostrophe or other strange characters in the filename? When I run the script below it works until it hits a file name that has an apostrophe in it. I've tried putting quotes around it but that didn't work? Will I need to replace apostrophes with the chr() in the string? Thank you. 'Jason 'Last accessed script ' 'Description: I want to make a script that will tell me the last accessed date on 'a file. Eventually I want to make a script that will check files for last access 'and delete them if they are older than a certain time amount. ' ' 'Setting constants Set fs = CreateObject("Scripting.FileSystemObject") Set filelist = fs.OpenTextFile(wscript.arguments(0),1) StaleTime = 14 'two weeks wscript.echo "These files should be deleted:" While Not filelist.AtEndOfStream filenym = filelist.ReadLine wscript.echo filenym If not fs.FileExists(filenym) then wscript.echo "File " & filenym & " does not exist or invalid name." else Set f = fs.GetFile(filenym) TimeInterval = now() - f.DateLastAccessed if TimeInterval > StaleTime then wscript.echo "Time since " & f.name & " last accessed: " & TimeInterval end if end if Set f = nothing Wend filelist.close 'closing it all out 'Set f = nothing set fs = nothing Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158332
  - 5
    - is that you zac? lets get together *SEXY* *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158323
  - 6
    - vbs and automated FTP Using VBscript how can I do the following Get a list of all the files in a particular directory on a FTP site? -J P.S. I basically want a script that can check to see if a particular file exists on a FTP site and if not then upload but if it does exist then I DO NOT want to overwrite it. Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158320
  - 7
    - Service stop and restarting: I created a Sub to stop and start a service. However it seems that the service sometimes doe's not start. What is the bet way of performing this? Thank you in advance... ******************************** VBS Example ******************************** Dim strComputer, strService, sMode strComputer = "AD0" strService = "SMTPSS" sMode = "1" ss_Srvc sMode sMode = "" ss_Srvc sMode Sub ss_Srvc(sMode) Dim sc Set sc = GetObject("WinNT://" & strComputer & "/" & strService) If sMode = "1" and sc.Status <> 1 Then sc.Stop() WScript.Sleep 6000 Do Until sc.Status = 1 WScript.Sleep 3000 Loop sSta = sc.Status End If If sMode = "" and sc.Status <> 4 Then sc.Start() WScript.Sleep 3000 Do Until sc.Status = 4 WScript.Sleep 3000 Loop sSta = sc.Status End If 'Service Status Codes '1 = Stopped or disabled, 4 = Started, 7 = Paused If sSta = 1 Then oShell.LogEvent 4, "Security Service Stopped" Else oShell.LogEvent 4, "Security Service Started" End If Set sc = Nothing End Sub Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158316
  - 8
    - Windows Script Host Does WSH also read jscript files besides vbscript? I understand that it reads .wsf files, too for advanced users. I am now concerned with vbscripts. -- alan Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158311
  - 9
    - How to open a text file in a share mode I've declared an odbc to a text file with the "Microsoft text driver", From an asp page am opening that file an doing some search ont it the problem, is when I try to open two pages the same time, it told me that the text file is already open by another user How can I declare the connection to the file as a share connection in order to allow my numerous users to do their searches in the same time thanks Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158303
  - 10
    - Inventory Script I would like to let people know of my Sourceforge Project. I have received help at various times in the past from people on this newsgroup - thankyou. Without your help, this would not have been possible. My project runs a vb script, outputs to MySQL (or a file). The results can be displayed in a web page. Needed are MySQL, PHP, WMI, VBScript.... It is only v0.2, so there is still some work left to be done... http://winventory.sourceforge.net Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158302
  - 11
    - Terminal Services Profile Path update? I'm doing a phased migration for all my profiles from one storage platform to another. My active directory paths are all UNCs and need to be changed in bulk. Does anyone have a vbscript to change the profile path along the lines of a search and replace? Thanks! Rick Slan Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158300
  - 12
    - Please help: Getting REGISTRY info w/ StdRegProv I'm building a script for software inventory purposes. I've use Torgeir's script to get "DisplayName"s from the registry with no problems and needed to get more info so, after a lot of digging, the resulting script is below. The output is confusing me. I'm thinking that 'aryValueNames' and 'aryValueTypes' are either not being created properly or not being read properly (out of sync). I'm not exactly sure what is going on as I am fairly new to vbscript and wmi. Below the script is a small portion of the results. Any help is much appreciated, THANKS! UNoHu '=== The Script === sComputerName = "." ' use "." for local computer Set oFSO = CreateObject("Scripting.FileSystemObject") Set WSHShell = CreateObject("WScript.Shell") Dim DUMPFILE, EXPORTFILE, DUMPVIEW EXPORTFILE = "C:\InstalledApps.txt" Set DUMPFILE = oFSO.CreateTextFile(EXPORTFILE, True) DUMPFILE.Write InstalledApplications(sComputerName) WScript.Echo "DONE!" Function InstalledApplications(node) Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE Const REG_SZ = 1 Const REG_EXPAND_SZ = 2 Const REG_BINARY = 3 Const REG_DWORD = 4 Const REG_MULTI_SZ = 7 Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & node & "/root/default:StdRegProv") sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" oRegistry.EnumKey HKLM, sBaseKey, arySubKeys For Each sKey in arySubKeys oRegistry.EnumValues HKLM, sBaseKey & sKey, aryValueNames, aryValueTypes If IsArray(aryValueNames) = "True" Then InstalledApplications = InstalledApplications & "Key: " & sKey & vbCrLf For Each iValueName in aryValueNames For i=0 to UBound(aryValueTypes) Select Case aryValueTypes(i) Case REG_SZ oRegistry.GetStringValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_SZ: " & sValue Case REG_EXPAND_SZ oRegistry.GetExpandedStringValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_EXPAND_SZ: " & sValue Case REG_BINARY oRegistry.GetBinaryValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_BINARY: " & sValue Case REG_DWORD oRegistry.GetDWORDValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_DWORD: " & sValue Case REG_MULTI_SZ oRegistry.GetMultiStringValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_MULTI_SZ: " & sValue End Select Next InstalledApplications = InstalledApplications & iValueName & ": " & sValue & vbCrLf Next End If Next End Function === The Results === Key: KB810217 DisplayName: REG_SZ: Windows XP Hotfix - KB810217 UninstallString: REG_SZ: C:\WINDOWS\$NtUninstallKB810217$\spuninst\spuninst.exe TSAware: REG_SZ: <-----------------should be REG_DWORD: 1 NoModify: REG_SZ: <-----------------should be REG_DWORD: 1 Publisher: REG_SZ: Microsoft Corporation NoRepair: REG_SZ: <-----------------should be REG_DWORD: 1 HelpLink: REG_SZ: http://support.microsoft.com?kbid=810217 DisplayVersion: REG_SZ: 20030806.140405 Key: KB810243 DisplayName: REG_DWORD: <--------should be REG_SZ: Windows XP Hotfix (SP2) [See KB810243 for more information] UninstallString: REG_DWORD: <------should be REG_SZ: TSAware: REG_DWORD: 1 NoModify: REG_DWORD: 1 Publisher: REG_DWORD: <-----should be REG_SZ: Microsoft Corporation NoRepair: REG_DWORD: 1 NoRemove: REG_DWORD: 1 Key: KB817778 DisplayName: REG_DWORD: <---should be REG_SZ: Advanced Networking Pack for Windows XP UninstallString: REG_DWORD: <---should be REG_SZ: C:\WINDOWS\$NtUninstallKB817778$\spuninst\spuninst.exe TSAware: REG_DWORD: 1 NoModify: REG_DWORD: 1 Publisher: REG_DWORD: <-----should be REG_SZ: Microsoft Corporation NoRepair: REG_DWORD: 1 IPv6: REG_DWORD: 0 Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158297
  - 13
    - Updating Binary Registry Value I am trying to update the User Name info for MS Office but am getting an error message when I try to update the field which is a Binary type value This is the script I am trying to use Set WshShell = WScript.CreateObject("WScript.Shell") arrValue = CreateValue("User Name") WshShell.RegWrite "HKCU\Software\Microsoft\Office\10.0\Common" _ & "\UserInfo\UserName", arrValue, "REG_BINARY" Function CreateValue(strText) Dim strReturnText For i = 1 to Len(strText) strReturnText = strReturnText & Hex(Asc(Mid(strText,i,1))) & "," strReturnText = strReturnText & 0 & "," Next strReturnText = strReturnText & 0 & "," & "0" CreateValue = split(strReturnText,",") End Function I get this error when I try to run it C:\testuser.vbs(4, 1) Microsoft VBScript runtime error: Type mismatch -- Cheers, Spyke Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158296
  - 14
    - help: Question about DHTML Transitions This is a multi-part message in MIME format. ------=_NextPart_000_0016_01C43DC6.FB095BD0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi Everybody! I=B4ve got this code (working code) to make a transition over a <div> = element. When I press de "PLAY TRANSITION" button, I assign a new value to the = "mode" attribute (tr1.mode=3D"out"), and re-play the transition. Ok, thats work fine... but i=B4ve got a simple question about that = stuff, HOW can i detect when the transition ends????...may be the = transition generates any event???..... Any help about that??? Thanks a lot!.... Gabriel. THE CODE: <HTML xmlns:t =3D 'urn:schemas-microsoft-com:time'> <html> <head> <STYLE> .time { behavior: url(#default#time2) } .looks {width:200;height:100;background:yellow} </STYLE> <script language=3D"vbscript"> sub button1_onclick tr1.mode=3D"out" oDiv.beginElement End sub </script> </head> <body> <?import namespace =3D t urn =3D 'urn:schemas-microsoft-com:time' = implementation =3D '#default#time2' /> <DIV ID=3D"oDiv" CLASS=3D"time looks" align=3D"center"> <center>HELLO WORLD</center> <t:transitionFilter id=3Dtr1 name=3Dtr1 TYPE=3D"fanWipe" BEGIN=3D"oDiv.begin" SUBTYPE=3D"centerTop" DUR=3D"1" MODE=3D"in" FROM=3D"0.0"=20 TO=3D"1.0" CALCMODE=3D"linear" REPEATCOUNT=3D"1" /> </DIV> <BUTTON id=3Dbutton1 name=3Dbutton1>Play Transition</BUTTON> </body> </html> ------=_NextPart_000_0016_01C43DC6.FB095BD0 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=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1400" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi Everybody!</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I=B4ve got this code (working code) to = make a=20 transition over a <div> element.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>When I press de "PLAY TRANSITION" = button,=20 I assign a new value to the "mode" attribute = (tr1.mode=3D"out"), and=20 re-play the transition.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Ok, thats work fine... but i=B4ve got a = simple=20 question about that stuff,  <STRONG>HOW can i detect when the = transition=20 ends????...may be the transition generates any=20 event???.....</STRONG></FONT></DIV> <DIV><STRONG><FONT face=3DArial size=3D2></FONT></STRONG> </DIV> <DIV><STRONG><FONT face=3DArial size=3D2>Any help about=20 that???</FONT></STRONG></DIV> <DIV><STRONG><FONT face=3DArial size=3D2></FONT></STRONG> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks a lot!.... Gabriel.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>THE CODE:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><HTML xmlns:t =3D=20 'urn:schemas-microsoft-com:time'><BR><html><BR><head><BR>&= lt;STYLE><BR>  =20 .time { behavior: url(#default#time2) }<BR>   .looks=20 {width:200;height:100;background:yellow}<BR></STYLE></FONT></DIV> <DIV><BR><FONT face=3DArial size=3D2><script = language=3D"vbscript"><BR>sub=20 button1_onclick<BR>  tr1.mode=3D"out"<BR>  = oDiv.beginElement<BR>End=20 sub</FONT></DIV> <DIV><FONT face=3DArial size=3D2></script></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></head></FONT></DIV> <DIV><FONT face=3DArial size=3D2><body><BR><?import namespace = =3D t urn =3D=20 'urn:schemas-microsoft-com:time' implementation =3D '#default#time2'=20 /><BR><DIV ID=3D"oDiv" CLASS=3D"time looks" = align=3D"center"></FONT></DIV> <DIV><FONT face=3DArial size=3D2><center>HELLO=20 WORLD</center></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><t:transitionFilter id=3Dtr1=20 name=3Dtr1<BR>TYPE=3D"fanWipe"<BR>BEGIN=3D"oDiv.begin"<BR>SUBTYPE=3D"cent= erTop"<BR>DUR=3D"1"<BR>MODE=3D"in"<BR>FROM=3D"0.0"=20 <BR>TO=3D"1.0"<BR>CALCMODE=3D"linear"<BR>REPEATCOUNT=3D"1"<BR>/></FONT= ></DIV> <DIV><FONT face=3DArial size=3D2></DIV></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><BUTTON id=3Dbutton1 = name=3Dbutton1>Play=20 Transition</BUTTON></FONT></DIV> <DIV><BR><FONT face=3DArial=20 size=3D2></body><BR></html></FONT></DIV></BODY></HTML> ------=_NextPart_000_0016_01C43DC6.FB095BD0-- Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158294
  - 15
    - DTPicker in ASP.NET Page Hello I'm using the DTPicker control in my aspx page, (eg. <OBJECT id="dStart" style="Z-INDEX: 139; ...." codeBase="MSCOMCT2.CAB" classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1" VIEWASTEXT Everything works great except the control is not using the Windows XP Theme version. I've read about creating a manifest and placing it in the same folder as an .exe but how do I do this for ASP.NET (aspx) page <NectaR/> Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158282
  - 16
    - Tabstrip I am using interdev 6. I have added 4 tabstrips and dynamically created tabs and captionds. I need to add objects(textboxs) to the tab, how do I do that. Whe I try in design, the designer will not allow a drag and drop unto the control Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158272
  - 17
    - vbs sample I copied it as a sample from miscrosoft site and tried to run it. Got compilation error. Can you find the error below? Another question: Is it possible to get highlighted various methods after the period in FSO with any vbs editor.? Does Microsoft have vbs editor? It is not possible to get highlighted list for selection with wordpad. ================================================ Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\testfile.txt", True) MyFile.WriteLine("This is a test.") MyFile.Close -- alan Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158271
  - 18
    - get printer share name Hello I am using vbscript to configure a Windows 2000 command batch file Is it possible to get a network printer share name from vbscript? The Network.EnumPrinterConnections seems to only return the printer device name, which is not the share name. The device name cannot be used in the command print /D:\\server\print_shar If the share name is not a possiblity, can the port returned by EnumPrinterConnections be used in the print command? I can't seem to make it work with the port either Thank you Jonatha Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158269
  - 19
    - http/ftp copy I would like to use vbscript to copy files from remote ftp/http locations, is this possible, how ? - Magnus Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158266
  - 20
    - Local Policy Access from vbscript I'm new to vbscript, I'm trying to access the local security policy on a Windows 2000 server and a Windows NT 4 server for SarbOx auditing compliance. I've looked at the MS object broswer but I can't find the object class to gain access, anyone have any ideas Thanks Andy Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158264
  - 21
    - Problem in ActiveX event for Explorer New Window I've a problem with an application that uses Internet Explorer, an ActiveX Ocx hosted on the page and some VB script code to manage the Ocx events. If my page opens in a new instance of Internet Explorer it works If I place an anchor on another page and set my page as the href it works If I do the same but specify also a target="_blank" for the anchor all the events are not fired from the page. I suppose is some sort of security problem, but I cannot find any reference around. I've also tried to use window.open instead of target but it does not work, it seems that if you open a new window, regardless of how you do it, Ocx events for VBScript code stops firing. Any idea? Regards Massimo Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158261
  - 22
    - getting the username of the user running the script Hello there is there a way to get the user name of the user running the script? as well as the machine name on which the script ran, I can get that through WMI, any other suggestions? Regards Sameh Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158260
  - 23
    - Map network ressource Want to map a network resource like http://server1/page1 (MS SharePoint portal) on client device with vbs script. Anybody an idea how I can do this? It doesn't work with MapNetworkDrive! Thanks! Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158259
  - 24
    - Combo ? Hi I have a combo box, when the program opens the text in it i highlighted and can be deleted, if I pick an item from the dropdow list this is also highlited and the cursor is flashing next to it What I am after is how do you disable this feature because if I us "Enable = False " it becomes unusable I have used key trapping to not allow anything to be typed in but want to get rid of the highlighting and the cursor. I just want to b able to pick an item and put it in the top box without any othe interaction Does anyone have any ideas Thanks Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158258
  - 25
    - Create Shortcuts to a bunch of files Howdy folks! I have a situation where I need to create individual shortcuts to a bunch of files that exist in "c:\program files\personal communications\private". The files are *.WS and *.BCH. Now I know it's easy enough to create a shortcut on the desktop to a known .exe or file. But the problem I have is that these .ws and .bch files have different names on each PC. And need I to automate this for around 2500 pc's. I was thinking something along the lines of using the FileSystem object to read the names of all the .ws and .bch files, and then use Shell.CreateShortcut to create shortcuts to these files on the desktop. Problem is, I know just enough VBScript to be dangerous, but not enough to solve the problem here. But I know how to cut and paste into Notepad really well!! ;-) Mate, if any of you scripting-guru types out there can point me in the right direction, that would be fantastic. Rich Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158254
- Next
  - 1
    - While Loop problems Can someone tell me why my while loop never ends? Also how can I do numbers like this 035, 036, 037. Basicly on all numbers below 100 I need to have a 0 in front of them before it. Thanks Set WSHShell = WScript.CreateObject("WScript.Shell") Message = "Please enter Name" Title = "Tool" strName = InputBox(Message,Title,"FIS000011", 100, 100) Message = "Please enter the starting number" numStart = InputBox(Message,Title,"35", 100, 100) Message = "Please enter the ending number" numEnd = InputBox(Message,Title,"45", 100, 100) Wscript.echo "Start " & numStart Wscript.echo "End " & numEnd Wscript.echo "Name " & strWorkName While numStart <= numEnd Wscript.echo strName & numStart numStart = numStart + 1 WEnd Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158240
  - 2
    - Open File Management I am trying to create a script that will copy the contents of a folder to a backup location. I have the basics done but I have one problem that I can't seem to find an answer for. When the script encounters a file that is currently locked by another process it errors out. I would like some sort of error handling that basicaly says 'if the file is locked by another process then go to the next file'. Here is the script that I have so far: ParentFolder = "C:\images2" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(ParentFolder) objFolder.CopyHere "C:\images", &H10& Thanks in advance for any help!! Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158237
  - 3
    - Listbox.additem Try to add a line to my listbox and populate it after The listbox.additem command add the line at the bottom I want the line to be insert at the top (line 1 Thanks! Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158230
  - 4
    - Help with a REGEXP I am working with a csv file that is a little different from normal. String fields are encased in double quotes as normal ie. "data", however numeric strings (ie 0012) are preceeded by a single quote only. Thus a line of data is "character data",125.25,'numeric sting,"character data" I am trying two create a regexp to convert the data ,'0012, to ,"0012", so that it is treated as a character string rather than a number. I am trying the code below to no avail. set RegEx = New RegExp RegEx.Pattern = "(.*),'(.*),(.*)" RegEx.Global = true Hold2 = RegEx.Replace(Hold, "$1,""$2"",$3") Any ideas what I am doing wrong? Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158228
  - 5
    - Copy file from local pc to network share on logon Hi all, We are performing an upgrade on some software here, and our vendor is requiring copies of a file from all the desktops in our org. What I am trying to do, is copy a file located on the c: drive to a share on the network, placing it in a folder created by their username. So far, I've come up with this, but it warns me that there isn't space there, only there is. Is this because it is a network share, and can't determine if there is space avail? Here is what I have so far, any help would be greatly appreciated, as I really don't want to visit every desktop to copy these files:-) Option Explicit On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder("\\coi\Great Plains\clientsetfiles\%Username%") Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\Dynamics\Dynamics.set" , "\\coi\Great Plains\clientsetfiles\%Username%\", OverwriteExisting Am I over thinking this? Is there a simpler way to get these files copied over? I'm still VERY new to scripting, so excuse any obvious mistakes please:-) Thanks in advance! Dan Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158224
  - 6
    - Permission Denied Renaming a Folder Hey all, thanks for your help in advance. I can't seem to figure this one out. Im writing a script that will delete specific files from a folder and then rename the folder. I incorporated drag and drop functionality into the script and also made a right click context menu to run the script using windows explorer. The script works when dragging the folder onto the script, but gets stuck renaming the folder when using a right click in explorer and running the script from a context menu. I originally thought it was because I was browsed to the folder, so I made trap by asking the user to click off of the folder and then click ok to resume the script but it still didn't work. The script is being run off of my local hard drive and I have permissions to change/delete etc. I'm stuck. The only thing I can think of is that when deleting or "getting" the folder using "fso.getfolder" I am grabbing the folder and not allowing it to be renamed...but then I wonder why does it work when I drag the folder instead of using the context menu? The context menu works with many other scripts I wrote. I'm stuck. I hope you can help me out. Here are the main pieces of my code...i trimmed it a little so there may be some minor variable definitions missing but you can get the idea. Thank you. set folderdrag=wscript.arguments dragfoldername=folderdrag(0) Set objShell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") set primfolder=fso.getfolder(dragfoldername) primfoldername=primfolder.name set curfolder=fso.getfolder(allfolderarr(intsize)) for each objfile in curfolder.files filecount=filecount+1 redim preserve filepath(filecount) redim preserve filename(filecount) filepath(filecount) = objfile.path filename(filecount) = objfile.name next for x = 1 to filecount redim preserve keep(x) keep(x)=false if ucase(right(filename(x), 4)) = ucase(".fml") then keep(x)=true filename(x)="KEEPING--->" & filename(x) ' wscript.echo filename(x) end if 'more finding files to keep stuff... next 'displays an output window summarizing what will be kept and lost outputwindow="Summary" & vbcrlf count=0 for j = 1 to filecount count=count+1 outputwindow= outputwindow & count & ". " & filename(j) & vbcrlf next wscript.echo outputwindow 'asks if they want to delete the following files askfordelete= "Delete all but the following files?" & vbcrlf deletecount=0 for k = 1 to filecount if keep(k) = true then deletecount = deletecount + 1 askfordelete=askfordelete & deletecount & ". " & filename(k) & vbcrlf end if next question=objShell.Popup (askfordelete,,, 4) select case question Case vbyes: on error resume next for M = 1 to filecount if keep(m)=false then fso.deletefile(filepath(m)) end if if err.number<>0 then wscript.echo "Could not delete some files" err.number=0 on error goto 0 end if next on error goto 0 mydate=replace(date,"/","-") 'HERES WHERE IT GETS STUCK on error resume next 'it can't do this fso.getfolder(dragfoldername).name= primfoldername & "_Trimmed_" & mydate 'my trap to see if it was me browsed to folder if err.number <> 0 then currentfoldername=curfol.name wscript.echo "Can't rename the folder. Move off of it in windows explorer and press ok." fso.getfolder(dragfoldername).name = primfoldername & "_Trimmed_" & mydate err.number=0 on error goto 0 end if wscript.echo "Done" Case vbno: wscript.echo "Script will quit. Nothing will be changed." wscript.quit end select Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158221
  - 7
    - .hta issue with focus. I've got an hta file that I load at startup via a logon GP. within this hta I have the following code. <script language=vbscript>  </script> My expectations of this code is that when the window loses focus, that the focus be brought back to it. This is not happening, anyone else seen this? Mike Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158220
  - 8
    - Echo messages remotely Is there a way to use WScript.Echo remotely... I'm not talking about monitoring for events or anything but let's says someThing happens on machine A, and I want to echo that someThing happened, only I want that echo to go to Machine B. Is sending a WScript.Echo message TO another host (NOT getting it from) remotely possible? Thanks! Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158217
  - 9
    - How do I open another IE window without sharing any cookies (make a new session?) I have an ASP webpage that uses cookies to tell the currently selected person: Request.Cookies("CoumaWeb")("CurrentPat_Name") Now I want the users to be able to have multiple IE windows open that will not share cookie values. I also want to give them a link on 1 page that will open another page and take them to the FindPatient.asp page. I know I can have multiple IE open and it doesn't share cookies. Because I have 1 page open with a "found patient" (again it's stored in the cookie) and I can click on my QuickLauch bar and open up another instance of IE, goto my webpage and the same webpage and when it reads the cookie it's empty. So this tells me that I can have multiple versions of IE that has their own cookie. I also added a response.write(Session.SessionID) and both values are different. So opening another instance of IE via my quick launch toolbar creates a new session with its own cookie values. Now I am trying to figure out how to have a link or button that will open another IE window and not have it share the cookie (make a new session). I tried using a hyperlink with a target of _blank. But when I do that and analyze the above cookie value, it is already set. And the Session.SessionID is the same. I also tried client side VBScript: <SCRIPT LANGUAGE="VBScript"> <!-- public sub newwin dim ie set ie = window.open("http://gclnt11/test.asp") End Sub But again when I look at the cookie it is already set. And the Session.SessionID is the same. Any ideas? *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158213
  - 10
    - Teach Yourself VBScript in 21 days by SAMS The book is saying that vbscript is only used for WebPages. It has already shown samples with general format. <HTML> .... ... <Script Language="VBSCRIPT"> <!..Option explicit </Script> </BODY> </HTML> It shows every sample with VBSCRIPT within HTML, but I am wondering if it is possible to write VBSCRIPT independently (without HTML) and run it as an exectuable. For instance, I tried to write this in notepad or wordpad and save itas example.vbs Sub Button_OnClick MsgBox "The button was clicked" End Sub. But it did not respond. alan Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158205
  - 11
    - foward host events to domain controller event log Hi, Is there anyway to write the events written to a local computer's event log to another machine (like a domain controller)? Preferably a native way and NOT requiring some third party app. I'm hoping there's a vbscript way to direct event log entries from one machine to another. I tried on one of my hosts to change the File key at HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Security\ from %SystemRoot%\system32\config\SecEvent.Evt to \\DC1\c$\WINNT\system32\config\SysEvent.Evt and all it did was copy security events to the application log on the same host... no entries from the host's log were written to the DC's security log! Thanks! --CW Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158201
  - 12
    - Quering AD object attributes with ADO and vbscript Wanted to do vbscript which uses ADO to search objects and put some attributes to array. Something like that - GetObjectAttributes(ADLocation, Attributes, ObjectClass). All was fine till I wanted to get Computers description. Searched the net, found out that it wasn't single-value attribute and solved the problem. Then wanted to get Lastlogon attribute. Again got error, althought the Vbscript returned same VarType as for Description(Type - 12), but after that variable wasn't array but object. Solved it again but wanted to know, if there is/anyone has written a script that returns any attribute value and converts it to string. Or I must test it with all AD properties and see, if there is anything else that needs special treatment...? Markko Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158200
  - 13
    - How 2 create new (local) user Hi, I know 'net user' can create a user but I don't see a parameter to set the group the user should join. The vbscripts I can find are all AD based.. Any thoughts? grtz Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158198
  - 14
    - Newbie Help with Event Logs First of all I am not a programmer by any stretch. A friend wrote this script for me years ago and it always served my needs. Now that I have moved on to another company, I need some help changing it. This script parses through Eventlog Dumps from Windows 2000 and dumps the contents into a SQL database. In the SQL database I use the following Catagories for the different Log types (t_ELTId): Application = 1 Security = 2 System = 3 For some reason an ID (t_ELTId) of 2 is never written into the database or the Security events aren't getting imported. Based on the code below can anyone see what I am missing? Const sServer = "SERVERNAME" Const SLoginID = "ID" COnst sPassword = "PASSWORD" Const sDatabase = "DATABASE" Const SPath = "SOME PATH" Const sFname = "LOG FILE ON SOME DRIVE" Dim TmpStr Dim fso Dim F Dim LogFIle Dim StatusLine Dim Machine Dim SvrID Dim EvtLogID Dim CurrLine Dim StartTime Dim EndTime Dim Folder Set fso = CreateObject("Scripting.FileSystemObject") Set F = fso.CreateTextFile(SPath & sFname, True) set Folder = fso.GetFolder("Path to Flags") 'Stall until all flags are in Dim i while Folder.Files.Count < 1 wscript.sleep 120000 F.writeLine "Sleeping...." wend 'Declare variables Dim cn 'Connection object Dim rsSvr 'Recordset Dim rsEvt Dim rsLogType Dim ImportError Dim LatestDate 'Create connection objects Set cn = CreateObject("ADODB.Connection") Set rsSvr = CreateObject("ADODB.Recordset") Set rsLogType = CreateObject("ADODB.Recordset") Set rsEvt = CreateObject("ADODB.Recordset") 'Open a connection; the string refers to the DSN cn.ConnectionString = "DRIVER=SQL Server" & _ ";SERVER=" & sServer & _ ";UID=" & sLoginID & _ ";PWD=" & sPassword & _ ";DATABASE=" & sDatabase cn.Open 'Define recordset rsSvr.ActiveConnection = cn rsLogType.ActiveConnection = cn rsEvt.ActiveConnection = cn rsSvr.open "Select * from EvtLog_Servers Order By t_SvrName" rsLogType.Open "Select * from EvtLog_EventLogType Order By t_ELTId" rsevt.CursorType = 1 rsevt.LockType = 3 rsevt.source = "Select Top 10 * From EvtLog_Events;" F.WriteLine "Starting Import..." 'ON Error Resume Next rsevt.Open If Err.Number <> 0 then F.WriteLine Cstr(Err.Number) & " " & Err.Description Else StartTime=Now() While NOT rsSvr.EOF Machine = rsSvr.Fields("t_SvrName") LastDate = rsSvr.Fields("t_SvrLogDate") If IsNull(LastDate) then LastDate = #1/1/1980# End if SvrID = rsSvr.Fields("t_SvrID") importError = False LatestDate = #1/1/1980# While Not rsLogType.EOF LogFile = rsLogType.Fields("t_ELTName") EvtLogID = rsLogType.Fields("t_ELTId") ImportEvents Machine, SvrID, LogFile, EvtLogID rsLogType.MoveNext Wend rsLogtype.MoveFirst rsSvr.MoveNext If ImportError = False then cn.execute "UPDATE EvtLog_Servers Set t_SvrImportDate = '" & _ Now() & "', t_SvrLogDate = '" & LatestDate & "' " & _ "WHERE (t_SvrID = " & Cstr(SvrID) & ")" end if Wend End if EndTime = Now() F.WriteLine "End of Import...Completed in " & Cstr(DateDiff("n",StartTime,EndTime)) & " minutes" F.Close rsSvr.Close rsEvt.Close rsLogType.Close Set Fso = Nothing Set rsSvr = Nothing Set rsEvt = Nothing Set rsLogType = Nothing Set cn = Nothing Sub ImportEvents(M, MI, L, LI) Dim tmpFile Dim Fin Dim EvDate, EvType,EvCat,EvID, Tmp Dim NumAdded tmpFile = spath & "\logs\" & M & "_" & Left(L,3) & ".log" F.Write "Importing " & tmpFile If NOT Fso.FileExists(tmpFile) then F.WriteLine "FILE NOT FOUND!" ImportError = True Exit Sub End if Set Fin = FSO.OpenTextFile(tmpFile,1) numAdded = 0 While Fin.AtEndOfStream <> True CurrLine=Fin.ReadLine Tmp = Parse Tmp = Tmp & " " & Parse EvDate = CDate(Tmp) 'msgbox EvDate If EVDate>LastDate then EvType = CLng(Parse) EvCat = Parse EvID = CLng(Parse) If ((EvType = 2) or (EvType = 1)) OR (EvID = 6009) Then With rsEvt .AddNew .fields("t_SvrID")=MI .Fields("t_ELTId")=LI .Fields("t_EvtID")=EvID .Fields("t_EvtType") = EvType .Fields("t_EvtDate") = EvDate .Fields("t_EvtSource") = Parse tmp = Parse tmp = Parse .Fields("t_EvtDesc") = NoQuotes(tmp) .Update NumAdded = NumAdded + 1 End With End if End if Wend If EvDate>LatestDate then 'MsgBox "here" LatestDate = EvDate End if F.Writeline " " & Cstr(NumAdded) & " Events Added " end Sub Function Parse() Dim sPos sPos = Instr(1,CurrLine,Chr(9)) If sPos>0 then Parse = Left(CurrLine,sPos-1) CurrLine = right(CurrLine, Len(CurrLine)-spos) Else Parse = CurrLine CurrLine = "" End if End Function function NoQuotes(instructions) instructions = Replace(instructions,"'","`") instructions = Replace(instructions,CHR(34),"``") NoQuotes = instructions End function Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158196
  - 15
    - Allowing Download in Excel Format I have a table that I am displaying via ASP and would like to allow the permissioned users to download the table in excel format so that they can then use as a spreadsheet. I have not tried this before and need a bit of guidance. Any help would be appreciated. Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158194
  - 16
    - odbc setup Hi Everybody, I must setup an odbc data source on 250 Pc, is there a possibility to do it with a logon script ? Thanks in advance Olivier Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158193
  - 17
    - ADO Hi, If I use SQL Plus (Oracle) to add a new tablespace, or update rows in a table etc, I get a 'tablespace created' or '10 rows affected' type of message back from SQL Plus. How do I get this message back when using ADO? I'm doing this kind of thing: ------------------------ Set objADODBConnection = CreateObject("ADODB.Connection") Set objRecordSet=CreateObject("ADODB.RecordSet") objADODBConnection.ConnectionTimeout=60 objADODBConnection.CommandTimeout=0 strConnectionString="DSN=" & MyODBCSourceName & ";UID=" & DB_UserName_ & ";PWD=" & DB_Password & ";" strSQL = "create tablespace d_fred DATAFILE 'd_fred.ora' SIZE 10M REUSE_ AUTOEXTEND ON NEXT 10M DEFAULT STORAGE ( INITIAL 10M NEXT 10M MAXEXTENTS_ UNLIMITED );" objADODBConnection.Open(strConnectionString) objADODBConnection.Execute strSQL ------------------------ I have tried to get the message back in a record set by doing this kind of thing ------------------------ objADODBConnection.CommandText = strSQL Set objRecordSet = objADODBConnection.Execute arrRtnMsg = objRecordSet.GetRows ------------------------ but the record set doesn't seem to be populated with anything? Can anyone point me in the right direction, or is this not possible? Thanks in advance, Tim Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158189
  - 18
    - Enumerate Security permission on folders and files Is it possible to enumerate security permission on folders and files by using VB-Script Like to use this to create a script list all permissions a user has on for instance, the d-drive, subfolders and files BR Asle Hjell Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158187
  - 19
    - SetPassword issue I am using a VB script to reset a password using an Internet Explorer Window with textboxes etc.. Using the code objUser.SetPassword <Value of textbox> I can reset the password. However an error is displayed, if for example the password input does not meet the domain complexity requirements or is too short. How do I trap this error? I have tried using err.number but this does not work. Is there any way of validating if objUser.SetPassword was successful or not Any help would be appreciated Thank Mar Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158181
  - 20
    - Replacing Shut Down... I think I may have originally mis-posted this message to the wrong newgroup Does anyone know if I could replace the "Shut Down..." button in the Start menu with a my own shortcut that points to a VBScript that will restart the computer? If so, how do I do it? What I need to do is prevent the user from being able to shutdown the PC. With the NoClose option, the user also loses the capability to restart the PC which we would like them to have. I have to provide a script that will give them that option. I would like to have the "Shut Down..." button run my script Thanks in advance Rus Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158172
  - 21
    - removing the "password never expires" tag Is there a good way to do this selectively, like from a spreadsheet? I dont want to affect any of our service accounts but I'd like to run this periodically. Mike Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158170
  - 22
    - Runas problem I am newbie to scripting trying to user runas within a VBSCRIPT for our admins to use AD Users and Computers. Our Admin Accounts use the user account initals followed by "ADM" I'd like to have this populate this information for the Admins but I run into a problem where it will populate the user account correctly but also adds mmc to the end of hte user name For example (ABCADMmmc Dim ADSysinfo,UserInfoString,strLDAP,oUser,grps,iGroup Set ADSysinfo = CreateObject ("ADSystemInfo" UserInfoString = ADSysinfo.Usernam strLDAP = "LDAP://dc01/" & UserInfoStrin Set objUser = GetObject (strLDAP objUser.GetInf strInitials = objuser.get ("initials" wscript.echo "Initials:" & strInitial set WshShell = CreateObject("WScript.Shell" set WshEnv = WshShell.Environment("Process" WinPath = WshEnv("SystemRoot") & "\System32\runas.exe set FSO = CreateObject("Scripting.FileSystemObject" If FSO.FileExists(winpath) the wscript.echo winpath & " " & "verified Else wscript.qui End I rc=WshShell.Run ("runas /user:" & strInitials & "ADM" & "mmc %windir%\System32\dsa.msc" Wscript.Sleep 500 WshShell.AppActivate(WinPath) WshShell.SendKeys strPas set WshShell=Nothin set WshEnv=Nothin set FSO=Nothin wscript.qui Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158169
  - 23
    - anyone know how i can insert a null value into an AD Attribute ? Hi, im having a little trouble changing the "userprofile" attribute of users within active directory all the values have a string in them, the most i can do is write a blank space into the attribute fro the below script, but this shows errors at user logon saying it cant find the path, please does anyon have any idea how to just make the value of "profilePath" black as in no value ? : ------------------------------------------------- strOU = "ou=uk strDomain = "mydomain.com set objRootDSE = GetObject("LDAP://" & strDomain & "/RootDSE" set objParent = GetObject("LDAP://" & strOU & "," & objRootDSE.Get("defaultNamingContext") objParent.Filter = Array("user" for each objUser in objParen objUser.Put "profilepath", " what can i put here to make it NUL? objUser.SetInf nex ----------------------------------------------- Many thanks Mike (In progress of an AD migration and starting to get a little stressed ! Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158168
  - 24
    - Print Queue Rights I need to create a script that will allow me to change the rights on all print queues across several Windows NT and 2000 print servers. Specifically, I need to add a global group to the queue and give it "Manage Documents" permissions. I can add/delete printers, but I have not seen any examples of how to set queue permissions. Any assistance would be appreciated. -jeff Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158167
  - 25
    - DRA Container This is a multi-part message in MIME format. ------=_NextPart_000_000A_01C43C28.F2F9EBC0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I have a WSH/VB script that runs when a user logs onto their PC. I would = like to know how to get the container name that the user belongs to and = then the description of that container. DRA Structure: some.where.com -main group -site group <--description? -user -username I have found a way to get the description of the container when the = container name is known. Set objOU =3D GetObject("LDAP://ou=3Dsite group,ou=3Dmain = group,dc=3Dsome,dc=3Dwhere,dc=3Dcom") WScript.Echo objOU.get("description") I am not sure how to go about finding this container when the logon = script runs.=20 Any suggestions would be appreciated. Thanks ------=_NextPart_000_000A_01C43C28.F2F9EBC0 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=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1400" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>I have a WSH/VB script that runs = when a user=20 logs onto their PC. I would like to know how to get the container name = that the=20 user belongs to and then the description of that container.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><STRONG><U>DRA = Structure:</U></STRONG></FONT></DIV> <DIV><FONT face=3DArial = size=3D2>       =20 some.where.com</FONT></DIV> <DIV><FONT face=3DArial size=3D2>       =20     -main group</FONT></DIV> <DIV><FONT face=3DArial size=3D2>       =20         -site group   =20 <EM><--description?</EM></FONT></DIV> <DIV><FONT face=3DArial=20 size=3D2>          &nbs= p;        =20 -user</FONT></DIV> <DIV><FONT face=3DArial size=3D2>       =20             =    =20 -username</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I have found a way to get the = description of=20 the container when the container name is known.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial><FONT size=3D1>Set objOU =3D = GetObject("</FONT><A=20 href=3D"ldap://ou=3Dsite group"><FONT size=3D1>LDAP://ou=3Dsite = group</FONT></A><FONT=20 size=3D1>,ou=3Dmain = group,dc=3Dsome,dc=3Dwhere,dc=3Dcom")<BR>WScript.Echo=20 objOU.get("description")</FONT></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I am not sure how to go about = finding this=20 container when the logon script runs. </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Any suggestions would be = appreciated.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML> ------=_NextPart_000_000A_01C43C28.F2F9EBC0-- Tag: Backup up system state with NTbackup through a VB script (I need error checking) Tag: 158166

I am currently backing the system state on various machines with
ntbackup that is launched through a VB script. The script also sends
e-mails when its completed. What I need to do is add code that does
error checking for when ntbackup fails.Instead of sending an e-mail
when it completes I need to change it to send one when it fails. Does
anyone have any code out there that does that? Any help would be
appreciated.

Thanks
Robert

Top

Re: Backup up system state with NTbackup through a VB script (I need error checking) by rhorn

rhorn
Fri May 21 07:20:27 CDT 2004

rhorn@drivefinancial.com (Robert) wrote in message news:<f9cf3e7d.0405200708.4e5f2add@posting.google.com>...
> I am currently backing the system state on various machines with
> ntbackup that is launched through a VB script. The script also sends
> e-mails when its completed. What I need to do is add code that does
> error checking for when ntbackup fails.Instead of sending an e-mail
> when it completes I need to change it to send one when it fails. Does
> anyone have any code out there that does that? Any help would be
> appreciated.
>
> Thanks
> Robert

This is the code I am using to run it :
This is what I need to do error checking on (whether NTBackup
completes successfully or not)

Set objUser = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("WScript.Shell")
objName = objUser.GetTempName
objTempFile = objName
objShell.Run "cmd /c C:\Windows\system32\NTBACKUP.exe backup_
\\dfstxfs3\q$\dhcp\backup /v:yes /r:no /rs:no /hc:off /m normal_
/j DFSTXFS3_DHCP_Database_Backup /l:s_
/fc:\DHCP\DHCP_Database_Backup.bkf" ,8,True

what I need to do is to be able to send an e-mail when it fails and
one when it completes. The email part I have but the error checking is
the problem

Top