code:

---

GetObject("WinMgmts:\root\cimv2").ExecQuery("Select * From Win32_ShortcutFile")

---

code:

---

GetObject("WinMgmts:\root\cimv2").ExecQuery("Select * From Win32_ShortcutFile Where Name='C:\Documents and Settings\All Users\Start Menu\Programs\Startup\test.lnk'")

---

quote:

---

So aside from using WSH

---

quote:

---

The second one is more of a link synchronization tool that replicates a link directory from a central repository.

---

code:

---

$colItems = GetObject("winmgmts:\root\cimv2").ExecQuery("Select * from Win32_ShortcutFile")
For each $objItem in $colItems
  "Name: " + $objItem.Name ?
  ?
Next

---

code:

---

$colItems = GetObject("winmgmts:\root\cimv2").ExecQuery("Select * from Win32_ShortcutFile where name='c:\programs\msn\msn explorer.lnk'")
For each $objItem in $colItems
  "Name: " + $objItem.Name ?
  ?
Next

---

quote:

---

If you are a smart person and you can help me with this, please post. If your advise is, "why don't you use WSH" or, "why don't you use UDF X which uses WSH or is completely irrelivent" then I would highly suggest you go back to first grade and LEARN TO READ!

---

quote:

---

What I didn't count on was a
bojo making the post look answered when it isn't. Now before you look like an even bigger
idiot, would you please READ my post with OPEN eyes before responding again?

---

quote:

---

I appreciate the fact that Jens read
my post, but I am angry that he would half-ass it to the point of not reading the post.
This is supposed to be a forum of intelligent programmers thus I submit that an intelligent
person would read a post and respond accordingly.

---

quote:

---

He
did, however, throw gas on the fire which means this little "flame up" is his fault more
then anyone else's. Now before anybody comments, read all above responses in their
entirety. Don't skim over and think you know what going on.

---

code:

---

Break On
dim $irc

$irC=setoption('Explicit','on')
$iRC=setoption('NoVarsInStrings','on')
$iRC=setoption('WrapAtEOL','on')

dim $objWBEM, $colShortcuts, $objShortcut, $sWQL, $sShortcut

$sShortcut='C:\Documents and Settings\All Users\Start Menu\Programs\Internet Explorer\Internet Explorer.lnk'

$sWQL="Select * from Win32_ShortcutFile where name='"+join(split($sShortcut,'\'),'\\')+"'"

$objWBEM = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colShortcuts=$objWBEM.ExecQuery($sWQL)

? 'Number shortcuts = '+$colShortcuts.count
if $colShortcuts.count
  For each $objShortcut in $colShortcuts
    ? 'Name         : ' +$objShortcut.Name
    ? 'Description   : ' +$objShortCut.description
    ? ''
  Next
else
  ? 'No matching shortcuts found.'
endif

exit 0

---