I would like to open all word documents in IE (10) on a windows 8 machine.
I have set all file association with word to be opened in IE but it normally just opens the file in word regardless
I am running ms office 2013
I have seen so many issues which is the reverse of my problem but not...
Hi,
I am experiancing problems with backup exec 10d. When a duplicate job starts it immidately fails throwing this error
e00081cb - Could not open the script file.
I have searched the internet up and down to no success
I have:
Update the hotfixes
DnR the client which worked only for about 3...
Hi all,
Just looking for a simple way to run a script as an amdministrator?! I could enter a batch file calling the script under admin mode. Is there any way around this !?
Thanks
Hi,
I can manipulate the User variable in the system enviroment variable!!!! I need this to be done through WMI as i have half the sript working fine over the network.....I need to find out how to add a User enviroment variable.....I have done this using wsh (previous post) Can anyone help cant...
ALL,
I need help now copying a file from my machine (admin) to all PC's on the domain without using a network share using WMI. This file will be a vbs and then needs to be run using my credent's. on the remote machines. Any one got any ideas how to do this?!
All help is appricated my sanity...
...= strValue
end if
' this part is not working
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objVariable = objWMIService.ExecQuery("Select * from Win32_Environment")
objVariable.UserName = "Wreck"
objVariable.VariableValue = "Wreck"
objVariable.Put_
..._
& "{impersonationLevel=impersonate}!\\" & strWorkstation & "\root\cimv2")
Set colPings = objWMIService.ExecQuery _
("SELECT * FROM Win32_PingStatus WHERE Address = '" & strComputer & "'")
For Each objPing in colPings
Select Case objPing.StatusCode...
...err.clear
Set objWMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
if err.number <> 0 then
'Wmi reference----end...
Option Explicit
Sub auto_open()
Dim i As Integer
Dim contracts(2000) As Variant
Dim contractsEmpty(2000) As Variant
Dim contractsExpired(2000) As Variant
Dim contractString As String
Dim contractStringEmpty As String
Dim contractStringExpired As String...
This script works great better than my one. I am having a problem finding the service tag and amount of ram in the machine. I have butchered your code to no great effect all i get is the same amount of ram again and again.....
Can you show me where i am going wrong
Option Explicit
Sub...
Looks like it working fine when i put in on "error resume next" but the output is wrong it gives the name of a pc 4 times and then 4 different mac address's beside it..
Is this something to do with the ping and the "For Each objState In objMac". If i do not put in the on error resume next it...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.