You'll have to give me more info. Is is it giving an error message? I'd suggest, instead of using a web page you paste this into a text file and save it with a .vbs extension, then double click to run:
Code:
Const wiaCommandTakePicture = "{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}"
Const CameraDeviceType = 2
Set oDeviceManager = CreateObject("WIA.DeviceManager")
For Each oDeviceInfo In oDeviceManager.DeviceInfos
If oDeviceInfo.Type = CameraDeviceType Then
Set oImage = oDeviceInfo.Connect.ExecuteCommand(wiaCommandTakePicture).Transfer
oImage.SaveFile "myfilename.jpg"
End If
Next
This should be easier to diagnose.
>>src="wiaaut.vbs"><<
Have you got this file? Assumably, this is meant to contain the constants.