I tried it at home, it doesn't call nbtstat like I need it to. I'm gonna combine it with the one I made though, since calling Word is better.
On my original, it has "nbtstat -a " & compIP, then copyExpr.Pattern = "\s*(\S+)\s+<20>" This regular expression pattern searches for a whitespace, a word, a whitespace, followed by the <20> found on the third line of nbtstat. --------------------------------------------- Todd Elliott [email protected] http://www.theuniquegeek.com/ http://www.google.com/profiles/thelliott On Fri, Mar 19, 2010 at 8:05 AM, James Peluso <[email protected]>wrote: > Hey Ed, > > It's not supposed to it calls the word object to put the nslookup output > into the clipboard like Todd wanted. Have you tried after running the > script to paste to notepad or word? Todd have you tried this out yet? Does > it do the functions your looking for? > > Jim > > > On Fri, Mar 19, 2010 at 7:53 AM, Edward Crosby <[email protected]>wrote: > >> James, this didn't open Word for me, if that is what it was supposed to >> do. >> >> -- >> Have a Better One, >> Edward Crosby >> http://www.edwardcrosby.com >> ----- >> "There are no atheists in foxholes or firmware updates." >> Merlin Mann >> >> > Would this be easier? >> > >> > strServer = InputBox("Please enter the server you want to get the FQDN >> > of:", >> > "Server") >> > >> > If Trim(strServer) <> "" Then >> > Set objShell = CreateObject("WScript.Shell") >> > Set objExec = objShell.Exec("cmd /c nslookup " & strServer) >> > While objExec.Status >> > WScript.Sleep 100 >> > Wend >> > strOutput = objExec.StdOut.ReadAll >> > arrLines = Split(strOutput, VbCrLf) >> > strServer = "NOT FOUND" >> > For Each strLine In arrLines >> > If Left(strLine, 6) = "Name: " Then strServer = >> > Trim(Mid(strLine, 7)) >> > Next >> > MsgBox strServer >> > >> > Msg=strServer >> > >> > Set objWord = CreateObject("Word.Application") >> > >> > objWord.Visible = False >> > >> > With objWord >> > .Documents.Add >> > .Selection.TypeText Msg >> > .Selection.WholeStory >> > .Selection.Copy >> > .Quit 0 >> > End With >> > Else >> > MsgBox "No server was entered." >> > End If >> > >> > >> > On Thu, Mar 18, 2010 at 12:10 PM, Todd Elliott <[email protected]> >> > wrote: >> > >> >> I've been working on one I had a question on. I've been doing it to >> try >> >> and learn a little about .vbs scripts, and to automate something I do >> >> every >> >> day without having to use cmd prompt. Just getting computer name from >> >> an IP >> >> with nbstat. >> >> >> >> It asks for the IP address, you paste it in, then it comes up with the >> >> computer name. I added a part at the end to copy the name to the >> >> clipboard. The problem is, you have to use IE to access the clipboard. >> >> It >> >> prompts you every time to allow access, unless you enable clipboard >> >> access >> >> in internet options unders security\internet\scripts. >> >> >> >> I noticed local intranet sites were set to enable that by default. Is >> >> there a way to change the script below so it thinks it's a local IE >> >> page, >> >> and doesn't prompt? >> >> >> >> * >> >> Code below:* >> >> rem Prompts the user for the IP >> >> compIP = InputBox("Enter the IP address:") >> >> >> >> rem Makes a new script shell to run DOS commands >> >> Dim sShell : Set sShell = CreateObject( "WScript.Shell" ) >> >> >> >> rem Here's the command to run in the script shell, nbtstat. It inserts >> >> the >> >> IP from the user >> >> Dim nbCMD : nbCMD = "nbtstat -a " & compIP >> >> rem Output of the nbtstat command is all read out >> >> Dim outText : outText = sShell.Exec( nbCMD ).Stdout.ReadAll >> >> rem message in case it doesn't work >> >> Dim finalMsg : finalMsg = "Computer name not found" >> >> rem regular expression that we'll use to get comp Name >> >> Dim copyExpr : Set copyExpr = New RegExp >> >> >> >> rem Regular expression pattern to find and return computer name >> >> rem the original pattern I found didn't get the whole computer name, it >> >> stopped if it found a dash >> >> rem changed it to look for \S or any non-whitespace >> >> rem copyExpr.Pattern = "\s*(\w+)\s+<20>" >> >> copyExpr.Pattern = "\s*(\S+)\s+<20>" >> >> >> >> rem Runs our regular expression against the text. >> >> Dim execRun : Set execRun = copyExpr.Execute(outText) >> >> >> >> rem if it works, set the final message to the output of the regular >> >> expression >> >> rem if it doesn't, it shows the final message already set above >> >> If 1 = execRun.Count Then >> >> finalMsg = execRun( 0 ).SubMatches( 0 ) >> >> End if >> >> >> >> rem Show the compuName to the user >> >> WScript.Echo "The Computer name is: " & finalMsg & ". It will now copy >> >> the >> >> computer name to your Clipboard. Click on allow access to copy." >> >> >> >> rem This copies the computer name to the clipboard. It will ask if the >> >> app. >> >> can have access. >> >> rem Or you can enable clipboard access in IE properites. Under >> >> Security\Internet\Custom level, Allow Programmatic clipboard access to >> >> "enable" >> >> Set objIE = CreateObject("InternetExplorer.Application") >> >> objIE.Navigate "about:blank" >> >> Do Until objIE.ReadyState=4: WScript.Sleep 1: Loop >> >> objIE.Document.ParentWindow.ClipboardData.SetData "Text", finalMsg >> >> objIE.Quit >> >> >> >> --------------------------------------------- >> >> Todd Elliott >> >> [email protected] >> >> http://www.theuniquegeek.com/ >> >> http://www.google.com/profiles/thelliott >> >> >> >> >> >> >> >> >> >> On Thu, Mar 18, 2010 at 11:39 AM, Edward Crosby >> >> <[email protected]>wrote: >> >> >> >>> Okay. After finding out that SCCM can push batch files, I decided to >> >>> write >> >>> something a little more simple than using a VB script (by the way, I >> >>> found >> >>> out while testing that VB script I posted earlier that it will not >> stop >> >>> services that have dependencies). Here is my batch file that will stop >> >>> a >> >>> service and its dependencies, if it has any, and then disables the >> >>> service: >> >>> >> >>> net stop servicename /yes >> >>> sc config "servicename" start= disabled >> >>> >> >>> -- >> >>> Have a Better One, >> >>> Edward Crosby >> >>> http://www.edwardcrosby.com >> >>> ----- >> >>> "There are no atheists in foxholes or firmware updates." >> >>> Merlin Mann >> >>> >> >>> > As soon as I learn how, probably. >> >>> > We have a SCCM admin who usually does all this but I am her backup >> so >> >>> I'm >> >>> > in the process of learning the product. >> >>> > So far, it's pretty neat; a bit confusing, but still neat. >> >>> > For those of you planning to get into Windows System Administration, >> >>> learn >> >>> > these new products by Microsoft: >> >>> > >> >>> > 1. Powershell >> >>> > 2. Microsoft System Center - all products, but mostly System Center >> >>> > Operations Manager and Configuration Manager >> >>> > >> >>> > There have been job recruiters that I have spoken with in the past >> >>> few >> >>> > months that have stated that there are many companies out there >> >>> looking >> >>> > for Operations Manager and Configuration Manager experience, but >> >>> mostly >> >>> > Operations Manager. >> >>> > >> >>> > -- >> >>> > Have a Better One, >> >>> > Edward Crosby >> >>> > http://www.edwardcrosby.com >> >>> > ----- >> >>> > "There are no atheists in foxholes or firmware updates." >> >>> > Merlin Mann >> >>> > >> >>> >> Beautiful!! Are you going to use the software dist point in sccm to >> >>> push >> >>> >> the sc batch? >> >>> >> >> >>> >> -----Original Message----- >> >>> >> From: Edward Crosby <[email protected]> >> >>> >> Sent: Thursday, March 18, 2010 6:34 AM >> >>> >> To: [email protected] >> >>> >> Subject: Re: [The Unique Geek] Looking for a VB script >> >>> >> >> >>> >> I found the answer over at Microsoft's Technet Scripting Center >> >>> forum. >> >>> >> Just in case anyone is searching for this also on this forum, I >> >>> found >> >>> >> out >> >>> >> that Microsoft System Center Configuration Manager will push batch >> >>> files >> >>> >> also. So it would be easier, for me at least, to create a batch >> file >> >>> >> than >> >>> >> a VB script. But, if anyones is looking for the VB script, here is >> >>> what >> >>> >> was posted over there: >> >>> >> >> >>> >> sComputer = "." >> >>> >> aTargetSvcs= Array("SERVICE1","SERVICE2","SERVICE3") >> >>> >> >> >>> >> Set oWMIService = GetObject("winmgmts:" & >> >>> >> "{impersonationlevel=impersonate}!\\" _ >> >>> >> & sComputer & "\root\cimv2") >> >>> >> Set cServices = oWMIService.ExecQuery("SELECT * FROM >> Win32_Service") >> >>> >> >> >>> >> For Each oService In cServices >> >>> >> For Each sTargetSvc In aTargetSvcs >> >>> >> If LCase(oService.Name) = LCase(sTargetSvc) Then >> >>> >> >> >>> >> If oService.State <> "Stopped" Then >> >>> >> oService.StopService() >> >>> >> End If >> >>> >> >> >>> >> If oService.StartMode <> "Disabled" Then >> >>> >> oService.ChangeStartMode("Disabled") >> >>> >> End If >> >>> >> >> >>> >> End If >> >>> >> Next >> >>> >> Next >> >>> >> >> >>> >> The other suggestion over there, if you were going to create a >> batch >> >>> >> file, >> >>> >> is to use the sc.exe command; 'sc stop' and 'sc config' >> >>> >> >> >>> >> -- >> >>> >> Have a Better One, >> >>> >> Edward Crosby >> >>> >> http://www.edwardcrosby.com >> >>> >> ----- >> >>> >> "There are no atheists in foxholes or firmware updates." >> >>> >> Merlin Mann >> >>> >> >> >>> >>> I'm hoping someone here has some pretty good knowledge on >> >>> scripting. I >> >>> >>> am >> >>> >>> looking for a VB script to run on some Windows 2003 servers. >> >>> >>> Here is what I posted on Technet and other forums: >> >>> >>> I am currently searching through Google results but I was hoping >> >>> >>> someone >> >>> >>> would be able to assist me here too. >> >>> >>> I am looking for a VB script that will stop more than one service >> >>> on a >> >>> >>> Windows 2003 server then set it to Disabled silently, without user >> >>> >>> interaction. >> >>> >>> We are using System Center Configuration Manager in our >> environment >> >>> and >> >>> >>> I >> >>> >>> want to use this to push a VB script to a few servers on our >> domain >> >>> to >> >>> >>> stop some services and then set the services to Disabled. This >> >>> script >> >>> >>> will >> >>> >>> need to be written to run locally, instead of remotely, as Config >> >>> >>> Manager >> >>> >>> w >> >>> >> >> >>> >> [The entire original message is not included] >> >>> >> >> >>> >> -- >> >>> >> You received this message because you are subscribed to the Google >> >>> >> Groups >> >>> >> "The Unique Geek" group. >> >>> >> To post to this group, send email to >> [email protected]. >> >>> >> To unsubscribe from this group, send email to >> >>> >> [email protected]<theuniquegeek%[email protected]> >> <theuniquegeek%[email protected]<theuniquegeek%[email protected]> >> > >> >>> . >> >>> >> For more options, visit this group at >> >>> >> http://groups.google.com/group/theuniquegeek?hl=en. >> >>> >> >> >>> >> >> >>> > >> >>> > >> >>> > -- >> >>> > You received this message because you are subscribed to the Google >> >>> Groups >> >>> > "The Unique Geek" group. >> >>> > To post to this group, send email to [email protected] >> . >> >>> > To unsubscribe from this group, send email to >> >>> > [email protected]<theuniquegeek%[email protected]> >> <theuniquegeek%[email protected]<theuniquegeek%[email protected]> >> > >> >>> . >> >>> > For more options, visit this group at >> >>> > http://groups.google.com/group/theuniquegeek?hl=en. >> >>> > >> >>> > >> >>> >> >>> >> >>> -- >> >>> You received this message because you are subscribed to the Google >> >>> Groups >> >>> "The Unique Geek" group. >> >>> To post to this group, send email to [email protected]. >> >>> To unsubscribe from this group, send email to >> >>> [email protected]<theuniquegeek%[email protected]> >> <theuniquegeek%[email protected]<theuniquegeek%[email protected]> >> > >> >>> . >> >>> For more options, visit this group at >> >>> http://groups.google.com/group/theuniquegeek?hl=en. >> >>> >> >>> >> >> -- >> >> You received this message because you are subscribed to the Google >> >> Groups >> >> "The Unique Geek" group. >> >> To post to this group, send email to [email protected]. >> >> To unsubscribe from this group, send email to >> >> [email protected]<theuniquegeek%[email protected]> >> <theuniquegeek%[email protected]<theuniquegeek%[email protected]> >> > >> >> . >> >> For more options, visit this group at >> >> http://groups.google.com/group/theuniquegeek?hl=en. >> >> >> > >> > >> > >> > -- >> > Jim >> > >> > blog ~ http://blog.k12virtualization.com >> > "Keep moving Forward" >> > >> > -- >> > You received this message because you are subscribed to the Google >> Groups >> > "The Unique Geek" group. >> > To post to this group, send email to [email protected]. >> > To unsubscribe from this group, send email to >> > [email protected]<theuniquegeek%[email protected]> >> . >> > For more options, visit this group at >> > http://groups.google.com/group/theuniquegeek?hl=en. >> > >> > >> >> >> -- >> You received this message because you are subscribed to the Google Groups >> "The Unique Geek" group. >> To post to this group, send email to [email protected]. >> To unsubscribe from this group, send email to >> [email protected]<theuniquegeek%[email protected]> >> . >> For more options, visit this group at >> http://groups.google.com/group/theuniquegeek?hl=en. >> >> > > > -- > Jim > > blog ~ http://blog.k12virtualization.com > "Keep moving Forward" > > -- > You received this message because you are subscribed to the Google Groups > "The Unique Geek" group. > To post to this group, send email to [email protected]. > To unsubscribe from this group, send email to > [email protected]<theuniquegeek%[email protected]> > . > For more options, visit this group at > http://groups.google.com/group/theuniquegeek?hl=en. > -- You received this message because you are subscribed to the Google Groups "The Unique Geek" group. To post to this group, send email to [email protected]. To unsubscribe from this group, send email to [email protected]. For more options, visit this group at http://groups.google.com/group/theuniquegeek?hl=en.
