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]>
> .
> >> 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.
> >
> >
>
>
> --
> 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.
