script to update computer name

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
    - insert quotes into a txt file hi i have this script to take input from a user dim fso, wshshl, fil,oShell, strExec, fullname dim txtFil set wshshl = wscript.createobject("wscript.shell" set fso = createobject("Scripting.FileSystemObject" set oShell=Wscript.CreateObject("Wscript.Shell" fullname = inputbox("Enter in Full Name to be assigned to Client", "Fullname" Set txtFile = fso.OpenTextFile("c:\a.xt", 2, True 'Change 2 to 8 if you want to append to fil txtFile.WriteLine "Name = " & fullnam txtFile.Clos My problem is that when a user enters in spaces between the name, i.e, john do the output that is written to a.txt is: john do However, I need to insert quotes around the john doe, like "john doe" on the txt file because it is being read by anothe program, and it needs quotes around the variable otherwise it will be truncated with just "john" I pretty sure this is simple, but i'm just learning vb script, so i'm wondering if anyone can help thanks andy Tag: script to update computer name Tag: 152533
  - 2
    - "Destroy" a MsgBox Hello, I vaguely remember that in some programming languages there is a way to "destroy" a message box - is there a way to do this in VBScript? By "destroy" I mean that rather than the user clicking "OK" that the script makes the msgbox go away. All suggestions will be greatly appreciated. TIA, Bill Burke bill@2burkes.com Tag: script to update computer name Tag: 152528
  - 3
    - Network Drive Mapping Information Below is the script which can give me information on all the drive on windows machine but I am looking for full path like that of net use command ex: x: \\server\test Dim objFSO, objDrive Set objFSO = CreateObject("Scripting.FileSystemObject") For Each objDrive In objFSO.Drives 'check if drive is ready, If objDrive.IsReady Then Wscript.Echo objDrive.DriveLetter & " is " & _ Fix(((objDrive.TotalSize - objDrive.FreeSpace) _ / objDrive.TotalSize) * 100) & "% used" drvpath = objdrive.Driveletter 'showdriveinfo(drvpath) Else Wscript.Echo objDrive.DriveLetter & " is not ready" End If Next Thanks, Kumar Tag: script to update computer name Tag: 152526
  - 4
    - VB Script - two keyboard keys at the same time in a script Hello; I was wondering how you put a command in a VB script that commands two keyboard strokes at the same time. i.e. when you want the alt button you put {alt} What I want is to put the alt key and tab at the same time; like holding the two keys at the same time. If you put in the script {alt}{tab} I assume it would consider them stroked sequencially, not at the same time. Anyone have the solution? Brian Tag: script to update computer name Tag: 152525
  - 5
    - Win32_ComputerShutdownEvent WMI event instance Hi all Has any one been able to sucessfully retrieve instances of WMI Win32_ComputerShutdownEvent using VB script ? I have tried with the following code but to no avail. I first ran the script and then logoff but I got no event. please help Dim objEventSourc Dim strWQLQuer Dim objNextEven strWQLQuery = "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_ComputerShutdownEvent' Set objEventSource = GetObject("winmgmts:{impersonationLevel=impersonate}!root\cimv2").ExecNotificationQuery(strWQLQuery wscript.echo "waiting for event... Set objNextEvent = objEventSource.NextEven wscript.echo "Event took place Wscript.echo "MachineName = " & objNextEvent.MachineName & chr(10) & "Type = " & objNextEvent.Type Tag: script to update computer name Tag: 152524
  - 6
    - output to a file (newbie!!) I need the output from below scripts to the files like c:\txt strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) WScript.Echo IPConfig.IPAddress(i), IPConfig.Description(i) Next End If Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_Process") Error = objWMIService.Create("net use", null, null, intProcessID) If Error = 0 Then Wscript.Echo "Net use is executed with a process ID of " _ & intProcessID & "." Else Wscript.Echo "Notepad could not be started due to error " & _ Error & "." End If Tag: script to update computer name Tag: 152523
  - 7
    - Code download file from internet It's possible? Some tip? []'s Tag: script to update computer name Tag: 152519
  - 8
    - Signcode script not working when file to be signed has long target path Hi all I have the following script which uses Signcode.exe to sign my code files. However it fails with "Error: Too many parameters." when the file I am trying to sign is many levels deep eg D:\Profiles\Someuser\folder1\folder2\folder3\folder4 etc. If I copy the file to be signed to my desktop ("D:\Profiles\Auser\Desktop"), it works fine. Copying my files around all the time is a pain and I would like to get to the bottom of this. Any help greatly appreciated. Thanks Andrew 'CODE STARTS Const signcommand = "%COMSPEC% /C signcode -cn ""MyCert"" -t http://timestamp.verisign.com/scripts/timstamp.dll" Const tmp = "D:\Profiles\AUser\Desktop\Sign.Out" Dim fso, Wshshell, objDlg, Shell, strInput Set Wshshell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set Shell = wscript.CreateObject("wscript.Shell") Set objDlg = wscript.CreateObject("MSComDlg.CommonDialog") objDlg.FilterIndex = 0 objDlg.MaxFileSize = 260 objDlg.InitDir = "D:\Profiles\Auser\MyVBApps\@bc_InstallShield\Folder1\Folder2" 'objDlg.CancelError = True objDlg.Filter = "MyGreatApps(*.dll;*.exe;*.cab)|*.dll;*.exe;*.cab" objDlg.DialogTitle = "Select an app to sign" objDlg.ShowOpen strInput = objDlg.FileName If strInput = "" Then WScript.echo "You didn't select a file you donkey" WScript.quit End If Wshshell.Run signcommand & " " & strInput & " >" & tmp, 1 counter=0 Do While NOT Wshshell.AppActivate(promptTitle) ' wait until signcode prompt title appears WScript.Sleep 200 counter = counter + 1 If counter > 100 Then 'avoid infinite loop (20 secs), if problem with timestamping,for example. Exit Do End If Loop WScript.Quit Tag: script to update computer name Tag: 152517
  - 9
    - Calling 2 onchange event functions? Hello, I'm trying to make an input element call 2 different functions during an onchange event. One is inside a behavior file, and the other is on the original behavior file where the input tag is being rendered. ie. in BehavOrig.htc, inputA is being rendered something like this <input style="behavior:url('BehavOther.htc)" onChange="vbscript:OrigOnChangeFunction"> where OrigOnChangeFunction is a public method inside BehavOrig.htc The way it is right now, OrigOnChangeFunction gets called before the onchange function in BehavOther.htc How do I get it to switch the order around? Thanks V Tag: script to update computer name Tag: 152513
  - 10
    - Newbie question Hello, I'd like to query Active Directory to list all users mailbox name (full path) for a given Information store. Could someone help me out? Thank you, SC Tag: script to update computer name Tag: 152511
  - 11
    - Track when computers were last logged into a Windows 2000 Network Is this possible through a script? Tag: script to update computer name Tag: 152506
  - 12
    - Passing a date to a method that expects type Date Hello, I have a method of an object that expects a date type to be passed into it. How would I do that from VBScript? In VBA, all I have to do is: Dim dtDay as Date Set dv = CurrentRecordset.Add("Duration", dtDay) With VBScript, I cannot seem to figure out how to pass in that dtDay... Thanks in advance, Andrew Mueller Tag: script to update computer name Tag: 152502
  - 13
    - vb.net parameters First off, I know this is the wrong forum for this, but I thought I'd give this a shot... Does anyone know how to run a dos program with parameters in vb.net? Whenever I execute the shell command, it just comes back with a "File not found" thingy. Tag: script to update computer name Tag: 152500
  - 14
    - Handling Word and Excel events with parameters I'm working on a VBScript to be run in WSH. I want to handle events occuring in MS Word and Excel, but I seem to be having problems. As long as the event has no parameters, I can handle it just fine. If an event requires a parameter, the script won't process the event. Here's my code Dim boolContinu Set oApp = WScript.CreateObject("Word.Application", "oApp_" oApp.Visible = Tru oApp.Documents.Add 'Fires the NewDocument even boolContinue = Tru While boolContinu WScript.Sleep(100 Wen Sub oApp_NewDocument(ByVal Doc MsgBox "NewDocument Event fired 'boolContinue = False End Su Sub oApp_Quit( MsgBox "Quit Event fired boolContinue = Fals End Su Running the script, the Quit event is processed, but the NewDocument event never is. I've tried all sorts of permutations on which parameters the NewDocument event could take, but I've had no luck. What am I missing? Tag: script to update computer name Tag: 152494
  - 15
    - Focus IF I have: <script language="vbscript"> sub test msgbox document.getElementsByname("test").item(0).value test.select test.focus() end sub </script> <body>....... <INPUT type="text" onbeforedeactivate="test()" value="test" id="test" name="test"> I wonder why I can't get the focus on my input box when I use onbeforedeactivate event? test.select - it marks text in the iput box - that works but focus doesn't work. Thank you, Simon Tag: script to update computer name Tag: 152488
  - 16
    - CDONTS.Newmail not sending the message I have been using the script below and it was working fine up till the point when my server died on me. Previously the server was Windows 2003 upgraded from 2000 and Exchange 2003 upgaded from 2000. I've since reloaded the server after it died with 2003 instead of going about an upgrade path. The script was working perfectly fine before. Why isn't it working now and what do I need to do? Script: _________________________ SendNotification "from@mydomain.com", "to@domaina.com", "cc@domainb.com", "Testing SendNotification sub", "Testing", 0 Sub SendNotification (sEmailFrom, sEmailTo, sEmailCc, sSubject, sEmailBody, sAttachment) Dim objEmail On Error Resume Next Set objEMail = CreateObject("CDONTS.Newmail") 'objEMail.From = sEmailFrom objEMail.To = sEmailTo if sEmailCc <> "0" Then objEMail.Cc = sEmailCc objEMail.Subject = sSubject objEMail.Body = sEmailBody if sAttachment <> "0" Then objEMail.AttachFile sAttachment ObjEMail.Send() Set objEMail = nothing End Sub ________________________ -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley (mike_brearley at hotmail dot com) Tag: script to update computer name Tag: 152487
  - 17
    - use msvsa for vbscript debugging Somehow, a long time ago, we managed to set our NT systems up in such a way, that the MS Visual Studio Analyzer is launched automatically when a run-time error occurs while running a VBscript, displaying the relevant information. Recently we have moved to XP, and although all the tools are the same (VS6, Primal Script), we have not been able to configure our new systems to show the same behaviour. Can anyone shed some light on how to make this happen? Thanks, Rob Hegt Tag: script to update computer name Tag: 152484
  - 18
    - Changes in vbscript? Hi! I'd like to know if there are changes in vbscript with Longhorn. I've heard that variant doesn't exist anymore.Is it true? Thank you Tag: script to update computer name Tag: 152483
  - 19
    - Network Backup Hi What's the best way to backup data over a network with minimal human intervention? Currently, I use a VB Script with FileSystemObject's CopyFolder method to copy a folder (and it's sub-folders) to a shared directory. There seem to be some permission related problems with this method.... Seemingly with permissions.... What permission would I need to set on the source folder to make the script work properly? (Does the script act as SYSTEM, or as the current User? or something else?) Or is there a better way altogether? Any ideas? TIA - David Angelovich Tag: script to update computer name Tag: 152480
  - 20
    - Calculation Problem I am having problems with the following: I have a text box for a user to enter data. I have a 'calculate' button. When a user clicks the calculate button, I need the following code to be processed: -verify that the user entered numbers of a specific range into that text box (1-100) -verify that the number is greater than 0 -verify that it was a number that was entered using the IsNumeric function -if all is true and good, then I need to pass the data the user entered to another variable called idb1OutOf1. How do I do this? txtoutof1 is the text box that the user has to enter data into. See below - very badly written because I don't quite know how to do this. Private Sub cmdCalculate_Click(Index As Integer) ' Added '&' symbol in front of Calculate to create a HotKey for 'C' ' Changed the 'Default' property on cmdCalculate button to TRUE to make it the default button ' Declare a variable for the numeric value range to test for Dim iNumvalue As Integer iNumvalue = 1 - 100 If frmMain.txtOutof1 = > 0 And IsNumeric(iNumvalue) = True Then iNumvalue = idb1Outof1 Else: MsgBox "Mark information missing, please re-enter.", vbOKOnly + vbcritital, "User Error!" End If End Sub Tag: script to update computer name Tag: 152474
  - 21
    - Integer/ Single Variable and data Novice at VB - I need to declare a variable of type 'single' and I need to assign a 'range of numbers' to it - how do I do this? ie. Dim myvar as Single myvar = 1 - 100 (meaning an appropriate value would be anything in between this range) Help please, Tag: script to update computer name Tag: 152470
  - 22
    - TURN $12 INTO $12,000 NOW!!! EEP THIS SHIT YALL MY FRIEND GOT $500 LAST WEEK TRYING THIS SHIT: make extra cash GREAT WAY TO BECOME RICH...INSTANT THOUSANDS This is no scam, read it!!!!!! ------------------------------------------------------------------------ -------- HOW TO TURN $12 INTO $12,000!!!!!!!!!!!!!!!!!!!!!!!!!!!! THIS REALLY CAN MAKE YOU EASY MONEY!! IT WORKS !!! BUT YOU HAVE TO FOLLOW IT TO THE LETTER FOR IT TO WORK!!!! : A little while back, I was browsing through newsgroup, just like you are now and came across an article similar to this that said you could make thousands dollars within weeks with only an initial investment of $12.00! So I thought, "Yeah, right, this must be a scam", but like most of us, I was curious, so I kept reading. : Anyway, it said that you send $2.00 to each of the 6 names and address stated in the article. You then place your own name and address in the bottom of the list at #6, and post the article in at least 200 newsgroup. (There are thousands) No catch, that was it. So after thinking it over, and talking to few people first, I thought about trying it. I figured what have I got to lose except 6 stamps and $12.00, right? Like most of us I was a little skeptical and a little worried about the legal aspects of it : All, So I checked it out with the U.S. Post Office (1-800-725-2161) and they confirmed that it is indeed legal! Then I invested the measly $12.00. Well GUESS WHAT!!?. Within 7 days, I started getting money in the mail! I was shocked! I figured it would end soon, but the money just kept coming in. In my first week, I made about $25.00. By the end second week I had made a total over $1,000.00! In the third week I had over $10,000.00 and it's still growing. This is now my fourth week and I have made a total of just over $42,000.00 and it's still coming in rapidly. Its : Certainly worth $12.00, and 6 stamps, I have spent more than that on the lottery!! : Let me tell you how this works and most importantly, why it works?.also, make sure you print a copy of this article NOW, so you can get the information off of it as you need it. STEP 1: Get 6 separate pieces of paper and write the following on each piece of paper "PLEASE PUT ME ON YOUR MAILING LIST." Now get 2 US $1.00 bills and place TWO inside EACH of the 6 pieces of paper so the bills will not be seen through the envelope to prevent thievery. Next, place one paper in each stating the above phrase, your name and address, and 2 $1.00 bills. What you are doing is creating a service by this. THIS IS ABSOLUTELY LEGAL! Mail the 6 envelopes to the following addresses: #1) Corteney Tomson P.O. Box 55 Dupo, IL 62239 #2) Brad Taylor 6 Terry Ln. Hutchinson, KS 67501 #3) Cedric Etienne 239 Autumn Breeze Way Winter Park, FL 32792 #4) Stephen Mitchell 1977 Alcovy Trace Way Lawrenceville, GA 30045 #5) Melissa Martinez 15440 sw 74 cir ct #607 Miami, FL 33193 #6) Maurice Sawyers 49 Middle Rose St Trenton, NJ 08618 STEP 2: Now take the #1 name off the list that you see above, move the other names up (6 becomes 5, 5 becomes 4, etc?.) and add YOUR Name as number 6 on the list. STEP 3: Change anything you need to, but try to keep this article as close to original as possible. Now, post your amended article to at least 200 newsgroups, message board. (I think there are close to 24,000 groups) All you need is 200, but remember, the more you post, the more money you make!---- DIRECTIONS----HOW TO POST TO NEWSGROUPS, MESSAGE BOARD----------Step 1) You do not need to re-type this entire letter to do your own posting. Simply put your cursor at the beginning of this letter and drag your : Cursor to the bottom of this document, and select 'copy' from the edit menu. This will copy the entire letter into the computer memory. Step 2) Open a blank 'notepad' file and place your cursor at the top of the blank page. From the 'edit' menu select 'paste'. This will paste a copy of the letter into notepad so that you can add your name to the list. Step 3) save your new notepad file as a .txt file. If you want to do your postings in different sittings, you'll always have this file to go back to. : Step 4) Use Netscape or Internet explorer and try searching for various newsgroups (on-line forums, message boards, chat sites, discussions.) Just example you log on any search engine like yahoo. com,google. com,altavista. com,excite. com then you search with this subject ? millionaire message board? or ?money making message board? or ? employment message board? or ?money making discussions? or ?money making forum? or ?business message board? etc. You will find thousand & thousand message board. Click one by one then you will find the option post a new message. : Step 5) Visit these message boards and post this article as a new message by highlighting the text of this letter and selecting paste from the edit menu. Fill in the Subject, this will be the header that everyone sees as they scroll through the list of postings in a particular group, click the post message button. You're done with your first one!. : Congratulations? THAT'S IT! All you have to do is jump to different newsgroups and post away, after you get the hang of it, and it will take about 30 seconds for each newsgroup! ** REMEMBER, THE MORE NEWSGROUPS OR MESSAGE BOARD YOU POST IN, THE MORE MONEY YOU EILL MAKE!! BUT YOU HAVE TO POST A MINIMUM OF 200** That's it! You will begin receiving money from around the world within days! You may eventually can rent a P.O. Box due to the large amount of mail you will receive. If you wish to stay anonymous, you can invent a name to use, as long as the postman will deliver it. **JUST MAKE SURE ALL THE ADDRESSES ARE CORRECT. ** : Now the WHY part: Out of 200 postings, say I receive only 5 replies (a very low example). So then I Made $5.00 with my name at #6 on the letter. Now, each of the 5 persons who just sent me $2.00 make the MINIMUM 200 postings, each with my name at #5 and only 5 persons respond to each of the original 5, that is another $25.00 for me, now those 25 each make 200 MINIMUM posts with my name at #4 and only 5 replies each, I will bring in an additional :$125.00! Now, those 125 persons turn around and post the MINIMUM 200 with my name at #3 and only receive 5 replies each, I will make an additional $625.00! OK, now here is the fun part, each of those 625 persons post a MINIMUM 200 letters with my name at #2 and they only receive 5 replies, that just made me $3,125.00!!! Those 3,125 persons will all deliver this message to 200 newsgroups with my name at #1 and if still 5 persons per 200 newsgroups react I will receive $15,625.00! With an original investment of only $12.00! AMAZING! When your name is no longer on the list, you just take latest posting in the newsgroups, and send out another $12.00 to names on the list, putting your name at number 6 again. And start posting again. The thing to remember is, do you realize that thousands of people all over the world are joining the internet and reading these articles everyday, JUST LIKE YOU are now!! So can you afford $12.. and see if it really works?? I think so? People have said, 'what if the plan is played out and no one sends you: the money? So what are the chances of that happening when there are tons of new honest users and new honest people who are joining the internet and newsgroups everyday and are willing to give it a try? Estimates are at 20,000 to 50,000 new users, every day, with thousands of those joining the actual Internet. AND YES YOU HAVE TO SEND THE MONEY FOR THIS TO WORK!!!dont try not to,IT WONT WORK TRUST ME Tag: script to update computer name Tag: 152468
  - 23
    - VB Logon script 2003 server I have been searching these groups for hours to find a simple vb script. All I have found have been too complex and I have been unable to simplify them. Here is what I need help with: If user is a member of group "IT" map \\server\dept\IT If user is a member of group "HR" map \\server\dept\HR All clients are Win 2K/XP Any help would be much appreciated. Josh Tag: script to update computer name Tag: 152466
  - 24
    - HTML Table Hi, how do I enforce a table cell or cells within a table not to expand horizontally? if I have text that exceed the width of the table, the table cell expands and I don't want that. Please advise. Rafael Tag: script to update computer name Tag: 152465
  - 25
    - shell.run problems Hi, Whenever I use shell.run Norton AV catches my script as an unsafe script. I can authorize the script, but I have to do that on every machine every time I make a change to the script. Is there any other way I can launch a program from a script file? I want to launch Outlook. I know I can do it from a batch file, but how can I make the batch file run after my script file? Thanks!!! Tag: script to update computer name Tag: 152459
- Next
  - 1
    - vbscript and kiosk question Hello, I have written some vbscript that compares the timestamp of a file written to a server against the actual time of the server. The file on the server is generated by a kiosk application that sends a request up to an asp page which in turn writes out a bit of information to a file, which in turn constantly makes the timestamp of the file change. When the user wants to check if any of kiosks are still running they can load the status monitor .asp page that quickly lets them know the last time any of the kiosks have pinged the server with a status update. At any rate, every now and then, even though the kiosks are running and sending pings to the server. The kiosk status monitor page reports that some of the kiosks are not running. I'm in no way an expert vbscript programmer and I was hoping that someone on this list would be kind enough to look at "is_kiosk_active(whatKioskFileName, whatTimeOffset)" function to see if they could possibly provide any clues as to why this script fails sometimes. The passed in parameters of the is_kiosk_active are as follows: whatKioskFileName = This is basically the name of the kiosk file sitting on the server that the kiosk itself creates and updates over time by sending messages to an asp page to update it whatTimeOffset = This is the time in minutes that the kiosk has to report to the status monitoring page. If the kiosk doesn't report to the server within this timeframe than the kiosk is considered down and not running. Any suggestions would be very very appreciated! Best Regards, devin <% FUNCTION is_kiosk_active(whatKioskFileName, whatTimeOffset) SET myFSO = Server.CreateObject("Scripting.FileSystemObject") 'this line creates an instance of the File Scripting Object named myFSO fname = Server.MapPath(whatKioskFileName) 'this returns back the path to the file on the server If myFSO.FileExists(fname) THEN 'the kiosk file exists so lets check to see if the kiosk is up and running serverInMilitaryTime = PMilTime(now) 'returns the military time of the server as a large integer w/o the colon seperator kioskInMilitaryTime = PMilTime(returnDateLastModified(whatKioskFileName)) 'returns the military time of the kiosk file as a large integer w/o the colon seperator If (serverInMilitaryTime >= kioskInMilitaryTime) Then 'the server hasn't crossed over into a new day so let's kioskOffsetTime = (serverInMilitaryTime - kioskInMilitaryTime) If (kioskOffsetTime > whatTimeOffset) Then 'the kiosk has failed to report within its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "false" 'return back 'false' to the calling method Else 'the kiosk reported during its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "true" 'return back 'false' to the calling method End if ELSE ' the kiosk time is greater than the server time which means we've crossed over into a new day kioskOffsetTime = (2360 - (kioskInMilitaryTime - serverInMilitaryTime)) 'subtract the serverInMilitaryTime from the kioskInMilitaryTime and then subtract that from 2360. Hope this works :) If (kioskOffsetTime > whatTimeOffset) Then 'the kiosk has failed to report within its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "false" 'return back 'false' to the calling method Else 'the kiosk reported during its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "true" 'return back 'false' to the calling method End if End if Else 'the kiosk file doesn't exist on the server yet! SET myFSO = NOTHING 'destroy the instance of the File Scripting Object named myFSO is_kiosk_active = "waiting" 'return back a status of 'waiting' which will display a yellow bubble End If END FUNCTION ' FUNCTION returnDateLastModified (whatFileName) ' Create an instance of FileSystemObject object Set loFs = Server.CreateObject("Scripting.FileSystemObject") ' Get the physical path of the file lsPath = Server.MapPath(whatFileName) 'the file exists lets check to see if the kiosk is up and running by comparing 'time values on the server and the modified time of the kiosk file If loFs.FileExists(lsPath) Then ' Get a handle/pointer to this file Set loFile = loFs.GetFile(lsPath) ' Get the "Last Modified" property of this file ldLast = loFile.DateLastModified ' return the value to the calling handler returnDateLastModified = ldLast ELSE ' Release the objects Set loFs = Nothing returnDateLastModified = "NA" END IF END FUNCTION ' FUNCTION returnTimeLastModified (whatFileName) ' Create an instance of FileSystemObject object Set loFs = Server.CreateObject("Scripting.FileSystemObject") ' Get the physical path of the file lsPath = Server.MapPath(whatFileName) 'the file exists lets check to see if the kiosk is up and running by comparing 'time values on the server and the modified time of the kiosk file If loFs.FileExists(lsPath) Then ' Get a handle/pointer to this file Set loFile = loFs.GetFile(lsPath) ' Get the "Last Modified" property of this file ldLast = loFile.DateLastModified 'Response.Write "File modified time = " & ldLast & "<br>" ' Release the objects Set loFile = Nothing Set loFs = Nothing strLength = Len( ldLast ) charStart = InStr( ldLast, " ") + 1 fileModTime = Mid( ldLast , charStart ) charLen = Len (fileModTime) returnTimeLastModified = Left(fileModTime, (charLen-6)) ELSE ' Release the objects Set loFs = Nothing returnTimeLastModified = "NA" END IF END FUNCTION ' FUNCTION returnAMorPM_string(whatString) 'return the last two characters of the string amOrPm = Right(whatString,2) returnAMorPM_string = amOrPm END FUNCTION ' FUNCTION return_hours(whatTime) myColon = instr(1, whatTime, ":",vbBinaryCompare) IF myColon = 2 THEN return_hours = Left(whatTime,1) ELSE return_hours = Left(whatTime,2) END IF END FUNCTION ' FUNCTION return_minutes(whatTime) myColon = instr(1, whatTime, ":",vbBinaryCompare) IF myColon = 2 THEN return_minutes = Mid(whatTime, 3, 2) ELSE return_minutes = Mid(whatTime, 4, 2) END IF END FUNCTION ' FUNCTION return_server_time() serverTime = now 'Response.Write "Server Time = " & serverTime & "<br>" strLength = Len( serverTime ) charStart = InStr( serverTime , " ") + 1 fileModTime = Mid(serverTime , charStart ) charLen = Len (fileModTime) return_server_time = Left(fileModTime, (charLen-6)) END FUNCTION ' FUNCTION returnKioskPingTime (whatKioskName) 'this line creates an instance of the File Scripting Object named myFSO SET myFSO = Server.CreateObject("Scripting.FileSystemObject") pingFileName = Server.MapPath(whatKioskName) 'the file exists so lets grab the ping time value from the file If myFSO.FileExists(pingFileName) Then 'open a text strem to the myKioskCurrent data file set readfile = myFSO.OpenTextFile(pingFileName, 1, false) 'read the kiosk ping time value from the file kioskPingTime = readfile.ReadLine ' close the file handle readfile.close ' Release the file object Set myFSO = Nothing returnKioskPingTime = kioskPingTime ELSE 'The kiosk ping file hasn't been created yet so let's return back a ping time of 'NA' ' Release the file object Set myFSO = Nothing returnKioskPingTime = "NA" END IF END FUNCTION FUNCTION PMilTime(Byval dtime) dim hr,mn hr = hour(dtime) : mn = minute(dtime) if len(hr) = 1 then hr = 0 & hr if len(mn) = 1 then mn = 0 & mn 'PMilTime = hr & ":" & mn PMilTime = CInt(hr & mn) END FUNCTION FUNCTION returnServerMilitaryTime(Byval dtime) dim hr,mn hr = hour(dtime) : mn = minute(dtime) : ss = second(dtime) if len(hr) = 1 then hr = 0 & hr if len(mn) = 1 then mn = 0 & mn if len(ss) = 1 then ss = 0 & ss returnServerMilitaryTime = hr & ":" & mn & ":" & ss END FUNCTION %> Tag: script to update computer name Tag: 152455
  - 2
    - vbscript and kiosk question Hello, I have written some vbscript that compares the timestamp of a file written to a server againts the actual time of the server. The file on the server is generated by a kiosk application that sends a request up to an asp page which in turn writes out a bit of information to a file, which in turn constantly makes the timestamp of the file change. When the user wants to check if any of kiosks are still running they can load the status monitor .asp page that quickly lets them know the last time any of the kiosks have pinged the server with a status update. At any rate, every now and then, even though the kiosks are running and sending pings to the server. The kiosk status monitor page reports that some of the kiosks are not running. I'm in no way an expert vbscript programmer and I was hoping that someone on this list would be kind enough to look at "is_kiosk_active(whatKioskFileName, whatTimeOffset)" function to see if they could possibly provide any clues as to why this script fails sometimes. The passed in parameters of the is_kiosk_active are as follows: whatKioskFileName = This is basically the name of the kiosk file sitting on the server that the kiosk itself creates and updates over time by sending messages to an asp page to update it whatTimeOffset = This is the time in minutes that the kiosk has to report to the status monitoring page. If the kiosk doesn't report to the server within this timeframe than the kiosk is considered down and not running. Any suggestions would be very very appreciated! Best Regards, devin <% FUNCTION is_kiosk_active(whatKioskFileName, whatTimeOffset) SET myFSO = Server.CreateObject("Scripting.FileSystemObject") 'this line creates an instance of the File Scripting Object named myFSO fname = Server.MapPath(whatKioskFileName) 'this returns back the path to the file on the server If myFSO.FileExists(fname) THEN 'the kiosk file exists so lets check to see if the kiosk is up and running serverInMilitaryTime = PMilTime(now) 'returns the military time of the server as a large integer w/o the colon seperator kioskInMilitaryTime = PMilTime(returnDateLastModified(whatKioskFileName)) 'returns the military time of the kiosk file as a large integer w/o the colon seperator If (serverInMilitaryTime >= kioskInMilitaryTime) Then 'the server hasn't crossed over into a new day so let's kioskOffsetTime = (serverInMilitaryTime - kioskInMilitaryTime) If (kioskOffsetTime > whatTimeOffset) Then 'the kiosk has failed to report within its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "false" 'return back 'false' to the calling method Else 'the kiosk reported during its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "true" 'return back 'false' to the calling method End if ELSE ' the kiosk time is greater than the server time which means we've crossed over into a new day kioskOffsetTime = (2360 - (kioskInMilitaryTime - serverInMilitaryTime)) 'subtract the serverInMilitaryTime from the kioskInMilitaryTime and then subtract that from 2360. Hope this works :) If (kioskOffsetTime > whatTimeOffset) Then 'the kiosk has failed to report within its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "false" 'return back 'false' to the calling method Else 'the kiosk reported during its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "true" 'return back 'false' to the calling method End if End if Else 'the kiosk file doesn't exist on the server yet! SET myFSO = NOTHING 'destroy the instance of the File Scripting Object named myFSO is_kiosk_active = "waiting" 'return back a status of 'waiting' which will display a yellow bubble End If END FUNCTION ' FUNCTION returnDateLastModified (whatFileName) ' Create an instance of FileSystemObject object Set loFs = Server.CreateObject("Scripting.FileSystemObject") ' Get the physical path of the file lsPath = Server.MapPath(whatFileName) 'the file exists lets check to see if the kiosk is up and running by comparing 'time values on the server and the modified time of the kiosk file If loFs.FileExists(lsPath) Then ' Get a handle/pointer to this file Set loFile = loFs.GetFile(lsPath) ' Get the "Last Modified" property of this file ldLast = loFile.DateLastModified ' return the value to the calling handler returnDateLastModified = ldLast ELSE ' Release the objects Set loFs = Nothing returnDateLastModified = "NA" END IF END FUNCTION ' FUNCTION returnTimeLastModified (whatFileName) ' Create an instance of FileSystemObject object Set loFs = Server.CreateObject("Scripting.FileSystemObject") ' Get the physical path of the file lsPath = Server.MapPath(whatFileName) 'the file exists lets check to see if the kiosk is up and running by comparing 'time values on the server and the modified time of the kiosk file If loFs.FileExists(lsPath) Then ' Get a handle/pointer to this file Set loFile = loFs.GetFile(lsPath) ' Get the "Last Modified" property of this file ldLast = loFile.DateLastModified 'Response.Write "File modified time = " & ldLast & "<br>" ' Release the objects Set loFile = Nothing Set loFs = Nothing strLength = Len( ldLast ) charStart = InStr( ldLast, " ") + 1 fileModTime = Mid( ldLast , charStart ) charLen = Len (fileModTime) returnTimeLastModified = Left(fileModTime, (charLen-6)) ELSE ' Release the objects Set loFs = Nothing returnTimeLastModified = "NA" END IF END FUNCTION ' FUNCTION returnAMorPM_string(whatString) 'return the last two characters of the string amOrPm = Right(whatString,2) returnAMorPM_string = amOrPm END FUNCTION ' FUNCTION return_hours(whatTime) myColon = instr(1, whatTime, ":",vbBinaryCompare) IF myColon = 2 THEN return_hours = Left(whatTime,1) ELSE return_hours = Left(whatTime,2) END IF END FUNCTION ' FUNCTION return_minutes(whatTime) myColon = instr(1, whatTime, ":",vbBinaryCompare) IF myColon = 2 THEN return_minutes = Mid(whatTime, 3, 2) ELSE return_minutes = Mid(whatTime, 4, 2) END IF END FUNCTION ' FUNCTION return_server_time() serverTime = now 'Response.Write "Server Time = " & serverTime & "<br>" strLength = Len( serverTime ) charStart = InStr( serverTime , " ") + 1 fileModTime = Mid(serverTime , charStart ) charLen = Len (fileModTime) return_server_time = Left(fileModTime, (charLen-6)) END FUNCTION ' FUNCTION returnKioskPingTime (whatKioskName) 'this line creates an instance of the File Scripting Object named myFSO SET myFSO = Server.CreateObject("Scripting.FileSystemObject") pingFileName = Server.MapPath(whatKioskName) 'the file exists so lets grab the ping time value from the file If myFSO.FileExists(pingFileName) Then 'open a text strem to the myKioskCurrent data file set readfile = myFSO.OpenTextFile(pingFileName, 1, false) 'read the kiosk ping time value from the file kioskPingTime = readfile.ReadLine ' close the file handle readfile.close ' Release the file object Set myFSO = Nothing returnKioskPingTime = kioskPingTime ELSE 'The kiosk ping file hasn't been created yet so let's return back a ping time of 'NA' ' Release the file object Set myFSO = Nothing returnKioskPingTime = "NA" END IF END FUNCTION FUNCTION PMilTime(Byval dtime) dim hr,mn hr = hour(dtime) : mn = minute(dtime) if len(hr) = 1 then hr = 0 & hr if len(mn) = 1 then mn = 0 & mn 'PMilTime = hr & ":" & mn PMilTime = CInt(hr & mn) END FUNCTION FUNCTION returnServerMilitaryTime(Byval dtime) dim hr,mn hr = hour(dtime) : mn = minute(dtime) : ss = second(dtime) if len(hr) = 1 then hr = 0 & hr if len(mn) = 1 then mn = 0 & mn if len(ss) = 1 then ss = 0 & ss returnServerMilitaryTime = hr & ":" & mn & ":" & ss END FUNCTION %> Tag: script to update computer name Tag: 152454
  - 3
    - Array of Class? I'm new at VBScript, used to VB and UDT's. Since UDT's don't exist in VBS, I create a class like so... Class DemoClass dim val1 dim val2 dim val3 End Class Then I want to have an array of that class: dim MyClass() 'Dynamic Array to be ReDim'd later Set MyClass() = New DemoClass This give me a "sub-script out of range" error. If I remove the paren's, then I get a "type mismatch" error. Is this even possible? If so, can someone give me an example to go by? Thanks! Tag: script to update computer name Tag: 152449
  - 4
    - how to read different portions of a text-line Hi I know that thanks to FSO and the ReadLine method I can read text-lines from a text file. Now I have a text file like this: Rome,London Rome,Paris Rome,Houston New York,Boston I'd like to assign the line portion at the left of the "," to a variable word1 and the portion at the right to another variable word2(considering the first row,I'd like to obtain a value "Rome" for word1 and "London" for word2).How can I do such a thing? Thank you in advance! -- remove NOSPAM to send emails ICQ #8860533 Tag: script to update computer name Tag: 152448
  - 5
    - formatdatetime - vbLongTime fails on Windows 2003 Server The following works correctly on Windows 2000 SP4, but fails on Windows Server 2003 Standard Edition: (all servers have default North American Regional time/date settings) datTest=#1/1/1900 23:00# datTest = formatdatetime(dateadd("h",1,datTest),vbLongTime) wscript.echo datTest on Windows 2000 Server (and my own XP SP 1a workstation) the results are: 12:00:00AM on Windows 2003 Server Standard Edition: 12/31/1899 I cannot find any bugfixes from Microsoft, has anyone else duplicated this? Thanks, Scott Emick semick@ham.phoenix-sys.com to reply, remove the ham if it's not spam. Tag: script to update computer name Tag: 152447
  - 6
    - I need a script that will check to see if wordperfect is installed on a windows 2000 domain computers I need a script that will check to see if wordperfect is installed on a windows 2000 domain computers Tag: script to update computer name Tag: 152446
  - 7
    - Clear Screen Does anyone know how to clear the current user view in a dos screen while a vbscript is running? For instance: If a user selects an option from a menu, clear the menu and start the clear screen with their option... Thanks in advance.... Tag: script to update computer name Tag: 152443
  - 8
    - VB Collection Object in vbscript Hello all... Is it possible to use the VB Collection Object in vbscript? And if so, how do you instantiate it? I know I can't use "Set col = New Collection". Is there a "CreateObject" call I should use? Thanks in advance for any hints! Wendi Tag: script to update computer name Tag: 152440
  - 9
    - Combo Databinding Hi I'm fairly new to ASP and I'm trying to bind a Recordset to a combo. Is it the same way we do it in VB? -- Kind Regards Rikesh (V.InterDev6.0-SP5/W2K-SP4/SQL2K-SP3) Tag: script to update computer name Tag: 152434
  - 10
    - Rights management in asp Hi I'm trying do make a Web GUI to manage users right on folder in my server (win2000). To do that i'm trying to use the CACLS method. If I type in the command prompt on my server : cmd.exe /c echo Y| CACLS "J:\TheFolder" /E /C /P "Everybody":F All is working fine ... The rights are correctly set. The "Everybody" account have full acces to the folder. Well I try to use it in an ASP file with the following code: Sub ChangeFolderSettings(strFolderPath,strUser,strRights) Dim caclscommand Dim whs Dim whsRun Caclscommand = "cmd.exe /c echo Y| CACLS """ & strFolderPath Caclscommand = Caclscommand & """ /E /C /P """ & strUser & """:" & strRights Set whs = server.createobject("WScript.Shell") intError = whs.run(Caclscommand,0,true) If intError <> 0 Then response.write "<br>Error in command CACLS: "& intError &"<br>"& Caclscommand End If Set whsrun = nothing Set whs = nothing End Sub ..... ChangeFolderSettings "J:\TheFolder","Everybody","F" Rights are unchange. The asp file is in a folder that have just Administrator Full acces right. I call the file in my browser who ask me to logon. Any idea, why my command works fine in the prompt and not in the file ?? Damien remplacer/replace "StopSpam" par/by "aricia" Tag: script to update computer name Tag: 152429
  - 11
    - Object doesn't support this property (Urgent) Sorry if not the appropriate newsgroup.. We are using an html page that provides Office shortcuts. This web page contains a dll with a function that accepts 'program name' as a parameter. When the user loads the webpage it displays ok and prompts that user that it contains unsafe ActiveX controls, do you want to continue. The users reply yes and it then proceeds to download the dll (its actually in a CAB file). However, when the user then clicks on one of the shortcuts it errors with 'object doesn't support this property or method'. I'm not convinced that the dll has been installed, I've searched the clients machine and registry and cannot find the dll. 1. Am I right in thinking that the dll hasn't been installed if I can't find it on the clients machine and in the registry 2. What could be preventing this dll from installing - the customer is big on controlling security & permissions Thanks Pazza Tag: script to update computer name Tag: 152428
  - 12
    - changing images with a click Hi! I am a newbie in vb scripting. I want to show a gif image on my website. If the user click on a link (or a button or the image itsself - whatever) the image should be changed out and replaced by another image. Can someone help me? Best regards, Marc Tag: script to update computer name Tag: 152425
  - 13
    - Drawing a <SELECT> list filled with Access data CLIENTside ? Hi, on CLIENT side, not with ASP (serverside) but with VBscript I would like to fill and draw a SELECT LIST or COMBO BOX with data out of an Access table. I just do not know how to do this ... I use this combo with an Office Webcomponent Chart, also with data out of Access or ODBC. That last part is OK, out of the Examples of the Web Components, but they only show select lists with standard fixed values, not dynamicly.... That's my problem. PHIL -- http://users.tijd.com/fiwi Tag: script to update computer name Tag: 152424
  - 14
    - Full ADS Distinguished name of an object when not currently authenticated ? I need to be able to get the full distinguished name of a computer object from the directory without being initially authenticated. I know how to do this when already authenticated. By use of these lines Set Computer = CreateObject("ADSystemInfo") strCompDN = Computer.computerName But if you are using the local admin account you have no access to the directory. Any ideas how I can modify these lines to authenticate with a username and password and get the info I need? Tag: script to update computer name Tag: 152423
  - 15
    - Pop up box for authentication Guys, I have a strange request...we have a workgroup of 10pc`s all logging to access a local apps.. we also have a domain and all our clients are thin clients they access windows terminal server using citrix client..so they really dont have to log into the desktop pc to domain to gain access to the resources. I need to setup these PC`s in such a way that they can print to Domain printers I just need to know can we write a script which pops up asking for Windows Username and the password and once entered gets authentication on the PDC which lets users access to the printers. Any ideas .. Thsank PB Tag: script to update computer name Tag: 152421
  - 16
    - Export event logs directly to SQL? Hi, I was wondering if there were a way to Export event logs directly to SQL. Does anyone know if this is possible using VBscript or any of the Resource Kit tools? Thanks. Tag: script to update computer name Tag: 152411
  - 17
    - Substitute event.keyCode I am seeking a way to capture an Enter-Key event, and replace it with a TAB character. This way the {enter key} will function like a {tab}, allowing users to navigate complex input forms quickly. The following code snippet effectively captures the enter-key, and throws it away. Does anyone know how to substitute an enter-key event with another? <form onkeydown="fnTrapKD()"> function fnTrapKD(){ if (document.all){ if (event.keyCode == 13){ event.returnValue=false; event.cancel = true; } } } Tag: script to update computer name Tag: 152410
  - 18
    - win32_processor Hi all, Is there any way to trap in a processor is hyper threding? Using win32_processor gives two processors when there is only one physical unit. Thank you, Michael. Tag: script to update computer name Tag: 152409
  - 19
    - HELP! "Access is denied to this object." - Server object error 'ASP 0178 : 80070005' Hi, When I try to do Server.CreateObject on an activeX DLL, I receive the following message: ''''''''''''''''''''''' Server object error 'ASP 0178 : 80070005' Server.CreateObject Access Error /MyDirectory/MyPage.asp, line 118 The call to Server.CreateObject failed while checking permissions. Access is denied to this object. ''''''''''''''''''''''' It works on my production server and this is happening on my development server. The only real difference between the two environments are that development has Windows 2000 SP4 with most of the security patches. It use to work but I believe after my network admin added SP4 and the patches, I started receiving these errors. Is there a workaround? Or another patch to run? I read many post on how I would need to give read rights to ISUR_SERVERNAME and IWAM_SERVERNAME on the dll and perhaps even the folder that it sits in. On my production server there are no rights for these users. So, I don't think that's it. I tried giving my dll those rights, but I still get the error message. Basically, the two environments are the same (including rights) except for the fact that my development machine is more patched. One more thing, my dll is a proxy dll (com+), so in component services it refers to a database server that also has this dll. I compared the permissions in my development and production and they are the same. Like I said, it use to work but believe this came about after our network admin added SP4 and the patches. Any advice and suggestions would be greatly appreciated! Thanks, Phin Tag: script to update computer name Tag: 152408
  - 20
    - Modifying Registry from within vbScript What is the easiest way to modify the registry from within a script? If there a built-in function? Tag: script to update computer name Tag: 152406
  - 21
    - Head scratcher: username case Hello, I'm getting inconsistent results from: Set WshNetwork = CreateObject("WScript.Network") MsgBox WshNetwork.username Sometimes this returns the username using the same case used when the user logged into Windows, and sometimes I get mixed case, regardless of what case the user used to log into Windows. I'm observing this on different machines. The machine either exhibits one behavior or the other, but not both. Both machines as Windows 2000 SP2. Any thoughts? Thanks, Jeremy Tag: script to update computer name Tag: 152403
  - 22
    - Searching with Xoomle I've done a little script to search through Xoomle. Some characters in licensekey should be replaced with the appropriate url code. <HTML> <HEAD> <TITLE>Search with Xoomle</TITLE> <SCRIPT LANGUAGE="VBScript">  </SCRIPT> </HEAD> <BODY> -- Marco Tag: script to update computer name Tag: 152398
  - 23
    - advise, please Hello! Please advise me where can I post a message about job seeking for the small software developers team (VBscript, ASP, XML/XSLT, SQL skills)? Please, advise me to: contact@NO-SPAMsoftaura.net Tag: script to update computer name Tag: 152392
  - 24
    - Run a script command with elevated priveledges I Have created this script to Move the computer object of a machine in ADS, unfortunately this is run as the local admin user and as such has no permissions in ADS, can anyone see a way that I can have get this to run as a specified user so it will have the relevant permissions to complete the move ?? Set Computer = CreateObject("ADSystemInfo") strCompDN = Computer.computerName strOUDN = "OU=Workstations" set objComp = GetObject("LDAP://" & strCompDN) set objOU = GetObject("LDAP://" & strOUDN) objOU.MoveHere objComp.ADsPath, objComp.Name Tag: script to update computer name Tag: 152390
  - 25
    - between frames Hi all, How could I declare a function in a frame called FRAME1 and call it from another frame called FRAME2??? Thank you very much, Xavi Tag: script to update computer name Tag: 152388

Can I run a script to update the Computer Name of a W2K machine instead of
going through the Network Property ?
Please show me the script.

Thanks.
JW

Top

Re: script to update computer name by Brett

Brett
Fri Feb 06 00:50:38 CST 2004

Try this. It will ask you to change the name then type in the new name of the pc. You will need to reboot for the changes to take place

Cheers
Brett

PcName = InputBox("Please type in the PC Name (Username)")
Set objWMIService = GetObject("Winmgmts:root\cimv2")
For Each objComputer in objWMIService.InstancesOf("Win32_ComputerSystem")
Return = objComputer.rename(Ucase(PcName))
If Return <> 0 Then
WScript.Echo "Rename failed. Error = " & Err.Number
Else
WScript.Echo "I Need to restart"
End If
Next

**********************************************************************
Sent via Fuzzy Software @ http://www.fuzzysoftware.com/
Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources...

Top