Retrive Bios Events

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
    - Trying to write a program that would collect images received as email attachments Hello, Desperately, I am trying to find a way to write a program that would collect images received as email attachments and save them to a specific folder with a changed filename into whatever was the subject of that email. There would be one image per email. Here is how I think it would work: (1) Receive an image in email attachment. (2) Retrieve the image from that attachment. (3) Change the name of the image file into what was written in the Subject of that email. (4) Save the renamed image file into a specific folder. (4) Delete the received email I have done some research and found that the application would need to interact with MAPI. Could you please tell me if you have seen any similar programs written in VBScript somewhere on the internet, or could you give me some very specific advice or directions. P.S. I have my own Windows 2003 server, and can install anything on my server if I need to. Thank you, Vanessa Lee Tag: Retrive Bios Events Tag: 187793
  - 2
    - Automated way to clear custom event log Hi, Anyone know how to automate clearing of custom event logs? I've been able to clear the default logs with an modified script repository example: 'clears the event logs. strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup,Security)}!\\" & strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='Application'") For Each objLogfile in colLogFiles objLogFile.ClearEventLog() Next Wscript.Echo "Application Log Cleared" Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='Security'") For Each objLogfile in colLogFiles objLogFile.ClearEventLog() Next Wscript.Echo "Security Log Cleared" Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='System'") For Each objLogfile in colLogFiles objLogFile.ClearEventLog() Next Wscript.Echo "System Log Cleared" Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='Scripts'") For Each objLogfile in colLogFiles objLogFile.ClearEventLog() Next Wscript.Echo "Scripts Log Cleared" _________________________________________________________ But the custom log "Scripts" (also created from an example in the Script Repository) doesn't get cleared: Any idea how I can make this work? Tag: Retrive Bios Events Tag: 187792
  - 3
    - Changing Wav Files Hi, I have a telephone system that records all conversations as a standard WAV file. This Wav files are good for training purposes but no good for legal use. To make them usable in a court of law the recordings must be in an uneditable format. could this be done with VB Script? Regards Ian Tag: Retrive Bios Events Tag: 187789
  - 4
    - reggular expressions I would like to replace a "-" in a string but only when it is surounded by either a letter or a number. for example "A-4" or "3-V" but not "S-D" or "4-4" Thanks Tag: Retrive Bios Events Tag: 187765
  - 5
    - How to repeatedly check for a condition before continuing? Hello. In a batch file I can repeatedly check for a conditon before continuing: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ :Repeat IF EXIST c:\temp\finished.log GOTO Continue ECHO "Not finished yet..." Sleep 60 GOTO Repeat :Continue ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Can anyone provide a simple, basic code snippet that will allow me to do the equivalent in VBScript? More specifically, I'm trying to check if a file has closed before continuing - and I need this checking to repeat itself in continuous loop. Thanks! Tag: Retrive Bios Events Tag: 187749
  - 6
    - Writing to a file and then reading the file contents How does one write to a file and then read the file contents with out closing the file inbetween (if it is possible)? I'm tinkering with the serial com port to see if the input buffer can be read after writing to the output buffer. I can write bytes and such to the comport by treating it like a file (substitute "COM1:" for the "test.txt"), so the next question is can I get the contents of the input buffer by reading the open file before closing it. Can the below code be fixed such that it can read the contents of the test.txt file after writing to it with out closing the file first? =================== Set fs=CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("test.txt",True) a.write "this is a test" Wscript.Sleep 1000 'get test.txt file contents here 'wscript.echo test.txt file contents here a.Close() Tag: Retrive Bios Events Tag: 187747
  - 7
    - scripting IE to download ftp file I have run into problem with batch file execution of FTP. Every now and then the ls something*.txt gets hung. Consequently I wonder if I have better chance of IE as control from vbscript How do I find if a file of certain pattern exists from IE control? There may be more than one that fit the pattern, or maybe nothing. If present, I like to get the file name. However, I don't have a clue in this, as I am not dealing with html but FTP protocol from IE. I know how to make IE navigate to the desired directory but I need help to list content of the desired ftp directory ain terms of names, sizes, date time created if possible Thank you very much for your time. Tag: Retrive Bios Events Tag: 187742
  - 8
    - Script to compair two files Help? Hi I am trying to write a Windows 2003 Server logon script to compair two files ("file1" and "file2"), if the files are different (say in size) then I need to replace "file2" with "file1". The algorithm is: if file1 "is different" from file2 then Overwrite file2 with file1 (a simple "copy file1 file2" will suffice) Is there a simple way to do it using a script (VBScript) so I can run it when the user logs on? My VBScript knowledge is NIL, I have no problems compiling a Visual Basic program to perform the task, but would like to see how it can be done using a script. Any help would be appreaciated. Regards Gitendra Tag: Retrive Bios Events Tag: 187740
  - 9
    - Unloading and reloading Powerpoint Help Wondering if VBS would unload and then launch a .ppt and start the show on a remote computer? It's in the basement and viewed on remote tv's throughout building. MS Powerpoint 2003 w/(sp3) if it makes a difference. Thanks Nate Tag: Retrive Bios Events Tag: 187730
  - 10
    - Rename file extension Hello all, I need help to rename a file extension using the VBScript. I am relatively new to this and have put this much together so far: strComputer = "." Set objWMIService = GetObject _ ("winmgmts:" & "!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("Select * from Cim_Datafile where Name = " _ & "'D:\\test\\test.txt'") For Each objFile in colFiles errResult = objFile.Rename("D:\test\test." & FormatdateTime(Now(),"ddhh")") Wscript.Echo errResult Next I need the file extension to be in the format test.ddhh complete with the two digit day and hour. Any help is appreciated. Thanks! JV Tag: Retrive Bios Events Tag: 187728
  - 11
    - Need help with another commandline argument I want to be able to close a running application like notepad.exe using vbscript (the simplest way I've found so far) using the test.bat batch file. The below test.vbs file is what I've come up with so far for testing. Test.vbs gets the notepad.exe as an argument, but i haven't found a way to get it to be successful in the script to close a running notepad.exe. If I substitute notepad.exe for the xxx down in the script, then the test.vbs will close the running notepad.exe. Any suggestions on getting it to work? Thanks! ========test.vbs======= Set objArgs = WScript.Arguments if objargs.count <> 1 then wscript.echo "expected a command-line argument" wscript.quit end if xxx = objArgs(0) wscript.echo "xxx" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & "." & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & "'xxx'" ) For Each objProcess in colProcess objProcess.Terminate() next wscript.quit =======test.bat=========. @echo off test.vbs notepad.exe Tag: Retrive Bios Events Tag: 187726
  - 12
    - Frames and Window Resizing I have an HTML page which has two frames on it - Header and Body are the frame names. Is it possible to resize the window containing the html frames when the ASP page being displayed in the Body frame is loaded and reloaded? I guess what I am asking is how do I reference to the window containing the HTML page from one of the pages being displayed in one of the frames. If this can be done, can anyone supply some code segments for me to achieve this? Paul Smith Tag: Retrive Bios Events Tag: 187723
  - 13
    - Incidental Factiod: pertaining to ConnectObject/GetRef in Class Code A year ago, I posted a question/complaint about the apparent lack of support for "ConnectObject" or "GetRef" in class code. I had been attempting to instantiate a class from within an actX object and then connect with events fired by that class (not the actX object itself). This works well enough in "main line" vbs code, but not (as best I can tell) in class code. I recently tried to do the same thing, and failed again (groan!). I even searched this ng, and found my previous disgruntled posting. Then I remembered something, i.e., that you can refer to the current instance of class code as "Me", within the class. It occurred to me that "Me" might be equivalent (or even identical to) "GetRef". A "GetRef" gives you an object whose default member calls the routine which you specify. Likewise, if "Me" is a reference to the current instance, then if one refers to "Me" in code, then one will also get a call to the default member of "Me". Cut to the chase. This did work the way I expected it would, and I was then able to (in effect) do a "GetRef" in class code. Here is an example (although referring to a proprietary actX (oSCO) which is setting a "CBT Hook" to detect window openings). When it detects a window opening, it will call me back with the information: --- <snip> --- ' set an "ole callback" for the hookproc... Set oSCO.SetCallBack = Me ' reference to the default member of THIS instance ... ' this is "my hookproc" (called from real hookproc embedded in sco)... Public Default Function myHookWndFunc(uMsg, wParam, lParam) ... ' and this is the "real" hookproc located in the actX (oSCO) object. ' it will intercept the hookproc calls and refer them back to script. Public Function GenericHookProc(ByVal ncode As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Dim oCallBack As Object Set oCallBack = m_oCallBack ' the ole callback GenericHookProc = oCallBack(CVar(ncode), CVar(wParam), CVar(lParam)) End Function --- </snip> --- Note: there is no documentation about "Me", other than another obscure ng posting by mikHar, way back in 2000. As an "undocumented- and-unsupported" feature, one might justifiably be cautious about using this, because in the past microsoft has abruptly "corrected" (i.e., removed) other undocumented-and-unsupported features. The "good news" is that it will probably take an "act of congress" for microsoft to ever do any further maintenance or support for vbs, so it is extremely unlikely that "Me" will ever go away anytime in the foreseeable future. cheers, jw Tag: Retrive Bios Events Tag: 187721
  - 14
    - DHTML question I am wrting Access DAP. On the page I need to create a new record based on a current rcord so I am developing copy operation. I have lots of HTML controls on the page. When I click new, it should keep all the data in the controls as it is except a few. How can I achieve this using DHTML thanks Tag: Retrive Bios Events Tag: 187718
  - 15
    - recursion to display records I am learning how to get records from a database. I was able to accomplish but I know there are 6 records and I only display 1. I know what to do but do not know how in vbscript. i think the script needs a for loop to display records until completed but was unable to get working. ----------------CODE BELOW-------------------- Const DB_CONNECT_STRING= "provider=SQLOLEDB.1;data source=localhost;database=PSMT;uid=mydbUser;pwd=???????" Set MyDB = CreateObject("ADODB.Connection") MyDB.Open(DB_CONNECT_STRING) SQLString = "select SystemName, Win32_ComputerSystem_TotalPhysicalMemory, OSInstallDate, LAST_UPDATED from SystemInfo where (Win32_ComputerSystem_TotalPhysicalMemory) < 120746688" set MemQuery = MyDB.Execute(SQLString) If Not MemQuery.EOF then SystemName = MemQuery.Fields("SystemName") PhysicalMem = MemQuery.Fields("Win32_ComputerSystem_TotalPhysicalMemory") OSINstallDate = MemQuery.Fields("OSInstallDate") LastUpdated = MemQuery.Fields("LAST_UPDATED") WScript.Echo(SystemName & vbtab & PhysicalMem & vbtab & OSINstallDate & vbtab & LastUpdated) End if MyDB.Close Tag: Retrive Bios Events Tag: 187717
  - 16
    - Setup.exe Silent intall w/.ISS not working I am a novice in vbscript. Nonetheless I have an application on all computers I need to be installed with a script on all computers. The following works: Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run = "D:\TL06\setup.exe -s -f1D:\TL06\setupNEW.iss", 1 True (-s is to silent install and the -f1 indicates the file location for the response file needed in the silent install.) The problem is the folder has a space, so with the change in folder name the following does NOT work: Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run = "D:\TL 06\setup.exe -s -f1D:\TL 06\setupNEW.iss", 1 True I tried adding extra quotes before and after but it does not work. I tried declaring variables for the files but that does not work either. I am missing something? or is it not possible to add arguments to a file who's path has a space in it? The error that comes up is that The system cannot find the specified file. Please help anyone. R D J Tag: Retrive Bios Events Tag: 187715
  - 17
    - Verify is a service can be stopped I am trying to automatically start a service that is failing. Before I can start the service, I need to verify that the service can be stopped. I have the following code that tells me the state of all services running that can be stopped. What I need to do is only check if a particular service can be stopped, then if it can, kick off the stop and restart of the service. I can stop and start, I just need to fix the following code to check for a particular service. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colServices = objWMIService.ExecQuery _ ("Select * from Win32_Service Where AcceptStop = True") For Each objService in colServices Wscript.Echo objService.DisplayName Next Thanks Tag: Retrive Bios Events Tag: 187714
  - 18
    - XCOPY in VBscript Anyone have an xcopy-like written in vbscript? Not a script that calls DOS xcopy, but actually have a script that performs like xcopy? Thanks. Tag: Retrive Bios Events Tag: 187712
  - 19
    - SQL stored procedures: display both output and recordset I'd like to retrieve both a recordset and the output parameter from a SQL stored procedure. I can do one or the other but not both. The stored procedure itself is a simple query with an input and output parameter. The parameters: oCmd.Parameters.Append oCmd.CreateParameter("@ID", adVarChar, adParamInput, 15 , "9123456") oCmd.Parameters.Append oCmd.CreateParameter("@Return_Code", adVarChar, adParamOutput, 50, "") If I use: oCmd.Execute I can read the output parameter using: wscript.echo oCmd.Parameters("@Return_Code").Value or wscript.echo oCmd.Parameters(1).Value If I use: set rs = oCmd.Execute I can loop through the recordset and correctly display the data. I can't display the output parameter. I tried to use: Set rs = rs.NextRecordset wscript.echo oCmd.Parameters("@Return_Code").Value wscript.echo oCmd.Parameters(1).Value That doesn't work. I then tried to close the recordset: Set rs = rs.NextRecordset rs.close wscript.echo oCmd.Parameters("@Return_Code").Value wscript.echo oCmd.Parameters(1).Value To no avail. I did set nocount in the stored procedure. I can get either the output data or the recordset data so the stored procedure is returning the data to my script. At this point all I want to return is "Hello world" from the stored procedure. I'm new to the world of running stored procedures from vbscript, though I have been running queries for a long time. Any ideas? Swyck Tag: Retrive Bios Events Tag: 187711
  - 20
    - RePost: Problem handling Date Comparison in VBScript I had posted the following earlier. However, the help I got did not resolve the problem. I appreciate any advise/help to resolve the following. Thanks in advance. I have a html form with few fields. The fields are claim number, month, day and year. Actually the month, day and year together forms the claim date. There is also a variable named QuarterEndDate which contains the quarter end date value which happens to be 12/31/05. Now, before submitting the form, I need to do some validation check. The first validation (which I cannot get it to work) is that the claim date should be less than the Quarter End Date. The second validation is that there has to be a claim number regardless (which works by itself but does not when the first validation comes up). I would like to know what is the problem with the first validation in the code below? Function frm_Details_OnSubmit validation = TURE Function frm_Details_OnSubmit validation = TURE If DateValue((frm_Details.ExpMonth_0.value) & "/" & (frm_Details.ExpDay_0.value) & "/" & (frm_Details.ExpYear_0.value)) > DateValue(QuarterEndDate) Then Alert("You must enter claim date within the End Quarter Date") document.frm_Details.ExpMonth_0.focus frm_Details_OnSubmit =False ElseIf (frm_Details.ClaimNo_0.value = "") Then Alert("You must enter a value for Claim number.") frm_Details.ClaimNo_0.focus frm_Details_OnSubmit =False Else frm_Details_OnSubmit = True End If End Function Tag: Retrive Bios Events Tag: 187710
  - 21
    - ocx permission denied I've updated an ocx (using VB6) that is currently being used in an asp 3.0 application. I created an internet package(using VB6) containing the ocx and corresponding dll's. I then placed both the CAB and support files on my webserver. I also registered the dll's on the web server. I updated my asp script to reflect the new object's classid and version#. When I call the asp page I receive an alert "permission denied" when it calls the ocx. If anyone could provide some feedback on how to overcome this issue I greatly appreciate it. I also created a very simple ocx on my local machine complied and saved to my system32 dir. I tried using it on my local machine in an asp page; when it call the object's method on this com thru a windowonload event I received a prompt "object doesn't support this property or method"? Thanks in advance! Tag: Retrive Bios Events Tag: 187708
  - 22
    - Determine if a script was run from an HTA Is there a way to determine if an external vbscript was called from an HTA? Tag: Retrive Bios Events Tag: 187707
  - 23
    - Input box Hi all I would like to create a service dependance with the command: oShell.Run "sc config " & ServiceOVO & " depend= " & chr(34) & ServiceApplicatif & chr(34), 1,True My problem is that ServiceApplicatif is badly interpreted when it has spaces in the name. ServiceApplicatif is entered with the following line: ServiceApplicatif = InputBox("Enter the name of service Applicatif (Service name) " , "Service") How can I make sure that spaces in the inputbox are converted as spaces in the variable ? or how can I modify the string to insert chr(32) ? to have a correct service installation Thanks and have a good day Bruno Tag: Retrive Bios Events Tag: 187704
  - 24
    - List of the 20 most recent subfolders in a folder Hi, I'm looking for a script to read through the "subfolders" in a folder and make a list of the 20 most recent folders. Actually the "subfolders" are really zip files (pretending to be subfolders). TIA Alex Tag: Retrive Bios Events Tag: 187701
  - 25
    - changing values in registry subkeys Hi All I'm looking to search through all subkeys of a specific registry key for a given value. The code below works fine for echoing out the names of the subkeys..... ---------------------------------------------------------------------------------------------------------------------- const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "SYSTEM\CurrentControlSet\Services" oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys For Each subkey In arrSubKeys StdOut.WriteLine subkey Next ---------------------------------------------------------------------------------------------------------------------- ...... but how do I check each subkey for a specific value? Tag: Retrive Bios Events Tag: 187697
- Next
  - 1
    - Folder last accessed / modified Hi Guys, doing a bit of network maintenance at the moment and I'd like to archive some folders that havn't been accessed/modified since 2003. I would like to generate a script to search a directory and output the names of all the folders that have not been accessed since 2003 to a txt file. The text document should also contain when the folders were last accessed. The server uses NTFS. Tag: Retrive Bios Events Tag: 187693
  - 2
    - formatnumber i try to add numbers from text type number data. ABC = formatnumber("12") + formatnumber("50") but the result is 1250, not 62 i change "+" to "*", then it can be multiplied. how can i do additon? Thanks a lot. tony Tag: Retrive Bios Events Tag: 187683
  - 3
    - Select a Cell Range in Excel using numbers Hi Every One, I'm just trying to write a VBscript to edit an Excel file. Just want t select a range of cells *using column and row numbers*. Here is m sample code : Dim objUser, strExcelPath, objExcel, objSheet, k, objGroup strExcelPath = "C:\UserGroup.xls" Dim objXL Set objExcel = WScript.CreateObject("Excel.Application") objExcel.Workbooks.Add objExcel.ActiveWorkbook.Worksheets(2).Select objExcel.ActiveWindow.SelectedSheets.Delete objExcel.ActiveWorkbook.Worksheets(2).Select objExcel.ActiveWindow.SelectedSheets.Delete Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) objSheet.Cells(1, 1).Value = "User Common Name" objSheet.Cells(2, 1).Value = "sAMAccountName" objSheet.Cells(3, 1).Value = "Display Name" objSheet.Cells(4, 1).Value = "Distinguished Name" objSheet.Cells(5, 1).Value = "Groups" objExcel.ActiveWorkbook.SaveAs strExcelPath objSheet.Range(cells(1,1),cells(2,3)).Select *<-- this doesn't work* objExcel.ActiveWorkbook.Close objExcel.Application.Quit Set objUser = Nothing Set objGroup = Nothing Set objSheet = Nothing Set objExcel = Nothing Can anyone help me, pleaaaase Cheers, The K - The K ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Retrive Bios Events Tag: 187682
  - 4
    - Importing Certificates into IE Is there a way to import Certificates into Internet Explorer via VBScript? I thought I found something on the internet that showed how to do this the other night but now I can't seem to find it. I would like to integrate this into my logon script. Thanks Talyn Tag: Retrive Bios Events Tag: 187677
  - 5
    - Object doesne't support this priority or metode Email 800a01B6 Can someone help me, I am new on this Erik Gjertsen ' UserSpreadsheet .vbs ' Sample VBScript to create User accounts from a spreadsheet ' Author Guy Thomas http://computerperformance.co.uk/ ' Version 4.6 - June 2005 ' ------------------------------------------------------' Option Explicit Dim objRootLDAP, objContainer, objUser, objShell Dim objExcel, objSpread, intRow Dim strUser, strOU, strSheet Dim strCN, strSam, strFirst, strLast, strPWD, strEmail ' -------------------------------------------------------------' ' Important change OU= and strSheet to reflect your domain ' -------------------------------------------------------------' strOU = "OU=test ," ' Note the comma strSheet = "D:\Scripts\NewUser44.xls" ' Bind to Active Directory, Users container. Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strOU & _ objRootLDAP.Get("defaultNamingContext")) ' Open the Excel spreadsheet Set objExcel = CreateObject("Excel.Application") Set objSpread = objExcel.Workbooks.Open(strSheet) intRow = 3 'Row 1 often contains headings ' Here is the 'DO...Loop' that cycles through the cells ' Note intRow, x must correspond to the column in strSheet Do Until objExcel.Cells(intRow,1).Value = "" strSam = Trim(objExcel.Cells(intRow, 1).Value) strCN = Trim(objExcel.Cells(intRow, 2).Value) strFirst = Trim(objExcel.Cells(intRow, 3).Value) strLast = Trim(objExcel.Cells(intRow, 4).Value) strPWD = Trim(objExcel.Cells(intRow, 5).Value) strEmail = Trim(objExcel.Cells(intRow, 6).Value) ' Build the actual User from data in strSheet. Set objUser = objContainer.Create("User", "cn=" & strCN) objUser.sAMAccountName = strSam objUser.givenName = strFirst objUser.sn = strLast objUser.Email = strEmail...............................Problem objUser.SetInfo ' Separate section to enable account with its password objUser.userAccountControl = 512 objUser.pwdLastSet = 0 objUser.SetPassword strPWD objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit WScript.Quit ' End of Sample UserSpreadsheet VBScript. Tag: Retrive Bios Events Tag: 187675
  - 6
    - Why does one logon script work and the other not work I am trying to write a logon script for users logging into Windows 2003 terminal server. I need to determine what usergroups they belong to. I downloaded two scripts and the first one only works for users in the administrator group. The second script works for all users. I'm thinking it is an Active Directory security setting. For my own education, how can I make the first script work for all users. Thanks for your help ' Only works for administrators Set objADSysInfo = CreateObject("ADSystemInfo") strUser = objADSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) For Each strGroup in objUser.memberOf Set objGroup = GetObject("LDAP://" & strGroup) Wscript.Echo objGroup.CN Next ' works for everybody Set WshShell = WScript.CreateObject("WScript.Shell") strDomain = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%") strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%") Set objUser = GetObject("WinNT://"& strDomain &"/"& strUserName, user) For Each objGroup In objUser.Groups If strGroupList = "" Then strGroupList = objGroup.Name Else strGroupList = strGroupList & ", " & objGroup.Name End If Next WScript.Echo strGroupList Tag: Retrive Bios Events Tag: 187672
  - 7
    - Permission Denied and Path Not Found errors I'm stuck in a loop with a remote script: If I use the following line to connect to a remote system from a server, I get a "Permission Denied" error: Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputers(y) & "\root\cimv2") I can launch this script on one of my remote systems to connect to another remote system (rather than launching it from the server), and the entire script runs fine. So, I use the "Locator" version, which connects successfully: Set objSWbemLocator = CreateObject("WbemScripting.sWbemLocator") Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _ "\root\CIMV2", _ "strUser", _ "strPW", _ "MS_409", _ "NTLMDomain:" + strComputer) However, when I use this "Locator" version, the following line in my script fails with a "path not found" error: Set objTargetFolder = objFSO.GetFolder("\\" & strComputer & _ "\c$\" & strTargetFolder) I believe this is because "C$" is not accessible. Is there another way to access the C drive remotely? Thanks, -- Bill Baker PS: In case anyone notices, I had posted this question in the scripting.remote area, but no one seems to be home there. Tag: Retrive Bios Events Tag: 187668
  - 8
    - Exchange 2003 scripts Does anyone have good site with scripts for Exchange 2003. What I need is the script that will let me select number of user accounts and tell me number of emails in the each mailbox, may be the time email arrived to the mailbox etc.... Thanks a lot. Tag: Retrive Bios Events Tag: 187667
  - 9
    - List disabled accounts and deletet. Hi all, Has anyone script that will reed all NT4 disabled accounts and then give you choice to delete them.. Thanks a lot. Tag: Retrive Bios Events Tag: 187666
  - 10
    - 800A0046 error: permission denied in vbscript Hello, I downloaded the "List Web Service Setting Properties" script from Microsoft at: http://www.microsoft.com/technet/scriptcenter/scripts/iis/iis6/web/i6wevb14.mspx. I edit the strComputer variable to indicate the correct hostname. Script errors at the line beginning the For Each loop indicated in the code snip below. Can anyone help me determine what permission I need? (I am a local admin on the server, however, GPO policies removes some local privileges). strComputer = "correcthostname" Set objWMIService = GetObject _ ("winmgmts:{authenticationLevel=pktPrivacy}\\" _ & strComputer & "\root\microsoftiisv2") Set colItems = objWMIService.ExecQuery("Select * from IIsWebServiceSetting") For Each objItem in colItems *********************** Wscript.Echo "Access Execute: " & objItem.AccessExecute Wscript.Echo "Access Flags: " & objItem.AccessFlags Wscript.Echo "Access No Physical Directory: " & _ objItem.AccessNoPhysicalDir Wscript.Echo "Access No Remote Execute: " & _ Thanks in advance, Tag: Retrive Bios Events Tag: 187664
  - 11
    - File Sharing by VBScripts Is there any way that a VBScript can open a file for appending, without preventing other processes from opening the file for reading? Unfortunately, the OpenTextFile method doesn't seem to provide a parameter for specifying the file sharing mode. Thanks! -- Joseph Morales [To reply directly, remove "deletethispart." from my E-mail address ] Tag: Retrive Bios Events Tag: 187661
  - 12
    - Inconsistemt Results From ADSI We're using a VBScript as a logon script on a Windows 2003,SP1 server. We want to test Group Memberships and are using the sample code from the Server Help as follows: Const RM_205_G = "cn=rm_205_g" Const RM_212_G = "cn=rm_212_g" Const RM_206_G = "cn=rm_206_g" Set wshNetwork = CreateObject("WScript.Network") wshNetwork.MapNetworkDrive "h:", "\\WS_1\vol1\Users\" & wshNetwork.UserName Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) msgbox(strGroups) If InStr(strGroups, RM_205_G) Then wshNetwork.MapNetworkDrive "j:", "\\10.147.0.2\vol1\shared\rm205g" End If ... and so on. The problem is that the data inserted into strGroups is very inconsistent. For example, with administrator, all applicable groups are displayed in the msgbox command while for almost all other users some group memberships are omitted or no groups are displayed at all. In those cases where group memberships are retrieved properly, the applicable mapping commands complete as expected. We have no other issues with AD. Nothing seems to be broken. Any ideas why we're seeing this? Thanks! Tag: Retrive Bios Events Tag: 187660
  - 13
    - Rename list of computers in domain Howdy- Is there anyway to script a bulk-rename of computers (it's actually just the first two letters) using a text file and netdom with a vbs? TIA, BM Tag: Retrive Bios Events Tag: 187659
  - 14
    - Writing to Excel from a script How would you get excel to keep the data being written into the spreadsheet visiable? I have around 400 items and would like the spreadsheet to scroll along with the data. Thanks Tag: Retrive Bios Events Tag: 187658
  - 15
    - Reconnecting disconnected usb device Hi everyone, I've got a misbehaving USB drive that needs to have its cable unplugged and then replugged in every so often. I want to write a script to check if it is writeable, then if it isn't, virtually disconnect, then reconnect it. Does anyone know if it is possible to disconnect/reconnect a USB device with Vbscript? Any suggestions would be appreciated. -Barry Tag: Retrive Bios Events Tag: 187657
  - 16
    - -2147463168 errors I keep getting -2147463168 errors when I attempt to run this script. This used to work but when I went back to actually continuing using it these errors keep happening. I saw the microsofty post about this issue but it did not correct my problem. The problem occurs during the GetObject Line. Set oUser = GetObject("WinNT://" & Trim(sComputerName) & "/" &Trim(sOldUser) & ",User") Full code pasted below. Any help would be greatly appreciated. Paul Dim oFSO Dim memberlist Dim cname Dim changefile Dim chngdadmin Dim sComputerName Dim strComputerName Set oWshNet = CreateObject("WScript.Network") Set oFSO = CreateObject("Scripting.FileSystemObject") Set memberlist = oFSO.OpenTextFile("C:\Program Files\DIT Security Center\Administrator Account Change\memberservers.txt", 1, False) Set changefile = oFSO.OpenTextFile("C:\Program Files\DIT Security Center\Administrator Account Change\changefile.txt", 8, True) 'lnchfile.WriteLine "The DIT Security Center Utility to change the Administrator Account and Passwords has been launched" adminResponse = MsgBox("Are you sure that you want to change the Administrator account on the Member Servers?" & vbCrLf & vbCrLf & "If YES, you will be notified upon completion.", vbYesNo, "DIT Security Utility") 'If adminResponse = vbNo Then 'changefile.WriteLine "The task to change the administrtor accounts and passwords has been cancelled." 'lnchfile.WriteLine "The task to change the administrtor accounts and passwords has been cancelled." 'Call CancelMail 'End 'End If WScript.Echo "Opened Change File" changefile.WriteLine "********************************************************" changefile.WriteLine "" changefile.WriteLine Date & vbTab & Time changefile.WriteLine "" Do Until memberlist.AtEndOfStream cname = memberlist.ReadLine WScript.Echo "Pinging: " & cname Pinger (cname) 'MsgBox Pingcnt If Pingcnt > 5 Then changefile.WriteLine "Server Name: " & UCase(cname) changefile.WriteLine UCase(cname) & " is not online" changefile.WriteLine "" Else WScript.Echo cname & " is online" sComputerName = cname changefile.WriteLine "Server Name: " & sComputerName ' obtain current administrator name regardless of name OldUser = GetAdministratorName(sComputerName) WScript.Echo "Old Admin Account " & OldUser changefile.WriteLine "Old Administrator Account: " & sOldUser zz = 0 Do Until zz = 1000 zz = zz + 1 WScript.echo zz Loop ' create new user name, 15 characters long 'It will contains characters from all of the following four categories: 'English upper case characters (A..Z) 'English lower case characters (a..z) 'Base 10 digits (0..9) 'Following non-alphanumeric characters: ()&$%# 'ChangeAdmin (sComputerName) sNewUser = GenRandomName(15) WScript.Echo "New UserName: " & sNewUser sNewPwd = GenRandomName(15) WScript.Echo "New Password: " & sNewPwd 'snewUser = InputBox("What is the new administrator Account") 'MsgBox sNewUser Set oComputer = GetObject("WinNT://" & sComputerName) If Err.Number <> 0 Then MsgBox "Cannot Connect to Server" End If ' Turn off internal error handling On Error Resume Next ' connect to user object Set oUser = GetObject("WinNT://" & Trim(sComputerName) & "/" &Trim(sOldUser) & ",User") If Err.Number <> 0 Then WScript.Echo Err.Number & vbTab & Err.Description Exit Do End If ' rename user zz = 0 Do Until zz = 1000 zz = zz + 1 WScript.Echo "Round 2 " & zz Loop 'MsgBox oComputer 'oNewUser = "" Set oNewUser = oComputer.MoveHere(oUser.AdsPath, sNewUser) 'MsgBox oNewUser & vbCrLf & oUser.AdsPath & vbCrLf & sNewUser If Err.Number <> 0 Then MsgBox Err.Number & vbTab & Err.Description changefile.WriteLine "Failed to rename administrator user " & sOldUser Err.Clear changefile.WriteLine "" Else changefile.WriteLine "Administrator user is renamed to " & sNewUser changefile.WriteLine "" chngdadmin = GetAdministratorName(sComputerName) WScript.Echo sComputerName Wscript.Echo chngdadmin 'strComputer = "MyComputer" Set objuser = GetObject("WinNT://" & sComputerName & "/" & chngdadmin & ", user") 'MsgBox sNewPwd Objuser.SetPassword sNewPwd objuser.SetInfo changefile.WriteLine "New Password: " & sNewPwd changefile.WriteLine "" End If End If 'On Error GoTo 0 Loop 'If Err.Number <> 0 Then ' changefile.writeline Err.Number & vbTab & Err.Description ' Else changefile.WriteLine "" changefile.WriteLine "The admin account change has completed" changefile.WriteLine Date & vbTab & Time changefile.WriteLine "*****************************************************" MsgBox "The Administrator Account update has completed", vbInformation, "DIT Security Utility" changefile.Close 'oFSO.Copyfile "C:\Program Files\DIT Security Center\Administrator Account Change\changefile.csv", "\\file1\d$\wintel\Adminchange.csv" 'End If Function GenRandomName(Ilen) ' Generates a random 15 character string to be used for both the renaming of the administrator account and the new password Randomize 'Do sRS = "" For iPos = 1 To Ilen iChar = Int((69 * Rnd) + 1) sRS = sRS & Mid("AEIUBCDFGHJKLMNPQRSTVWXYZ" _ & "aeioubcdfghjkmnpqrstvwxyz23456789()&!$#%", iChar, 1) Next 'Loop Until REtest("[A-Z]", sRS) And REtest("[a-z]", sRS) _ 'And REtest("\d", sRS) And REtest("[&\$%#]", sRS) GenRandomName = sRS End Function Function GetAdministratorName(sComputerName) ' Connects to the remote member servers and determines the name of the local administrator account based on the SID Dim sUserSID, oWshNetwork, oUserAccount WScript.Echo "Starting to get Administrator Account Name" Set oUserAccounts = GetObject( "winmgmts:{impersonationLevel=impersonate}!//" & sComputerName & "/root/cimv2").ExecQuery( "Select Name, SID from Win32_UserAccount WHERE Domain = '" & sComputerName & "'") 'On Error Resume Next For Each oUserAccount In oUserAccounts If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _ Right(oUserAccount.SID, 4) = "-500" Then GetAdministratorName = oUserAccount.Name Exit For End If Next WScript.Echo "Finished Getting Admin Account NAme" End Function Sub GetsAMAccountName(strCN) Dim objRootDSE, strDNSDomain, objCommand, objConnection Dim strBase, strFilter, strAttributes, strQuery, objRecordSet Dim strDN, strDisplay, strObjectCategory, intIndex, myarray, objuser, strUPN Dim renameResponse ' Determine DNS domain name. Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strDNSDomain & ">" strFilter = "(cn=" & strCN & ")" strAttributes = "distinguishedName,objectCategory" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute If objRecordSet.EOF Then Wscript.Echo "Object not found with cn=" & strCN Wscript.Quit End If 'strDisplay = "Object(s) found" Do Until objRecordSet.EOF strDN = objRecordSet.Fields("distinguishedName") strDisplay = strDisplay & vbCrLf & strDN & " (" _ & strObjectCategory & ")" objRecordSet.MoveNext Loop myarray = Split(strDisplay, "(", -1) Set objuser = GetObject _ ("LDAP://" & myarray(0)) oldId = objuser.sAMAccountName ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objCommand = Nothing Set objConnection = Nothing Set objRecordSet = Nothing End Sub Sub Pinger(strcomputer) Dim objPing z = 0 Pingcnt = 0 Do Until z = 7 Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & strcomputer & "'") For Each objStatus In objPing If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then Pingcnt = Pingcnt + 1 Else End If Next z = z + 1 'WScript.Echo z Loop If Pingcnt > 5 Then 'rFile.WriteLine strcomputer & " is not Pingable" rescnt = rescnt + 1 End If End Sub Tag: Retrive Bios Events Tag: 187656
  - 17
    - tracert Bonjour, JE souhaite lancer une commande Tracert depuis un script VB. Existe t il une fonction deja toute faite en VBS (laquelle) ou faut il lancer l'execution d'une commande MSDOS ? Dans ce cas comment faire ? MErci -- Cordialement, Jérôme FOURNET Administrateur Réseaux jerome.fournet@apf.asso.fr Tag: Retrive Bios Events Tag: 187650
  - 18
    - Error "VB Script runtime error: Path not found" because of large-size folder I have a script that intends to get size of all subfolders of a folder. The below function is used to get size of a subfolder. Everything is good if the size of a subfolder is about below 1 GB, but VB script will show error ("VB script runtime error: Path not found") if the size of a subfolder is more than 1 GB. Ex: "FolderA" has 4 subfolders: - "FolderA1": 70 GB - "FolderA2": 500 MB - "FolderA3": 10 MB - "FolderA4": 40 GB VB script shows error when it runs function GetFolderSize for "FolderA4" - error at line (*****). I don't know why it can pass "FolderA1" without problem although FolderA1's size is bigger than FolderA4's size. P.S I found that some people have this problem like me. Any solution? '----------------------------------------- Function GetFolderSize(pStrFolderPath) Dim lObjFSO 'File System Object Dim lObjFolder 'Folder Object Dim lNumFolderSize 'Number Set lObjFSO = CreateObject("Scripting.FileSystemObject") Set lObjFolder = lObjFSO.GetFolder(pStrFolderPath) lNumFolderSize = lObjFolder.Size/(1024*1024) '(*****) GetFolderSize = lNumFolderSize End Function '----------------------------------------- Tag: Retrive Bios Events Tag: 187649
  - 19
    - equivalent of perl "next" command Greetings, in perl the "next" command skips the remainder of the current loop iteration & goes to the next iteration. What is the VBscript equivalent of this? Example For i = 1 to 5 IF i=3 Then <perl next command> End If Wscript.Echo i Next would print out 1 2 4 5 Thanks Tag: Retrive Bios Events Tag: 187647
  - 20
    - Closing down Firefox tab This isn't a VBScript question per se, but this is a pretty clever group, so perhaps someone has an idea. The summary is that I would like to be able to close a specific instance of Firefox, or rather a page thereof, when that page is cooperating to be closed. The scenario is that I want to have FF (Firefox.exe) iterate through a certain sequence of pages. If this was IE, what we'd do is bring up an instance of IE using Set IE=CreateObject("InternetExplorer.Application"), and then do IE.Navigate "...". With a little event notification code we're in business, and at the end of the day, if we never made IE visible, everything gets automatically shut down nice and tidy. With FF, you have a nifty add in called GreaseMonkey. The way it works is that for a given piece of javascript code that will be applied, you designate which pages GM (GreaseMonkey) will apply it to. The code itself will be run as soon as the page is loaded but before the onload kicks off. If it wants, this code can submit the page or forms thereof, and in this manner it can sequence through multiple pages. Very nifty. The only problem is that you can't shut down/close the starting page. In the usual situation, this is fine, because the intent behind GM is actually to allow one to modify pages (e.g. remove the ad at the top of a certain page. Moving a button to a more convenient place for another page, and so on). But with its built in power, this little add-in is going places. So I can now make a Firefox app and have an icon such that if I double click it, it will start FF off on a given page.htm file. This file will have a GM script all ready to go, but the problem is that window.close() doesn't work because as far as FF is concerned the window was not opened via script, so at the end, I am left with a useless window. Unfortunately, taskkill doesn't work (for reasons described at http://forums.mozillazine.org/viewtopic.php?p=2091165). Ultimately, I could make an OCX and have it identify the window in question and then have that window terminate, but I am wondering if there is a pure text based solution which is where the VBScript comes in. I should add that I could more or less get .Exec and .Terminate to work, but only if there were no other copies of FF active. Furthermore, FF seems to have precious few startup options. Anyway, it would be great if someone could point out something I might have missed. Csaba Gabor from Vienna Tag: Retrive Bios Events Tag: 187643
  - 21
    - Cannot handle date validation. Need help. I have a html form with few fields. The fields are claim number, month, day and year. Actually the month, day and year together forms the claim date. There is also a variable named QuarterEndDate which contains the quarter end date value which happens to be 12/31/05. Now, before submitting the form, I need to do some validation check. The first validation (which I cannot get it to work) is that the claim date should be less than the Quarter End Date. The second validation is that there has to be a claim number regardless (which works by itself but does not when the first validation comes up). I would like to know what is the problem with the first validation in the code below? In VBSCRIPT what is the best way to check what values are we comapring (e.g. we have response.write in asp). I appreciate any help/suggestion on this issue. Regards. Function frm_Details_OnSubmit validation = TURE If ((frm_Details.ExpMonth_0.value) & "/" & (frm_Details.ExpDay_0.value) & "/" & (frm_Details.ExpYear_0.value)) > DateValue(QuarterEndDate) Then Alert("You must enter claim date within the End Quarter Date") document.frm_Details.ExpMonth_0.focus frm_Details_OnSubmit =False ElseIf (frm_Details.ClaimNo_0.value = "") Then Alert("You must enter a value for Claim number.") frm_Details.ClaimNo_0.focus frm_Details_OnSubmit =False Else frm_Details_OnSubmit = True End If End Function Tag: Retrive Bios Events Tag: 187640
  - 22
    - Outlook Script to synchronize forms Hello, Would it be possible to supply a script that unticks the 'synchronise forms' setting in Outlook 200 or 2003?? Or is this profile setting stored in the registry or kept in a file that maybe houses the Outlook profile? Thnaks in advance, Liam Tag: Retrive Bios Events Tag: 187639
  - 23
    - CreateObject using different credentials I'm trying to write a script that checks a list of remote computers to see if they need patches installed from Windows Update. I would like to be able to use the Microsoft.Update.Session COM object to do so, since this seems to be the easiest way to accomplish the task. In VBScript, the CreateObject function allows you to create a COM object on a remote computer if you pass it a second parameter with the computer name. I intend to do something like this: --- Set updateObj = CreateObject("Microsoft.Update.Session","remoteComputer") --- The remote computers I will be checking have an alternate domain account that grants me local admin on the box. The domain account I will be running the script from has no access to the remote computers Is it possible to specify this alternate account before or after calling CreateObject? Alternately, is there a way for me to do this through the Microsoft.Update.Session object? I realize that I could perform a Run As on the script, but I won't be able to do that after I've created the skeleton for the script. Tag: Retrive Bios Events Tag: 187638
  - 24
    - Need a script for field techs to use to reset user passwords We have a Win 2K3 AD domain with multiple site. Spread out among these sites are field techs that assist the users with their PC issues. I need a script for field techs to use to reset user passwords. We do not want to give them access to AD Users and Computers. The problem is that I can write a script that uses an LDAP call such as ("LDAP://cn=user,ou=management,dc=domain,dc=com"). However these techs will not know what OU a specific user is in. I don't know a way to do this without the LDAP. Any suggestions? Thanks ccoates@gfs.com Tag: Retrive Bios Events Tag: 187637
  - 25
    - Page .asp to change password Hello all, I need one page to change password via .asp in network windows 2000. Anybody have some tips to this? Tag: Retrive Bios Events Tag: 187634

Hi,
Is there a way of retriving the bios logs from a computer with a
script. We wish to run a computer startup script on win2K based computers
that would be able to look at the bios log to see if the case had been
opened at some time. If so we will then need to take certain action. If this
is at all possible could somebody be kind and show me a sample of the could
that I would need to run.

Thanks
Kenneth

Top